AI w warsztacie

Kod: Zaznacz cały

( ------------------------------ )
(    W Y C I N E K   Ł U K U     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2018-02-09 09:50> )
( ------------------------------ )

(info: Promień )

o<luk> sub

#<x_poczatkowy> = #1 (=10 X początkowy)
#<x_koncowy> = #2 (=20 X koncowy)
#<dobieranie> = #3 (=1 dobieranie)
#<promien> = #4 (=10 promien)
#<odsuniecie_z> = #5 (=-10 koncowy Z)
#<predkosc> = #6 (=100 prędkość)

g18
m3 s1
M8

(g0 X[#<x_koncowy>] z0)
g0 z1 x#<x_poczatkowy>

#<akt_x> = #<x_poczatkowy>
(o100 while [#<akt_x> lt #<x_koncowy>])


(#<akt_x> = [#<akt_x> + #<dobieranie>])
g1 x[#<akt_x>] z0 F#<predkosc>
g3 z#<odsuniecie_z> x[[#<akt_x> - #<x_poczatkowy>]] R#<promien> F#<predkosc>
(g0 z0 x20)
(g2 z-8 x8 r10 F100)

(g0 X10 Z0)
(g2 X8 Z-10 I38 K-10 F100)
(g2 X[#<akt_x> - #<dobieranie>] z#<odsuniecie_z> R#<promien> F#<predkosc>)
(g2 X[#<x_poczatkowy>] z[-1 * #<odsuniecie_z>] I[#<promien> - [#<x_koncowy> - #<x_poczatkowy>]] K[-1 *#<odsuniecie_z>] F#<predkosc>)
g0 z0
g0 X#<akt_x>
(o100 endwhile)

o<luk> endsub

Kod: Zaznacz cały

( ------------------------------ )
(    W Y C I N E K   Ł U K U     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2018-02-09 12:47> )
( ------------------------------ )

(info: Promień )

o<luk_wewnetrzny> sub

#<x_poczatkowy> = #1 (=10 X początkowy)
#<dobieranie> = #2 (=1 dobieranie)
#<promien> = #3 (=10 promien)
#<predkosc> = #4 (=2 prędkość)
#<obr> = #5 (=400 obroty)

g18
m3 s#<obr>
M8

(g0 X[#<x_koncowy>] z0)
g0 z1 x#<x_poczatkowy>

#<akt_x> = #<x_poczatkowy>
#<akt_z> = 0
#<offset_srodka_z> = SQRT[[#<promien> * #<promien>] - [[#<x_poczatkowy> /2] * [#<x_poczatkowy> /2]]] 
#<z_koncowe> = [-1 * [#<promien> - #<offset_srodka_z>]]



(o100 while [#<akt_x> lt #<x_koncowy>])


(#<akt_x> = [#<akt_x> + #<dobieranie>])
g1 x[#<akt_x>] z0 F#<predkosc>

(g3 z#<odsuniecie_z> x[[#<akt_x> - #<x_poczatkowy>]] R#<promien> I[-1 * [#<akt_x> - #<x_poczatkowy>]] F#<predkosc>)


g3 x0 z#<z_koncowe> i[-1 * [#<x_poczatkowy>/2]] k[#<offset_srodka_z>] F#<predkosc>
(g0 z0 x20)
(g2 z-8 x8 r10 F100)

(g0 X10 Z0)
(g2 X8 Z-10 I38 K-10 F100)
(g2 X[#<akt_x> - #<dobieranie>] z#<odsuniecie_z> R#<promien> F#<predkosc>)
(g2 X[#<x_poczatkowy>] z[-1 * #<odsuniecie_z>] I[#<promien> - [#<x_koncowy> - #<x_poczatkowy>]] K[-1 *#<odsuniecie_z>] F#<predkosc>)
g0 z0
g0 X#<akt_x>
(o100 endwhile)


o<luk_wewnetrzny> endsub