B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 149 -
WRK_VAR2= 1 ; /* set default cos data
ENDIF ;
ELSE ;
WRK_VAR= -WRK_VAR/L_WRK ; /* calculate sin
WRK_VAR2= WRK_VAR2/L_WRK ; /* calculate cos
ENDIF;
/*
N350 IF [DSP_FWRK EQ 1] THEN /* DISPLAY GRAPHIC?
DSP_FWRK=0 /* FLAG OFF
GOTO 500 /* NOT CHECK F104
ENDIF
/*
N2010 G310 R980 P[D_DSP] L4 ; /* get D data
/*
N700 IF [ROUND[ABS[#D_DSP]*WORK_AMT]/WORK_AMT LE WORK_MIN] THEN;
#D_DSP= 1 ;
ENDIF ;
/*
N750 IF [ R984 NE ANG_ITEM ] THEN ;
SIN_CCW= 0 ;
COS_CCW= 0 ;
ENDIF ;
/*
N800 IF [ ABS[WRK_VAR-SIN_CCW] GE 0.0175] GOTO 500 /* IF SIN CHANGED
/* /*
N820 IF [ ABS[WRK_VAR2-COS_CCW] GE 0.0175] GOTO 500 /* IF COS CHANGED
/* /*
N850 IF [#D_DSP*D_DSPO LT -[WORK_MIN] ] GOTO 500 /* IF SIGN OF D CHANGED
/* /*
GOTO 900 /*
/*
/* change angle or distance sign
/*
N500 SIN_CCW= WRK_VAR/* renew sin data
COS_CCW= WRK_VAR2 /* renew cos data
D_DSPO= #D_DSP /* renew D data
ANG_ITEM= R984 /*CW APPROACH HANDLE DIRECTION
/*
N600 WORK_ARW=0 /*CUTTING HANLE IS LEFT
/*
N610 IF [R974 EQ 0 && #D_DSP GE 0] THEN /*
WORK_ARW=1 /*CUTTING HANLE IS RIGHT
ENDIF /*
/*
N630 IF [R974 EQ 1 && #D_DSP LT 0] THEN /*
WORK_ARW=1 /*CUTTING HANLE IS RIGHT
ENDIF /*
/*
N650 WORK_ALU=1 /*ALONG HANDLE UPPER IS RIGHT
/*
N660 IF [R961 EQ 3] THEN /*G03
WORK_ALU=2 /*ALONG HANDLE UPPER IS LEFT
ENDIF /*
/*
N680 WORK_APR=1 /*APPROACH RIGHT IS RIGHT
/*
IF [R974 EQ 1] THEN /*
WORK_APR=2 /*APPROACH RIGHT IS LEFT
ENDIF /*
/*
/*
/*@1997.09.16 START
IF [R974 EQ 0] THEN /*IF CIRCLE INSIDE
IF [R985.5 EQ 1] THEN /*IF APPROACH HANDLE
/*
WRK_VAR=R984 /*
/*