! Document name: ╡Ikkuna3
! ╡Ikkuna3
! (c) M.A.D. Severi Virolainen 910607
prism_ 10,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-c,b-c,15,
a/2-c,c, 15,
-a/2+c,c, -1
addx -a/2+c
addy c
for x=1 to g+1
for y=1 to f
addy (b-2*c-f*h)/(f+1)
block (a-2*c-g*h)/(g+1),h,h
addy h
next y
del 2*f
if x>g then 30
addx (a-2*c-g*h)/(g+1)
block h,b-2*c,h
addx h
30:
next x
if e<=0 then 99
del top
addz d/3
set material e
prism_ 4,d/3,
-a/2+c,c, 15,
-a/2+c,b-c,15,
a/2-c,b-c,15,
a/2-c,c, 15
99:
del top
end