! Document name: half_grid_5

!1/2_grid_5  11.07.1989.
!internal macro: -

pars a,b,frame width

pars a,b,frame width

let d=1"

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

let n=a/6+d/2
let o=a/6-d/2
let p=b/3+d/2
let q=b/3-d/2
let r=a/3+d/2
let s=a/3-d/2
let t=2*b/3+d/2
let u=2*b/3-d/2

let m=1.414

poly_ 26,
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,
0,p,1,
-0.259*n,0.966*p,1,
-0.5*n,0.866*p,1,
-0.707*n,0.707*p,1,
-0.866*n,0.5*p,1,
-0.966*n,0.259*p,1,
-n,c,1,
-o,c,1,
-0.966*o,0.259*q,1,
-0.866*o,0.5*q,1,
-0.707*o,0.707*q,1,
-0.5*o,0.866*q,1,
-0.259*o,0.966*q,1,
0,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_ 26,
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,
0,t,1,
-0.259*r,0.966*t,1,
-0.5*r,0.866*t,1,
-0.707*r,0.707*t,1,
-0.866*r,0.5*t,1,
-0.966*r,0.259*t,1,
-r,c,1,
-s,c,1,
-0.966*s,0.259*u,1,
-0.866*s,0.5*u,1,
-0.707*s,0.707*u,1,
-0.5*s,0.866*u,1,
-0.259*s,0.966*u,1,
0,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

poly_ 5,
0,c,1,
d/m,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,
0,d/m+c,1

poly_ 5,
0,c,1,
-d/m,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,
0,d/m+c,1

poly_ 5,
0,d/m+c,0,
d/2,d/m+c+d/2,1,
d/2,b-c,0,
-d/2,b-c,1,
-d/2,d/m+c+d/2,0

del top
end