! 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