A Pointwise Glyph/tcl script to facilitate the creation of complex unstructured domains