Through pts spline code in Tcl