0 BEGIN PGM SR - SL Tiefe mehrfach MM 1 BLK FORM 0.1 Z X-452 Y-78 Z-44 2 BLK FORM 0.2 X+34 Y+47 Z+5 3 ; 4 TOOL CALL 1 Z S( VC = 350 ) ~ F1600 DL+1.5 DR+1.5 5 * - HPC 20 SR 6 M353 7 ; 8 Q1001 = - 45 ; Tiefe Z 9 Q1002 = 7 ; Zustellungen Schruppen 10 Q1003 = 3 ; Zustellungen Schlichten 11 ; 12 Q1004 = Q1001 / Q1002 ; Berechnung Zustellung 13 Q1005 = Q1004 ; Berechnung 14 Q1006 = 1 ; Merker 15 Q1007 = 0 ; Merker 16 ; 17 LBL "KONTUR" 18 L X+54 Y+0 FMAX M3 19 L Z+5 FMAX 20 L Z+Q1005 F1000 21 L Y-20 RR F AUTO 22 CC X+54 Y+0 23 C X+34 Y+0 DR- RR 24 CC X+0 Y+0 25 C X-10.423 Y+32.363 DR+ RR 26 L X-120.789 Y-3.181 RR 27 CC X-126 Y+13 28 C X-135.638 Y-1.004 DR- RR 29 L X-193.355 Y+38.717 RR 30 CC X-220 Y+0 31 C X-227.477 Y+46.401 DR+ RR 32 L X-441.909 Y+11.847 RR 33 CC X-440 Y+0 34 C X-441.909 Y-11.847 DR+ RR 35 L X-217.636 Y-47.987 RR 36 CC X-225.591 Y-97.35 37 C X-202.473 Y-53.016 DR- RR 38 CC X-110 Y+124.322 39 C X+22.53 Y-25.464 DR+ RR 40 CC X+0 Y+0 41 C X+34 Y+0 DR+ RR 42 CC X+54 Y+0 43 C X+54 Y+20 DR- RR 44 L Y+0 R0 45 L Z+50 FMAX 46 ; 47 Q1005 = Q1005 + Q1004 ; Zustellung 48 Q1006 = Q1006 + 1 ; Zaehler 49 FN 9: IF +Q1007 EQU +1 GOTO LBL "ADD_TO_MARKER" 50 FN 11: IF +Q1007 GT +1 GOTO LBL "ADD_TO_MARKER" 51 ; 52 FN 12: IF +Q1006 LT +Q1002 GOTO LBL "KONTUR" 53 FN 9: IF +Q1006 EQU +Q1002 GOTO LBL "KONTUR" 54 FN 9: IF +0 EQU +0 GOTO LBL "SCHLICHTEN" 55 ; 56 LBL "CONTINUE" 57 FN 12: IF +Q1007 LT +Q1003 GOTO LBL "KONTUR" 58 FN 9: IF +Q1007 EQU +Q1003 GOTO LBL "KONTUR" 59 FN 11: IF +Q1007 GT +Q1003 GOTO LBL "ENDE" 60 ; 61 LBL "ADD_TO_MARKER" 62 Q1007 = Q1007 + 1 ; Zaehler 63 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE" 64 ; 65 LBL "SCHLICHTEN" 66 LBL "PLACEHOLDER" 67 ; 68 ; zusaetzliche Bearbeitung (Stirn) 69 ; 70 LBL 0 71 TOOL CALL 2 Z S( VC = 350 ) ~ F1500 72 * - HPC 20 SL 73 M7 M55 74 ; 75 Q1004 = Q1001 / Q1003 ; Berechnung Zustellung 76 Q1005 = Q1004 ; Berechnung 77 Q1007 = 1 ; Merker 78 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR" 79 ; 80 LBL "ENDE" 81 CALL LBL "PLACEHOLDER" 82 TOOL CALL 48 Z 83 L Y+0 Z+0 FMAX M91 M30 84 END PGM SR - SL Tiefe mehrfach MM