Suby ngcgui

Kod: Zaznacz cały

( ------------------------------ )

(   O B R O T N I C A            )

( ------------------------------ )

( Kamar                          )

( Time-stamp: <2018-01-19 08:41> )

( ------------------------------ )



o<obrotnicaxy> sub



#<liczba_operacji> = #1 (=10 liczba operacji)

#<kat> = #2 (=36 kąt)

#<a_poczatkowe> = #3 (=0 A początkowe)

#<glebokosc> = #4 (=-2 głębokość)

#<skok> = #5 (=2 skok)

#<y_poczatek> = #6 (=1 Y początkowy)

#<y_koniec> = #7 (=0 Y końcowy)

#<x_poczatek> = #8 (=0 X początkowy)

#<x_koniec> = #9 (=-10 X końcowy)

#<predkoscy> = #10 (=100 prędkość Y)

#<predkoscX> = #11 (=100 prędkość X)

#<w_x> = #12 (=0 wyjazd X)

#<w_y> = #13 (=5 wyjazd Y)

( ------------------------------ )



#<operacja> = 0

g0 a[#<a_poczatkowe> + [#<operacja> * #<kat>]]

#<akt_glebokosc> = 0



g0 x#<x_poczatek>

g0 y#<y_poczatek> a#<a_poczatkowe>

G61

G8



m3 s1 



o100 while [#<operacja> lt #<liczba_operacji>]

  g0 a[#<a_poczatkowe> + [#<operacja> * #<kat>]]



  o200 while [#<akt_glebokosc> gt #<glebokosc>]

    #<akt_glebokosc> = [#<akt_glebokosc> - #<skok>]

    o201 if [#<akt_glebokosc> lt #<glebokosc>]

      #<akt_glebokosc> = #<glebokosc>

    o201 endif

    	

( --- tu operacja --- )

    g1 y#<akt_glebokosc> f#<predkoscy>

    x#<x_koniec> f#<predkoscX>

   g0 y#<y_poczatek>

    x#<x_poczatek>

( --- koniec operacji --- )

  o200 endwhile

  #<operacja> = [#<operacja> + 1]

  #<akt_glebokosc> = 0

g0 y1



o100 endwhile



g0 x#<w_x>

g0 y#<w_y>



m5



o<obrotnicaxy> endsub

Kod: Zaznacz cały

( ------------------------------ )
(      K O L A   Z E B A T E     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-09-17 10:49> )
( ------------------------------ )

(info: Nacinaie koła zębatego)

o<kolo_zebate> sub

#<obr> = #1 (=1500 obroty)
#<il_zebow> = #2 (=5 Liczba zębów)
#<wjazd> = #3 (=2 Wjazd)
#<dlugosc> = #4 (=98 Długość)
#<predkosc> = #5 (=300 Prędkość)
#<woda> = #6 (=0  <> chłodzenie)
#<w_z> = #7 (wyjazd Z)
#<w_x> = #8(wyjazd X)
#<w_y> = #9 (wyjazd Y)
( ------------------------------ )

#<zab> = 0
#<obrot> = [360 / #<il_zebow>]

g0 y-2
g0 z0
g0 x0

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

o100 while [#<zab> lt #<il_zebow>]
     g0 a[#<zab> * #<obrot>]
     g0 y#<wjazd> 
     g1 x#<dlugosc>   f[#<predkosc>]
     g0 y-2
     g0 x0
     #<zab> = [#<zab> + 1]
o100 endwhile

g0 z#<w_z>
g0 x#<w_x>
g0 y#<w_y>

o<kolo_zebate> endsub