Anonymous user
Colour bars/Display: Difference between revisions
m
→{{header|Tcl}}: typofix
(Added PicoLisp) |
m (→{{header|Tcl}}: typofix) |
||
Line 24:
set colors {black red green blue magenta cyan yellow white}
for {set x 0} {$x < [winfo screenwidth .c]} {incr x 8} {
.c create rectangle $x 0 [expr {$x+7}] [winfo screenheight .c] \
-fill [lindex $colors 0] -outline {}
set colors [list {*}[lrange $colors 1 end] [lindex $colors 0]]
| |||