0 BEGIN PGM 4035_NL MM 
1 ;Programma om een conus te maken door het
2 ;schuin instellen van de B-as en het
3 ;roteren van de C-as. Het programma is
4 ;geschreven voor een machine met Bzwenkkop
5 ;en C-rondtafel. Met de functie M128 wordt
6 ;het gereedschap op de geprogrammeerde
7 ;baan verplaatst, ook wanneer het werkstuk
8 ;niet in het midden van de C-rondtafel
9 ;gespannen is.
10 ;
11 BLK FORM 0.1 Z X-5 Y-5 Z-8
12 BLK FORM 0.2  X+5  Y+5  Z+0
13 ;
14 ;Gereedschapsoproep
15 TOOL CALL 6 Z S5000 F500
16 ;
17 ;Invoer
QL100 = - 7 ;DIEPTE
QL101 = 10 ;DIAMETER ONDER
QL102 = 28.1786 ;HOEK
18 ;
19 ;Berekeningen
QL200 = ABS QL100 - SIN ABS QL102 * Q108 ;Diepte voor het gereedschapsmidden
QL201 = COS ABS QL102 * Q108 + QL101 / 2 ;Radius voor het gereedschapsmidden
QL300 = Q108 * 2 + QL101 / 2 ;Voorpositionering
20 ;
21 L  X+QL300  Y+0 R0 FMAX M3
22 L  Z+2 R0 FMAX
23 L  Z+0 R0
24 L  B-QL102 R0 M128 ;Schuin instellen van de B-as met M128
25 L  Z-QL200 R0
26 L  X+QL201 R0
27 CC  X+0  Y+0
28 CP IPA+360 IC+360 DR+ ;Roteren van de C-as met 360 graden met actieve M128
29 L  X+QL300 R0 FMAX
30 L  B+0 R0 FMAX M129 ;B-as naar 0 graden verplaatsen en M128 uitschakelen
31 L  Z+250 R0 FMAX M30
32 END PGM 4035_NL MM