
Działa

Kod: Zaznacz cały
( ------------------------------ )
( F R E Z Y M O D U L O W E )
( ------------------------------ )
( Kamar )
( Time-stamp: <2009-10-12 08:45> )
( ------------------------------ )
( USTAWIENIA )
( ------------------------------ )
#<liczba_zebow> = 9
#<glebokosc> = -15
#<szerokosc> = 50
#<dobor> = 2
( ---------------------- )
( ---------------------- )
#<zab> = 0
#<pozycja_z> = 0
#<przejazd_X> = [ #<szerokosc> /2 ]
s1 m3
g0 z1 x0 a0 y0
m8
g61
o100 while [#<zab> lt #<liczba_zebow>]
#<kat> = [#<zab> * [360 / #<liczba_zebow>]]
g0 a#<kat> ( ustawiam zab )
o200 while [#<pozycja_z> gt #<glebokosc>]
#<pozycja_z> = [#<pozycja_z> - #<dobor>]
o220 if [#<pozycja_z> lt #<glebokosc>]
#<pozycja_z> = #<glebokosc>
o220 endif
g0 x[#<przejazd_X> * -1]
g0 z#<pozycja_z>
g1 x#<przejazd_X> F1000
o200 endwhile
g0 z1
g0 x[#<przejazd_X> * -1]
#<pozycja_z> = 0
#<zab> = [#<zab> + 1] ( jeden do kroku )
o100 endwhile
m30
Kod: Zaznacz cały
g0 z10
a6.5 x23 y0
z8
g1 z0 f300
g0 z10
x-23
z8
g1 z0 f30
g0 z10
x0 a-2 y0
#1=9
o100 while [#1 gt 0]
#1=[#1-1]
g1 z#1 f300
a14 f1000
x58
a7
a0 x30
x0
a-2
o100 endwhile
g0 z10
x0 a-2 y0
#1=9
o200 while [#1 gt 0]
#1=[#1-1]
g1 z#1 f300
a14 f1000
x-58
a7
a0 x-30
x0
a-2
o200 endwhile
m30