IMPULS3 pisze: Ajakby ktoś jeszcze wiedział co dopisać aby się to mogło obrócić o dany kąt to można by wtedy mieć uniwersalnego suba na wszelkie regulacje kątowe
mówisz, masz. Poniżej przeróbka suba z dodanym kątem. Kąt w stopniach, 0° jak w dotychczasowym subie w osi X, kąt dodatni przeciwnie do wskazówek zegara (czyli 90° w kierunku Y):
o<polkula> sub
#<zero>= #1 (=0 zero)
#<promien> = #2 (=30 promien)
#<posuw roboczy> = #3 (=150 posuw roboczy)
#<srednica freza> = #4 (=8 srednica freza)
#<glebokosc>=#5 (=12 glebokosc)
#<przybranie>=#6 (=3 przybranie)
#<posuw dol>=#7 (=200 posuw dol)
#<alfa>=#8 (=0 kat w stopniach)
g80 g61
#<r> = [#<promien>+ #<srednica freza>/2]
#<s_x> = [ #<r> * COS[#<alfa>-180] ]
#<s_y> = [ #<r> * SIN[#<alfa>-180] ]
#<temp_x1> =[ #<s_x>+#<r> * COS[#<alfa>+90] ]
#<temp_y1> =[ #<s_y>+#<r> * SIN[#<alfa>+90] ]
#<temp_x2> =[ #<s_x>+#<r> * COS[#<alfa>+270] ]
#<temp_y2> =[ #<s_y>+#<r> * SIN[#<alfa>+270] ]
G0 z3
x#<temp_x1> y#<temp_y1>
#1=0
g0 z3
o10 while [#1 gt -#5]
#1=[#1- #6]
o11 if [#1 lt -#5]
#1=-#5
o11 endif
g1 z#1 f#7
g17
x#<temp_x1> y#<temp_y1>
g2f#3 y0 x0 r#<r>
y#<temp_y2> x#<temp_x2> r#<r>
g0 z3
y#<temp_y1> x#<temp_x1>
o10 endwhile
g0 z12
o<polkula> endsub