From 081fc3bad5d660ca205f6b8e0b75c99c2371feb3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 4 Sep 2010 16:42:20 -0600 Subject: [PATCH] fix 2htdp/image bitmap rotation direction --- collects/2htdp/private/image-more.rkt | 4 ++-- collects/2htdp/tests/test-image.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt index ce7f3fd3d8..171ed666b6 100644 --- a/collects/2htdp/private/image-more.rkt +++ b/collects/2htdp/private/image-more.rkt @@ -616,8 +616,8 @@ (make-bitmap (bitmap-raw-bitmap bitmap) (bitmap-raw-mask bitmap) (bring-between (if flipped? - (- (bitmap-angle bitmap) θ) - (+ (bitmap-angle bitmap) θ)) + (+ (bitmap-angle bitmap) θ) + (- (bitmap-angle bitmap) θ)) 360) (bitmap-x-scale bitmap) (bitmap-y-scale bitmap) diff --git a/collects/2htdp/tests/test-image.rkt b/collects/2htdp/tests/test-image.rkt index 2c10bbb77f..07d72d8756 100644 --- a/collects/2htdp/tests/test-image.rkt +++ b/collects/2htdp/tests/test-image.rkt @@ -1262,7 +1262,7 @@ => (image-snip->image (make-object image-snip% blue-20x10-bitmap))) -(test (rotate -90 (make-object image-snip% green-blue-20x10-bitmap)) +(test (rotate 90 (make-object image-snip% green-blue-20x10-bitmap)) => (image-snip->image (make-object image-snip% green-blue-10x20-bitmap)))