Anonymous user
Munching squares: Difference between revisions
→{{header|Racket}}
mNo edit summary |
|||
Line 669:
=={{header|Racket}}==
[[File:munching-racket.png|thumb|right]]
<lang racket>
#lang racket
(require racket/draw)
(define palette (for/vector ([x 256]) (make-object color% 0 0 x)))
(define bm (make-object bitmap% 256 256))
(define dc (new bitmap-dc% [bitmap bm]))
(for* ([x 256] [y 256])
(define c (vector-ref palette (bitwise-xor x y)))
(send dc set-pixel x y c))
bm
</lang>
=={{header|Ruby}}==
| |||