!   torqjtest.mac
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_cres_cast.parm
!Dx03=arg4
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.2.2.1  Journal Volume ----------------------
!
csys,CSgim0
!
create_cs,0,'CSelvax0',0,(l15-l11),-(l14-l10),-(l1+l12),0,90,90
!
create_cs,0,'CSelvax1',1,0,0,0,0,0,0
!
create_cs,0,'CSg_trq0',0,0,0,-l15,0,0,180
!
create_cs,0,'CSg_trq1',1,0,0,0,0,0,0
!
create_cs,0,'CSrotax0',0,0,0,0,-angoffst,0,0    ! rotated axis C.S.
!
csys,CSrotax0
!
k,,l29,l16,0
k,,l29,-3*dlftj,0
!
k,,l29,l16,0
k,,-3*dlftj,l16,0
!
csys,CSg_trq0
!
k,,3*dlftj,l12,0
k,,-(l14+l9),l12,0
!
ln_series
!
k,,-(l14+l9),l12,0
k,,-(l14+l9),l12-l22+l26+l24,0
k,,-(l14+l9+l25),l12-l22+l26+l24,0
k,,-(l14+l9+l25),l12-l22+l26,0
k,,-(l14+l9),l12-l22+l26,0
!
k,,-(l14+l9),l12-l22,0
!
create_lines,,1
!
create_cs,0,,1,-(l14+l9),l12-l22,0,0,0,0
!
k,,0,0,0
k,,3*dlftj,0,0
!
create_lines,,1
!
profile_close
!
ksel,s,kp,,km-8,km-5,3
ln_fillet,,rfil
!
create_area-lines
!
csys,CSrotax0
!
create_circle,dlftj/2
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
!isolate_areas
!
!extrude_aset,-l17
!
create_vol-area,-l17


*go,:skip1

vadd,vm-1,vm
!
init_entity_num
!
vsel,s,volu,,vm
ar_plane_cut,am-5
!
vdele,vm-1,,,1
!
init_entity_num
!
csys,CSgim0
create_cs,0,'CSLtop1',1,-(l11-l7),-(l6-(l9+l10)),-l1,0,0,-((atan(l8/l7))*dconv)
!
asel,s,loc,z,0
!
aadd,all
!
init_entity_num
!
csys,CSgim0
asel,s,loc,x,-l11
!
aadd,all
!
init_entity_num
!

:skip1


csys,CSrotax0
!
create_arcs,D01/2,0,,2,90,270
!
parl_lines,CSg_trq0,'b',0.140,lm-50
parl_lines,CSg_trq0,'l',0.300,lm-38
parl_lines,CSg_trq0,'l',0.300,lm-38
parl_lines,CSg_trq0,'l',0.140,lm-47
parl_lines,CSg_trq0,'r',0.150,lm-50,7
!
parl_lines,CSg_trq0,'r',0.100,lm-50
!
profile_close
!
isolate_lines
ksll,s
ksel,u,kp,,km-26
!
ln_fillet,,rfil7
!

!numcmp,all         !*****************************************
!init_entity_num        !*****************************************

create_area-lines
a1=am
!create_vol-lines,-(l17-0.200)/2
!
!vsbv,vm-1,vm,,delete,delete
!

!numcmp,all         !*****************************************
!init_entity_num        !*****************************************

!vdele,all,,,1
!init_entity_num
!
! HOLE_PATTERN, csnum, rpat, zpos, numh, anginc, stang, patang, dhole
!
!hole_pattern,CSg_trq1,R01,0,6,,90+45,,0.300
hole_pattern,CSg_trq1,R01,0,,60,90+45-60,120,0.400
isolate_areas
asel,u,area,,a1
cm,aset1,area
!
init_entity_num
!
asba,a1,aset1,,delete,delete
!
init_entity_num
!
create_vol-area,-(l17-0.200)/2
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot