!   ghub.mac
!
! Used to test clearance to the mirror support
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
ghub.parm
!Dx03=arg4
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Center Hub Volume ---------------------
!
!
!------------------- 3.1.1  Center Circular Volume ------------------
csys,CSgim0
!
k,,0,0,0
K,,dhubo/2,0,0
K,,dhubo/2,0,-(l1+l2)
K,,Dx02,0,-(Dz02+l1)
K,,Dx03,0,-(Dz03+l1)
!
K,,Dx03,0,-(Dz04+l1)
K,,Dx04,0,-(Dz04+l1)
K,,Dx04,0,-(l4+l1)
k,,0,0,-(l4+l1)
!
create_lines
!
ln_fillet,km-4,Rf01
ln_fillet,km-4,Rf02
ln_fillet,km-7,Rf03
!
create_area-lines
!
asel,s,area,,am
!
revolve_aset,km-14,km-6,360,2
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot

!
!------------------- 3.8.1  Center Hub Top Machine ------------------
!
csys,CSgim1
!
create_circle,r_top
!
create_vol-lines,-l1
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!---------------------- 3.8.2  Center Hub Bores ---------------------
!
*go,:sk_382

csys,CSgim1
!
create_cs,0,'CSBdatm1',1,0,0,-l1,0,0,0
!
ang_array,4,0,270,180,90
!
radius,11,r2,r2,r3,r4,r4,r5,r5,r6,r6,rb,rb
depth,12,0,d1,d2,d2,d3,d3,d4,d4,d5,d5,d5+1.00,d5+1.00
!
profile_bore,3,CSBdatm1
!
lplot

:sk_382
!
!--------------- 3.9 Front Clearance Cut for Mirror Support ---------------
!
csys,CSgim0
!
create_cs,0,'CSgimB0',0,0,0,-l1,0,0,0       ! CS at Datum B
create_cs,0,,0,dhubo/2,0,0,0,0,0
!
k,,0,-dhubo/2,-cDz01
k,,0,-cDy01,-cDz01
k,,0,-cDy01,-cDz02
k,,0,-cDy02,-cDz03
k,,0,-dhubo/2,-cDz03
!
create_lines
!
ln_fillet,km-3,cr01
!
create_vol-lines,dhubo
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
finalize_model

:skip