From 2d3c25bc16e85af5034a7bd787e770a10e75e6a6 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 17 Feb 2014 17:24:23 -0500 Subject: [PATCH] world changes for bitmaps as images in universe --- pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt index 103ca457f1..aa11829145 100644 --- a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt @@ -7,7 +7,7 @@ "stop.rkt" "universe-image.rkt" "pad.rkt" - (only-in 2htdp/image scale overlay/align) + (only-in 2htdp/image scale overlay/align rotate) htdp/error mzlib/runtime-path mrlib/bitmap-label @@ -232,7 +232,11 @@ ;; Image -> Void ;; show the image in the visible world (define/public (show pict0) - (define pict (add-game-pad pict0)) + (define pict* + (if (is-a? pict0 bitmap%) + (rotate 0 pict0) + pict0)) + (define pict (add-game-pad pict*)) (send visible begin-edit-sequence) (send visible lock #f) (let ([s (send visible find-first-snip)]