first finished version of the drawBlackbox.tcl script