ponizej wkleje link do rysunku jest to listwa zebata

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
http://www.alibaba.com/product-detail/G ... 66710.htmlspalek89 pisze: chcialbym prosic o pomoc