blob: 5780d755929683fa27bdc2cb6358ff2b1d419972 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# ING_UFIT -- User default action for interactive fitting commands
procedure ing_ufit (in, gp, gt, nl, wx, wy, wcs, key, cmd)
pointer in # INLFIT pointer
pointer gp # GIO pointer
pointer gt # GTOOLS pointer
pointer nl # NLFIT pointer
real wx, wy # Cursor positions
int wcs # GIO WCS
int key # Cursor key
char cmd[ARB] # Cursor command
begin
# Ring bell
call printf ("\07\n")
end
|
