Kod: Zaznacz cały

( ------------------------------- ) 
(  S E G E R Y  Ł O Z Y S K O W E ) 
( ------------------------------- ) 
( Kamar                           ) 
( Time-stamp: <2013-03-08 09:15>  ) 
( ------------------------------- ) 

(info: segery łożyskowe wewnętrzne ) 

o<segery_lozyskowe_wewnetrzne> sub

#<sr_pocz> = #1 (=51 Średnica początkowa) 
#<sr_koncowa> = #2 (=54 Średnica końcowa) 
#<z_pocz> = #3 (=-4 Z początkowe) 
#<noz> = #4 (=1 Szerokość noża) 
#<kanal> = #5 (=2 szerokość kanałku) 
#<lozysko> = #6 (=15 szerokość łożyska) 
#<posuw> = #7 (=15 Posuw) 
#<woda> = #8 (=1 <> Woda) 

g61

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

( pierwszy seger ) 

g0 z1
g0 x[#<sr_pocz> - 1] 
g0 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

( drugi seger ) 

g0 z[#<z_pocz> - #<kanal> - #<lozysko>] 
g1 x#<sr_koncowa> f#<posuw> 
g0 x[#<sr_pocz> - 1] 

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



o<segery_lozyskowe_wewnetrzne> endsub