read / gmv / output_smooth3.gmv / cmo_pts
resetpts / parents
rmpoint / compress
cmo / create / cmotet / / / tet

loop/ do / OFFSET / 0 / 2400 / 200 / loop_end / infile lagrit.input_copypts

dump / gmv / points.gmv / cmotet

filter 1 0 0
rmpoint / compress

connect / noadd

dump / gmv / tets.gmv / cmotet

read / gmv / output_smooth3_extrude.gmv / cmo_source

cmo / printatt / cmotet / -xyz- / minmax
cmo / printatt / cmo_source / -xyz- / minmax

interpolate/ map / cmotet itetclr /1,0,0/ cmo_source itetclr

dump / gmv / interpolate.gmv / cmotet

finish