! Document name: µKierreporras

! Kierreporras
! (c) M.A.D. Severi Virolainen 910606

! A ulkosäde
! B sisäsäde
! C korkeus
! D askelmia
! E kierroksia
! F askelpaksuus
! G käsijohteen korkeusasema
! H käsijohteen materiaali
! I käsijohteen korkeus
! J kaiteen korkeusasema
! K kaiteen materiaali
! L kaiteen korkeus

let q=e*360/d !portaan kulma
let r=c/d     !nousu
let u=tan(q/2)*b
let v=tan(q/2)*a
let g=g+f     ! korkeusasema kohdalleen
let j=j+f     ! korkeusasema kohdalleen
rotz q/2
addz r-f
for t=1 to d
   set material m_
   prism 4, f,
        -u, b,
        -v, a,
         v, a,
         u, b
   if i=0 then 30
   set material h
   rotx 90
   addz -a
   poly_ 4,
        -v,g+r,0,
        -v,g+r-i,1,
         v,g-i,0,
         v,g,1
   del 2
30:
   if l=0 then 40
   set material k
   rotx 90
   addz -a
   poly_ 4,
        -v,j+r,0,
        -v,j+r-l,1,
         v,j-l,0,
         v,j,1
   del 2
40:
   rotz q
   addz r
next t
del top
end