Suby ngcgui

Kod: Zaznacz cały

( ------------------------------ )
(    FREZOWANIE PO OBWODZIE      )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2016-02-12 12:18> )
( ------------------------------ )

o<frezowanie_po_obwodzie> sub

#<kat_poczatkowy> = #1 (=45 kąt początkowy)
#<kat_koncowy> = #2 (=90 kąt końcowy)
#<x_poczatkowy> = #3 (=0 X początkowy)
#<x_koncowy> = #4 (=-10 X końcowy)
#<skok> = #5 (=2 skok X)
#<z_poczatkowy> = #6 (=0 Z początkowy)
#<z_koncowy> = #7 (=-0.5 Z końcowy)
#<skok_z> = #8 (=0.1 skok Z)
#<predkosc> = #9 (=200 prędkość)
#<woda> = #10 (=0 <> chłodzenie)

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

g0 a#<kat_poczatkowy>
g0 x#<x_poczatkowy> y0 
g0 z[#<z_poczatkowy> + 1]
g1 z#<z_poczatkowy> f#<predkosc>

#<akt_z> = #<z_poczatkowy>

o100 while [#<akt_z> gt #<z_koncowy>]
  #<akt_z> = [#<akt_z> - #<skok_z>]
  o110 if [#<akt_z> lt #<z_koncowy>]
    #<akt_z> = #<z_koncowy>
  o110 endif
  
  #<akt_x> = #<x_poczatkowy>

  o200 while [#<akt_x> gt #<x_koncowy>]
    #<akt_x> = [#<akt_x> - #<skok>]
    o210 if [#<akt_x> lt #<x_koncowy>]
      #<akt_x> = #<x_koncowy>
    o210 endif

    g0 a#<kat_poczatkowy>
    g1 z#<akt_z> f#<predkosc>
    g1 x#<akt_x>
    g1 a#<kat_koncowy>
    g0 z[#<akt_z> + 0.5]    

  o200 endwhile
g0 z[#<z_poczatkowy> + 1]
  g0 a#<kat_poczatkowy>

o100 endwhile




     






o<frezowanie_po_obwodzie> endsub

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 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>
( --- koniec operacji --- )
  o200 endwhile
  #<operacja> = [#<operacja> + 1]
  #<akt_glebokosc> = 0
o100 endwhile
g0 z30
m5

o<wyspy_kola_znakowego> endsub