kris79 pisze:czy jest możliwość zrobienia stożka wewnętrznego?
czy trzeba mieć innego suba?
Kod: Zaznacz cały
( ------------------------------ )
( F A Z A W E W )
( ------------------------------ )
( Kamar )
( Time-stamp: <2012-07-20 14:01> )
( ------------------------------ )
(info: Faza wewnêtrzna )
o<stozek_wew> sub
#<sr_pocz> = #1 (=20 średnica początkowa materiału)
#<sr_stozka> = #2 (=30 średnica stożka)
#<kat> = #3 (=0 kąt...)
#<dlugosc> = #4 (=20 ... albo długość stożka)
#<dobieranie> = #5 (=0.1 Dobieranie)
#<posuw> = #6 (=60 Posuw)
#<woda> = #7 (=0 Woda)
g7
g61
m3 s1
o1 if [#<woda> eq 1]
M8
o1 endif
#<akt_z> = 0
#<akt_x> = #<sr_pocz>
o5 if [#<kat> eq 0]
#<kroki> = FUP[[#<sr_stozka> - #<sr_pocz>] / #<dobieranie>]
#<dobieranie_z> = [#<dlugosc> / #<kroki>]
o5 else
#<dobieranie_z> = #<dobieranie>
o5 endif
o100 while [#<akt_x> lt #<sr_stozka>]
#<akt_x> = [#<akt_x> + #<dobieranie>]
o110 if [#<akt_x> gt #<sr_stozka>]
#<akt_x> = #<sr_stozka>
o110 endif
#<akt_z> = [#<akt_z> - #<dobieranie_z>]
g0 x#<akt_x>
g0 z0.5
g1 z0 f#<posuw>
o10 if [#<kat> eq 0]
g1 x#<sr_pocz> z#<akt_z> f#<posuw>
o10 else
g1 x#<sr_pocz> z[[#<akt_z>/tan[#<kat>]] / 2] f#<posuw>
o10 endif
g0 z0.5
o100 endwhile
o<stozek_wew> endsub