!   gwebtest.mac
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_cres_cast2.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
!mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
mod_coord_system,0,1,2,3,-90,0,-90
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------- 3.4  Left Side Support Web --------------------
!
csys,CSgim0
!
create_cs,0,'CSLweb10',0,-rb,l10,-(l51+l1),0,90,90
!
k,,-w_web,-(l50-l51)-l105,0
k,,0,-(l50-l51)-l105,0
k,,0,0,0
k,,-3*l49,0,0
!
create_lines,,1
!
k,,-l88,0.01,0
k,,-l88,l51,0
k,,-(l88+w_web),l51,0
!
create_lines,,1
!
create_cs,0,'CSLweb20',0,-l49,-(l50-l51),0,90-phi8L,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8L)*rconv),0
!
ln_series
!
isolate_lines
profile_lines,km-7,km-2
!
csys,CSLweb10
!
k,,-(l88+w_web),l51,0
k,,-(l88+w_web),0.01,0
!
csys,CSLweb20
!
k,,0,l50/cos((90-phi8L)*rconv),0
k,,0,0,0
!
ln_series
!
csys,CSLweb10
!
k,,-l88,-w_web,0
k,,-w_web,-w_web,0
k,,-w_web,-(l50-l51)-l105,0
!
create_lines,,1
!
profile_close
!
ksel,s,kp,,km-9,km-1,9-1
ln_fillet,,2*rfil2
!
ksel,s,kp,,km-14,km-4,14-4
ln_fillet,,rfil2
!
ksel,s,kp,,km-25,km-11,25-11
ln_fillet,,rfil6
!
create_area-lines
!create_vol-lines,-(l11-l17-rb)
!
lplot







*go,:skip


!
!
!
!
!
!
lplot
!
!-------------------- 3.5  Right Side Support Web -------------------
!
csys,CSgim0
!
create_cs,0,'CSRweb10',0,rb,l10,-(l56+l1)-l117,0,90,90
!
k,,-w_web,-(l50-l56)-l105+l117,0
k,,0,-(l50-l56)-l105+l117,0
k,,0,0,0
k,,-3*l90,0,0
!
create_lines,,1
!
k,,-l89,0.01,0
k,,-l89,l56+l117,0
k,,-(l89+w_web),l56+l117,0
!
create_lines,,1
!
create_cs,0,'CSRweb20',0,-l90,-(l50-l56)+l117,0,90-phi8R,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8R)*rconv),0
!
ln_series
!
isolate_lines
profile_lines,km-8,km-2
!
csys,CSRweb10
!
k,,-(l89+w_web),l56+l117,0
k,,-(l89+w_web),0.01,0
!
csys,CSRweb20
!
k,,0,l50/cos((90-phi8R)*rconv),0
k,,0,0,0
!
ln_series
!
csys,CSRweb10
!
k,,-l89,-w_web,0
k,,-w_web,-w_web,0
k,,-w_web,-(l50-l56)-l105+l117,0
!
create_lines,,1
!
isolate_lines
profile_close
!
ksel,s,kp,,km-9,km-1,9-1
ln_fillet,,2*rfil2
!
ksel,s,kp,,km-14,km-4,14-4
ln_fillet,,rfil2
!
ksel,s,kp,,km-25,km-11,25-11
ln_fillet,,rfil6
!
create_vol-lines,l15-l11-rb-l40
!
lplot


:skip