! Document name: fan_tr_hole

!fan_tr_hole    13.07.1989.

let g=a/2
let h=13 1/2"

addy b-h

cprism_  G_,H_,I_,15,C_,
g,0,15,
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,0,2,
-g,h,0,
g,h,0

roty 90
addz a/2
addx -C_
poly_ 4,
0,0,1,
C_,0,1,
C_,-b+h,1,
0,-b+h,1

addz -a

poly_ 4,
0,0,1,
C_,0,1,
C_,-b+h,1,
0,-b+h,1

del 4

lin_ g,-b+h,0,-g,-b+h,0

lin_ g,-b+h,c,-g,-b+h,c

del top
end