!***************************************************************
! TRIM_RC     / 1997-02-07 /                     
! Create Special Cross Section      
!***************************************************************
!debug ./trim_rc

FlangeU =  #FL_U#
FlangeA1 =  #FL_L1#
FlangeA2 =  #FL_L2#
Web = #WEB#
Lip = #LIP#
AngleL = #ANG_L#
AngleU = #ANG_U#
ProfT = #PROF_T#

AngleU = AngleU/2

if AngleU < 0 or AngleU > 90 then exit

P1x = 0
P1y = 0
P2x = FlangeA2*sin(AngleU)
P2y = -FlangeA2*cos(AngleU)
P3x = P2x - ProfT*cos(AngleU)
P3y = P2y - ProfT*sin(AngleU)
P4x = P1x
P4y = P1y - ProfT/sin(AngleU)
P5x = -FlangeA1*sin(AngleU)
P5y = -FlangeA1*cos(AngleU)
P6x = P5x + ProfT*cos(AngleU)
P6y = P5y - ProfT*sin(AngleU)

cline(1) P1x,P1y , P2x,P2y, P3x,P3y, P4x,P4y, P6x,P6y, P5x,P5y
hatch L1
!
