(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