mod_assemb_prep
/units,bin
mat_select,'tungsten'
offset=-0.170
a=4.280
b=2.204
c=0.645-0.040
d_thru=0.290
d_scrw=0.500
d_post=0.610
dp_post=0.050
cdx1=0
cdy1=1.319+0.375
cdx2=-1.200
cdy2=0.375
cdx3=1.200
cdy3=0.375
csys,0
k,,-a/2-offset,b,0
k,,-a/2-offset,b,c
k,,-a/2-offset,0,c
k,,-a/2-offset,0,0
create_lines
chamfer_area,1,lm-2,lm-1,0.070
create_vol-lines,a
csys,0
create_cs,0,'CScntr1',0,cdx1,cdy1,0
csys,0
create_cs,0,'CScntr2',0,cdx2,cdy2,0
csys,0
create_cs,0,'CScntr3',0,cdx3,cdy3,0
csys,CScntr1
create_circle,d_thru/2
create_area-lines
csys,CScntr2
create_circle,d_thru/2
create_area-lines
csys,CScntr3
create_circle,d_thru/2
create_area-lines
cut_tool,c,-1
csys,CScntr1
create_circle,d_post/2
create_area-lines
csys,CScntr2
create_circle,d_post/2
create_area-lines
csys,CScntr3
create_circle,d_post/2
create_area-lines
cut_tool,dp_post,-1
csys,CScntr1
create_circle,d_scrw/2,c
create_area-lines
csys,CScntr2
create_circle,d_scrw/2,c
create_area-lines
csys,CScntr3
create_circle,d_scrw/2,c
create_area-lines
cut_tool,c-0.300
finalize_model
mark_cg
lplot