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

racket/draw: faster (on some platforms) path for drawing a bitmap

Browse Source 
The faster path applies in the common case of drawing a whole
bitmap, as opposed to a section of the bitmap.

Thanks to Laurent Orseau for tracking down this performance issue.
This commit is contained in:
Matthew Flatt 2014-05-11 10:41:41 -06:00
parent 3f5bddfcbd
commit 54e42664df
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/draw-pkgs/draw-lib/racket/draw/private/dc.rkt
View File

@ -1816,14 +1816,21 @@
(- (- a-dest-y a-src-y)))
(cairo_pattern_set_matrix (cairo_get_source cr) m)))
(adjust-pattern-filter sc (cairo_get_source cr)))
(if mask
(stamp-pattern mask a-msrc-x a-msrc-y)
(begin
(cond
[mask
(stamp-pattern mask a-msrc-x a-msrc-y)]
[(or (and (= 0 src-x)
(= 0 src-y)
(= src-w (send src get-width))
(= src-h (send src get-height)))
(< use-alpha 1.0))
;; cairo_paint may be faster than cairo_fill
;; when drawing the whole source:
(cairo_paint_with_alpha cr use-alpha)]
[else
(cairo_new_path cr)
(cairo_rectangle cr a-dest-x a-dest-y a-dest-w a-dest-h)
(if (= use-alpha 1.0)
(cairo_fill cr)
(cairo_paint_with_alpha cr use-alpha))))
(cairo_fill cr)])
(cairo_set_source cr s)
(cairo_pattern_destroy s))]
[else