! 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