Create origin.tcl