Kod: Zaznacz cały

( ------------------------------ )
(   Zabielanie taczy promieniem  )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2015-03-10 08:45> )
( ------------------------------ )

(info: Przejazd)

o<zabielanie_promien_y> sub

#<promien> = #1 (=20 promien)
#<y_pocz> = #2 (=0 Y pocz&#9472;ůtkowy)
#<glebokosc> = #3 (=1 glebokosc)
#<skok> = #4 (=0.1 skok)
#<wewnetrzny> = #5 (=0 <> 0 - zew, 1 - wew)
#<predkosc> = #6 (=200 pr&#9472;Ödko&#9532;Ť&#9472;ç)

#<y_pocz> = [#<y_pocz> + #<promien> + 1]
#<y_akt> = #<y_pocz>

m3 s1

o10 if [#<wewnetrzny> eq 0]

  o100 while [#<y_akt> gt 0]
    #<y_akt> = [#<y_akt> - #<skok>]
    o110 if [#<y_akt> lt 0]
      #<y_akt> = 0
    o110 endif

    g0 x[#<promien> * -1]
    g0 y#<y_akt>
    g2 x#<promien> y#<y_akt> r#<promien> f#<predkosc>
    g0 y[#<y_akt> + #<promien> + 1]

  o100 endwhile

o10 else

  o500 while [#<y_akt> gt 0]
    #<y_akt> = [#<y_akt> - #<skok>]
    o510 if [#<y_akt> lt 0]
      #<y_akt> = 0
    o510 endif

    g0 x#<promien>
    g0 y[#<y_akt> + #<promien>]
    g2 x[#<promien> * -1] y[#<y_akt> + #<promien>] r#<promien> f#<predkosc>
    
  o500 endwhile

o10 endif



o<zabielanie_promien_y> endsub