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

Revert "at attempt to use the dc's scale and rotation to instead of doing the rotation in racket"

Browse Source 
This reverts commit 7eefe74e93.
This commit is contained in:
Robby Findler 2011-02-12 12:00:57 -06:00
parent 2308ad7b8a
commit 5e70dc863e
1 changed files with 10 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
collects/mrlib/image-core.rkt
View File

@ -864,42 +864,15 @@ has been moved out).
(send dc set-smoothing (mode-color->smoothing mode color))
(send dc draw-path path dx dy)))]
[(flip? np-atomic-shape)
(cond
[#t ; (flip-flipped? np-atomic-shape)
(let ([bm (get-rendered-bitmap np-atomic-shape)])
(send dc set-smoothing 'smoothed)
(send dc draw-bitmap
bm
(- dx (/ (send bm get-width) 2))
(- dy (/ (send bm get-height) 2))
'solid
(send the-color-database find-color "black")
(get-rendered-mask np-atomic-shape)))]
[else
;; this only works when the scale is 1 and there is no flipping
(define bitmap (flip-shape np-atomic-shape))
(define-values (orig-bitmap-obj orig-mask-obj) (values (ibitmap-raw-bitmap bitmap)
(ibitmap-raw-mask bitmap)))
(define θ (degrees->radians (ibitmap-angle bitmap)))
(define w (send orig-bitmap-obj get-width))
(define h (send orig-bitmap-obj get-height))
(define c2
(* (- (make-rectangular dx dy)
(* (make-polar 1 (- θ))
(make-rectangular (/ w 2) (/ h 2))))
(make-polar 1 θ)))
(define orig-rotation (send dc get-rotation))
(send dc set-rotation θ)
(send dc draw-bitmap
orig-bitmap-obj
(real-part c2)
(imag-part c2)
'solid
(send the-color-database find-color "black")
orig-mask-obj)
(send dc set-rotation orig-rotation)])]
(let ([bm (get-rendered-bitmap np-atomic-shape)])
(send dc set-smoothing 'smoothed)
(send dc draw-bitmap
bm
(- dx (/ (send bm get-width) 2))
(- dy (/ (send bm get-height) 2))
'solid
(send the-color-database find-color "black")
(get-rendered-mask np-atomic-shape)))]
[(text? np-atomic-shape)
(let ([θ (degrees->radians (text-angle np-atomic-shape))]
[font (send dc get-font)])