
B-63343EN/02 SAMPLE PROGRAM 2.USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FOR GUIDANCE CUTTING
- 169 -
/* CENTER X < CROSS POINT X?
IF [ABS[COFI_BO] LT #21823 && COFI_B GT #21823]GOTO 395/* BO=0 & B>0
GOTO 470
ENDIF;
/*
IF [ROUND[ABS[COFI_BO]*#21822]/#21822 LT #21823]GOTO 395 /* BO=0 ?
IF [ROUND[ABS[COFI_B]*#21822]/#21822 LT #21823]GOTO 395 /* B=0
IF [[COFI_BO * COFI_B] LT 0]GOTO 472
ENDIF;
GOTO 395
/* .
/* REGION 4 . *
/* .
N466 IF [ABS[COFI_BO] LT #21823 || COFI_BO GT #21823] THEN /*B>=0
IF [ROUND[[[#5041-RN_DX]*WORK_D]*#21822] GE [ROUND[WORK_XO*#21822]]]THEN
/* CENTER X >= CROSS POINT X?
IF [ABS[COFI_BO] LT #21823 && COFI_B LT #21823]GOTO 395 /* BO=0 & B<0
GOTO 470
ENDIF
/*
IF [ROUND[ABS[COFI_BO]*#21822]/#21822 LT #21823]GOTO 468 /* BO=0 ?
IF [ROUND[ABS[COFI_B]*#21822]/#21822 LT #21823]GOTO 468 /* B=0
IF [[COFI_BO * COFI_B] LT 0]GOTO 472
ENDIF;
/* .
/* REGION 2 * .
/* .
N468 IF [ABS[COFI_BO] LT #21823 || COFI_BO LT #21823] THEN /*B<=0
IF [ROUND[[[#5041-RN_DX]*WORK_D]*#21822] LT [ROUND[WORK_XO*#21822]]]THEN
/* CENTER X < CROSS POINT X?
IF [ABS[COFI_BO] LT #21823 && COFI_B GT #21823]GOTO 395/* BO=0 & B>0
/*
N470 IF [ROUND[ABS[COFI_BO]*#21822]/#21822 LT #21823]GOTO 472 /* BO=0 ?
IF [ROUND[ABS[COFI_B]*#21822]/#21822 LT #21823]GOTO 472 /* B=0
IF [[COFI_BO * COFI_B] LT 0]GOTO 395 /*
N471 GOTO 472
ENDIF
/*
IF [ROUND[ABS[COFI_BO]*#21822]/#21822 LT #21823]GOTO 395 /* BO=0 ?
IF [ROUND[ABS[COFI_B]*#21822]/#21822 LT #21823]GOTO 395 /* B=0
IF [[COFI_BO * COFI_B] LT 0]THEN
N472 WORK_SIN = - WORK_SIN; /* REVERSE
WORK_COS = - WORK_COS;
VERT_LEN = - VERT_LEN
ENDIF
ENDIF;
/*
/*
N395 IF [WORK_SET EQ 0] THEN
WORK_SET = 180
GOTO 390
ENDIF;
IF [WORK_SET EQ 180] THEN ;
WORK_SET = 0
GOTO 390
ENDIF;
/*
IF [WORK_SET EQ 90 || WORK_SET EQ 270 ]GOTO 390
/*
WORK_SET = 360-WORK_SET
/*
N390 CHK_SIN = WORK_SIN/WORK_220 ; /* For DEBUG
CHK_COS = WORK_COS/WORK_220 ;
/*
/* NEW LINE
/*
N400 IF [LIMIT_F EQ 1] THEN