devtools/train.lisp

   1 (send '(game level box new 0 0 100 100 "ff0000"))
   2 (send '(game level box new 100 0 100 100 "ff0000"))
   3 (send '(game level box new 200 0 100 100 "ff0000"))
   4 (send '(game level box new 300 0 100 100 "ff0000"))
   5 (send '(game level box new 400 0 100 100 "ff0000"))