Kod: Zaznacz cały

( ------------------------------ )
(       O S T R Z A L K A        )
(     frezy palcowe - spirala   )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2013-05-06 08:01> )

( ------------------------------ )
(          USTAWIENIA            )
( ------------------------------ )

(info: Ostrzenie spirali)
o<ostrze_spirala> sub

#<srednica> = #1 (=30 średnica)
#<kat> = #2 (=15 kąt spirali)
#<dlugosc> =  #3 (=50 długość)
#<liczba_piorek> = #4 (=6 ilość ostrzy)
#<skok> = #5 (=0.1 dobieranie)
#<liczba_krokow> =  #6 (=10 ilość cykli)
#<predkosc> = #7 (=40 prędkość)
#<dojazd> = #8 (=10 dojazd)
#<wyjazd> = #9 (=10 wyjazd)

( ---------------------- )

#<kat>=[90-#<kat>]

#<korekta_pocz> = [#<dojazd> * tan[#<kat>]]
#<korekta_koncowa> = [#<wyjazd> + tan[#<kat>]]


( licze kat A )
#<kat_A> = 0 
#<kat_A> = [#<srednica> * 3.1415] ( obwod = d * PI )
#<tan> = [TAN[#<kat>]]
#<b> = [#<dlugosc> / #<tan>]
 ( b = dlugosc / TAN kat )
#<kat_A> = [360 * [#<b> / #<kat_A>]] ( A = 360 * [b / obwod] )

#<piorko> = -1
#<aktualny_Y> = 0
#<krok> = 0

m3 s1 m8
g0 x[#<dojazd>] y-1 z0
g0 a0

o200 while [#<krok> lt #<liczba_krokow>]

    G0 Y#<aktualny_Y>
     o300 while [#<piorko> lt #<liczba_piorek>]
     	   #<aktualny_kat> = [#<piorko> * [360 / #<liczba_piorek>]]
	 g0 a-[#<aktualny_kat> - #<korekta_pocz>] ( ustawiam piorko )
	  g0 y[#<aktualny_Y> + #<skok>] ( dodaje skok )
	  g1 x[#<dlugosc> + #<wyjazd>] a[#<aktualny_kat> +  #<korekta_koncowa>] f#<predkosc> ( ostrze piorko )
	  g0 y-1
	  g0 x[#<dojazd>] a[#<aktualny_kat> +   #<korekta_pocz>]
	  #<piorko> = [#<piorko> + 1]
   o300 endwhile
   #<piorko> = 0
   #<aktualny_Y> = [#<aktualny_Y> + #<skok>] ( dodaje skok )
   #<krok> = [#<krok> + 1] ( jeden do kroku )
o200 endwhile

g0 y-40 m5
a0

o<ostrze_spirala> endsub