suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add get-pixel method to bitmap-dc%

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-02 20:02:28 -06:00
parent 233b131d9b
commit cee45914f4
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/racket/draw/bitmap-dc.rkt
View File

@ -44,6 +44,12 @@
(let ([s (bytes 255 (color-red c) (color-green c) (color-blue c))])
(set-argb-pixels x y 1 1 s)))
(def/public (get-pixel [real? x][real? y][color% c])
(let ([b (make-bytes 4)])
(get-argb-pixels x y 1 1)
(send c set (bytes-ref b 1) (bytes-ref b 2) (bytes-ref b 3))
#t))
(def/public (set-argb-pixels [exact-nonnegative-integer? x]
[exact-nonnegative-integer? y]
[exact-nonnegative-integer? w]