(FILECREATED "30-Sep-85 14:16:16" {ICE}<DENBER>LISP>ACE.;2 3434   

      changes to:  (VARS ACECOMS)

      previous date: " 3-Jan-85 17:56:38" {ICE}<DENBER>LISP>ACE.;1)


(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)
		(FILES ACE-MAIN ACE-PRIM ACE-EDIT)
		(* OTHER FILES. FOR MM1201 TABLET)
		(* FILES (FROM <LISP>HARMONY>LIBRARY>)
		   RS232.DCOM)))



(* 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)

(FILESLOAD ACE-MAIN ACE-PRIM ACE-EDIT)



(* OTHER FILES. FOR MM1201 TABLET)




(* FILES (FROM <LISP>HARMONY>LIBRARY>) RS232.DCOM)

(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP