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

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

@ -864,8 +864,6 @@ has been moved out).
(send dc set-smoothing (mode-color->smoothing mode color)) (send dc set-smoothing (mode-color->smoothing mode color))
(send dc draw-path path dx dy)))] (send dc draw-path path dx dy)))]
[(flip? np-atomic-shape) [(flip? np-atomic-shape)
(cond
[#t ; (flip-flipped? np-atomic-shape)
(let ([bm (get-rendered-bitmap np-atomic-shape)]) (let ([bm (get-rendered-bitmap np-atomic-shape)])
(send dc set-smoothing 'smoothed) (send dc set-smoothing 'smoothed)
(send dc draw-bitmap (send dc draw-bitmap
@ -875,31 +873,6 @@ has been moved out).
'solid 'solid
(send the-color-database find-color "black") (send the-color-database find-color "black")
(get-rendered-mask np-atomic-shape)))] (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)])]
[(text? np-atomic-shape) [(text? np-atomic-shape)
(let ([θ (degrees->radians (text-angle np-atomic-shape))] (let ([θ (degrees->radians (text-angle np-atomic-shape))]
[font (send dc get-font)]) [font (send dc get-font)])