0 BEGIN PGM 7095_NL MM 
1 ;Programma voor het maken van een
2 ;vierkante trechter en een kamer op
3 ;de basis.
4 ;Definitie van de hoekpunten in X en Y.
5 ;
6 BLK FORM 0.1 Z X+0 Y+0 Z-32
7 BLK FORM 0.2  X+100  Y+100  Z+0
8 ;
9 ;Gereedschapsoproep frees
10 TOOL CALL 8 Z S4000
11 ;
12 L  Z+50 R0 FMAX M3
13 ;Definitie van de hoeken boven
14 FN 0: Q71 =+10 ;1E HOEK X-COÖRDINAAT
15 FN 0: Q72 =+10 ;1E HOEK Y-COÖRDINAAT
16 FN 0: Q73 =+10 ;2E HOEK X-COÖRDINAAT
17 FN 0: Q74 =+90 ;2E HOEK Y-COÖRDINAAT
18 FN 0: Q75 =+90 ;3E HOEK X-COÖRDINAAT
19 FN 0: Q76 =+90 ;3E HOEK Y-COÖRDINAAT
20 FN 0: Q77 =+90 ;4E HOEK X-COÖRDINAAT
21 FN 0: Q78 =+10 ;4E HOEK Y-COÖRDINAAT
22 FN 0: Q79 =+8 ;HOEKRADIUS
23 ;
24 ;Definitie van de hoeken onder
25 FN 0: Q81 =+30 ;1E HOEK X-COÖRDINAAT
26 FN 0: Q82 =+30 ;1E HOEK Y-COÖRDINAAT
27 FN 0: Q83 =+30 ;2E HOEK X-COÖRDINAAT
28 FN 0: Q84 =+70 ;2E HOEK Y-COÖRDINAAT
29 FN 0: Q85 =+70 ;3E HOEK X-COÖRDINAAT
30 FN 0: Q86 =+70 ;3E HOEK Y-COÖRDINAAT
31 FN 0: Q87 =+70 ;4E HOEK X-COÖRDINAAT
32 FN 0: Q88 =+30 ;4E HOEK Y-COÖRDINAAT
33 FN 0: Q89 =+14.9 ;HOEKRADIUS
34 ;
35 ;Snijgegevens
36 FN 0: Q90 =+100 ;AANZET DIEPTEVERPLAATSING
37 FN 0: Q91 =+250 ;AANZET FREZEN
38 FN 0: Q24 =+1 ;ZIJDELINGSE OVERMAAT
39 FN 0: Q25 =+2 ;VEILIGHEIDSAFSTAND
40 FN 0: Q26 =+3 ;DIEPTE-INSTELLING KAMER ONDER
41 FN 0: Q27 =+25 ;AANTAL DIEPTEVERPLAATSINGEN TRECHTER
42 FN 0: Q28 =+25 ;DIEPTE TRECHTER
43 FN 0: Q29 =+30 ;DIEPTE KAMER ONDER (ABSOLUUT)
44 ;Oproep programma 70951_nl
45 CALL PGM 70951_nl.h
46 ;
47 ;Einde programma
48 L  Z+200 R0 FMAX M30
49 END PGM 7095_NL MM