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

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