0 BEGIN PGM Abzeilen 2 Konturen MM 1 BLK FORM 0.1 Z X-1 Y-20 Z-50 2 BLK FORM 0.2 X+1640 Y+0 Z+0 3 TOOL CALL 31 Z S( VC = 250 ) ~ F900 4 * - EMK 50 5 CYCL DEF 301 ~ Q1998=+1 6 Q1 = 1.5 ; Zustellung 7 Q2 = - 15 ; Endpunkt Z 8 L X+610 Y+35 FMAX M3 9 L Z+5 FMAX M17 10 Q3 = Q1 ; Tiefe Z 11 L Z-Q3 F1000 12 LBL "KONTUR_1" 13 L Y-55 F AUTO 14 L IX+35 RL F AUTO 15 L Y+70 RL F AUTO 16 L IX-70 RL F AUTO 17 L Y-55 RL F AUTO 18 L Z+50 R0 FMAX 19 Q3 = Q3 + Q1 ; Zustellung 20 FN 11: IF +Q3 GT +Q2 GOTO LBL "NEXT" 21 L X+610 Y+35 FMAX 22 L Z+5 FMAX 23 L Z-Q3 F1000 24 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR_1" 25 LBL "NEXT" 26 Q4 = 1.5 ; Zustellung 27 Q5 = - 15 ; Endpunkt Z 28 L X+1030 Y+35 FMAX 29 L Z+5 FMAX 30 Q6 = Q4 ; Tiefe Z 31 L Z-Q6 F1000 32 LBL "KONTUR_2" 33 L Y-55 F AUTO 34 L IX+35 RL F AUTO 35 L Y+70 RL F AUTO 36 L IX-70 RL F AUTO 37 L Y-55 RL F AUTO 38 L Z+50 R0 FMAX 39 Q6 = Q6 + Q4 ; Zustellung 40 FN 11: IF +Q6 GT +Q5 GOTO LBL "ENDE" 41 L X+1030 Y+35 FMAX 42 L Z+5 FMAX 43 L Z-Q6 F1000 44 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR_2" 45 LBL "ENDE" 46 TOOL CALL 32 Z S100 47 CYCL DEF 301 ~ Q1998=+1 48 L X+500 Y+70 FMAX M30 49 END PGM Abzeilen 2 Konturen MM