! Document name: µOvi2

! µOvi2
! (c) M.A.D. Severi Virolainen 910608-10

prism 8,d,
      -a/2,  0,
      -a/2,  b,
       a/2,  b,
       a/2,  0,
       a/2-c,0,
       a/2-c,b-c,
      -a/2+c,b-c,
      -a/2+c,0
if e<=0 then 30
prism 4,d,
      -a/2+c,0,
      -a/2+c,e,
       a/2-c,e,
       a/2-c,0
30:
let t=(a-2*c-j)/2 !oven karmi ikkunaan
let u=b-c-e-k-l   !oven yläkarmi ikkunaan
add a/2-c,e,0
roty 180-f
addz -g
prism_ 10,g,
      0,      0,    15,
      0,      b-c-e,15,
      a-2*c,  b-c-e,15,
      a-2*c,  0,    15,
      0,      0,    -1,

      t,      l,    15,
      t,      e+l+k,15,
      a-2*c-t,e+l+k,15,
      a-2*c-t,l,    15,
      t,      l,    -1
if e<=0 then 50
addz g/3
set material m
prism 4,g/3,
      t,      l,
      t,      e+l+k,
      a-2*c-t,e+l+k,
      a-2*c-t,l
del 1
set material m_
50:
del 1
roty 90
if h<=0 then 99
set material h
add g/2,i,a-2*c-0.17
gosub 70
mulx -1
gosub 70
99:
del top
end

70:
addx g/2+0.03
block 0.01,0.02,0.12
del 1
return
end