Kod: Zaznacz cały

( ------------------------------ )
(      S Z E S C I A K A T       )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-07-20 14:09> )
( ------------------------------ )
(          USTAWIENIA            )
( ------------------------------ )
(info: Nacinanie sześciokąta)
o<szesciokat> sub

#<frez> = #1 (frez)
#<rozmiar> = #2 (rozmiar)
#<glebokosc> = #3 (głębokość)
#<predkosc> = #4 (=60 predkość)
#<woda> = #5 (=1 Woda: 1 - wł, 0 - wył)

( ------------------------------ )
( ------------------------------ )

(h = a*sqrt3/2 )
( a = 2h / sqrt3 )

#<rozmiar> = [#<rozmiar> + #<frez>]

#<a> = [#<rozmiar> / sqrt[3]]  
#<glebokosc> = [#<glebokosc> * -1]

g17 g21 g61
g0 z5 m3 s1
o1 if [#<woda> eq 1]
m8
o1 endif

(g40)
(m6 t8) ( frez )
(g42)
(g0 x[[#<a> / 2] + 5] y[[#<rozmiar> / 2] + 5])

(g0 x-20 y-20)

g0 x[#<a> / 2] y[#<rozmiar> / 2]
g0 z2 m3 s1
m3

#1 = 0

o100 while [#1 gt #<glebokosc>]
#1 = [#1 - 2]
o110 if [#1 lt #<glebokosc>]
  #1 = #<glebokosc>
o110 endif
g1 z#1 f20  
g1 x[[#<a> / 2] * -1] F#<predkosc>
g1 x[#<a> * -1] y0 
g1 x[[#<a> / 2] * -1] y[[#<rozmiar> /2] * -1]
g1 x[#<a> / 2] 
g1 x#<a> y0
g1 x[#<a> / 2]  y[#<rozmiar> /2]

o100 endwhile
m5
g0 z2

o<szesciokat> endsub