Fernando Rodriguez Villegas
This is the Tcl code that I used in the talk to illustrate the concepts.