add a contract to colorize

rfindler · rfindler · commit 19e7b89886f6 · 2014-05-15T22:30:22.000-05:00
diff --git 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)
- (contract-out 
+             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%))]
