From 1f7b452920dd6421e25fd02fa2cf9036acc9a2ce Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Wed, 23 Jul 2014 07:48:37 -0400 Subject: [PATCH] Fix `compiled-bitmap` and `compiled-bitmap-list` on 2x bitmaps, lossy compression This fixes the docs for `compiled-bitmap-list`. Icons in DrRacket were immune, because they're stored in modules as PNG bytes. Please merge to v6.1 --- pkgs/images-pkgs/images-lib/images/compile-time.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/images-pkgs/images-lib/images/compile-time.rkt b/pkgs/images-pkgs/images-lib/images/compile-time.rkt index bd8964ab05..9a56731cfe 100644 --- a/pkgs/images-pkgs/images-lib/images/compile-time.rkt +++ b/pkgs/images-pkgs/images-lib/images/compile-time.rkt @@ -34,7 +34,7 @@ (define alpha-p (open-output-bytes)) (send alpha-bm save-file alpha-p 'jpeg quality) - (send bm get-argb-pixels 0 0 w h bs #f) + (send bm get-argb-pixels 0 0 w h bs #f #:unscaled? #t) (define rgb-bm (make-bitmap w h #f)) (send rgb-bm set-argb-pixels 0 0 w h bs #f) (define rgb-p (open-output-bytes))