Update Geodesics.tcl