Kod: Zaznacz cały

( ------------------------------ )
(    Grzebień do bezsztycowego   )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-07-20 14:08> )

(info: Grzebień do bezsztycowego )

o<grzebien> sub

#<obr> = #1 (=1500 obroty)
#<x_start> = #2 (=0 X początkowy)
#<x_stop> = #3 (=-40 X końcowy)
#<glebokosc> = #4 (=8 Głębokość ABS)
#<skok> = #5 (=2 Dobieranie)
#<predkosc> = #6 (=60 Prędkość)
#<liczba_rowkow> = #7 (=6 Liczba rowków)
#<odstep> = #8 (=20 Odstęp miedzy rowkami)
#<woda> = #9 (=1 <> chłodzenie)
#<w_z> = #10 (wyjazd Z)
#<w_x> = #11 (wyjazd X)
#<w_y> = #12 (wyjazd Y)

#<glebokosc> = [#<glebokosc> * -1]

#<rowek> = 0
#<akt_y> = 0

g0 y0 x#<x_start>
m3 s#<obr>
o1 if [#<woda> eq 1]
m8
o1 endif


o100 while [#<rowek> lt #<liczba_rowkow>]

  #<rowek> = [#<rowek> + 1]
  #<akt_glebokosc> = 0

  g0 z2
  g0 y#<akt_y>
  g0 z0

  o200 while [#<akt_glebokosc> gt #<glebokosc>]
    #<akt_glebokosc> = [#<akt_glebokosc> - #<skok>]
    o210 if [#<akt_glebokosc> lt #<glebokosc>]
      #<akt_glebokosc> = #<glebokosc>
    o210 endif 

    g0 z#<akt_glebokosc>
    g1 x#<x_stop> f#<predkosc>
    g0 z[#<akt_glebokosc> + 1]
    g0 x#<x_start>
  o200 endwhile

  #<akt_y> = [#<akt_y> + #<odstep>]

o100 endwhile
g0 z#<w_z>
g0 x#<w_x>
g0 y#<w_y>

o<grzebien> endsub