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

fix a bug in the way bitmap scaling was being handled

Browse Source 
original commit: c126a8aaaca5a81f57e2306a5e1d155362777491
This commit is contained in:
Robby Findler 2013-07-30 12:17:18 -05:00
parent 0295828ffd
commit 6469b0b2b3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-lib/mrlib/image-core.rkt
View File

@ -943,7 +943,9 @@ has been moved out).
(define bw (send bitmap-obj get-width))
(define bh (send bitmap-obj get-height))
(send dc translate (- (/ bw 2)) (- (/ bh 2)))
(send dc translate
(* (ibitmap-x-scale bitmap) (- (/ bw 2)))
(* (ibitmap-y-scale bitmap) (- (/ bh 2))))
(send dc set-scale (ibitmap-x-scale bitmap) (ibitmap-y-scale bitmap))
(send dc draw-bitmap bitmap-obj 0 0)