blob: 58727343220249c35476f2c947127c1e0c58364a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# ICG_USER -- User default action
procedure icg_user (ic, gp, gt, cv, wx, wy, wcs, key, cmd)
pointer ic # ICFIT pointer
pointer gp # GIO pointer
pointer gt # GTOOLS pointer
pointer cv # CURFIT 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
|
