3D PTV Tcl/Tk