LinuxCNC - tokarka

Kod: Zaznacz cały

( ------------------------------ ) 
(           C Z O Ł O            ) 
( ------------------------------ ) 
( Kamar                          ) 
( Time-stamp: <05-02-2012 17:31> ) 
( ------------------------------ ) 

(info: Czoło ) 

o<czolo> sub 

#<sr_pocz> = #1 (=100 Średnica początkowa) 
#<sr_koncowa> = #2 (=0 Średnica końcowa) 
#<poczatek> = #3 (=0  Początek) 
#<koniec> = #4 (-3 Koniec) 
#<dobieranie> = #5 (2 Dobieranie) 
#<posuw> = #6 (60 Posuw) 


g61
m3 s1
M8

o1 if [#<poczatek> lt #<koniec>] 
(msg, Początek musi być większy niż koniec!) 
m30
o1 endif

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

o100 while [#<akt_pozycja> gt #<koniec>] 
  #<akt_pozycja> = [#<akt_pozycja> - #<dobieranie>] 
  o102 if [#<akt_pozycja> lt #<koniec>] 
    #<akt_pozycja> = #<koniec> 
  o102 endif

  g0 z#<akt_pozycja> 

  g1 x#<sr_koncowa> f#<posuw> 
  g0 z[#<akt_pozycja> + 0.5] 
  g0 x[#<sr_pocz> + 0.5] 

o100 endwhile

m5
g0 x[#<sr_pocz> + 2] 

o<czolo> endsub 

Kod: Zaznacz cały

( ------------------------------ ) 
(          S E G E R           ) 
( ------------------------------ ) 
( Kamar                          ) 
( Time-stamp: <2012-02-05 11:22> ) 
( ------------------------------ ) 

(info: seger ) 

o<seger> sub

#<sr_pocz> = #1 (=40 Średnica początkowa) 
#<sr_koncowa> = #2 (=37 Średnica końcowa) 
#<z_pocz> = #3 (=0 Z początkowe) 
#<noz> = #4 (=2 Szerokość noża) 
#<kanal> = #5 (=2 szerokość kanałku) 
#<posuw> = #6 (=60 Posuw) 
#<woda> = #7 (=1 Woda) 

g61

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


o100 if [#<sr_pocz> gt #<sr_koncowa>] 

g0 z#<z_pocz> 

x[#<sr_pocz> +1] 
g1 x#<sr_koncowa> f#<posuw> 
g0 x[#<sr_pocz> +1] 
o101 if [#<kanal> gt #<noz>] 
g0 z[#<z_pocz>+[#<kanal>-#<noz>]] 
g1 x#<sr_koncowa> f#<posuw> 
g0 x[#<sr_pocz> +1] 
o101 endif


o100 endif


o200 if [#<sr_pocz> lt #<sr_koncowa>] 
g0 z1
g0 x[#<sr_pocz> -1] 
z#<z_pocz> 
g1 x#<sr_koncowa> f#<posuw> 
g0 x[#<sr_pocz> - 1] 
o102 if [#<kanal> gt #<noz>] 
g0 z[#<z_pocz>+[#<kanal>-#<noz>]] 
g1 x#<sr_koncowa> f#<posuw> 
g0 x[#<sr_pocz> - 1] 
o102 endif
g0 z10

o200 endif

o<seger> endsub