Kod: Zaznacz cały

( ------------------------------ )
(           Z Y G Z A K          )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2018-11-05 12:52> )
( ------------------------------ )

o<zygzak> sub

#<x_poczatkowy> = #1 (=0  X start)
#<x_koncowy> = #2 (=200  X end )
#<szerokosc> = #3 (=2 szerokość spawu )
#<gestosc> = #4 (=2 gestość spawu)
#<krawedz> = #5 (=0 <> pachwina)
#<predkosc> = #6 (=400 predkość)
#<y_poczatkowy> = #7 (=0  Y start )


o10 if [#<krawedz> eq 0]

g0 x#<x_poczatkowy> y#<y_poczatkowy>
#<y_max> = [#<y_poczatkowy> + [#<szerokosc> / 2]]
#<y_min> = [#<y_poczatkowy> - [#<szerokosc> / 2]]
g1 x[#<x_poczatkowy> + [#<gestosc> / 4]] y#<y_max> f#<predkosc>

#<akt_x> = [#<x_poczatkowy> + [#<gestosc> / 4]]

(jezeli na koncu nie zmiesci sie pelny zygzak to zostawiam)
o100 while [#<akt_x> lt [#<x_koncowy> - #<gestosc>]]
     #<akt_x> = [#<akt_x> + [#<gestosc> / 2]]

     g1 x#<akt_x> y#<y_min>

     #<akt_x> = [#<akt_x> + [#<gestosc> / 2]]
     g1 x#<akt_x> y#<y_max>
     
o100 endwhile

o10 else

g0 x#<x_poczatkowy> y[#<y_poczatkowy> - [#<szerokosc> / 4]] z[#<szerokosc> / 4]
#<z_max> = [#<szerokosc> / 2]
#<y_min> = [#<y_poczatkowy> - [#<szerokosc> / 2]]

g1 x[#<x_poczatkowy> + [#<gestosc> / 4]] y0 z#<z_max> f#<predkosc>

#<akt_x> = [#<x_poczatkowy> + [#<gestosc> / 4]]

(jezeli na koncu nie zmiesci sie pelny zygzak to zostawiam)
o200 while [#<akt_x> lt [#<x_koncowy> - #<gestosc>]]
     #<akt_x> = [#<akt_x> + [#<gestosc> / 2]]

     g1 x#<akt_x> y#<y_min> z0

     #<akt_x> = [#<akt_x> + [#<gestosc> / 2]]
     g1 x#<akt_x> y0 z#<z_max>
     
o200 endwhile

o10 endif

m30


o<zygzak>endsub