! Document name: s1

! name                 : s1
!1991 GSCNE
let l=a/d
let h=c/d
addx b/2
roty -90
for i=0 to d-1
   addx h*i
   addy l*i
   prism_ 3,b,
                0,0,15,
                h,0,15,
                h,l,10
   del 2
next i
del top
addx b/2
roty -90
prism_ 4,b,
            0,0,10,
            c,a,15,
            c-h,a,15,
            0,l,15
del top
end