0 BEGIN PGM 7090_nl MM 
1 ;Programma voor het maken van een
2 ;vierkante trechter en een kamer
3 ;op de basis.
4 ;Definitie van alle hoekpunten
5 ;in X en Y
6 ;
7 BLK FORM 0.1 Z  X+0  Y+0  Z-32
8 BLK FORM 0.2  X+100  Y+100  Z+0
9 ;
10 ;Gereedschapsoproep frees
11 TOOL CALL 6 Z S4000
12 ;
13 L  Z+50 R0 FMAX M3
14 ;Definitie van de hoeken boven
15 FN 0: Q1 =+10 ;1E HOEK X-COÖRDINAAT
16 FN 0: Q2 =+10 ;1E HOEK Y-COÖRDINAAT
17 FN 0: Q3 =+10 ;2E HOEK X-COÖRDINAAT
18 FN 0: Q4 =+90 ;2E HOEK Y-COÖRDINAAT
19 FN 0: Q5 =+90 ;3E HOEK X-COÖRDINAAT
20 FN 0: Q6 =+90 ;3E HOEK Y-COÖRDINAAT
21 FN 0: Q7 =+90 ;4E HOEK X-COÖRDINAAT
22 FN 0: Q8 =+10 ;4E HOEK Y-COÖRDINAAT
23 FN 0: Q9 =+8 ;HOEKRADIUS
24 ;
25 ;Definitie van de hoeken onder
26 FN 0: Q11 =+30 ;1E HOEK X-COÖRDINAAT
27 FN 0: Q12 =+30 ;1E HOEK Y-COÖRDINAAT
28 FN 0: Q13 =+30 ;2E HOEK X-COÖRDINAAT
29 FN 0: Q14 =+70 ;2E HOEK Y-COÖRDINAAT
30 FN 0: Q15 =+70 ;3E HOEK X-COÖRDINAAT
31 FN 0: Q16 =+70 ;3E HOEK Y-COÖRDINAAT
32 FN 0: Q17 =+70 ;4E HOEK X-COÖRDINAAT
33 FN 0: Q18 =+30 ;4E HOEK Y-COÖRDINAAT
34 FN 0: Q19 =+14.9 ;HOEKRADIUS
35 ;
36 ;Snijgegevens
37 FN 0: Q20 =+100 ;AANZET DIEPTEVERPLAATSING
38 FN 0: Q21 =+250 ;AANZET FREZEN
39 FN 0: Q24 =+1 ;ZIJDELINGSE OVERMAAT
40 FN 0: Q25 =+2 ;VEILIGHEIDSAFSTAND
41 FN 0: Q26 =+3 ;DIEPTE-INSTELLING KAMER
42 FN 0: Q27 =+20 ;AANTAL DIEPTEVERPLAATSINGEN TRECHTER
43 FN 0: Q28 =+25 ;DIEPTE TRECHTER
44 FN 0: Q29 =+30 ;DIEPTE KAMER ONDER (ABSOLUUT)
45 ;Oproep programma 70901_nl
46 CALL PGM 70901_nl.h
47 ;
48 ;Einde programma
49 L  Z+200 R0 FMAX M2
50 END PGM 7090_nl MM