Posted to tcl by dkf at Wed Nov 22 21:48:58 GMT 2017view raw

  1. grid [canvas .c -w 1024 -he 768 -bg #000 -highlightt 0]
  2. .c cr r 0 336 20 432 -f #FFF -t a
  3. .c cr r 1004 336 1024 432 -f #FFF -t b
  4. time {.c cr r 504 [incr y 20] 520 [incr y 20] -f #FFF} 20
  5. foreach {a b c d e} {q a 1 >0 -20 a a 3 <768 20 p b 1 >0 -20 l b 3 <768 20} {bind . $a "if \[lindex \[.c coo $b] $c]$d {.c move $b 0 $e}"};bind . <Escape> exit
  6. .c cr o 0 0 20 20 -f #FFF -t p
  7. proc mb {} {.c move p 20 20;after 100 mb};mb
  8. set 1 [set 2 0]
  9.