From 3298e8d4219e3c2b82546957131ffed0f9378430 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Sep 2013 06:33:10 -0400 Subject: [PATCH] slideshow: more efficient `bitmap` Use bitmap with alpha, instead of with mask. --- pkgs/pict-pkgs/pict-lib/texpict/utils.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt b/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt index 0347edc972..dd0e48d438 100644 --- a/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt +++ b/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt @@ -1009,7 +1009,7 @@ (let ([bm (cond [(bitmap-draft-mode) #f] [(filename . is-a? . bitmap%) filename] - [(path-string? filename) (make-object bitmap% filename 'unknown/mask)] + [(path-string? filename) (make-object bitmap% filename 'unknown/alpha)] [(and (gui-available?) (filename . is-a? . (gui-dynamic-require 'image-snip%))) (send filename get-bitmap)])]) @@ -1018,7 +1018,7 @@ [h (send bm get-height)]) (dc (lambda (dc x y) - (send dc draw-bitmap bm x y 'solid black-color (send bm get-loaded-mask))) + (send dc draw-bitmap bm x y 'solid black-color)) w h)) (frame (inset (colorize (text "bitmap failed") "red") 2)))))