made equality check on images sensitive to pinholes

original commit: d2e443ac97bfea7806f5709ba40c3b0b4ba77f10
2010-09-06 07:17:09 -05:00 · 2010-09-06 07:17:09 -05:00 · 189edf7686
commit 189edf7686
parent 973ed02887
1 changed files with 1 additions and 0 deletions
--- a/collects/mrlib/image-core.rkt
+++ b/collects/mrlib/image-core.rkt
@ -236,6 +236,7 @@ has been moved out).
                   [else that])])
            (and (is-a? that image%)
                 (same-bb? bb (send that get-bb))
+                 (equal? pinhole (send that get-pinhole))
                 (or (and (not (skip-image-equality-fast-path))  ;; this is here to make testing more effective
                          (equal? (get-normalized-shape) (send that get-normalized-shape)))
                     (let ([w (+ 1 (round (inexact->exact (bb-right bb))))]    ;; some shapes (ie, rectangles) draw 1 outside the bounding box