# attributes on
!***************************************************************
! RECTAN      / 1997-02-07 /                     
! Create Rectangular cross section      
!***************************************************************
!
!debug ./C_C.dbg

B =  #C_WIDTH#
H =  #C_HEIGHT#
T =  #CT#
TOP = #C_A#
!
P1X= -B/2
P1Y= H/2
P2X= -B/2
P2Y= -H/2
P3X= B/2
P3Y= -H/2
P4X= B/2
P4Y= H/2
cline(1) P1X,P1Y, P2X,P2Y, P3X,P3Y, P4X,P4Y
hatch L1

