!   TITLE:  elev_res_adaptor_v_block.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   07/07/2001      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver adaptor V-block feature on
!   the elevation resolver adaptor.
!
!
!************************** TABLE OF CONTENTS **************************
!
!   1.  Parameter List
!   2.  Solid Model
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
*if,modl_num,gt,1,then
    parm_val,'elradapt','r2','r2',1.346/2
    parm_val,'elradapt','h1','h1',0.345
    parm_val,'elradapt','h3','h3',(h1-0.123)
    parm_val,'elradapt','Dx03','Dx03',0.425
    parm_val,'elradapt','Dy01','Dy01',0.250
    parm_val,'elradapt','Dz01','Dz01',0.090
*endif
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 2.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
mat_select,'c416'                           ! Material Properties
!
csys,CSra0
!
radial_vsel,'s',CSra1,0,r2,0,360,0,h1
!
vadd,all
!
init_entity_num
!
vsel,s,volu,,vm
aslv,s
!
asel,r,loc,z,0
aadd,all
!
init_entity_num
!
vsel,s,volu,,vm
aslv,s
!
asel,r,loc,z,h3
aadd,all
!
init_entity_num
!
vsel,s,volu,,vm
!
create_cs,0,'CSra3_0',0,0,0,0,90,0,180
!
rec_surf_cut,0,CSra3_0,2*Dx03,Dy01
!
k,,-Dx03,Dy01/2,0
k,,-Dx03,0,Dy01/2
k,,-Dx03,-Dy01/2,0
!
create_area
!
k,,-Dx03,Dy01/2,Dz01
k,,-Dx03,Dy01/2,2*Dz01
k,,-Dx03,-Dy01/2,2*Dz01
k,,-Dx03,-Dy01/2,Dz01
!
create_area
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
voffst,am,2*Dx03
nummrg,kp
!
init_entity_num
!
lplot

finalize_model