! Document name: ╡Ikkuna2
! ╡Ikkuna1
! (c) M.A.D. Severi Virolainen 910607
prism_ 15,d,
-a/2,0,15,
-a/2,b,15,
a/2,b,15,
a/2,0,15,
-a/2,0,-1,
-a/2+c, c, 15,
-a/2+c, b-c,15,
a/2-f-c/2,b-c,15,
a/2-f-c/2,c, 15,
-a/2+c, c, -1,
a/2-f+c/2,c, 15,
a/2-f+c/2,b-c,15,
a/2-c, b-c,15,
a/2-c, c, 15,
a/2-f+c/2,c, -1
if e<=0 then 99
addz d/3
set material e
prism 4,d/3,
-a/2+c, c,
-a/2+c, b-c,
a/2-f-c/2,b-c,
a/2-f-c/2,c
prism 4,d/3,
a/2-f+c/2,c,
a/2-f+c/2,b-c,
a/2-c, b-c,
a/2-c, c
99:
del top
end