!   TITLE:  cast_bore.mac (AAAV)
!
!
csys,CSgim0
!
norm_cut_pln_ct,'x',0
vdele,all
asel,u,loc,x,0
adele,all,,,1
init_entity_num
numcmp,all
init_entity_num
!
create_cs,0,'pplancs',0,0,0,0,0,90,90
!
parl_lines,pplancs,'r',0.150,lm-34,0.5
parl_lines,pplancs,'t',0.150,lm-34
parl_lines,pplancs,'t',0.100,lm-34,6
parl_lines,pplancs,'r',0.100,lm-18,15
!
isolate_lines
profile_lines,km-10,km
!
isolate_lines
PROFILE_COORDS,CSgim0,km-13,,1
!
lplot