Asteroids in tcl/tk