! Document name: bay30_hung_wind

!30_bay_hung_wind   17.07.1989.
!internal macro: -

rotx -90

!if e>0 then 10

prism_ 3,b,
a/2,0,15,
a/2,-1.155*c,15,
a/2-c/2,-0.866*c,15

prism_ 3,b,
-a/2,0,15,
-a/2,-1.155*c,15,
-a/2+c/2,-0.866*c,15

prism_ 3,b,
a/2-0.5279-c/2,0.3048-c*0.866,15,
a/2-0.5279-c/2,0.3048+c*0.134,15,
a/2-0.5279,0.3048,15

prism_ 3,b,
-a/2+0.5279+c/2,0.3048-c*0.866,15,
-a/2+0.5279+c/2,0.3048+c*0.134,15,
-a/2+0.5279,0.3048,15

del top
end