From a422256393e3d5b3f5a1726f212533ab71f0f3f4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 20 Sep 2012 09:30:01 -0600 Subject: [PATCH] slideshow/pict: make `colorize' accept list of bytes (as documented) --- collects/texpict/private/common-unit.rkt | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/collects/texpict/private/common-unit.rkt b/collects/texpict/private/common-unit.rkt index 62305a1908..46cb4abdcb 100644 --- a/collects/texpict/private/common-unit.rkt +++ b/collects/texpict/private/common-unit.rkt @@ -952,13 +952,17 @@ (define (colorize p color) (unless (or (string? color) - (is-a? color color%)) + (is-a? color color%) + (and (list? color) (= 3 (length color)) (andmap byte? color))) (error 'colorize "expected a color, given ~e" color)) - (if (black-and-white) - p - (extend-pict - p 0 0 0 0 0 - `(color ,color ,(pict-draw p))))) + (let ([color (if (list? color) + (apply make-color color) + color)]) + (if (black-and-white) + p + (extend-pict + p 0 0 0 0 0 + `(color ,color ,(pict-draw p)))))) (define (optimize s) (let o-loop ([s s][dx 0][dy 0])