; Author: Z. Maciej "Miki" Bajkowski
;
; logiczny operator "lub" (OR)
; alternatywa wykluczająca (XOR) prawdziwe, gdy nieparzysta liczba argumentów jest prawdziwa
; logiczny operator "i" (AND)
; równe (EQ)
; nierówne (NE)
; większe od (GT)
; większe lub równe (GE)
; mniejsze (LT)
; mniejsze lub równe (LE)
;
; ATAN[Y]/[X] Four quadrant inverse tangent
; ABS[arg] wartość absolutna
; ACOS[arg] Inverse cosine
; ASIN[arg] Inverse sine
; COS[arg] cosinus
; EXP[arg] e raised to the given power
; FIX[arg] zaokrąglenie w dół
; FUP[arg] zaokrąglenie w górę
; ROUND[arg] zaokrąglenie
; LN[arg] logarytm
; SIN[arg] sinus
; SQRT[arg] Square Root
; TAN[arg] Tangens
; EXISTS[arg] szuka zmiennej 


(info: Toczenie wałka od zewnątrz od prawej do lewej, planowanie czoła, fazowanie  krawędzi, półkule, stożki, roztaczanie otworów)
o<toczenie> sub
#<sr_materialu> = #1 (=0 Średnica materiału)
#<dlugosc_detalu> = #2 (=0 Długość gotowego detalu)
#<czolo> =#3 (=0 planowanie czoła w mm)
#<stozek> =#4 (=0 <> stożek)
#<korekta> = #5(=0 korekta podstawy stożka w mm)
#<kat_stozka> =#6 (=0 kąt stożka w stopniach)
#<sr_pocz> =  #7 (=0 Średnica początkowa walca/stożka)
#<sr_koncowa> =  #8 (=0 Średnica końcowa walca/stożka)
#<z_pocz> =  #9 (=0 Punkt początkowy na osi Z)
#<z_koncowe> =  #10 (=0 Punkt końcowy na osi Z)
#<przybranie_materialu> =  #11 (=2 Przybranie)
#<ostatnia_warstwa> =  #12 (=0 Ostatnia warstwa)
#<podciecie> =#13 (=0 Podcięcie A 1, B 2, C 3, D 4, 0 wyłącza)
#<szerokosc_fazki_s_p> = #14 (=0 Szerokość fazki śr.p, 0 wyłącza)
#<glebokosc_fazki_s_p> =#15 (=0 Głębokość fazki na śr.pocz.)
#<promien_fazki_s_p> =#16 (=0 Promień fazki śr.p, 0 wyłącza)
#<zaglebienie_fazki_s_p> =#17 (=0 zagłębienie fazki śr.p, 0 wyłącza)
#<wkleslosc_fazki_s_p> =#18 (=0 <> wklęsłość fazki na średnicy początkowej)
#<szerokosc_fazki_s_k> = #19 (=0 Szerokość fazki śr.k, 0 wyłącza)
#<glebokosc_fazki_s_k> =#20 (=0 Głębokość fazki na śr.końc.)
#<promien_fazki_s_k> =#21 (=0 Promień fazki śr.k, 0 wyłącza)
#<zaglebienie_fazki_s_k> =#22 (=0 zagłębienie fazki śr.k, 0 wyłącza)
#<wkleslosc_fazki_s_k> =#23 (=0 <> wklęsłość fazki na średnicy końcowej)
#<skos_z_p> =#24 (=0 korekta skosu na początku w osi Z)
#<skos_z_k> =#25 (=0 korekta skosu na końcu w osi Z)
#<odjazd_z_k> =#26 (=99 pozycja końcowa w osi Z, 99 wyłącza)
#<odjazd_x_k> =#27 (=99 pozycja końcowa w osi X, 99 wyłącza)
#<przełacz_korekta> =#28 (=0 <> przełącz korektę na pomijanie)
#<pomijaj_srednica> =#29 (=0 korekta średnicy walca/stożka)
#<pomijaj_srednica_max> =#30 (=0 korekta średnicy materiału)
#<pomijaj_faza_s_k> =#31 (=0 korekta szer. fazki śr.końc.)
#<pomijaj_faza_s_p> =#32 (=0 korekta szer. fazki śr.pocz.)
#<pomijaj_czolo> =#33 (=0 <> pomijanie planowania czoła)
#<odjazd_z> =#34 (=0.25 odjazd od materiału w osi Z)
#<odjazd_x> =#35 (=0.5 odjazd od materiału w osi X)
#<noz_wstepny>=#36 (=0 Nóż wstępny)
#<noz_czolo>=#37 (=0 Nóż do czoła)
#<noz_koncowy>=#38(=0 Nóż kończący)
#<noz_fazki_s_k>=#39 (=0 Nóż fazki na śr. końcowej)
#<noz_fazki_s_p>=#40 (=0 Nóż fazki na śr. pocz.)
#<posuw_czolo> =  #41 (=400 Posuw czoła)
#<posuw> =  #42(=1000 Posuw roboczy)
#<posuw_koncowy> =  #43 (=800 Posuw kończący)
#<woda> = #44(=1 <> Chłodziwo)
#<g5x> = #45(=54 Układ odniesienia G5x)
#<m> = #46(=0 <> lewe obroty)
#<inwersja> = #47(=0 <> imak za osią)
#<rpm> = #48 (=720 obroty)
#<max_rpm> = #49 (=1500 obroty maksymalne)

; stałe wpisane na sztywno
#<ilosc_nozy_w_tabeli>=9

; G7:  praca w średnicach
; G96: stała prędkość skrawania
; Włączamy procedurę 

G#<g5x> G43 G7 G96  S#<rpm> D#<max_rpm>
      g64 p0.05 (tolerancja łuku 0.05mm)
      ;g64 (wyłączona kontrola tolerancji, zakręty ścinanne)
      ;g61 (dokładna jazda od punktu do punktu)

o20000 if [#<pomijaj_srednica> ne 0 or #<pomijaj_srednica_max> ne 0 or #<pomijaj_faza_s_k> ne 0 or #<pomijaj_faza_s_p> ne 0 or #<pomijaj_czolo> ne 0]
(msg, Uwaga, włączona któraś z korekt!)
#<akt_noz> = #5400            
            T9 M6 
            T#<akt_noz> M6 
o20000 endif

o1 if[#<m> eq 0] (wybór kierunku obrotów wrzeciona)
      m3
o1 else
      m4
o1 endif

o2 if[#<woda> eq 1] (wybór włączenia/wyłączenia chłodziwa)
      m8
o2 else
      m9
o2 endif

o4 if[#<dlugosc_detalu> eq 0] (jeżeli nie podamy długości gotowego detalu, a wpiszemy średnicę materiału, program stoczy naddatek do końca fazki na średnicy początkowej)
      #<dlugosc_detalu> = -[#<z_koncowe>-#<szerokosc_fazki_s_p>]
o4 endif

o1000 if[#<sr_pocz> ge #<sr_koncowa>] (toczenie od zewnątrz walca lub stożka)

#<odjazd_x>=[#<odjazd_x>*2+#<przybranie_materialu>]
#<roznica_srednic>=[#<sr_pocz>-#<sr_koncowa>]
#<akt_start_x>=[#<sr_pocz>-#<pomijaj_srednica>]
#<z_k_stozka>=0
#<dl_stozka>=[abs[#<z_koncowe>]+abs[#<z_pocz>]]
#<akt_pozycja>=0

o60 if[#<dl_stozka> ne 0] (ustalenie wartości przesunięcia osadzenia fazki na średnicy końcowej, gdy procedurą główną jest stożek)
	#<korekta_polozenia_fazki> = [#<szerokosc_fazki_s_k>*#<korekta>/#<dl_stozka>]
o60 else
	#<korekta_polozenia_fazki>=0
o60 endif



o10 if[#<z_pocz> le #<z_koncowe>] (Zmiana kierunku odjazdu w osi Z gdy toczymy od lewej do prawej i poprawka wklęsłości fazki)

		#<odjazd_z> = -[#<odjazd_z>] 
	o12 if[#<wkleslosc_fazki_s_k>eq 1]
		#<wkleslosc_fazki_s_k>=0
	o12 else
		#<wkleslosc_fazki_s_k>=1
	o12 endif
o10 endif


o15 if[#<posuw_koncowy> le 0] (Jeżeli wartość posuwu końcowego wynosi zero, wykończenie odbywa się posuwem roboczym)
	#<posuw_koncowy>=#<posuw>
o15 endif
o17 if[#<z_pocz> ge #<z_koncowe>]

o17 else 
#<dlugosc_detalu>=-[#<z_pocz>+#<dlugosc_detalu>]

o17 endif

o20 if[#<sr_materialu> gt 0 and #<dlugosc_detalu> gt 0] (Staczamy naddatek, czyli różnicę pomiędzy podaną średnicą materiału, a średnicą początkową)
      g0  X[#<sr_materialu>+#<odjazd_x>]

	o21 while [#<sr_materialu> gt [#<sr_pocz>+#<korekta>]]

	   o22 if [#<sr_materialu>-#<przybranie_materialu> gt [#<sr_pocz>+#<korekta>]]
		 #<sr_materialu>=[#<sr_materialu>-#<przybranie_materialu>]
		 #<posuw1>=#<posuw>
	      o23 if[[#<noz_wstepny> ne 0]]
		 o<loadtool> call [#<noz_wstepny>]
	      o23 endif
	   o22 else
		 #<sr_materialu>=[#<sr_pocz>+#<korekta>]
		 #<posuw1>=#<posuw_koncowy>         
	      o24 if[[#<noz_koncowy> gt 0]and[#<noz_koncowy> lt #<ilosc_nozy_w_tabeli> ]]
		 o<loadtool> call [#<noz_koncowy>]
	      o24 endif
	   o22 endif

	   o27 if[#<z_pocz> ge #<z_koncowe>]
	       g0 Z[#<z_pocz>+abs[#<odjazd_z>]+#<czolo>]
	   o27 else
               	       g0 Z[#<z_pocz>-abs[#<odjazd_z>]]
	   o27 endif
		  X[#<sr_materialu>]
	       G1 Z-#<dlugosc_detalu>  F#<posuw1>
	       G1 X[[#<sr_materialu>]+#<odjazd_x>] F#<posuw1>
	       g0 Z[#<z_pocz>+#<odjazd_z>+#<czolo>]
		  X[#<sr_materialu>+#<odjazd_x>] 
	o21 endwhile 

o20 endif (koniec staczania naddatku)


(Planowanie czoła, od dowolnej wartości w plusie na Z do zera. Wykonywane opcjonalnie, zero wyłącza)
o40 if[#<czolo>gt 0]

(Dojazd na pozycję roboczą)

o41 if[#<sr_materialu> gt 0 and #<dlugosc_detalu> gt 0]
g0 z[#<z_pocz>+#<czolo>-abs[#<odjazd_z>]]
o41 else
g0 z[#<z_pocz>+#<czolo>+abs[#<odjazd_z>]]
o41 endif

g0 x[#<sr_pocz> +#<odjazd_x>+#<korekta>]

#<akt_pozycja>=[#<z_pocz>+#<czolo>-#<pomijaj_czolo>]

o43 if[[#<noz_czolo> gt 0]and[#<noz_czolo> lt #<ilosc_nozy_w_tabeli> ]]
         o<loadtool> call [#<noz_czolo>]
         g0  Z[#<z_pocz>+#<odjazd_z>] X[#<sr_pocz>+#<odjazd_x>]
o43 endif

o45 if[#<posuw_czolo> eq 0]
         #<posuw_czolo>=#<posuw>
o45 endif

o50 while [#<akt_pozycja> gt 0]
  #<akt_pozycja> = [#<akt_pozycja> - [#<przybranie_materialu>/2]] (wyrównanie przybrania z przybraniem na stronę)

  o52 if [#<akt_pozycja> lt 0]
    #<akt_pozycja> = 0
    #<skroc_dojazd>=1
  o52 else
    #<skroc_dojazd>=0
  o52 endif

  g0 z#<akt_pozycja>

  g1 x0 f[#<posuw_czolo>]
  g0 z[#<akt_pozycja> + abs[#<odjazd_z>]]
o55 if[#<skroc_dojazd>eq 0] 
  g0 x[#<sr_pocz>+#<korekta>]
o55 else
  g0 x[#<sr_pocz>+#<korekta>-#<przybranie_materialu>+#<odjazd_x>]
o55 endif

o50 endwhile

o40 endif

(Koniec planowania czoła, zaczynamy procedurę główną - walec, walec z korektą stożka, lub stożek)

o8000 if[#<stozek> eq 0]

	o100 if[[#<z_koncowe> ne 0 and #<z_pocz> ge 0] or #<z_koncowe> gt #<z_pocz>]

	#<korekta_podciecie>=0

		o105 while [#<akt_start_x> gt #<sr_koncowa>]

			o101 if [#<akt_start_x>-#<przybranie_materialu> gt #<sr_koncowa>]

				 #<akt_start_x>=[#<akt_start_x>-#<przybranie_materialu>]
				 #<z_koncowe> = [#<z_koncowe>+#<skos_z_k>]
				 #<z_pocz>=[#<z_pocz>-[#<skos_z_p>]]
				 #<posuw1>=#<posuw>

				o25 if[[#<noz_wstepny> ne 0]]
				 o<loadtool> call [#<noz_wstepny>]
				o25 endif

			o101 else
	
				o109 if[#<podciecie> eq 1 or [[#<podciecie> eq 3 or #<podciecie> eq 4] and #<sr_koncowa>gt 10]]
				       #<korekta_podciecie>=1
				o109 endif

				 #<akt_start_x>=#<sr_koncowa>
				 #<posuw1>=#<posuw_koncowy>
				 #<z_koncowe> = [#<z_koncowe>+#<skos_z_k>]
				 #<z_pocz>=[#<z_pocz>-[#<skos_z_p>]]

				o103 if[[#<noz_koncowy> gt 0]and[#<noz_koncowy> lt #<ilosc_nozy_w_tabeli> ]]
				 o<loadtool> call [#<noz_koncowy>]
				o103 endif

			o101 endif


			o107 if[#<z_koncowe> gt #<z_pocz>]
			 g0 Z#<z_pocz> X[#<akt_start_x>]
			o107 endif  

		       g0 X[#<akt_start_x>]

		       G1 Z#<z_pocz>  F#<posuw1>
		       G1 Z[#<z_koncowe>+#<korekta_podciecie>/2] x[#<akt_start_x>+#<korekta>]   F#<posuw1>
		       g1 Z[#<z_koncowe>] x[#<akt_start_x>+#<korekta>+#<korekta_podciecie>]
		       G1 X[[#<akt_start_x>+#<korekta>]+#<odjazd_x>] Z[#<z_koncowe>-#<skos_z_k>] F#<posuw1>
		       g0 X[#<akt_start_x>+#<korekta>+#<odjazd_x>] 
			  Z[#<z_pocz>+#<skos_z_p>+#<odjazd_z>] 

		o105 endwhile 

	o100 endif (koniec procedury głównej toczenie walca)

o8000 else (wykonuje się po zaznaczeniu stożka)

#<sr_materialu>=[#<sr_pocz>+#<korekta>]

o8010 if[#<z_pocz> le #<z_koncowe>]
o<stozek> call [#<sr_materialu>][#<sr_koncowa>][#<sr_pocz>][#<z_koncowe>][#<z_pocz>][#<kat_stozka>][#<przybranie_materialu>][#<posuw>][#<pomijaj_srednica>][#<woda>]
o8010 else
o<stozek> call [#<sr_materialu>][#<sr_koncowa>][#<sr_pocz>][#<z_pocz>][#<z_koncowe>][#<kat_stozka>][#<przybranie_materialu>][#<posuw>][#<pomijaj_srednica>][#<woda>]

o8010 endif
#<sr_pocz>=[#<sr_pocz>+#<korekta>]

o8000 endif 

(toczenie fazki na średnicy końcowej od zewnątrz)
o133 if[#<z_pocz> le #<z_koncowe>] (Ustawienie połączenia fazki ze stożkiem)

#<sr_koncowa>=[#<sr_koncowa>+#<korekta_polozenia_fazki>*3]
o133 else
#<sr_koncowa>=[#<sr_koncowa>+#<korekta_polozenia_fazki>]
o133 endif

o110 if [#<szerokosc_fazki_s_k> gt 0]
#<szerokosc_fazki_1> = #<pomijaj_faza_s_k>
#<glebokosc_fazki_1> = [#<glebokosc_fazki_s_k>*#<pomijaj_faza_s_k>/#<szerokosc_fazki_s_k>]
 

o111 while [#<szerokosc_fazki_1> lt #<szerokosc_fazki_s_k>] 
#<szerokosc_fazki_1>=[#<szerokosc_fazki_1>+#<przybranie_materialu>]
#<glebokosc_fazki_1>=[#<glebokosc_fazki_1>+[#<glebokosc_fazki_s_k>*#<przybranie_materialu>/#<szerokosc_fazki_s_k>]]
 o112 if [#<szerokosc_fazki_1> gt #<szerokosc_fazki_s_k>]
    #<szerokosc_fazki_1> = #<szerokosc_fazki_s_k>
  o112 endif     
  o113 if [#<glebokosc_fazki_1> gt #<glebokosc_fazki_s_k>]
    #<glebokosc_fazki_1> = #<glebokosc_fazki_s_k>
  o113 endif   


o1300 if[#<z_pocz> ge #<z_koncowe>] (toczenie fazki od prawej do lewej)

G0 x[[#<sr_koncowa>]-#<glebokosc_fazki_1>*2]            

g0 Z[#<z_pocz>+#<odjazd_z>]

G1 z[#<z_pocz>] F#<posuw>

o114 if [#<promien_fazki_s_k> lt 0.00001]
g1 x[#<sr_koncowa>] z[#<z_pocz>-[#<szerokosc_fazki_1>]]  F#<posuw>   
o114 endif
o115 if [#<promien_fazki_s_k> gt 0]
o116 if [#<wkleslosc_fazki_s_k> gt 0]
g2 x[#<sr_koncowa>] z[#<z_pocz>-[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o116 endif
o117 if [#<wkleslosc_fazki_s_k> lt 0.000001]
g3 x[#<sr_koncowa>] z[#<z_pocz>-[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o117 endif
o115 endif
g0 x[[#<sr_koncowa>]+#<odjazd_x>]
g0 Z[#<z_pocz>+#<odjazd_z>]

o1300 else (toczenie fazki od lewej do prawej)


G0 x[[#<sr_koncowa>]-#<glebokosc_fazki_1>*2]             

g0 Z[#<z_pocz>+#<odjazd_z>]

G1 z[#<z_pocz>] F#<posuw>

o124 if [#<promien_fazki_s_k> lt 0.00001]
g1 x[#<sr_koncowa>] z[#<z_pocz>+[#<szerokosc_fazki_1>]]  F#<posuw>   
o124 endif
o125 if [#<promien_fazki_s_k> gt 0]
o126 if [#<wkleslosc_fazki_s_k> gt 0]
g2 x[#<sr_koncowa>] z[#<z_pocz>+[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o126 endif
o127 if [#<wkleslosc_fazki_s_k> lt 0.000001]
g3 x[#<sr_koncowa>] z[#<z_pocz>+[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o127 endif
o125 endif
g0 x[[#<sr_koncowa>]+#<odjazd_x>]
Z[#<z_pocz>+#<odjazd_z>] 
o1300 endif

o111 endwhile 
o110 endif  ( koniec fazki na średnicy końcowej )

o1500 if[#<podciecie> gt 0 and #<podciecie> lt 5] (wykonywanie podcięcia na końcu czopu)


     o1510 if[#<podciecie> eq 1] (wybieramy podcięcie typu A)

           o1520 if[#<sr_koncowa> gt 0 and #<sr_koncowa> le 3]
		#<b>  = 1
		#<a>  = 0.1
		#<z>  = 0.1
		#<b1> = 0.8
		#<c>  = 0.5
		#<r1> = 0.25

           o1520 elseif[#<sr_koncowa> gt 3 and #<sr_koncowa> le 10]
		#<b>=2
		#<a>  = 0.2
		#<z>  = 0.1
		#<b1> = 1.5
		#<c>  = 1
		#<r1> = 0.4

           o1520 elseif[#<sr_koncowa> gt 10 and #<sr_koncowa> le 18]
		#<b>  = 2
		#<a>  = 0.2
		#<z>  = 0.1
		#<b1> = 1.5
		#<c>  = 1
		#<r1> = 0.4

           o1520 elseif[#<sr_koncowa> gt 18 and #<sr_koncowa> le 30]
		#<b>  = 2
		#<a>  = 0.2
		#<z>  = 0.1
		#<b1> = 1.5
		#<c>  = 1
		#<r1> = 0.4

           o1520 elseif[#<sr_koncowa> gt 30 and #<sr_koncowa> le 80]
		#<b>  = 4
		#<a>  = 0.3
		#<z>  = 0.1
		#<b1> = 3.3
		#<c>  = 1.5
		#<r1> = 0.6

           o1520 else
		#<b>  = 6
		#<a> = 0.4
		#<z>  = 0.1
		#<b1> = 5
		#<c>  = 2.3
		#<r1> = 1


           o1520 endif
          g0 z[#<z_koncowe>+#<b>]
          g1 x#<sr_koncowa> F#<posuw>
          g2 z[#<z_koncowe>+[#<b>-[#<b>-#<b1>]]] x[#<sr_koncowa>-#<a>*2] r[#<r1>*2] F#<posuw>
          g1 z[#<z_koncowe>+#<r1>] F#<posuw>
          g2 z[#<z_koncowe>] x[#<sr_koncowa>+#<a>*2] r[#<r1>*2] F#<posuw>
          g1 x#<sr_pocz> F#<posuw>

     o1510 elseif[#<podciecie> eq 2] (wybieramy podcięcie typu B)

          o1530 if[#<sr_koncowa> gt 0 and #<sr_koncowa> le 3]
		#<b>  = 1
		#<a>  = 0.1
		#<z>  = 0.1
		#<b1> = 0.8
		#<c>  = 0.5
		#<r1> = 0.25

           o1530 elseif[#<sr_koncowa> gt 3 and #<sr_koncowa> le 10]
		#<b>=2
		#<a>  = 0.2
		#<z>  = 0.1
		#<b1> = 1.5
		#<c>  = 1
		#<r1> = 0.4

           o1530 elseif[#<sr_koncowa> gt 10 and #<sr_koncowa> le 18]
		#<b>  = 2
		#<a>  = 0.2
		#<z>  = 0.1
		#<b1> = 1.5
		#<c>  = 1
		#<r1> = 0.4

           o1530 elseif[#<sr_koncowa> gt 18 and #<sr_koncowa> le 30]
		#<b>  = 2
		#<a>  = 0.2
		#<z>  = 0.1
		#<b1> = 1.5
		#<c>  = 1
		#<r1> = 0.4

           o1530 elseif[#<sr_koncowa> gt 30 and #<sr_koncowa> le 80]
		#<b>  = 4
		#<a>  = 0.3
		#<z>  = 0.1
		#<b1> = 3.3
		#<c>  = 1.5
		#<r1> = 0.6

           o1530 else
		#<b>  = 6
		#<a> = 0.4
		#<z>  = 0.1
		#<b1> = 5
		#<c>  = 2.3
		#<r1> = 1


           o1530 endif
          g0 z[#<z_koncowe>+#<b>]
          g1 x#<sr_koncowa> F#<posuw>
          g2 z[#<z_koncowe>+[#<b>-[#<b>-#<b1>]]] x[#<sr_koncowa>-#<a>*2] r[#<r1>] F#<posuw>
          g1 z[#<z_koncowe>+[#<r1>/2]] F#<posuw>
          g2 z[#<z_koncowe>-#<r1>/2] x[#<sr_koncowa>+#<a>*2] r[#<r1>] F#<posuw>
          g2 z[#<z_koncowe>] x[#<sr_koncowa>+#<a>*2+#<c>] r[#<r1>] F#<posuw>
          g1 x#<sr_pocz> F#<posuw>

     o1510 elseif[#<podciecie> eq 3] (wybieramy podcięcie typu C)

           o1540 if[#<sr_koncowa> gt 0 and #<sr_koncowa> le 10]
		(msg, Uwaga, podcięcia typu C nie wykonuje się poniżej 10 mm średnicy!)
		
          
           o1540 elseif[#<sr_koncowa> gt 10 and #<sr_koncowa> le 18]
		#<r>  = 1
		#<a1>  = 0.2
		#<z>  = 0.1
		#<b2> = 1.6
		#<b3>  = 1.4
		

           o1540 elseif[#<sr_koncowa> gt 18 and #<sr_koncowa> le 30]
		#<r>  = 1.6
		#<a1>  = 0.3
		#<z>  = 0.1
		#<b2> = 2.5
		#<b3>  = 2.2
		

           o1540 elseif[#<sr_koncowa> gt 30 and #<sr_koncowa> le 80]
		#<r>  = 2.5
		#<a1>  = 0.3
		#<z>  = 0.1
		#<b2> = 3.7
		#<b3>  = 3.4
		
           o1540 else
		#<r>  = 2.5
		#<a1> = 0.3
		#<z>  = 0.1
		#<b2> = 3.7
		#<b3>  = 3.4
	
           o1540 endif
		o1570 if[#<sr_koncowa> gt 10]
			  g0 z[#<z_koncowe>+#<b2>]
			  g1 x#<sr_koncowa> F#<posuw>
			  g2 z[#<z_koncowe>] x[#<sr_koncowa>+#<a1>*2] r[#<r>] F#<posuw>
			  g1 x#<sr_pocz> F#<posuw>
 	        o1570 endif
     o1510 elseif [#<podciecie> eq 4] (wybieramy podcięcie typu D)

              o1550 if[#<sr_koncowa> gt 0 and #<sr_koncowa> le 10]
		(msg, Uwaga, podcięcia typu D nie wykonuje się poniżej 10 mm średnicy!)
			
          		
           o1550 elseif[#<sr_koncowa> gt 10 and #<sr_koncowa> le 18]
		#<r>  = 1
		#<a1>  = 0.2
		#<z>  = 0.1
		#<b2> = 1.6
		#<b3>  = 1.4
		

           o1550 elseif[#<sr_koncowa> gt 18 and #<sr_koncowa> le 30]
		#<r>  = 1.6
		#<a1>  = 0.3
		#<z>  = 0.1
		#<b2> = 2.5
		#<b3>  = 2.2
		

           o1550 elseif[#<sr_koncowa> gt 30 and #<sr_koncowa> le 80]
		#<r>  = 2.5
		#<a1>  = 0.3
		#<z>  = 0.1
		#<b2> = 3.7
		#<b3>  = 3.4
		
           o1550 else
		#<r>  = 2.5
		#<a1> = 0.3
		#<z>  = 0.1
		#<b2> = 3.7
		#<b3>  = 3.4
	
           o1550 endif

		o1580 if[#<sr_koncowa> gt 10]
			  g0 z[#<z_koncowe>+#<b3>]
			  g1 x#<sr_koncowa> F#<posuw>
			  g2 z[#<z_koncowe>-#<a1>] x[#<sr_koncowa>+#<a1>*2] r[#<r>] F#<posuw>
			  g2 z[#<z_koncowe>] x[#<sr_koncowa>+#<b2>*2] r[#<r>] F#<posuw>
			  g1 x#<sr_pocz> F#<posuw>
		o1580 endif
        
      o1510 endif


o1500 endif (koniec procedury podcięcia) 


(toczenie fazki na średnicy początkowej od zewnątrz)
o5320 if[#<stozek>eq 0]
#<sr_pocz>=[#<sr_pocz>+#<pomijaj_srednica>+#<korekta>]
o5320 else
#<sr_pocz>=[#<sr_pocz>+#<pomijaj_srednica>]
o5320 endif
o5110 if [#<szerokosc_fazki_s_p> gt 0]
#<szerokosc_fazki_2> = #<pomijaj_faza_s_p>
#<glebokosc_fazki_2> = [#<glebokosc_fazki_s_p>*#<pomijaj_faza_s_p>/#<szerokosc_fazki_s_p>]
 

o5111 while [#<szerokosc_fazki_2> lt #<szerokosc_fazki_s_p>] 
#<szerokosc_fazki_2>=[#<szerokosc_fazki_2>+#<przybranie_materialu>]
#<glebokosc_fazki_2>=[#<glebokosc_fazki_2>+[#<glebokosc_fazki_s_p>*#<przybranie_materialu>/#<szerokosc_fazki_s_p>]]
 o5112 if [#<szerokosc_fazki_2> gt #<szerokosc_fazki_s_p>]
    #<szerokosc_fazki_2> = #<szerokosc_fazki_s_p>
  o5112 endif     
  o5113 if [#<glebokosc_fazki_2> gt #<glebokosc_fazki_s_p>]
    #<glebokosc_fazki_2> = #<glebokosc_fazki_s_p>
  o5113 endif   


o5300 if[#<z_pocz> ge #<z_koncowe>] (toczenie fazki na średnicy początkowej od prawej do lewej)

G0 x[[#<sr_pocz>]-#<glebokosc_fazki_2>*2]            

g0 Z[#<z_koncowe>+#<odjazd_z>]

G1 z[#<z_koncowe>] F#<posuw> 

o5114 if [#<promien_fazki_s_p> lt 0.00001]
g1 x[#<sr_pocz>] z[#<z_koncowe>-[#<szerokosc_fazki_2>]]  F#<posuw>   
o5114 endif
o5115 if [#<promien_fazki_s_p> gt 0]
o5116 if [#<wkleslosc_fazki_s_p> gt 0]
g2 x[#<sr_pocz>] z[#<z_koncowe>-[#<szerokosc_fazki_2>]] r[#<promien_fazki_s_p>]   F#<posuw>
o5116 endif
o5117 if [#<wkleslosc_fazki_s_p> lt 0.000001]
g3 x[#<sr_pocz>] z[#<z_koncowe>-[#<szerokosc_fazki_2>]] r[#<promien_fazki_s_p>]   F#<posuw>
o5117 endif
o5115 endif
g0 x[[#<sr_pocz>]+#<odjazd_x>]
g0 Z[#<z_koncowe>+#<odjazd_z>]

o5300 else (toczenie fazki na średnicy początkowej od lewej do prawej)


G0 x[[#<sr_pocz>]-#<glebokosc_fazki_2>*2]             

g0 Z[#<z_koncowe>+#<odjazd_z>]

G1 z[#<z_koncowe>] F#<posuw>

o5124 if [#<promien_fazki_s_p> lt 0.00001]
g1 x[#<sr_pocz>] z[#<z_koncowe>+[#<szerokosc_fazki_2>]]  F#<posuw>   
o5124 endif
o5125 if [#<promien_fazki_s_p> gt 0]
o5126 if [#<wkleslosc_fazki_s_p> gt 0]
g3 x[#<sr_pocz>] z[#<z_koncowe>+[#<szerokosc_fazki_2>]] r[#<promien_fazki_s_p>]   F#<posuw>
o5126 endif
o5127 if [#<wkleslosc_fazki_s_p> lt 0.000001]
g2 x[#<sr_pocz>] z[#<z_koncowe>+[#<szerokosc_fazki_2>]] r[#<promien_fazki_s_p>]   F#<posuw>
o5127 endif
o5125 endif
g0 x[[#<sr_pocz>]+#<odjazd_x>]
Z[#<z_pocz>+#<odjazd_z>] 
o5300 endif

o5111 endwhile 
o5110 endif  ( koniec fazki na średnicy początkowej )


(opcjonalny odjazd od materiału w obu osiach)

o120 if[#<odjazd_x_k> ne 99]
g0 x#<odjazd_x_k>
o120 endif

o130 if[#<odjazd_z_k> ne 99]
 Z#<odjazd_z_k> 
o130 endif

o1000 else (Procedura główna - roztaczanie walca lub stożek od wewnątrz)

#<sr_pocz> = [#<sr_pocz>+#<pomijaj_srednica>] (pomijania używamy,gdy poprawiamy detal i cześć procedury już jest wykonana)
 o1500 if[[#<noz_wstepny> ne 0]]
         o<loadtool> call [#<noz_wstepny>]
         
  o1500 endif
G0 X#<sr_pocz> 
Z[#<z_pocz>+#<odjazd_z>]
#<Current-Diameter> = #<sr_pocz>

o500 while [#<Current-Diameter> lt #<sr_koncowa>]

o501 if [[#<Current-Diameter> + #<przybranie_materialu>]lt #<sr_koncowa>]
         #<Current-Diameter> = [#<Current-Diameter> + #<przybranie_materialu>]
#<posuw1>=#<posuw>
#<z_koncowe> = [#<z_koncowe>+#<skos_z_k>]
o501 else
         #<Current-Diameter> = #<sr_koncowa>
o1030 if[[#<noz_koncowy> gt 0]and[#<noz_koncowy> lt #<ilosc_nozy_w_tabeli> ]]
         o<loadtool> call [#<noz_koncowy>]
o1030 endif
#<posuw1>=#<posuw_koncowy>
#<z_koncowe> = [#<z_koncowe>+#<skos_z_k>]
o501 endif

       X#<Current-Diameter>
       G1 Z[#<z_koncowe>]  X[#<Current-Diameter>+#<pomijaj_srednica>] F#<posuw1>
       G0 X[#<Current-Diameter>+#<pomijaj_srednica>-#<odjazd_x>]
      Z[#<z_pocz>+#<odjazd_z>]  X[#<Current-Diameter>-#<odjazd_x>]
o500 endwhile


G0 X[#<Current-Diameter>-#<odjazd_x>]
Z[#<z_pocz>+#<odjazd_z>] 

(toczenie fazki na średnicy końcowej roztaczanie)

#<odjazd_x>=[#<odjazd_x>*2+#<przybranie_materialu>]
#<roznica_srednic>=[#<sr_pocz>-#<sr_koncowa>]
#<sr_pocz> = [#<sr_pocz>+#<pomijaj_srednica>] (pomijania używamy,gdy poprawiamy detal i cześć procedury już jest wykonana)
#<akt_start_x>=#<sr_pocz>
#<z_k_stozka>=0
#<dl_stozka>=[abs[#<z_koncowe>]+abs[#<z_pocz>]]
#<korekta_polozenia_fazki> = [#<szerokosc_fazki_s_k>*#<korekta>/[#<dl_stozka>]]

o170 if[#<wkleslosc_fazki_s_k>eq 1]
		#<wkleslosc_fazki_s_k>=0
	o170 else
		#<wkleslosc_fazki_s_k>=1
	o170 endif


o189 if[#<z_pocz> le #<z_koncowe>]

#<sr_koncowa>=[#<sr_koncowa>+#<korekta_polozenia_fazki>*3]
o189 else
#<sr_koncowa>=[#<sr_koncowa>+#<korekta_polozenia_fazki>]
o189 endif
o188 if[#<sr_koncowa> lt #<sr_pocz>]
o188 endif
o180 if [#<szerokosc_fazki_s_k> gt 0]
#<szerokosc_fazki_1> = #<pomijaj_faza_s_k>
#<glebokosc_fazki_1> = [#<glebokosc_fazki_s_k>*#<pomijaj_faza_s_k>/#<szerokosc_fazki_s_k>]
 




o181 while [#<szerokosc_fazki_1> lt #<szerokosc_fazki_s_k>] 
#<szerokosc_fazki_1>=[#<szerokosc_fazki_1>+#<przybranie_materialu>]
#<glebokosc_fazki_1>=[#<glebokosc_fazki_1>+[#<glebokosc_fazki_s_k>*#<przybranie_materialu>/#<szerokosc_fazki_s_k>]]
 o182 if [#<szerokosc_fazki_1> gt #<szerokosc_fazki_s_k>]
    #<szerokosc_fazki_1> = #<szerokosc_fazki_s_k>
  o182 endif     
  o183 if [#<glebokosc_fazki_1> gt #<glebokosc_fazki_s_k>]
    #<glebokosc_fazki_1> = #<glebokosc_fazki_s_k>
  o183 endif   


o1380 if[#<z_pocz> ge #<z_koncowe>]

G0 x[[#<sr_koncowa>]+#<glebokosc_fazki_1>*2]             ( wjazd do fazki na fi #<sr_koncowa> +- zmienia)

g0 Z[#<z_pocz>+#<odjazd_z>]

G1 z[#<z_pocz>] F#<posuw>

o184 if [#<promien_fazki_s_k> lt 0.00001]
g1 x[#<sr_koncowa>] z[#<z_pocz>-[#<szerokosc_fazki_1>]]  F#<posuw>   ( toczenie fazki na fi #<sr_pocz>)
o184 endif
o185 if [#<promien_fazki_s_k> gt 0]
o186 if [#<wkleslosc_fazki_s_k> gt 0]
g2 x[#<sr_koncowa>] z[#<z_pocz>-[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o186 endif
o187 if [#<wkleslosc_fazki_s_k> lt 0.000001]
g3 x[#<sr_koncowa>] z[#<z_pocz>-[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o187 endif
o185 endif
g0 x[[#<sr_koncowa>]-#<odjazd_x>]
g0 Z[#<z_pocz>+#<odjazd_z>]

o1380 else


G0 x[[#<sr_koncowa>]-#<glebokosc_fazki_1>*2]            

g0 Z[#<z_pocz>+#<odjazd_z>]

G1 z[#<z_pocz>] F#<posuw>

o194 if [#<promien_fazki_s_k> eq 0]
g1 x[#<sr_koncowa>] z[#<z_pocz>+[#<szerokosc_fazki_1>]]  F#<posuw>  
o194 endif
o195 if [#<promien_fazki_s_k> gt 0]
o196 if [#<wkleslosc_fazki_s_k> gt 0]
g2 x[#<sr_koncowa>] z[#<z_pocz>+[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o196 endif
o197 if [#<wkleslosc_fazki_s_k> eq 0]
g3 x[#<sr_koncowa>] z[#<z_pocz>+[#<szerokosc_fazki_1>]] r[#<promien_fazki_s_k>]   F#<posuw>
o197 endif
o195 endif
g0 x[[#<sr_koncowa>]-#<odjazd_x>]
Z[#<z_pocz>+#<odjazd_z>] 
o1380 endif

o181 endwhile ( koniec pętli )
o180 endif  ( koniec fazki na średnicy końcowej )

;g0 z[#<z_pocz>+#<odjazd_z>]

(opcjonalny odjazd od materiału w obu osiach)

o1350 if[#<odjazd_z_k> ne 99]
 Z#<odjazd_z_k> 
o1350 endif
o1200 if[#<odjazd_x_k> ne 99]
g0 x#<odjazd_x_k>
o1200 endif
o1000 endif (koniec procedury głównej bez inwersji)




g54

o<toczenie> endsub