&set detail = -detail
&device  -limerr 0
&device -pri device
&devi -fig_num yes 14
$
$****************************************       read model
$
inmodel
$
$****************************************       pictures
$
&title Original Mesh
&sele :p -sel *q@ **R@
&channel gra -file ref_quad.ans/quad_ref0.ps
&pict top -type s  -poin :p
$
$****************************************       summary
$
&summ
    point  coor
    plate
end
$
$****************************************       refine edg
$
medit
    refine 2.5 edge *qp1 *qp4
end
$
$****************************************       pictures
$
&title One Edge Refined
&channel gra -file ref_quad.ans/quad_ref1.ps
&pict top -type s  -poin :p
$
$****************************************       summary
$
&stat n_map -hard
&summ
    point  coor
    plate
end
$
$****************************************       refine box
$
medit
    refine 2.5 box -2.5 -10  10 -10 
end
$
$****************************************       pictures
$
&title Two Edges Refined
&channel gra -file ref_quad.ans/quad_ref2.ps
&pict top -type s  -poin :p -ano poin
$
$****************************************       summary
$
&stat n_map -hard
&summ
    point  coor
    plate
end
$
$****************************************       refine ele 
$
medit
    refine 2.5 ele  q
end
$
$****************************************       pictures
$
&title All Edges Refined
&channel gra -file ref_quad.ans/quad_ref4.ps
&pict top -type s  -poin :p
$
$****************************************       summary
$
&stat n_map -hard
&summ
    point  coor
    plate
end
$
$****************************************       all done
$
&fini