!***************************************************************
! C      / 1997-02-07 /                     
! Create C cross section      
!***************************************************************
!
!debug ./C_A.dbg
B =  #C_WIDTH#
H =  #C_HEIGHT#
T =  #CT#
TOP = #C_A#
!      1  _ _ _ _ _16 
!        |  _ _ _  |
!        | |10 11| | 
         | |     | |
!        | |     |_|  
!        | |   14   15 
!        | |  *
!        | |     5_ 4
!        | |     | |
!        | |     | |
!        | |9___8| | 
!      2 |_ _ _ _ _|3
!
P1X= -B/2
P1Y= H/2
P2X= -B/2
P2Y= -H/2
P3X= B/2
P3Y= -H/2
P4X= B/2
P4Y= -H/2+TOP
P5X=  B/2-T
P5Y= -H/2+TOP
P8X=  B/2-T
P8Y= -H/2+T
P9X= -B/2+T
P9Y= -H/2+T
P10X= -B/2+T
P10Y= H/2-T
P11X= B/2-T
P11Y= H/2-T
P14X= B/2-T
P14Y= H/2-TOP
P15X= B/2
P15Y= H/2-TOP
P16X= B/2
P16Y= H/2

!        
cline(1) P1X,P1Y, P2X,P2Y, P3X,P3Y, P4X,P4Y, P5X,P5Y, P8X,P8Y, P9X,P9Y, P10X,P10Y, P11X,P11Y, P14X,P14Y, P15X,P15Y, P16X,P16Y
hatch L1
!
!S
