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

add a contract to colorize

Browse Source
This commit is contained in:
Robby Findler 2014-05-15 22:16:50 -05:00
parent ae298ae353
commit 19e7b89886
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/pict-pkgs/pict-lib/pict/main.rkt
View File

@ -7,8 +7,15 @@
(except-out (all-from-out "private/main.rkt") (except-out (all-from-out "private/main.rkt")
pict->bitmap pict->bitmap
pict->argb-pixels pict->argb-pixels
argb-pixels->pict) argb-pixels->pict
colorize)
(contract-out (contract-out
[colorize (-> pict?
(or/c string?
(is-a?/c color%)
(list/c byte? byte? byte?))
pict?)]
[pict->bitmap (->* (pict?) [pict->bitmap (->* (pict?)
((or/c 'unsmoothed 'smoothed 'aligned)) ((or/c 'unsmoothed 'smoothed 'aligned))
(is-a?/c bitmap%))] (is-a?/c bitmap%))]