! 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