From 19e7b89886f68aac275e28fc88a44b54f6a84a26 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 15 May 2014 22:16:50 -0500
Subject: [PATCH] add a contract to colorize

---
 pkgs/pict-pkgs/pict-lib/pict/main.rkt | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/pkgs/pict-pkgs/pict-lib/pict/main.rkt b/pkgs/pict-pkgs/pict-lib/pict/main.rkt
index 2c42d4b51e..2209a0755b 100644
--- 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%))]