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

fix draw-bitmap result to match docs

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-01 14:20:54 -07:00
parent ed8aa132de
commit dedb207a86
3 changed files with 5 additions and 1128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/racket/draw/private/bitmap-dc.rkt
View File

@ -147,7 +147,8 @@
[sy (if (zero? src-h) 1.0 (/ dest-h src-h))]) [sy (if (zero? src-h) 1.0 (/ dest-h src-h))])
(let ([t (get-transformation)]) (let ([t (get-transformation)])
(scale sx sy) (scale sx sy)
(draw-bitmap-section src (/ dest-x sx) (/ dest-y sy) src-x src-y src-w src-h style color mask) (begin0
(set-transformation t)))))) (draw-bitmap-section src (/ dest-x sx) (/ dest-y sy) src-x src-y src-w src-h style color mask)
(set-transformation t)))))))
(install-bitmap-dc-class! bitmap-dc%) (install-bitmap-dc-class! bitmap-dc%)

3
collects/racket/draw/private/dc.rkt
View File

@ -1594,7 +1594,8 @@
(stamp-pattern src a-src-x a-src-y)]) (stamp-pattern src a-src-x a-src-y)])
(when clip-mask (when clip-mask
(cairo_restore cr)) (cairo_restore cr))
(flush-cr)))) (flush-cr)))
#t)
(define/private (bitmap-to-b&w-bitmap src src-x src-y src-w src-h style color mask) (define/private (bitmap-to-b&w-bitmap src src-x src-y src-w src-h style color mask)
(let* ([bm-w (inexact->exact (ceiling src-w))] (let* ([bm-w (inexact->exact (ceiling src-w))]

1125
collects/scribblings/gui/dc-intf.scrbl
View File

File diff suppressed because it is too large Load Diff