Gotowe.kamar pisze:Zamówiłem
Do fajrantu ma być.
Czyli do fajrantu mam wolne
Zrobiłem tak, że palnik ucieka o 1/4 promienia w bok i do góry, zapala łuk i potem łukiem najeżdża na pozycję palenia.
Podprogram do NCGGUI i wywołujący na początku suba touchoff.ngc
Kod: Zaznacz cały
( --------------------------------- )
( W Y P A L A N I E O T W O R U )
( )
( --------------------------------- )
( Kamar )
( Time-stamp: <2012-08-29 13:26> )
( --------------------------------- )
(info: Wypalanie otworu)
o<pl_otwor> sub
#<wys_przepalania> = #1 (=3 Wysokość przepalania)
#<czas_przepalania> = #2 (=3 Czas przepalania)
#<wys_palenia> = #3 (=3 Wysokość palenia)
#<sr_otworu> = #4 (=20 śr. otworu)
#<rodzaj> = #5 (=0 0 - otwór, 1 - koło)
#<predkosc> = #6 (=200 Prędkość)
( ------------------------------ )
#<promien> = [#<sr_otworu> / 2] ( promien otworu )
g17 G21 G61
g0 x0 y0
o100 if[#<rodzaj> eq 0]
(otwór)
g0 X[#<promien> / 4] Y[#<promien> / 4]
o<touchoff> call [#<wys_przepalania>] [#<czas_przepalania>] [#<wys_przepalania>]
G3 X0 Y0 I0 J[-1 * [#<promien> / 4]]
G2 X0 Y0 I#<promien> J0 F#<predkosc>
o100 else
(koło)
g0 X[-1 * [#<promien> / 4]] Y[#<promien> / 4]
o<touchoff> call [#<wys_przepalania>] [#<czas_przepalania>] [#<wys_przepalania>]
G2 X0 Y0 I0 J[-1 * [#<promien> / 4]]
G3 X0 Y0 I#<promien> J0 F#<predkosc>
o100 endif
m5
o<pl_otwor> endsub
