! Document name: fan_tr_panel_A

!fan_tr_panel_A   13.07.1989.
!internal macro: -

pars a,b,frame width

let d=1"

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

let m=1.414

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

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

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

del top
end