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

adjusted 2htdp/universe (and world) so that it uses the cache disabling support from 2htdp/image

Browse Source 
(the caching is not helping when drawing animations; it just allocates extra bitmaps)
This commit is contained in:
Robby Findler 2011-01-06 14:21:49 -06:00
parent 670d58d134
commit 1d2b837603
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/2htdp/private/universe-image.rkt
View File

@ -1,10 +1,17 @@
#lang scheme/base #lang scheme/base
(require (prefix-in 2: 2htdp/image) (require (prefix-in 2: 2htdp/image)
(prefix-in 2-core: mrlib/image-core)
(prefix-in 1: htdp/image) (prefix-in 1: htdp/image)
htdp/error) htdp/error)
(provide image? scene? image-width image-height text 2:image? (provide image? scene? image-width image-height text 2:image?
check-image check-scene check-scene-result) check-image check-scene check-scene-result
disable-cache)
(define (disable-cache x)
(if (2:image? x)
(2-core:un/cache-image x #f)
x))
(define (scene? x) (define (scene? x)
;; be sure to check 2:image? first so that ;; be sure to check 2:image? first so that

2
collects/2htdp/private/world.rkt
View File

@ -211,7 +211,7 @@
(let ([s (send visible find-first-snip)] (let ([s (send visible find-first-snip)]
[c (send visible get-canvas)]) [c (send visible get-canvas)])
(when s (send visible delete s)) (when s (send visible delete s))
(send visible insert (send pict copy) 0 0) (send visible insert (disable-cache (send pict copy)) 0 0)
(send visible lock #t) (send visible lock #t)
(send visible end-edit-sequence) (send visible end-edit-sequence)
;; The following flush trades streaming performance (where updates ;; The following flush trades streaming performance (where updates