! Document name: bay30_hung_slab

!30_bay_hung_slab   17.07.1989.
!internal macro: -

pars a,roof slope on 12,frame thickness,pen No. of roof

pen d

rotx -90

addz -0.0508

let h=b*(0.3048+0.134*c)/12

slab_ 3,0.0508,
a/2-0.6096-0.268*c,0,h,15,
0.1524+a/2,0,0,15,
a/2-0.5075-0.232*c,0.381+0.134*c,0,15

mulx -1

slab_ 3,0.0508,
a/2-0.6096-0.268*c,0,h,15,
0.1524+a/2,0,0,15,
a/2-0.5075-0.232*c,0.381+0.134*c,0,15

del 1

slab_ 4,0.0508,
a/2-0.6096-0.268*c,0,h,15,
a/2-0.5075-0.232*c,0.381+0.134*c,0,15,
-a/2+0.5075+0.232*c,0.381+0.134*c,0,15,
-a/2+0.6096+0.268*c,0,h,15

del top
end