suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix 2htdp/image bitmap rotation direction

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-04 16:42:20 -06:00
parent a951bdcf47
commit 081fc3bad5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/private/image-more.rkt
View File

@ -616,8 +616,8 @@
(make-bitmap (bitmap-raw-bitmap bitmap) (make-bitmap (bitmap-raw-bitmap bitmap)
(bitmap-raw-mask bitmap) (bitmap-raw-mask bitmap)
(bring-between (if flipped? (bring-between (if flipped?
(- (bitmap-angle bitmap) θ) (+ (bitmap-angle bitmap) θ)
(+ (bitmap-angle bitmap) θ)) (- (bitmap-angle bitmap) θ))
360) 360)
(bitmap-x-scale bitmap) (bitmap-x-scale bitmap)
(bitmap-y-scale bitmap) (bitmap-y-scale bitmap)

2
collects/2htdp/tests/test-image.rkt
View File

@ -1262,7 +1262,7 @@
=> =>
(image-snip->image (make-object image-snip% blue-20x10-bitmap))) (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))) (image-snip->image (make-object image-snip% green-blue-10x20-bitmap)))