Create simple_draw.tcl