(FILECREATED " 5-Dec-85 14:16:15" ("compiled on " {ERIS}<LISPUSERS>KOTO>ACE.;1) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (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))) (RECORD ACE.FRAME (DELAY BLITS)) (RECORD ACE.BLIT (BITMAP XCOOR . YCOOR)) (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))) (FILESLOAD ACE-MAIN ACE-PRIM ACE-EDIT) NIL