fixed PR 10998

original commit: a5d969607b764c61930ad12f01a443bca53b5031
2010-07-06 15:23:30 -05:00 · 2010-07-06 15:23:30 -05:00 · f820cb0205
commit f820cb0205
parent c6fc1b3b47
1 changed files with 1 additions and 1 deletions
--- a/collects/mrlib/private/image-core-bitmap.rkt
+++ b/collects/mrlib/private/image-core-bitmap.rkt
@ -162,7 +162,7 @@ instead of this scaling code, we use the dc<%>'s scaling code.
              new-h))))

 (define (rotate-bytes bmbytes w h theta)
-  (let* ([theta-rotation (exp (* i theta))]
+  (let* ([theta-rotation (exp (* i theta -1))]
         [x (real-part theta-rotation)]
         [y (imag-part theta-rotation)])
    (linear-transform