(FILECREATED " 5-Mar-86 12:37:47" {QV}<ARI>NOTECARDS>ACE.;1
 3211   

      previous date: " 6-Jun-85 14:15:01" {ERIS}<LISPUSERS>ACE.;2)


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

(PRETTYCOMPRINT ACECOMS)

(RPAQQ ACECOMS
 ((* Animation Compiler and Environment)
	(* THIS IS THE START UP FILE FOR THE ACE SYSTEM)
	(RECORDS ACE.FRAME ACE.BLIT)
	(MACROS ACE.MT.SCRX.SEQX ACE.MT.SCRY.SEQY ACE.MT.SCRX.AWX ACE.MT.SCRY.AWY 
		ACE.MT.SEQ.SCR.REGION ACE.MT.SEQ.AW.REGION ACE.MT.AW.SCR.POINT ACE.MT.AWX.SCRX 
		ACE.MT.AWY.SCRY ACE.MT.AWX.SEQX ACE.MT.AWY.SEQY ACE.MT.SEQX.SCRX ACE.MT.SEQY.SCRY 
		ACE.MT.SEQX.AWX ACE.MT.SEQY.AWY)
	(* ANIMATION FILES)
	(* This is commented out because the dependencies are now represented using the file group 
	   facility.)
	(* FILES ACE-MAIN ACE-PRIM ACE-EDIT)))



(* Animation Compiler and Environment)





(* THIS IS THE START UP FILE FOR THE ACE SYSTEM)


[DECLARE: EVAL@COMPILE 

(RECORD ACE.FRAME
 (DELAY BLITS))

(RECORD ACE.BLIT
 (BITMAP XCOOR . YCOOR))
]
(DECLARE: EVAL@COMPILE 
(PUTPROPS ACE.MT.SCRX.SEQX MACRO ((SCREENXCOOR)
	   (IDIFFERENCE (IDIFFERENCE SCREENXCOOR (DSPXOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW
									     (QUOTE DSP))))
			ACE.SEQ.WINDOW.XOFF)))
(PUTPROPS ACE.MT.SCRY.SEQY MACRO ((SCREENYCOOR)
	   (IDIFFERENCE (IDIFFERENCE SCREENYCOOR (DSPYOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW
									     (QUOTE DSP))))
			ACE.SEQ.WINDOW.YOFF)))
(PUTPROPS ACE.MT.SCRX.AWX MACRO ((SCREENXCOOR)
	   (IDIFFERENCE SCREENXCOOR (DSPXOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW (QUOTE DSP))))))
(PUTPROPS ACE.MT.SCRY.AWY MACRO ((SCREENYCOOR)
	   (IDIFFERENCE SCREENYCOOR (DSPYOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW (QUOTE DSP))))))
(PUTPROPS ACE.MT.SEQ.SCR.REGION MACRO (NIL (CREATEREGION (ACE.MT.SEQX.SCRX 0)
							 (ACE.MT.SEQY.SCRY 0)
							 ACE.SEQ.WIDTH ACE.SEQ.HEIGHT)))
(PUTPROPS ACE.MT.SEQ.AW.REGION MACRO (NIL (CREATEREGION ACE.SEQ.WINDOW.XOFF ACE.SEQ.WINDOW.YOFF 
							ACE.SEQ.WIDTH ACE.SEQ.HEIGHT)))
(PUTPROPS ACE.MT.AW.SCR.POINT MACRO ((POINT)
	   (CONS (ACE.MT.AWX.SCRX (CAR POINT))
		 (ACE.MT.AWY.SCRY (CDR POINT)))))
(PUTPROPS ACE.MT.AWX.SCRX MACRO ((WINDOWXCOOR)
	   (IPLUS WINDOWXCOOR (DSPXOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW (QUOTE DSP))))))
(PUTPROPS ACE.MT.AWY.SCRY MACRO ((WINDOWYCOOR)
	   (IPLUS WINDOWYCOOR (DSPYOFFSET NIL (WINDOWPROP ACE.SEQ.WINDOW (QUOTE DSP))))))
(PUTPROPS ACE.MT.AWX.SEQX MACRO ((WINDOWX)
	   (IDIFFERENCE WINDOWX ACE.SEQ.WINDOW.XOFF)))
(PUTPROPS ACE.MT.AWY.SEQY MACRO ((WINDOWY)
	   (IDIFFERENCE WINDOWY ACE.SEQ.WINDOW.YOFF)))
(PUTPROPS ACE.MT.SEQX.SCRX MACRO ((SEQXCOOR)
	   (IPLUS ACE.SEQ.WINDOW.XOFF (ACE.MT.AWX.SCRX SEQXCOOR))))
(PUTPROPS ACE.MT.SEQY.SCRY MACRO ((SEQYCOOR)
	   (IPLUS ACE.SEQ.WINDOW.YOFF (ACE.MT.AWY.SCRY SEQYCOOR))))
(PUTPROPS ACE.MT.SEQX.AWX MACRO ((SEQXCOOR)
	   (IPLUS SEQXCOOR ACE.SEQ.WINDOW.XOFF)))
(PUTPROPS ACE.MT.SEQY.AWY MACRO ((SEQYCOOR)
	   (IPLUS SEQYCOOR ACE.SEQ.WINDOW.YOFF)))
)



(* ANIMATION FILES)





(* This is commented out because the dependencies are now represented using the file group 
facility.)





(* FILES ACE-MAIN ACE-PRIM ACE-EDIT)


(PUTPROPS ACE COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP