Kod: Zaznacz cały

( ------------------------------ )
(           C Z O Ł O            )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-03-14 09:50> )
( ------------------------------ )

(info: Czoło )

o<czolo_sps> sub 

#<sr_pocz> = #1 (=120  Średnica początkowa)
#<sr_koncowa> = #2 (=20  Średnica końcowa)
#<poczatek> = #3 (=0  Początek)
#<koniec> = #4 (=-2  Koniec)
#<dobieranie> = #5 (=1.0 Dobieranie)
#<woda> = #6 (=1  woda)
#<fazka> = #7 (=1 faza)
#<fazka_dob> = #8 (=0.5 dobieranie fazy)
#<wielkosc_fazy> = #9 (=2 szerkokość fazy kąt 45 stopni)
#<predkosc> = #10 (=100 Stała prędkosć skrawania)
#<obr> = #11 (=1000 maksymalne obroty)

g61.1

M3 G96 S#<predkosc> D#<obr>

o100 if [#<woda> eq 1]
m8
o100 endif

o1 if [#<poczatek> lt #<koniec>]
(msg, Początek musi być większy niż koniec!)
m30
o1 endif

g0 z[#<poczatek> + 1]
g0 x[#<sr_pocz> + 0.5]
#<akt_pozycja> = #<poczatek> 

o110 while [#<akt_pozycja> gt #<koniec>]
  #<akt_pozycja> = [#<akt_pozycja> - #<dobieranie>]
  o102 if [#<akt_pozycja> lt #<koniec>]
    #<akt_pozycja> = #<koniec>
  o102 endif

  g0 z#<akt_pozycja>

  g1 x#<sr_koncowa> f#<predkosc>
  g0 z[#<akt_pozycja> + 0.5]
  g0 x[#<sr_pocz> + 0.5]

o110 endwhile

g0 x[#<sr_pocz> + 2] 

o103 if [#<fazka> eq 1]
	g0 z[#<poczatek> + 0]
        
	o104 if[#<sr_pocz> ge 1 and #<sr_pocz> lt 1000]
		#<wielkosc_fazy> = #<wielkosc_fazy>
	o104 endif
        #<akt_faza> = 0
	(#<sr_pocz> = [#<sr_pocz> - #<wielkosc_fazy -1>])
	o120 while [#<akt_faza> lt #<wielkosc_fazy>]
		#<akt_faza> = [#<akt_faza> + #<fazka_dob>]
    o130 if [#<akt_faza> gt #<wielkosc_fazy>]
      #<akt_faza> = #<wielkosc_fazy>
    o130 endif
    g0 x[#<sr_pocz> - [#<akt_faza> * 2]]
		g1 z#<koniec>
    g1 z[#<koniec> - #<akt_faza>] x#<sr_pocz> f#<predkosc>
    g0 z[#<poczatek> + 0]
  o120 endwhile

   g1 x#<sr_pocz> F#<predkosc>
   g0 z1

o103 endif
M5      


o<czolo_sps> endsub