! Document name: double_grille

! name: double grille 24.04.1989.
! internal macro: -

e=1"
f=int(c)
if f<=1 then 10
x=a/f
for i=1 to f-1
addx x*i-e/2
rect e,b
del 1
next i
10:z=int(d)
if z<=1 then 20
let y=b/z
for i=1 to z-1
addy y*i-e/2
rect a,e
del 1
next i
20: end