!   TITLE:  gimb_cleanup.mac
!
!l121=0.500
!
csys,CSLtop1
create_cs,0,'CSLtop1',0,0,0,0,0,0,0
!
parl_lines,CSLtop1,'b',0,lm-685
parl_lines,CSLtop1,'r',0,lm-2282
!
isolate_lines
profile_lines,km-4,km
!
ln_fillet,km,l121
!
parl_lines,CSLtop1,'b',0,lm-4,5
parl_lines,CSLtop1,'b',0,lm-2,40
!
profile_close
!
ldele,lm-10,lm-7,10-7,1
isolate_lines
al,all
!
init_entity_num
!
vdrag,am,,,,,,lm-2308
!
vadd,all
!
init_entity_num
!
!asel,s,loc,z,0
!
!
!init_entity_num
!




lplot


csys,CScbrd0
!
k,,Dx08/2,0.200,0
k,,Dx08/2,-0.200,0
k,,-Dx08/2,0.200,0
k,,-Dx08/2,-0.200,0
!
ln_series
!
isolate_lines
cm,lset1,line
!
init_entity_num
!
csys,CSgim0
asel,s,loc,y,l10
!
ARA_PART_LINE,'lset1'
!