!   TITLE:  horiz_t_cyl_433241.mac (JSF)
!
!-----------------------------------------------------------------------
!   Rev -   01/23/2006      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the cylinder assembly of the Lockheed JSF
!   horizontal tail actuator.
!
!   CScyl0:     Cartesian Cylinder Coordinate System
!   CScyl1:     Cylindrical Cylinder Coordinate System
!   CScyl2:     Spherical Cylinder Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Cylinder Lug End
!           3.1.1  Lug End
!           3.1.2  Bearing Bore
!           3.1.3  Internal Cut
!       3.2  Main Cyclinder
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
horiz_t_cyl_433241.parm         ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------ 3.1  Cylinder Lug End -----------------------
!
csys,CScyl0
!
create_circle,r01,,180
create_vol-lines,dz01
!
create_cs,0,'CSbear0',0,0,0,0,0,0,-90
create_cs,0,,0,0,0,0,0,0,90
!
create_sphere,r01,,,,180,1
!
vadd,all
init_entity_num
!
lplot
!
!-------------------------- 3.1.1  Lug End ---------------------------
!
csys,CSbear0
!
create_cs,0,'CSlug0',0,0,1.2*r01,0,0,-90,0
!
k,,-dz02,dx01/2,0
k,,dz02,dx01/2,0
k,,dz02,(dx01/2)+r01,0
k,,-dz02,(dx01/2)+r01,0
!
create_lines
ln_fillet,km-2,r02
create_area-lines
!
!
k,,-dz02,-((dx01/2)+r01),0
k,,dz02,-((dx01/2)+r01),0
k,,dz02,-dx01/2,0
k,,-dz02,-dx01/2,0
!
create_lines
ln_fillet,km-1,r02
create_area-lines
!
create_vols-areas,-3*r01
!
vsbv,vm-2,new_vols,,delete,delete
init_entity_num
!
lplot
!
!----------------------- 3.1.2  Bearing Bore -------------------------
!
csys,CSbear0
!
create_circ_area,d01/2,r01
!
create_vols-areas,-2*r01
!
vsbv,vm-1,new_vols,,delete,delete
init_entity_num
!
lplot
!
!----------------------- 3.1.3  Internal Cut -------------------------
!
csys,CSbear0
!
!k,,0,dy01/2,1.1*r01
!k,,dz02-.01,dy01/2,1.1*r01
!k,,dz02-.01,-dy01/2,1.1*r01
!k,,0,-dy01/2,1.1*r01
!
k,,0,dy01/2,1.1*r01
k,,dz02,dy01/2,1.1*r01
k,,dz02,-dy01/2,1.1*r01
k,,0,-dy01/2,1.1*r01
!
create_area
!
create_circ_area,r03,1.1*r01
!
asba,am-1,am,,delete,delete
init_entity_num
!
isolate_areas
adele,am
!
ln_fillet_group,km-8,r01s,km-7,r01s,km-1,r01s,km,r01s,
!
create_area-lines
!
create_vols-areas,3*r01
!
vsbv,vm-1,new_vols,,delete,delete
comb_areas
!
lplot
!
!------------------------- 3.2  Main Cyclinder -------------------------
!
csys,
!





















!finalize_model






!*go,:skip




:skip