Zwyżką przez balkon251mz pisze:
ciężko by Ci było wnieść


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