! Document name: bay30_hung_roof

!30_bay_hung_roof   17.07.1989.
!internal macro: -

pars a,b,frame thickness,pen No. of wall

let b=4"
pen d

rotx -90

prism_ 4,b,
a/2+0.0508,0,15,
a/2-0.5211-0.232*c,0.3302+c*0.134,15,
-a/2+0.5211+0.232*c,0.3302+c*0.134,15,
-a/2-0.0508,0,15

del top
end