lagrit.input_shootpts
define / LENGTH_f / 0.005
define / LENGTH_r / 0.006
read / avs / golevka_edit2.inp / cmoa
offsetsurf/cmo1/cmoa/ -0.01
cmo / create / cmo_tet / / / tet
surface / s_shape / intrface / sheet / cmo1
cmo / select / cmo_tet
region / r_in / le s_shape
region / r_out / gt s_shape
mregion / m_in / lt s_shape
mregion / m_out / gt s_shape
cmo / select / cmo_tet
read / gmv / surface_refine2.gmv / cmo_pts
copypts / cmo_tet / cmo_pts
pset / psource / seq / 0 0 0
cmo / delete / cmo_pts
cmo / select / cmo_tet
regnpts/r_in/ LENGTH_r /pset get psource / rtp / &
0.0 0.0 0.0
cmo / setatt / cmo_tet / itp / pset get psource / 21
rmpoint / compress
dump / gmv / tmp_pts.gmv / cmo_tet
filter / 1 0 0 / LENGTH_f
rmpoint / compress
dump / gmv / pts.gmv / cmo_tet
finish
read / gmv / surface_massage.gmv / cmo1
cmo / create / cmo_tet / / / tet
surface / s_shape / intrface / sheet / cmo1
region / r_in / le s_shape
region / r_out / gt s_shape
mregion / m_in / lt s_shape
mregion / m_out / gt s_shape
copypts / cmo_tet / cmo1
offsetsurf/cmop/cmo1/ 0.005
offsetsurf/cmom/cmo1/ -0.005
copypts / cmo_tet / cmop
copypts / cmo_tet / cmom
cmo / delete / cmom
cmo / delete / cmop
offsetsurf/cmop/cmo1/ 0.01
copypts / cmo_tet / cmop
cmo / delete / cmop
offsetsurf/cmom/cmo1/ -0.01
copypts / cmo_tet / cmom
cmo / delete / cmom
offsetsurf/cmom/cmo1/ -0.015
copypts / cmo_tet / cmom
cmo / delete / cmom
cmo / delete / cmo1
cmo / create / cmo_temp / / / tet
cmo / select / cmo_temp
read / gmv / pts_shoot.gmv / cmo_temp
copypts / cmo_tet / cmo_temp
cmo / delete / cmo_temp
cmo / select / cmo_tet
cmo / setatt / cmo_tet / imt / 1 0 0 / 1
filter 1 0 0
rmpoint / compress
cmo/setatt//ipolydat/no
dump / gmv / tmp_pts01.gmv / cmo_tet
setpts
cmo/setatt//ipolydat/no
dump / gmv / tmp_pts01.gmv / cmo_tet
connect / noadd
cmo/setatt//ipolydat/no
dump / gmv / tmp_tet01.gmv / cmo_tet
settets
cmo/setatt//ipolydat/no
dump / gmv / tmp_tet02.gmv / cmo_tet
rmmat / 2
rmpoint / compress
resetpts / parents
rmpoint / compress
resetpts / itp
dump / gmv / tmp_tet02a.gmv / cmo_tet
define / FNAME / subset01.gmv
define / CMOIN / cmo_tet
define / FTYPE / gmv
define / XMIN / -1.0
define / YMIN / 0.0
define / ZMIN / 0.0
define / XMAX / 1.0
define / YMAX / 0.025
define / ZMAX / 1.0
define / XC / 0.0
define / YC / 0.0
define / ZC / 0.0
cmo/addatt/cmo_tet/volume/elem_vol
quality
define / FNAME / subset01.gmv
infile lagrit.input_subset
finish
read / gmv / tmp_tet02a.gmv / cmo_tet
define / FNAME / subset01.gmv
define / CMOIN / cmo_tet
define / FTYPE / gmv
define / XMIN / -1.0
define / YMIN / -0.05
define / ZMIN / 0.0
define / XMAX / 1.0
define / YMAX / 0.05
define / ZMAX / 1.0
define / XC / 0.0
define / YC / 0.0
define / ZC / 0.0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset00.gmv
infile lagrit.input_subset
*----------------------------------------
* Smooth
*----------------------------------------
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset01.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset02.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset03.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset04.gmv
infile lagrit.input_subset
dump / gmv / smooth01.gmv / cmo_tet
*----------------------------------------
* Smooth and reconnect
*----------------------------------------
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset05.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset06.gmv
infile lagrit.input_subset
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset06.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset07.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon01.gmv / cmo_tet
*----------------------------------------
* Smooth exterior
*----------------------------------------
smooth/position/network/1,0,0/3/1./check
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset08.gmv
infile lagrit.input_subset
smooth/position/network/1,0,0/3/1./check
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset09.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset10.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon02.gmv / cmo_tet
*----------------------------------------
* Smooth and reconnect
*----------------------------------------
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset11.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset12.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon03.gmv / cmo_tet
*----------------------------------------
* Smooth and reconnect
*----------------------------------------
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset13.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset14.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon04.gmv / cmo_tet
*----------------------------------------
* Smooth and reconnect
*----------------------------------------
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset15.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset16.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon05.gmv / cmo_tet
*----------------------------------------
* Smooth and reconnect
*----------------------------------------
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset16.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset17.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon06.gmv / cmo_tet
*----------------------------------------
* Smooth and reconnect
*----------------------------------------
assign / / / ivoronoi / -2
recon / 0
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset18.gmv
infile lagrit.input_subset
pset / pin / attribute / itp / 1 0 0 / eq / 0
smooth/position/geometry/pset,get,pin
cmo / addatt / cmo_tet / volume / elem_vol
quality
define / FNAME / subset19.gmv
infile lagrit.input_subset
dump / gmv / smooth_recon07.gmv / cmo_tet
*----------------------------------------
finish