|
%_N_L9851_SPF+ q/ z1 W; H1 Y) P8 j
PROC L9851(INT TOOLNO)& \0 h9 ~# u$ \4 @
DEF INT ACT_TOOLNO
: S3 A" j: J( wDEF REAL ACT_TOOL_LENGTH,W_POS,V_POS
8 ?. {+ `6 x9 @$ _( xIF $P_SUBPAR[1]==TRUE+ r t# I' I( w% z c
ACT_TOOLNO=TOOLNO; l* C& C& L2 l% S7 M" o
ELSE6 Y9 j/ ]0 P1 S. e
ACT_TOOLNO=$P_TOOLNO0 t" Z' V' d1 m/ H3 n
ENDIF% |$ N' X! V V
ACT_TOOL_LENGTH=$TC_DP3[ACT_TOOLNO,1]+$TC_DP12[ACT_TOOLNO,1]
$ S7 S4 z# v9 N; h, O* zW_POS=$AA_IM[W]0 v+ v1 J" F' C1 C: v# H7 f$ k' M
V_POS=$AA_IM[V]
& V9 z: ]% Y# l; ?$P_CHBFR[0]=CTRANS(Z,ACT_TOOL_LENGTH-W_POS-V_POS)
+ w. U- }: F4 RR0=$P_GG[8]; U, |* v- V# @* U6 _
G[8]=R0
7 P8 E' r* q7 M/ B( P6 YM17 |
|