added first version of drawBlackbox.tcl and did some formatting in timescale.tcl