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

simple fix to deal with performance problem noticed by jpr (this is not a complete fix, but should work in the common case of lots of repeated place-image calls)

Browse Source 
svn: r17783

original commit: 3c1d7e9acad060f9dab7b62f1a9c46d39355a31d
This commit is contained in:
Robby Findler 2010-01-23 20:36:54 +00:00
parent 241f636d72
commit 87f4078b25
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mrlib/image-core.ss
View File

@ -387,7 +387,16 @@ has been moved out).
(let loop ([crops crops]) (let loop ([crops crops])
(cond (cond
[(null? crops) shape] [(null? crops) shape]
[else (make-crop (car crops) (loop (cdr crops)))]))) [(null? (cdr crops))
(make-crop (car crops) shape)]
[else
(let ([fst (car crops)]
[snd (cadr crops)])
(cond
[(equal? fst snd)
(loop (cdr crops))]
[else
(make-crop (car crops) (loop (cdr crops)))]))])))
(cond (cond
[(translate? shape) [(translate? shape)
(loop (translate-shape shape) (loop (translate-shape shape)