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

world changes for bitmaps as images in universe

Browse Source
This commit is contained in:
Matthias Felleisen 2014-02-17 17:24:23 -05:00
parent f944251099
commit 2d3c25bc16
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/htdp-pkgs/htdp-lib/2htdp/private/world.rkt
View File

@ -7,7 +7,7 @@
"stop.rkt" "stop.rkt"
"universe-image.rkt" "universe-image.rkt"
"pad.rkt" "pad.rkt"
(only-in 2htdp/image scale overlay/align) (only-in 2htdp/image scale overlay/align rotate)
htdp/error htdp/error
mzlib/runtime-path mzlib/runtime-path
mrlib/bitmap-label mrlib/bitmap-label
@ -232,7 +232,11 @@
;; Image -> Void ;; Image -> Void
;; show the image in the visible world ;; show the image in the visible world
(define/public (show pict0) (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 begin-edit-sequence)
(send visible lock #f) (send visible lock #f)
(let ([s (send visible find-first-snip)] (let ([s (send visible find-first-snip)]