! Document name: fan_tr_frame

!fan_tr_frame   13.07.1989.
!internal macro: -

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

let z=a/2-c
let s=b-c
let n=a/2
let m=b
let o=z
let j=s

prism_ 26,d,
z,0,2,
n,0,15,
0.966*n,0.259*m,13,
0.866*n,0.5*m,13,
0.707*n,0.707*m,13,
0.5*n,0.866*m,13,
0.259*n,0.966*m,13,
0,m,13,
-0.259*n,0.966*m,13,
-0.5*n,0.866*m,13,
-0.707*n,0.707*m,13,
-0.866*n,0.5*m,13,
-0.966*n,0.259*m,13,
-n,0,2,
-z,0,15,
-0.966*z,0.259*s,13,
-0.866*z,0.5*s,13,
-0.707*z,0.707*s,13,
-0.5*z,0.866*s,13,
-0.259*z,0.966*s,13,
-0,s,13,
0.259*z,0.966*s,13,
0.5*z,0.866*s,13,
0.707*z,0.707*s,13,
0.866*z,0.5*s,13,
0.966*z,0.259*s,13

if f>0 then 20
material h
poly_ 13,
o,0,0,
0.966*o,0.259*j,0,
0.866*o,0.5*j,0,
0.707*o,0.707*j,0,
0.5*o,0.866*j,0,
0.259*o,0.966*j,0,
0,j,0,
-0.259*o,0.966*j,0,
-0.5*o,0.866*j,0,
-0.707*o,0.707*j,0,
-0.866*o,0.5*j,0,
-0.966*o,0.259*j,0,
-o,0,0

20:del top
end