! Document name: oct_grid

!oct_grid  10.07.1989.
!internal macro: -

pars width, height,frame width

addy b/2

let d=1"
let c=1 1/2"

let e=a/2+c+d
let f=b/2+c+d

let h=e-c
let i=f-c
let j=h-d

if h<=0 then 20

mulx j
muly j*i/h

addx 0.414-d
addy -1

rect d,2

addx -0.828+d

rect d,2

addy 1.414
addx -0.586
rotx 180
rect 2,d

addy 0.828-d

rect 2,d

20:del top
end