add a contract to colorize

2014-05-15 22:16:50 -05:00 · 2014-05-15 22:16:50 -05:00 · 19e7b89886
commit 19e7b89886
parent ae298ae353
1 changed files with 9 additions and 2 deletions
--- a/pkgs/pict-pkgs/pict-lib/pict/main.rkt
+++ b/pkgs/pict-pkgs/pict-lib/pict/main.rkt
@ -7,8 +7,15 @@
 (except-out (all-from-out "private/main.rkt")
             pict->bitmap
             pict->argb-pixels
-             argb-pixels->pict)
+             argb-pixels->pict
+             colorize)
 (contract-out
+  [colorize (-> pict? 
+                (or/c string? 
+                      (is-a?/c color%)
+                      (list/c byte? byte? byte?))
+                pict?)]
+                
  [pict->bitmap (->* (pict?)
                     ((or/c 'unsmoothed 'smoothed 'aligned))
                     (is-a?/c bitmap%))]