!name: gardoor_1 Apr 1991 GSCNE.
roty 180
addx  -a
let f=int(c)
addz -d*4/9
if f<2 then 100
if f>15 then 100
brick a,b,d*3/5
addz d*3/5
addx 0.05

for i=1 to f
addy (i-1)*(b-0.05*(f+1))/f+0.05*i
brick a-.1,(b-0.05*(f+1))/f,d*2/5
del 1
next i
goto 110
del top
100:brick a,b,d
110:del top
end
