! Document name: ╡Ovi1

! ╡Ovi1
! (c) M.A.D. Severi Virolainen 910607

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:
add a/2-c,e,0
roty -90-f
block g,b-c-e,a-2*c

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