define / rivara1 / 5.
define / rivara2 / 3.

define / cmo_name / cmol
define / cmo_material / 1

cmo / create / cmo_name / / / tri
read / avs / L.inp / cmo_name
triangulate
input / lg.input_refine_smooth

define / cmo_name / cmoa
define / cmo_material / 2

cmo / create / cmo_name / / / tri
read / avs / A.inp / cmo_name
triangulate / counterclockwise
input / lg.input_refine_smooth

define / cmo_name / cmog
define / cmo_material / 3

cmo / create / cmo_name / / / tri
read / avs / G.inp / cmo_name
triangulate
input / lg.input_refine_smooth

define / cmo_name / cmor
define / cmo_material / 4

cmo / create / cmo_name / / / tri
read / avs / R.inp / cmo_name
triangulate
input / lg.input_refine_smooth

define / cmo_name / cmoi
define / cmo_material / 5

cmo / create / cmo_name / / / tri
read / avs / I.inp / cmo_name
triangulate
input / lg.input_refine_smooth

define / cmo_name / cmoidot
define / cmo_material / 5

cmo / create / cmo_name / / / tri
read / avs / Idot.inp / cmo_name
triangulate / counterclockwise
input / lg.input_refine_smooth

define / cmo_name / cmot
define / cmo_material / 6

cmo / create / cmo_name / / / tri
read / avs / T.inp / cmo_name
triangulate
input / lg.input_refine_smooth

addmesh / merge / cmolagrit / cmol / cmoa
addmesh / merge / cmolagrit / cmolagrit / cmog
addmesh / merge / cmolagrit / cmolagrit / cmor
addmesh / merge / cmolagrit / cmolagrit / cmoi
addmesh / merge / cmolagrit / cmolagrit / cmoidot
addmesh / merge / cmolagrit / cmolagrit / cmot

dump / gmv / lagrit_01.gmv / cmolagrit
cmo / copy / cmo_2d / cmolagrit
cmo / select / cmo_2d
recon 1
dump / gmv / lagrit2d_a.gmv / cmo_2d

cmo / delete / cmo_2d
*
* Refine each letter to a different length
*
read / gmv / lagrit2d_a.gmv / cmo_2d

eltset / eset_m2 / itetclr / eq / 2
pset / pset_m2 / eltset / eset_m2
massage/2./0.1/0.01/ pset get pset_m2

eltset / eset_m3 / itetclr / eq / 3
pset / pset_m3 / eltset / eset_m3
massage/1.5/0.1/0.01/ pset get pset_m3

eltset / eset_m4 / itetclr / eq / 4
pset / pset_m4 / eltset / eset_m4
massage/1.0/0.1/0.01/ pset get pset_m4

eltset / eset_m5 / itetclr / eq / 5
pset / pset_m5 / eltset / eset_m5
massage/0.7/0.1/0.01/ pset get pset_m5

eltset / eset_m6 / itetclr / eq / 6
pset / pset_m6 / eltset / eset_m6
massage/0.4/0.1/0.01/ pset get pset_m6

smooth/position/esug/1 0 0
recon 0
smooth/position/esug/1 0 0

recon 1

dump / gmv / lagrit2d_b.gmv / cmo_2d


cmo / delete / cmo_2d
cmo / select / cmolagrit

extrude/cmo_prism/cmolagrit/min/10/volume/.2,.2,1.

dump / gmv / lagrit_02.gmv / cmo_prism

hextotet /  3 / cmo_tet3 / cmo_prism
hextotet / 18 / cmo_tet18 / cmo_prism
quality
dump / gmv / lagrit_03.gmv / cmo_tet3
dump / gmv / lagrit_04.gmv / cmo_tet18

cmo select cmo_tet3
resetpts / itp

massage/10./0.1/0.01/ 
massage/9./0.1/0.01/ 
massage/8./0.1/0.01/ 
dump / gmv / lagrit_05.gmv / cmo_tet3

refine/rivara///edge/1 0 0/10.0///inclusive 
dump / gmv / lagrit_06.gmv / cmo_tet3

refine/rivara///edge/1 0 0/7.0///inclusive 
dump / gmv / lagrit_07.gmv / cmo_tet3

finish