# attributes on
!***************************************************************
! RECTAN      / 1997-02-07 /                     
! Create Rectangular cross section      
!***************************************************************
!
B =  #WIDTH#
H =  #HEIGHT#
!
cline(1) B/2,H/2,B/2,-H/2,-B/2,-H/2,-B/2,H/2
hatch L1
!
!S
