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

.

Browse Source 
original commit: 6eb0df05144dfb78c6994b38bf871a787bebebef
This commit is contained in:
Robby Findler 2005-01-25 22:55:43 +00:00
parent cfc3abbd67
commit e47b0f391c
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mrlib/graph.ss
View File

@ -263,13 +263,12 @@
[union (union-rects rects)]
[invalidate-rect
(lambda (rect)
(time
(invalidate-bitmap-cache (rect-left rect)
(rect-top rect)
(- (rect-right rect)
(rect-left rect))
(- (rect-bottom rect)
(rect-top rect)))))])
(invalidate-bitmap-cache (rect-left rect)
(rect-top rect)
(- (rect-right rect)
(rect-left rect))
(- (rect-bottom rect)
(rect-top rect))))])
(cond
[(< (rect-area union)
(apply + (map (lambda (x) (rect-area x)) rects)))