! Document name: half_frame

!half_frame  11.07.1989.
!internal macro: -

pars a,b,frame width, frame thickness,transparent

let z=a/2-c/2
let w=b-c/2
let g=a/2
let h=b
let i=z-c/2
let j=w-c/2

prism_ 26,d,
z,c,0,
g,c,13,
0.966*g,0.259*h,13,
0.866*g,0.5*h,13,
0.707*g,0.707*h,13,
0.5*g,0.866*h,13,
0.259*g,0.966*h,13,
0,h,13,
-0.259*g,0.966*h,13,
-0.5*g,0.866*h,13,
-0.707*g,0.707*h,13,
-0.866*g,0.5*h,13,
-0.966*g,0.259*h,13,
-g,c,0,
-z,c,13,
-0.966*z,0.259*w,13,
-0.866*z,0.5*w,13,
-0.707*z,0.707*w,13,
-0.5*z,0.866*w,13,
-0.259*z,0.966*w,13,
-0,w,13,
0.259*z,0.966*w,13,
0.5*z,0.866*w,13,
0.707*z,0.707*w,13,
0.866*z,0.5*w,13,
0.966*z,0.259*w,13

prism_ 4,d,
-g,0,15,
g,0,15,
g,c,15,
-g,c,15

lin_ z,c,0,
z,c,d

lin_ -z,c,0,
-z,c,d

addz d/3

poly_ 26,
-z,c,1,
-0.966*z,0.259*w,1,
-0.866*z,0.5*w,1,
-0.707*z,0.707*w,1,
-0.5*z,0.866*w,1,
-0.259*z,0.966*w,1,
-0,w,1,
0.259*z,0.966*w,1,
0.5*z,0.866*w,1,
0.707*z,0.707*w,1,
0.866*z,0.5*w,1,
0.966*z,0.259*w,1,
z,c,1,
i,c,1,
0.966*i,0.259*j,1,
0.866*i,0.5*j,1,
0.707*i,0.707*j,1,
0.5*i,0.866*j,1,
0.259*i,0.966*j,1,
0,j,1,
-0.259*i,0.966*j,1,
-0.5*i,0.866*j,1,
-0.707*i,0.707*j,1,
-0.866*i,0.5*j,1,
-0.966*i,0.259*j,1,
-i,c,1

lin_ -i,c,0,i,c,0

if e=0 then 20
material f
poly_ 13,
i,c,0,
0.966*i,0.259*j,0,
0.866*i,0.5*j,0,
0.707*i,0.707*j,0,
0.5*i,0.866*j,0,
0.259*i,0.966*j,0,
0,j,0,
-0.259*i,0.966*j,0,
-0.5*i,0.866*j,0,
-0.707*i,0.707*j,0,
-0.866*i,0.5*j,0,
-0.966*i,0.259*j,0,
-i,c,1

20:del top
end