! 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