! Document name: qrtr_grid_2

!1/4_grid_2  10.07.1989.
!internal macro: -

pars a,b,frame width

let d=1"

let z=a-c
let f=b-c

let n=a/2+d/2
let o=a/2-d/2
let p=b/2+d/2
let q=b/2-d/2

let m=1.414

poly_ 5,
c,c,1,
d/m+c,c,1,
0.707*z+d/m/2,0.707*f-d/m/2,0,
0.707*z-d/m/2,0.707*f+d/m/2,1,
c,d/m+c,1

poly_ 14,
o,c,1,
n,c,1,
0.966*n,0.259*p,1,
0.866*n,0.5*p,1,
0.707*n,0.707*p,1,
0.5*n,0.866*p,1,
0.259*n,0.966*p,1,
c,p,1,
c,q,1,
0.259*o,0.966*q,1,
0.5*o,0.866*q,1,
0.707*o,0.707*q,1,
0.866*o,0.5*q,1,
0.966*o,0.259*q,1

del top
end