! Document name: ╡Sohva1

! ╡Sohva1
! (c) M.A.D. Severi Virolainen 910606-08

muly b/0.65
mulz c/0.75
roty -90
addz -a
gosub 30
addz 0.05
set material e
prism 8, a-2*d,
      0.35,0.08,
      0.75,0.00,
      0.75,0.05,
      0.20,0.25,
      0.30,0.60,
      0.22,0.65,
      0.18,0.65,
      0.10,0.25
addz a-0.1
set material m_
gosub 30
del top
end

30:
prism 4, d,
      0.00,0.00,
      0.00,0.65,
      0.40,0.65,
      0.60,0.00
return
end