! Document name: qrtr_grid_3

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

pars a,b,frame width

let d=1"

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

let n=a/3+d/2
let o=a/3-d/2
let p=b/3+d/2
let q=b/3-d/2
let r=2*a/3+d/2
let s=2*a/3-d/2
let t=2*b/3+d/2
let u=2*b/3-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

poly_ 14,
s,c,1,
r,c,1,
0.966*r,0.259*t,1,
0.866*r,0.5*t,1,
0.707*r,0.707*t,1,
0.5*r,0.866*t,1,
0.259*r,0.966*t,1,
c,t,1,
c,u,1,
0.259*s,0.966*u,1,
0.5*s,0.866*u,1,
0.707*s,0.707*u,1,
0.866*s,0.5*u,1,
0.966*s,0.259*u,1
del top
end