From f3352794d8e57e479a34b5c6a6d6a78bd2289596 Mon Sep 17 00:00:00 2001 From: Stephen Bloch Date: Thu, 30 Dec 2010 10:29:12 -0500 Subject: [PATCH] Minor tweaks to documentation and rotating-triangle test. --- collects/picturing-programs/picturing-programs.scrbl | 2 +- collects/picturing-programs/tests/rotating-triangle.rkt | 9 ++++++++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/collects/picturing-programs/picturing-programs.scrbl b/collects/picturing-programs/picturing-programs.scrbl index 5ff204293d..4f26cafc4a 100644 --- a/collects/picturing-programs/picturing-programs.scrbl +++ b/collects/picturing-programs/picturing-programs.scrbl @@ -211,7 +211,7 @@ produces a copy of @racket[my-picture] with all the red leached out, leaving only the blue and green components. Since @racket[make-color] with three arguments defaults alpha to 255, -this function discards any alpha information (including edge-dithering) +this definition of @racket[lose-red] discards any alpha information (including edge-dithering) that was in the original image. To preserve this information, one could write @racketblock[ (define (lose-red-but-not-alpha x y old-color) diff --git a/collects/picturing-programs/tests/rotating-triangle.rkt b/collects/picturing-programs/tests/rotating-triangle.rkt index 344c6f1fd3..de11bf2a42 100644 --- a/collects/picturing-programs/tests/rotating-triangle.rkt +++ b/collects/picturing-programs/tests/rotating-triangle.rkt @@ -18,7 +18,14 @@ (define (rotate-1 pic) (rotate 1 pic)) -(big-bang badtricirc +"Triangle rotating around its center:" +(big-bang tricirc (on-tick rotate-1 .05) (check-with image?) (on-draw show-it)) + +"Triangle rotating around the center of its bounding box:" +(big-bang badtricirc + (on-tick rotate-1 .05) + (check-with image?) + (on-draw show-it))