14 lines
186 B
Plaintext
14 lines
186 B
Plaintext
DEF REAL CUR_X
|
|
DEF REAL CUR_Y
|
|
DEF REAL CUR_Z
|
|
|
|
CUR_X=$VA_IW[X]
|
|
CUR_Y=$VA_IW[Y]
|
|
CUR_Z=$VA_IW[Z]
|
|
|
|
|
|
|
|
$P_UIFR[1]=CTRANS(X,CUR_X,Y,CUR_Y,Z,CUR_Z):CROT(X,0.000000,Y,-0.000000,Z,0.000000)
|
|
|
|
M17
|