A small set of small tcl-scripts for vmd