Kod: Zaznacz cały

#<sr_pocz> =76.6 (średnica początkowa)
#<sr_koncowa> =81 (średnica końcowa mala)
#<sr_koncowa_duza> =87 (średnica końcowa duza)
#<dobieranie> =1 (dobieranie)
#<poczatek> =0 (początek)
#<koniec> =-16 (koniec maly)
#<koniec2> =-10 (koniec duzy)
#<posuw> =400 (posuw)
 
g7 g61 g80 g18
m3 s1

g0 x#<sr_pocz>
g0 z[#<poczatek> + 0.5]

o10 while [#<sr_pocz> lt #<sr_koncowa>]

  #<sr_pocz> = [#<sr_pocz> + #<dobieranie>]

	o202 if [#<sr_pocz> gt #<sr_koncowa>]
    #<sr_pocz> = #<sr_koncowa>
  o202 endif

	g0 x#<sr_pocz>
  g1 z#<koniec> f#<posuw>

  g1 x[#<sr_pocz> - 1]
  g0 z[#<poczatek> + 0.5]
o10 endwhile

g0 x#<sr_pocz>
g0 z[#<poczatek> + 0.5]

o20 while [#<sr_pocz> lt #<sr_koncowa_duza>]

  #<sr_pocz> = [#<sr_pocz> + #<dobieranie>]

	o302 if [#<sr_pocz> gt #<sr_koncowa_duza>]
    #<sr_pocz> = #<sr_koncowa>
  o302 endif

	g0 x#<sr_pocz>
  g1 z#<koniec2> f#<posuw>

  g1 x[#<sr_pocz> - 1]
  g0 z[#<poczatek> + 0.5]
o20 endwhile


o100 else

	g0 x#<sr_koncowa>
  g1 z#<koniec> f50
  g1 x[#<sr_koncowa> - 1]
  g0 z[#<poczatek> + 0.5]	
o100 endif


g1 x[#<sr_koncowa_duza> - 1] z[#<poczatek>]
g1 z[#<poczatek> + 1] x[#<sr_koncowa> + 8]
g1 z[#<poczatek> + 70] f900

m30