the draw_axis.tcl script is a little bit more generalize now