cmo / setatt / cmo_hex / int_w / 1 0 0 / 0
intersect_elements / cmo_hex / cmo_well / int_w

eltset e_inter delete 
eltset e_gt2 delete 
eltset e_lt3 delete 
eltset e_gt2_lt3 delete 
eltset e_refine1 delete 
eltset e_gt8 delete 
eltset e_lt9 delete 
eltset e_gt8_lt9 delete 
eltset e_refine2 delete 
eltset e_refine delete 

createpts / median
eltset / e_inter / int_w / gt / 0
eltset / e_gt2 / zmed / gt / .2
eltset / e_lt3 / zmed / lt / .3
eltset / e_gt2_lt3 / inter / e_gt2 e_lt3
eltset / e_refine1 / inter / e_inter e_gt2_lt3

eltset / e_gt8 / zmed / gt / .8
eltset / e_lt9 / zmed / lt / .9
eltset / e_gt8_lt9 / inter / e_gt8 e_lt9
eltset / e_refine2 / inter / e_inter e_gt8_lt9

eltset / e_refine / union / e_refine1 e_refine2

refine / eltset / eltset get e_refine

finish