blob: 764b32ae7016339020ab25c69d5a92b366e2235d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
define TOL 0.0001 # pixel units
define swapi {tempi=$2;$2=$1;$1=tempi}
define swapr {tempr=$2;$2=$1;$1=tempr}
define equal (abs($1-$2)<TOL)
define LEN_PGONDES 7
define P_PL Memi[$1] # pointer to X vector
define P_XP Memi[$1+1] # pointer to X vector
define P_YP Memi[$1+2] # pointer to Y vector
define P_OO Memi[$1+3] # pointer to previous range list
define P_OY Memi[$1+4] # y value of previous range list
define P_NS Memi[$1+5] # number of line segments
define P_PV Memi[$1+6] # pixel value
|
