updated tcl file to make cool movies