0 BEGIN PGM 3175_NL MM 
1 ;Programma om een lichaam in de vorm van een
2 ;conische passpie te frezen.
3 ;De bewerking vindt plaats met een schachtfrees
4 ;in hoogtelijnen. Hiervoor definieert u eerst
5 ;alle benodigde parameters. Vervolgens berekent
6 ;de besturing de wijziging in de diepte en de
7 ;zijde. Dan bewerkt de besturing het lichaam
8 ;van beneden naar boven. Daartoe wordt cyclus 25
9 ;gebruikt, waarbij de wijzigingen in de contour
10 ;door de overmaat aan de zijkant geprogrammeerd
11 ;zijn. Na elke cyclusoproep worden de nieuwe
12 ;diepte en de nieuwe overmaat aan de zijkant
13 ;berekend en vindt een herhaling plaats totdat het
14 ;lichaam gereed is.
15 ;Met de deling definieert u hoeveel hoogtelijnen
16 ;worden gemaakt en bepaalt u daarmee indirect de
17 ;kwaliteit van het oppervlak en de nauwkeurigheid.
18 ;
19 BLK FORM 0.1 Z X-15 Y-7 Z-12
20 BLK FORM 0.2  X+15  Y+7  Z+0
21 ;
22 ;Gereedschapsoproep schachtfrees
23 TOOL CALL 8 Z S3000
24 ;
25 ;Invoer parameters
26 FN 0: Q10 =+8 ;AFRONDINGSDIAMETER BOVEN
27 FN 0: Q20 =+14 ;AFRONDINGSDIAMETER ONDER
28 FN 0: Q40 =+10 ;DIEPTE
29 FN 0: Q50 =+16 ;LENGTE VAN DE RECHTEN
30 FN 0: Q30 =+50 ;VERDELING
31 FN 0: Q70 =+300 ;AANZET DIEPTEVERPLAATSING
32 FN 0: Q71 =+600 ;AANZET FREZEN
33 FN 0: Q72 =+10 ;MAX. DIEPTE-INSTELLING
34 ;Einde invoer
35 ;
36 ;Berekeningen
37 FN 4: Q61 =+Q10 DIV +2 ;Cirkelradius boven
38 FN 4: Q51 =+Q50 DIV +2 ;Lengte van de rechten vanaf het middelpunt
39 FN 2: Q21 =+Q20 - +Q10 ;Diameterverschil
40 FN 4: Q22 =+Q21 DIV +2 ;Radiusverschil
41 FN 2: Q31 =+Q30 - +1 ;Aantal herhalingen van programmagedeelte
42 FN 4: Q23 =+Q22 DIV +Q30 ;Wijziging aan de zijkant per snede
43 FN 4: Q41 =+Q40 DIV +Q30 ;Dieptewijziging per snede
44 ;Einde berekeningen
45 ;
46 LBL 10
47 CYCL DEF 14.0 CONTOUR
48 CYCL DEF 14.1 CONTOURLABEL1
49 CYCL DEF 25 CONTOURREEKS ~
   Q1=-Q40  ;FREESDIEPTE ~
    Q3=+Q22  ;OVERMAAT ZIJKANT ~
    Q5=+0    ;COORD. OPPERVLAK ~
    Q7=+50   ;VEILIGE HOOGTE ~
    Q10=-Q72  ;DIEPTEVERPLAATSING ~
    Q11=+Q70  ;AANZET DIEPTEVERPL. ~
    Q12=+Q71  ;AANZET UITRUIMEN ~
    Q15=+1    ;FREESWIJZE
50 CYCL CALL M13
51 Berekening nieuwe diepte en overmaat
52 FN 2: Q40 =+Q40 - +Q41
53 FN 2: Q22 =+Q22 - +Q23
54 CALL LBL 10 REPQ31 ;Herhaling van de bewerking
55 ;Vrijzetten en programma-einde
56 L  Z+100 R0 FMAX M30
57 ;
58 ;Subprogramma contourbeschrijving
59 LBL 1
60 L  X+0  Y+Q61 RL
61 L  X+Q51
62 CR  X+Q51  Y-Q61 R+Q61 DR-
63 L  X-Q51
64 CR  X-Q51  Y+Q61 R+Q61 DR-
65 L  X+0
66 LBL 0
67 END PGM 3175_NL MM