If you want to stay within Tcl/Tk you could take a look at my tkpath
package:
http://tclbitprint.sf.net/
and shots:
http://tclbitprint.sourceforge.net/tkpath/quartz/index.html
http://tclbitprint.sourceforge.net/tkpath/gdiplus/index.html
http://tclbitprint.sourceforge.net/tkpath/cairo/index.html

Mats