Rewolwerówka na CNC ?

Kod: Zaznacz cały

o100 while [#<operacja> lt #<liczba_operacji>]
  g0 a[#<a_poczatkowe> + [#<operacja> * #<kat>]]
 / g0 z#<akt_glebokosc>

  o200 while [#<akt_glebokosc> gt #<glebokosc>]
    #<akt_glebokosc> = [#<akt_glebokosc> - #<skok>]
    o201 if [#<akt_glebokosc> lt #<glebokosc>]
      #<akt_glebokosc> = #<glebokosc>
    o201 endif
    g0 z#<akt_glebokosc> 	
( --- tu operacja --- )
    g1 x#<x_koniec> f#<predkosc>
    g0 z[#<z_poczatek> + 2]
    g0 x#<x_poczatek>
    g0 z[#<akt_glebokosc> + 0.5]
m122
m0

( --- koniec operacji --- )
  o200 endwhile
  #<operacja> = [#<operacja> + 1]
  #<akt_glebokosc> = 0
o100 endwhile

Kod: Zaznacz cały

( ------------------------------ )
(   W Y S P Y   Z N A K O W      )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2017-11-27 12:59> )
( ------------------------------ )

o<wyspy_kola_znakowego> sub

#<liczba_operacji> = #1 (=20 liczba operacji)
#<kat> = #2 (=17 kąt)
#<glebokosc> = #3 (=-0.05 głębokość)
#<skok> = #4 (=0.1 skok)
#<x_poczatek> = #5 (=0 X początkowy)
#<x_koniec> = #6 (=-50 X końcowy)
#<y_poczatek> = #7 (=0 Y początkowy)
#<y_koniec> = #8 (=-50 Y końcowy)
#<predkosc> = #9 (=3000 prędkość)
#<nr_pierwszej_operacji> = #10 (=1 nr pierwszej operacji)
#<woda> = #11 (=0 <> woda)
( ------------------------------ )

#<operacja> = 0

#<a_poczatkowe> = [[#<nr_pierwszej_operacji> - 1] * #<kat>]
#<akt_glebokosc> = 0.5

g0 z2 
y#<y_poczatek>
g0 x-1 a#<a_poczatkowe>
G61

m3 s1500
o1 if [#<woda> eq 1]
 m8 
o1 endif

o100 while [#<operacja> lt #<liczba_operacji>]
   g0 z5
  g0 a[#<a_poczatkowe> + [#<operacja> * #<kat>]]
  g0 z#<akt_glebokosc>

  o200 while [#<akt_glebokosc> gt #<glebokosc>]
    #<akt_glebokosc> = [#<akt_glebokosc> - #<skok>]
    o201 if [#<akt_glebokosc> lt #<glebokosc>]
      #<akt_glebokosc> = #<glebokosc>
    o201 endif
    g1 z#<akt_glebokosc> f60	
( --- tu operacja --- )
    g1 x#<x_poczatek> Y#<y_poczatek> f#<predkosc>    
    g1 x#<x_koniec> y#<y_poczatek> f#<predkosc>
    g1 x#<x_koniec> y#<y_koniec>
    g1 x#<x_poczatek> y#<y_koniec>
    g1 x#<x_poczatek> y#<y_poczatek>
    g0 z5
( --- koniec operacji --- )
  o200 endwhile
  #<operacja> = [#<operacja> + 1]
  #<akt_glebokosc> = 0
o100 endwhile
g0 z10
m5

o<wyspy_kola_znakowego> endsub