(FILECREATED "11-Jul-85 11:05:36" {DSK}<LISPFILES>TESTER>TEST-DISPLAY-UTILS.;1
 1341   

      changes to:  (VARS TEST-DISPLAY-UTILSCOMS))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TEST-DISPLAY-UTILSCOMS)

(RPAQQ TEST-DISPLAY-UTILSCOMS
 ((FNS TEST.COMPARE-BITMAPS)))
(DEFINEQ

(TEST.COMPARE-BITMAPS

  [LAMBDA (B1 B2)                                            (* sm " 3-Jul-85 14:47")

    (
AND
 (
BITMAPP
 B1)
	 (
BITMAPP
 B2)
	 (LET ((BASE1 (fetch
 BITMAPBASE of
 B1))
	    (BASE2 (fetch
 BITMAPBASE of
 B2))
	    (HEIGHT1 (fetch
 BITMAPHEIGHT of
 B1))
	    (HEIGHT2 (fetch
 BITMAPHEIGHT of
 B2))
	    (RW1 (fetch
 BITMAPRASTERWIDTH of
 B1))
	    (RW2 (fetch
 BITMAPRASTERWIDTH of
 B2)))
	   (
COND

	     ((
AND
 (
EQ
 RW1 RW2)
		   (
EQ
 HEIGHT1 HEIGHT2))
	       (for
 I from
 1 to
 HEIGHT1 as
 J from
 1 to
 HEIGHT2
		  always
 (
PROG1
 (for
 WORDCOLUMN from
 0 to
 (
SUB1
 RW1) always
 (
EQ
 (
\GETBASE
 BASE1 
										       WORDCOLUMN)
										(
\GETBASE
 BASE2 
										       WORDCOLUMN)))
				(
SETQ
 BASE1 (
\ADDBASE
 BASE1 RW1))
				(
SETQ
 BASE2 (
\ADDBASE
 BASE2 RW2])
)
(PUTPROPS TEST-DISPLAY-UTILS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (318 1252 (TEST.COMPARE-BITMAPS 328 . 1250)))))
STOP