! Document name: grille

! name          : grille
! written by    : Juhasz
! internal macro: -
! -- internal macro -- !

if c=0 then 1
let e=a/c
for i=1 to c-1
        lin_ e*i,0,0,e*i,b,0
        next i
1: if d=0 then 2
let f=b/d
for i=1 to d-1
        lin_ 0,f*i,0,a,f*i,0
        next i
2: end