
B-63343EN/02 SAMPLE PROGRAM 6.GUIDANCE WINDOW FOR DATA ITEM
- 201 -
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X29 Y8 ('S') /* START
/* /*
IF [#9200 EQ 105] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X31 Y4 ('D') /* DIAMETER
#8509=0 /* MD0056
GOTO999;
/*
/* UNIFY OUTER
/*
N1300 W_CXPOS = 0 ; /* offset x pos
W_CYPOS = 0 ; /* offset y pos
CUNT = 0 ; /* counter clear
ASET = 0 ; /* init angle
G240 P7 C4 ; /* set color
/* window title
G243 X1 Y0 ('UNIFI (OUTER) ') ;
G244 P0 ; /* set solid line
G240 P10 ; /* set color
/* work figure
G242 X[-296+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-112+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-128+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-160+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-176+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-192+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-208+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[56+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[56+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[224+W_CYPOS] ;
G206 P0 X[-290+W_CXPOS] Y[200+W_CYPOS] ;
G240 P4 ; /* set color
G242 X[-96+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-112+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-128+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-160+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-176+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-192+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-208+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[56+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[56+W_CYPOS] ;
G240 P15 ; /* set color
/* z coord axis
G242 X[-304+W_CXPOS] Y[216+W_CYPOS] ;
G01 X[-24+W_CXPOS] Y[216+W_CYPOS] ;
G01 X[-28+W_CXPOS] Y[220+W_CYPOS] ;
G242 X[-24+W_CXPOS] Y[216+W_CYPOS] ;
G01 X[-28+W_CXPOS] Y[212+W_CYPOS] ;
/* x coord axis