189 lines
38 KiB
Plaintext
189 lines
38 KiB
Plaintext
(FILECREATED "16-Nov-93 15:37:22" ("compiled on " {DSK}<king>export>lispcore>lispusers>ACE-MAIN.;1)
|
||
"11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44")
|
||
(FILECREATED "28-Jul-85 21:16:32" {ICE}<DENBER>LISP>ACE-MAIN.;4 55935 changes to: (VARS ACE-MAINCOMS)
|
||
(FNS ACEGETFRAME# ACE.DELAY.FRAME ACE.DELAY.SEQ ACE.QUIT.ACE ACE.ANIMATE ACE.CREATE.CONTROL.MENU
|
||
SUBLIST ACERUNLOOP ACE.INCREMENT.FRAME ACE.UPD.CONTROL.WINDOW ACE.UPD.CW.MULE ACE.ASKEM ACE) previous
|
||
date: " 2-May-85 20:56:43" {ICE}<TURNER>LISP>ACE>ACE-MAIN.;25)
|
||
ACE D8
|
||
(P 1 TEMP.REGION P 0 FONT I 3 APPLICATION I 2 POSITION I 1 WINDOW I 0 SEQUENCE F 2 LOGINHOST/DIR) ² ` ¥ ¿g l
|
||
g X` œ` ± œnôdl` ØlH È
|
||
Ú` ØlØho o o k ¿H`
|
||
¿` g g ¿` g g ¿` ¿o i
|
||
` g h ` l2 l h Cg ð´ A@B ¿o iR ¿o i
|
||
¿o g
|
||
¿h ¿j ¿h ¿` g ¿` ` jd ¿g h (430 ACE.UPD.CONTROL.WINDOW 419 ADDMENU 336 ACE.TELLEM 320 ACE.TELLEM 303 ACE.ASKEM 284 ACE.TRILLIUM 247 MOVEW 237 PUTWINDOWPROP 221 ACE.TELLEM 209 ACE.SETUP.CW.CLIPPING.REGIONS 198 PUTWINDOWPROP 177 PUTWINDOWPROP 156 DSPFONT 139 CREATEW 133 CONCAT 104 BITMAPHEIGHT 99 CHECK/MENU/IMAGE 77 BITMAPWIDTH 72 CHECK/MENU/IMAGE 53 TOTOPW 42 WINDOWP 31 FONTCREATE 13 ACE.CREATE.CONTROL.MENU)
|
||
(425 RESET 411 ACE.CONTROL.WINDOW 406 ACE.CONTROL.MENU 398 ACE.ANIMATE 393 MENU 388 ACE.CONTROL.MENU 382 ACE.CURRENT.FRAME 377 ACE.FRAME.TAIL 372 ACE.CURRENT.SEQUENCE 365 ACE.SEQ.WINDOW.YOFF 360 ACE.SEQ.WINDOW.XOFF 353 ACE.SEQ.HEIGHT 348 ACE.SEQ.WIDTH 343 ACE.SEQ.WINDOW 331 L 308 ACE.DIRECTORY 290 ACE.RUNNING.UNDER.TRILLIUM 273 TRILLIUM 267 ACE.CURRENT.SEQUENCE.NAME 261 ACE.VERTICAL.BLOCK 254 ACE.AREA.THRESHOLD 242 ACE.CONTROL.WINDOW 231 MOVEFN 226 ACE.CONTROL.WINDOW 204 ACE.CONTROL.MENU 193 DON'T 188 REPAINTFN 183 ACE.CONTROL.WINDOW 172 DON'T 167 RESHAPEFN 162 ACE.CONTROL.WINDOW 151 ACE.CONTROL.WINDOW 144 ACE.CONTROL.WINDOW 94 ACE.CONTROL.MENU 86 FONTDESCRIPTOR 67 ACE.CONTROL.MENU 48 ACE.CONTROL.WINDOW 37 ACE.CONTROL.WINDOW 26 BOLD 19 HELVETICA 7 ACE.CONTROL.MENU)
|
||
( 326 "Be sure and Initialize it." 314 "If using the Tablet," 296 "Animation Directory? " 215 "Position This Window"
|
||
128 " Control Window" 123 "2.1" 118 "ACE v. ")
|
||
ACE.ANIMATE D8
|
||
(I 2 CARES I 1 WHO I 0 ITEM) N o i
|
||
@d¢± dg 𘿠± dg 𘿠± ûdg 𘿠± êdg ðž¿kg
|
||
± Ódg 𘿠± Âdg 𘿠± ±dg 𘿠± dg 𘿠± <00>dg ð—¿ °~dg ð—¿ °ndg ð—¿ °^dg ð—¿ °Ndg ð—¿ °>dg ð˜¿i °-dg ð—¿ ° dg ð–¿ ‹g ð• ¿` šg ¿i (331 TTY.PROCESS 324 ACE.UPD.CONTROL.WINDOW 313 OPENWP 302 ACE.QUIT.ACE 289 ACESETTHRESHOLD 273 ACE.SET.DEVICE 257 ACE.MM1201.INIT 240 ACE.DELAY 224 ACE.DECREMENT.FRAME 208 ACE.INCREMENT.FRAME 192 ACE.RESET.SEQ 176 ACE.DELETE.FRAME 159 ACE.PUT.SEQ.FILE 142 ACE.GET.SEQ.FILE 125 ACE.NEW.SEQUENCE 108 ACEGETFRAME# 91 ACERUNLOOP 68 ACE.RUN.CURRENT.SEQ 51 ACE.EDIT 34 ACE.NEW.FRAME 10 ACE.TELLEM)
|
||
(319 UPD 308 ACE.CONTROL.WINDOW 295 QUIT 281 ACESETTHRESHOLD 265 DEVICE 248 INIT.MM1201 232 TIME 216 DEC 200 INC 184 RESET 168 DEL 151 I/O:PUT 134 I/O:GET 117 NEW 100 SUBLOOP 86 END 77 LOOP 60 RUN 43 EDIT 26 FRAME)
|
||
( 4 "")
|
||
ACE.RUN D8
|
||
(P 1 FRAME.PART P 0 FRAME I 4 TIMER I 3 YOFFSET I 2 XOFFSET I 1 WINDOW I 0 SEQ) d @°]d DÃ ‘D‚l Höb¿H°*dIhdABIØCIØhdg g
|
||
µ×Dg
|
||
²õµ¤h (89 TIMEREXPIRED? 73 BKBITBLT 24 \CLOCK0)
|
||
(84 MILLISECONDS 67 REPLACE 62 INPUT 13 FIXP)
|
||
()
|
||
ACEGETFRAME# D8
|
||
NIL o o
|
||
(24 ACERUNLOOP 19 RNUMBER 9 RNUMBER)
|
||
NIL
|
||
( 14 "To frame #:" 4 "From frame #")
|
||
ACERUNLOOP D8
|
||
(I 1 END I 0 START) b Ag ðœ` b¿` @
|
||
h l@` lÂåjð‘j€kjð‘h` @A ` ` ` ¿°É (93 ACE.RUN 73 SUBLIST 39 ACE.QUICKDRAW&UPD 31 NTH 17 LENGTH)
|
||
(88 ACE.SEQ.WINDOW.YOFF 83 ACE.SEQ.WINDOW.XOFF 78 ACE.SEQ.WINDOW 66 ACE.CURRENT.SEQUENCE 46 \LASTKEYSTATE 25 ACE.CURRENT.SEQUENCE 12 ACE.CURRENT.SEQUENCE 5 END)
|
||
()
|
||
ACE.NEW.SEQUENCE D8
|
||
(P 0 TEMP.REGION I 0 REGION) Î g o
|
||
` ²5o i
|
||
³(o g
|
||
³o g
|
||
´‚± ƒ@ ’@°-o i
|
||
¿o g
|
||
¿hddg h
|
||
X ¿H ¿j` ` k jdhhh ¿ ¿` h h (202 ACE.QUICKDRAW&UPD 188 ACE.FIGURE.OUT.WINDOW 166 BITMAPCREATE 128 GETREGION 112 ACE.TELLEM 96 ACE.TELLEM 81 REGIONP 69 ACE.CONFIRMIT 52 ACE.TELLEM 35 ACE.TELLEM 17 ACE.UPD.CONTROL.WINDOW)
|
||
(194 ACE.CURRENT.SEQUENCE 182 ACE.CURRENT.SEQUENCE 160 ACE.SEQ.HEIGHT 155 ACE.SEQ.WIDTH 148 ACE.SEQ.HEIGHT 137 ACE.SEQ.WIDTH 121 ACE.NEW.SEQ.ASST 107 L 64 L 47 L 22 ACE.CURRENT.SEQUENCE 7 OPERATION)
|
||
( 102 "Watch ACE window for COORs." 90 "Specify SIZE of the NEW Sequence." 59 "Click LEFT to Create NEW Sequence."
|
||
42 "the Current Animation Sequence." 29 "Creating a NEW Sequence will ERASE" 12 "NEW")
|
||
ACE.NEW.FRAME D8
|
||
NIL j g o
|
||
g ´g o i
|
||
¡h` jhd` ` d o i
|
||
(103 ACE.EDIT 98 ACE.TELLEM 48 ACE.TELLEM 36 ACE.CHECKSTUFF 24 ACE.CHECKSTUFF 14 ACE.UPD.CONTROL.WINDOW)
|
||
(87 ACE.FRAME.TAIL 80 ACE.CURRENT.FRAME 74 ACE.CURRENT.FRAME 66 ACE.CURRENT.FRAME 56 ACE.CURRENT.FRAME 31 FRAME 19 SEQ 4 OPERATION)
|
||
( 92 "Going to EDIT ..." 42 "Can't put a frame before the First Frame." 9 "FRAME")
|
||
ACE.QUIT.ACE D8
|
||
NIL a g o
|
||
o i
|
||
o g
|
||
o g
|
||
² ` ` ` o i
|
||
(94 ACE.TELLEM 77 CLOSEW 67 CLOSEW 55 ACE.CONFIRMIT 40 ACE.TELLEM 25 ACE.TELLEM 14 ACE.UPD.CONTROL.WINDOW)
|
||
(82 ACE.CURRENT.SEQUENCE 72 ACE.CONTROL.WINDOW 62 ACE.SEQ.WINDOW 50 L 35 L 4 OPERATION)
|
||
( 88 "QUIT Aborted." 45 "Click LEFT to QUIT." 30 "All Images and Data will be LOST." 19 "QUITing will Close All Animation Windows;"
|
||
9 "QUIT")
|
||
ACE.RESET.SEQ D8
|
||
NIL < g o
|
||
` ²g <00>` h o i
|
||
(57 ACE.TELLEM 45 ACE.QUICKDRAW&UPD 31 ACE.CHECKSTUFF 14 ACE.UPD.CONTROL.WINDOW)
|
||
(37 ACE.CURRENT.SEQUENCE 26 SEQ 19 ACE.SEQ.WINDOW 4 OPERATION)
|
||
( 51 "There is No Current Sequence." 9 "RESET")
|
||
ACE.RUN.CURRENT.SEQ D8
|
||
NIL P g o
|
||
g ´5 ` ` ` ` h ` (72 LAST 56 ACE.RUN 31 RECLAIM 24 ACE.CHECKSTUFF 14 ACE.UPD.CONTROL.WINDOW)
|
||
(77 ACE.CURRENT.FRAME 67 ACE.CURRENT.SEQUENCE 62 ACE.FRAME.TAIL 51 ACE.SEQ.WINDOW.YOFF 46 ACE.SEQ.WINDOW.XOFF 41 ACE.SEQ.WINDOW 36 ACE.FRAME.TAIL 19 SEQ 4 OPERATION)
|
||
( 9 "RUN")
|
||
ACE.DELAY D8
|
||
NIL … g o
|
||
` µK` do ¿di ¿do ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿ d² dg ð–¿ g ð´ (130 ACE.DELAY.FRAME 116 ACE.DELAY.SEQ 99 MENU 14 ACE.UPD.CONTROL.WINDOW)
|
||
(122 FDELAY 108 SDELAY 94 ACE.DELAY.MENU 65 DEFAULTMENUHELDFN 56 CLRPROMPT 26 MENUTYPE# 19 ACE.DELAY.MENU 4 OPERATION)
|
||
( 47 "Sequence Timing Adjustments" 33 (("Set Delay on a Frame" (QUOTE FDELAY) "Adjust the delay on any frame by number") ("Reset Entire Sequence" (QUOTE SDELAY) "Set the delay on every frame"))
|
||
9 "DELAY")
|
||
ACE.DELAY.FRAME D8
|
||
(P 9 FRAME P 5 COUNT P 1 FRAME P 0 CHOICE) Ñ
|
||
@` ` jB LµLNo h
|
||
ºdJ¿do ¿dg ¿dg ¿jdnÿdh»dK
|
||
¿ Xµ>°¥_¿Mkؽo Mo O Mh_¿OµOh_¾L\°ƒO&_¿°õg ð‘h` H
|
||
Y¢±ÿRIo Ho X¿±ÿ6 (201 RNUMBER 196 CONCAT 173 NTH 122 CONCAT 90 MENU 35 \NCONC2)
|
||
(167 ACE.CURRENT.SEQUENCE 158 QUIT 65 CLRPROMPT 56 ACE.DELAY.FRAME.ASST 13 ACE.CURRENT.SEQUENCE 7 MENUTYPE#)
|
||
( 191 "; New Delay: " 185 "Frame " 114 " : " 108 "Frame " 47 "Frame Delays" 28 (Quit (QUOTE QUIT) "Stop adjusting delays"))
|
||
ACE.DELAY.SEQ D8
|
||
(P 0 NEW.DELAY.VALUE) $ o X3 ´` …dH¿µùh (12 RNUMBER)
|
||
(22 ACE.CURRENT.SEQUENCE)
|
||
( 7 "Delay for entire sequence:")
|
||
ACE.DECREMENT.FRAME D8
|
||
NIL = g o
|
||
g ´"g ´` `
|
||
(58 ACE.QUICKDRAW&UPD 53 LDIFF 36 ACE.CHECKSTUFF 24 ACE.CHECKSTUFF 14 ACE.UPD.CONTROL.WINDOW)
|
||
(48 ACE.CURRENT.FRAME 43 ACE.CURRENT.SEQUENCE 31 FRAME 19 SEQ 4 OPERATION)
|
||
( 9 "DEC")
|
||
ACE.INCREMENT.FRAMEA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* P 0 FRAME.PART I 0 SI *CLEANUP-FORMS* F 1 SI *RESETFORMS* F 2 CUR.FRAME) x g h`
|
||
` h` g
|
||
`
|
||
hQcR°6d Hhd` ` HØ` HØhdg g
|
||
µËh (111 BKBITBLT 49 DSPCLIPPINGREGION 39 GETWINDOWUSERPROP 15 DSPCLIPPINGREGION)
|
||
(105 REPLACE 100 INPUT 89 ACE.SEQ.WINDOW.YOFF 80 ACE.SEQ.WINDOW.XOFF 75 ACE.SEQ.WINDOW 44 ACE.SEQ.WINDOW 34 SEQUENCE.CLIPPING.REGION 29 ACE.CONTROL.WINDOW 20 ACE.SEQ.WINDOW 10 ACE.SEQ.WINDOW 4 DSPCLIPPINGREGION)
|
||
()
|
||
ACE.INCREMENT.FRAME D8
|
||
(P 4 FRAME.PART P 3 RESETSTATE P 2 SI *RESETFORMS* P 1 LISPXHIST P 0 CUR.FRAME F 5 LISPXHIST) ¾ g o
|
||
g ´‚± <00>g ´‚± <00>` ¸` ¿H´o` g
|
||
²!U!g ¿$°>H°6dLhd` ` LØ` LØhdg g
|
||
µËh (181 BKBITBLT 119 SI RESETUNWIND 114 \MVLIST 109 ACE.INCREMENT.FRAMEA0001 93 GETWINDOWUSERPROP 43 ACE.CHECKSTUFF 27 ACE.CHECKSTUFF 17 ACE.UPD.CONTROL.WINDOW)
|
||
(175 REPLACE 170 INPUT 159 ACE.SEQ.WINDOW.YOFF 150 ACE.SEQ.WINDOW.XOFF 145 ACE.SEQ.WINDOW 104 SI RESETUNWIND 88 SEQUENCE.CLIPPING.REGION 83 ACE.CONTROL.WINDOW 72 ACE.FRAME.TAIL 66 ACE.CURRENT.FRAME 61 ACE.FRAME.TAIL 54 ACE.FRAME.TAIL 38 TAIL 22 SEQ 7 OPERATION)
|
||
( 12 "INC")
|
||
ACE.DELETE.FRAME D8
|
||
(P 1 AFTER.BM P 0 BEFORE.BM) ë g o
|
||
g ´‚± Êg ´‚± º` ` ðžo i
|
||
¿± žo i
|
||
´‚± Ž` ³ ` `
|
||
¿°i` `
|
||
¸` `
|
||
¹` HI` ` ¿` ` ¿` `
|
||
h (231 ACE.QUICKDRAW&UPD 226 LDIFF 195 ACE.COMPILE.FRAME 170 ACE.RECONSTRUCT.FRAME 165 LDIFF 148 ACE.RECONSTRUCT.FRAME 143 LDIFF 125 ACE.QUICKDRAW&UPD 115 LDIFF 87 ACE.CONFIRMIT 72 ACE.TELLEM 43 ACE.CHECKSTUFF 27 ACE.CHECKSTUFF 17 ACE.UPD.CONTROL.WINDOW)
|
||
(220 ACE.CURRENT.FRAME 215 ACE.CURRENT.SEQUENCE 207 ACE.FRAME.TAIL 202 ACE.CURRENT.FRAME 190 ACE.AREA.THRESHOLD 185 ACE.VERTICAL.BLOCK 176 ACE.CURRENT.FRAME 159 ACE.FRAME.TAIL 154 ACE.CURRENT.SEQUENCE 138 ACE.CURRENT.FRAME 133 ACE.CURRENT.SEQUENCE 120 ACE.CURRENT.SEQUENCE 110 ACE.CURRENT.FRAME 105 ACE.CURRENT.SEQUENCE 98 ACE.FRAME.TAIL 59 ACE.CURRENT.FRAME 54 ACE.CURRENT.SEQUENCE 38 FRAME 22 SEQ 7 OPERATION)
|
||
( 81 "Click LEFT to Confirm Delete" 66 "Can't DELETE first frame. Aborted." 12 "DELETE")
|
||
ACE.SET.DEVICE D8
|
||
NIL z g o
|
||
g g ` µK` do ¿do ¿di ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿
|
||
(119 ACE.UPD.CONTROL.WINDOW 114 MENU 24 ACE.UPD.CONTROL.WINDOW 14 ACE.UPD.CONTROL.WINDOW)
|
||
(109 ACE.SET.DEVICE.MENU 80 DEFAULTMENUHELDFN 71 CLRPROMPT 41 MENUTYPE# 34 ACE.SET.DEVICE.MENU 29 DEVICE 19 DEVICE 4 OPERATION)
|
||
( 57 "Select Input Device" 48 (("Mouse" (QUOTE MOUSE) "Use the standard mouse for drawing and such") ("Tablet" (QUOTE MM1201) "Use the MM1201 Tablet as the input device"))
|
||
9 "SET DEVICE")
|
||
ACE.QUICKDRAW&UPDA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* P 1 FRAME.PART P 0 FRAME I 0 SI *CLEANUP-FORMS* F 2 SI *RESETFORMS* F 3 PARTIAL.SEQ) ‰ g h`
|
||
` h` g
|
||
`
|
||
hRcS°IdHd¢¿°:°3dYhd` ` IØ` IØhdg g
|
||
¿µÎµ¸h (123 BKBITBLT 49 DSPCLIPPINGREGION 39 GETWINDOWUSERPROP 15 DSPCLIPPINGREGION)
|
||
(117 REPLACE 112 INPUT 101 ACE.SEQ.WINDOW.YOFF 92 ACE.SEQ.WINDOW.XOFF 87 ACE.SEQ.WINDOW 44 ACE.SEQ.WINDOW 34 SEQUENCE.CLIPPING.REGION 29 ACE.CONTROL.WINDOW 20 ACE.SEQ.WINDOW 10 ACE.SEQ.WINDOW 4 DSPCLIPPINGREGION)
|
||
()
|
||
ACE.QUICKDRAW&UPD D8
|
||
(P 6 X P 4 FRAME.PART P 3 FRAME P 2 RESETSTATE P 1 SI *RESETFORMS* P 0 LISPXHIST I 0 PARTIAL.SEQ F 7 LISPXHIST) À @´‚± º` g
|
||
²"W!g ¿$°O@°IdKd¢¿°:°3d\hd` ` LØ` LØhdg g
|
||
¿µÎµ¸` @ kÙkNMó³` ¿NkÔ^°ì` (148 LENGTH 122 BKBITBLT 48 SI RESETUNWIND 43 \MVLIST 38 ACE.QUICKDRAW&UPDA0001 21 GETWINDOWUSERPROP)
|
||
(189 ACE.FRAME.TAIL 183 ACE.CURRENT.FRAME 170 ACE.CURRENT.FRAME 164 ACE.CURRENT.FRAME 142 ACE.CURRENT.FRAME 137 ACE.CURRENT.SEQUENCE 116 REPLACE 111 INPUT 100 ACE.SEQ.WINDOW.YOFF 91 ACE.SEQ.WINDOW.XOFF 86 ACE.SEQ.WINDOW 33 SI RESETUNWIND 16 SEQUENCE.CLIPPING.REGION 11 ACE.CONTROL.WINDOW)
|
||
()
|
||
ACE.RECONSTRUCT.FRAME D8
|
||
(P 2 FRAME.PART P 1 FRAME P 0 ABITMAP I 0 SEQ) M @ X@°6dI²+I°#dZhdHJJhdg g
|
||
¿µÞµÊH (63 BKBITBLT 13 BITMAPCOPY)
|
||
(57 REPLACE 52 INPUT)
|
||
()
|
||
SUBLIST D8
|
||
(I 2 N I 1 M I 0 L) @A
|
||
@BkØ
|
||
|
||
(20 LDIFF 15 NTH 6 NTH)
|
||
NIL
|
||
()
|
||
ACE.TRILLIUM D8
|
||
(I 2 POSITION I 1 SEQUENCE I 0 WINDOW F 0 CURRENT.FRAME F 1 CURRENT.INTERFACE.WINDOW) S i P @ ’@° o i
|
||
¿o g
|
||
²`Q ¿B ¢± ‚B ¿B ¿A´‚± œA ¿ ¿ ¿ ¿ °uo i
|
||
¿o g
|
||
¿o g g ho i
|
||
¿o g
|
||
¿o g g h ¿` g id
|
||
` • ¿g ` g g (336 ACE.TRILLIUM.LOOP 331 PUTWINDOWPROP 311 ACE.UPD.CONTROL.WINDOW 300 ACE.RESET.SEQ 284 DIRECTORYNAME 242 ACE.CONFIRMIT 221 ACE.TELLEM 205 ACE.TELLEM 192 ACE.CONFIRMIT 171 ACE.TELLEM 155 ACE.TELLEM 142 ACE.SET.SEQ.CLIP.REGION 136 ACE.CREATE.EDITING.BORDER 125 ACE.SEQ.FETCH.HEIGHT 114 ACE.SEQ.FETCH.WIDTH 63 POSITIONP 48 ACE.CONFIRMIT 32 ACE.TELLEM 17 WINDOWP 11 DISPLAY.FRAME)
|
||
(326 DON'T 321 MOVEFN 316 ACE.CONTROL.WINDOW 306 RESET 294 ACE.CURRENT.SEQUENCE 289 ACE.DIRECTORY 275 DEFAULTWHENSELECTEDFN 270 MENU 265 ACE.CONTROL.MENU 259 ACE.CURRENT.FRAME 254 ACE.FRAME.TAIL 249 ACE.CURRENT.SEQUENCE 237 ANY 232 L 216 L 187 ANY 182 L 166 L 130 ACE.SEQ.HEIGHT 119 ACE.SEQ.WIDTH 108 ACE.FRAME.TAIL 102 ACE.CURRENT.FRAME 97 ACE.CURRENT.SEQUENCE 82 ACE.SEQ.WINDOW.YOFF 74 ACE.SEQ.WINDOW.XOFF 56 ACE.SEQ.WINDOW 43 L 5 ACE.RUNNING.UNDER.TRILLIUM)
|
||
( 227 "Click any button to Exit." 211 "This is likely a Trillium error." 199 "No Position Specification. Aborted."
|
||
177 "Click any button to Exit." 161 "Likely a Trillium error. ACE aborted." 149 "Error in Window Specification."
|
||
38 "Click LEFT to use Current Interface Window." 26 "There is no Window Specification")
|
||
ACE.TRILLIUM.LOOP D8
|
||
(P 1 MENU.POS P 0 CHOICE) 9 h` É
|
||
h` É
|
||
¹o i
|
||
¿` I
|
||
Xd¢± Ødg 𘿠± Çg ð— ± ¸Hdg 𘿠± ¦g ð— ± —Hdg 𘿠± …g ð– °vHdg ð—¿ °eg ð– °WHdg ð—¿ °Fg ð– °8Hdg ð—¿ °'g ð—i °Hdg ð–¿ …g ð¿g ¿Hg ð¢±þú (310 ACE.QUIT.TRILLIUM 293 ACE.UPD.CONTROL.WINDOW 275 ACE.SET.DEVICE 258 ACE.MM1201.INIT 243 ACE.DELAY 226 ACE.DECREMENT.FRAME 212 ACE.INCREMENT.FRAME 195 ACE.RESET.SEQ 181 ACE.DELETE.FRAME 164 ACE.PUT.SEQ.FILE 149 ACE.GET.SEQ.FILE 131 ACE.NEW.SEQUENCE 116 ACE.RUN.CURRENT.SEQ 98 ACE.EDIT 83 ACE.NEW.FRAME 63 MENU 51 ACE.TELLEM 38 DSPYOFFSET 31 \INSUREWINDOW 20 DSPXOFFSET 13 \INSUREWINDOW)
|
||
(300 QUIT 288 UPD 281 QUIT 267 DEVICE 250 INIT.MM1201 235 TIME 219 DEC 204 INC 188 RESET 173 DEL 157 I/O:PUT 141 I/O:GET 124 NEW 108 RUN 91 EDIT 75 FRAME 57 ACE.CONTROL.MENU 26 ACE.CONTROL.WINDOW 8 ACE.CONTROL.WINDOW)
|
||
( 45 "")
|
||
ACE.RUN.TRILLIUM D8
|
||
(P 1 FRAME.PART P 0 FRAME I 5 TIMER I 4 UPTO I 3 YOFFSET I 2 XOFFSET I 1 WINDOW I 0 SEQ) Ê Dµe@°]d EÃ ‘E‚l Höb
|
||
¿H°*dIhdABIØCIØhdg g
|
||
µ×Eg
|
||
²õµ¤h3 ´`@ kØDñ´TDjñ´O@dDkØ
|
||
|
||
°:d H°*dIhdABIØCIØhdg g
|
||
µ×hµÇh (187 BKBITBLT 137 LDIFF 132 NTH 111 LENGTH 92 TIMEREXPIRED? 76 BKBITBLT 27 \CLOCK0)
|
||
(181 REPLACE 176 INPUT 87 MILLISECONDS 70 REPLACE 65 INPUT 16 FIXP)
|
||
()
|
||
ACE.QUIT.TRILLIUM D8
|
||
NIL ` h ` (9 CLOSEW)
|
||
(20 ACE.CURRENT.SEQUENCE 15 ACE.RUNNING.UNDER.TRILLIUM 4 ACE.CONTROL.WINDOW)
|
||
()
|
||
ACE.CREATE.EDITING.BORDER D8
|
||
(P 3 Y2 P 2 Y1 P 1 X2 P 0 X1 I 0 MODE) › @@§g b ¿` 3´‚± ‚` 3´x` lÙ¸` ` ع` lÙº` ` Ø»HJHKl@`
|
||
¿HKIKl@`
|
||
¿IKIJl@`
|
||
¿IJHJl@`
|
||
h (151 DRAWLINE 132 DRAWLINE 113 DRAWLINE 94 DRAWLINE)
|
||
(145 ACE.SEQ.WINDOW 126 ACE.SEQ.WINDOW 107 ACE.SEQ.WINDOW 88 ACE.SEQ.WINDOW 74 ACE.SEQ.HEIGHT 69 ACE.SEQ.WINDOW.YOFF 60 ACE.SEQ.WINDOW.YOFF 53 ACE.SEQ.WIDTH 48 ACE.SEQ.WINDOW.XOFF 39 ACE.SEQ.WINDOW.XOFF 30 ACE.SEQ.HEIGHT 17 ACE.SEQ.WIDTH 9 PAINT)
|
||
()
|
||
ACE.GET.SEQ.FILEA0001A0002 D8
|
||
(NAME SI *UNWIND-PROTECT* I 0 SI *CLEANUP-FORMS* F 1 SI *RESETFORMS* F 2 TEMP.SEQUENCE.NAME) x g g g hg o g Hd²dið¬3µ g Hhhh` ¿g h
|
||
hQco g
|
||
c (114 ERRORSET 92 SETTOPVAL 80 CURSOR 37 GETTOPVAL)
|
||
(109 NOBREAK 86 HELPFLAG 75 WAITINGCURSOR 57 QUOTE 32 HELPFLAG 22 SETTOPVAL 14 DEFAULTCURSOR 9 CURSOR 4 PROGN)
|
||
( 104 (LOAD FILENAME (QUOTE SYSLOAD)) 27 (QUOTE HELPFLAG))
|
||
ACE.GET.SEQ.FILEA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* P 4 RESETSTATE P 3 SI *RESETFORMS* P 2 LISPXHIST P 1 TEMP.SEQUENCE.NAME P 0 FILENAME I 0 SI *CLEANUP-FORMS* F 5 LISPXHIST) g o
|
||
` ²1o i
|
||
³$o g
|
||
³o i
|
||
´‚± ¨ Xd¬o i
|
||
hg Hg ` g
|
||
g ` g
|
||
|
||
¸o i
|
||
Ho
|
||
g
|
||
U!g ¿$Iµ o ¿o g
|
||
h ¿ ¿ ¿ ¿ °× (276 ACE.RESET.SEQ 270 ACE.FIGURE.OUT.WINDOW 259 ACE.SEQ.FETCH.HEIGHT 248 ACE.SEQ.FETCH.WIDTH 235 ACE.TELLEM 219 ACE.TELLEM 201 SI RESETUNWIND 196 \MVLIST 191 ACE.GET.SEQ.FILEA0001A0002 177 ACE.TELLEM 167 CONCAT 156 ACE.TELLEM 144 PACKFILENAME 138 FILENAMEFIELD 118 FILENAMEFIELD 90 ACE.TELLEM 76 ACE.GET.A.FILE.NAME 65 ACE.TELLEM 52 ACE.CONFIRMIT 35 ACE.TELLEM 17 ACE.UPD.CONTROL.WINDOW)
|
||
(264 ACE.SEQ.HEIGHT 253 ACE.SEQ.WIDTH 242 ACE.CURRENT.SEQUENCE.NAME 230 L 186 SI RESETUNWIND 172 L 133 DIRECTORY 128 ACE.DIRECTORY 123 DIRECTORY 113 HOST 108 ACE.DIRECTORY 103 HOST 97 BODY 47 L 22 ACE.CURRENT.SEQUENCE 7 OPERATION)
|
||
( 225 "No Such File or File Server Problems." 214 "Not Found." 162 " ... " 150 "Loading: " 84 "No NAME. Aborted"
|
||
59 "Get Sequence ABORTED." 42 "Sequence; Click LEFT to confirm LOAD." 29 "Loading a Sequence will ERASE the Current"
|
||
12 "GET FILE")
|
||
ACE.GET.SEQ.FILE D8
|
||
(P 0 SI *RESETFORMS*) 3 g ` hhh g ¿$ (44 SI RESETUNWIND 39 \MVLIST 34 ACE.GET.SEQ.FILEA0001 14 TTYDISPLAYSTREAM)
|
||
(29 SI RESETUNWIND 9 \TopLevelTtyWindow 4 TTYDISPLAYSTREAM)
|
||
()
|
||
ACE.PUT.SEQ.FILEA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* I 0 SI *CLEANUP-FORMS* F 1 SI *RESETFORMS* F 2 TEMP.SEQUENCE.NAME) x g g g hg o g Hd²dið¬3µ g Hhhh` ¿g h
|
||
hQco g
|
||
c (114 ERRORSET 92 SETTOPVAL 80 CURSOR 37 GETTOPVAL)
|
||
(109 NOBREAK 86 HELPFLAG 75 WAITINGCURSOR 57 QUOTE 32 HELPFLAG 22 SETTOPVAL 14 DEFAULTCURSOR 9 CURSOR 4 PROGN)
|
||
( 104 (MAKEFILE FILENAME (QUOTE (NEW FAST))) 27 (QUOTE HELPFLAG))
|
||
ACE.PUT.SEQ.FILE D8
|
||
(P 4 RESETSTATE P 3 SI *RESETFORMS* P 2 LISPXHIST P 1 TEMP.SEQUENCE.NAME P 0 FILENAME F 5 LISPXHIST) <01> g o
|
||
g ´‚±G` ²o i
|
||
–` °J X¬o i
|
||
hg Hg ` g
|
||
g ` g
|
||
|
||
Xg
|
||
²3o i
|
||
³&o g
|
||
²g hg H X€Hg
|
||
g
|
||
o
|
||
Hg
|
||
g o o i
|
||
Ho
|
||
g
|
||
U!g ¿$Iµ.o ¿o g
|
||
¿o g
|
||
h ¿o ¿Hg
|
||
`
|
||
°Ø (396 DREMOVE 386 FILENAMEFIELD 374 ACE.TELLEM 356 ACE.TELLEM 340 ACE.TELLEM 324 ACE.TELLEM 306 SI RESETUNWIND 301 \MVLIST 296 ACE.PUT.SEQ.FILEA0001 282 ACE.TELLEM 272 CONCAT 261 ACE.TELLEM 250 PUTPROP 235 FILENAMEFIELD 224 SET 214 PACK* 204 FILENAMEFIELD 191 PACKFILENAME 172 ACE.CONFIRMIT 155 ACE.TELLEM 142 FILENAMEFIELD 131 PACKFILENAME 125 FILENAMEFIELD 105 FILENAMEFIELD 77 ACE.TELLEM 64 ACE.GET.A.FILE.NAME 51 ACE.CONFIRMIT 27 ACE.CHECKSTUFF 17 ACE.UPD.CONTROL.WINDOW)
|
||
(391 FILELST 381 NAME 363 ACE.CURRENT.SEQUENCE.NAME 351 L 335 L 291 SI RESETUNWIND 277 L 240 FILETYPE 230 NAME 209 COMS 199 NAME 185 BODY 179 VERSION 167 L 137 VERSION 120 DIRECTORY 115 ACE.DIRECTORY 110 DIRECTORY 100 HOST 95 ACE.DIRECTORY 90 HOST 84 BODY 57 ACE.CURRENT.SEQUENCE.NAME 38 ACE.CURRENT.SEQUENCE.NAME 22 SEQ 7 OPERATION)
|
||
( 369 "Done" 346 "Check the Name. Is the File Server Down?" 330 "Nothing doing. Can't write this File out."
|
||
319 "Aborted." 267 " ... " 255 "Putting to File: " 245 (DON'TLIST DON'TCOMPILE) 219 ((UGLYVARS ACE.CURRENT.SEQUENCE))
|
||
162 "Click any Other to Write Over Existing Version." 149 "Click LEFT to Write a New Version." 71 "NIL ain't no good. Aborted."
|
||
45 "Click LEFT to Keep Same Name." 12 "PUT FILE")
|
||
ACE.GET.A.FILE.NAME D8
|
||
NIL o ihlx (13 ACE.ASKEM)
|
||
NIL
|
||
( 4 "Enter FILENAME: ")
|
||
ACE.ASKEMA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* I 0 SI *CLEANUP-FORMS* F 0 SI *RESETFORMS* F 1 TIMELIMIT? F 2 FLG F 3 SPACES? F 4 STRING F 5 DEFAULTANSWER) Š o ` g
|
||
`
|
||
¿` g
|
||
`
|
||
hPc Q¤lxc¿Rdiðœ¿` °g ðš` ¿TUh` hdS´o
|
||
(135 MKATOM 130 PROMPTFORWORD 105 TERPRI 86 DSPRESET 56 DSPLEFTMARGIN 45 GETWINDOWUSERPROP 29 DSPCLIPPINGREGION 19 GETWINDOWUSERPROP)
|
||
(114 ACE.CONTROL.WINDOW 100 ACE.CONTROL.WINDOW 93 L 81 ACE.CONTROL.WINDOW 51 ACE.CONTROL.WINDOW 40 PROMPT.CLIP.REGION 35 ACE.CONTROL.WINDOW 24 ACE.CONTROL.WINDOW 14 PROMPT.CLIP.REGION 9 ACE.CONTROL.WINDOW)
|
||
( 124 (13 27 10) 4 (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION)) ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION))) ACE.CONTROL.WINDOW)))
|
||
ACE.ASKEM D8
|
||
(P 2 RESETSTATE P 1 SI *RESETFORMS* P 0 LISPXHIST I 4 SPACES? I 3 TIMELIMIT? I 2 DEFAULTANSWER I 1 FLG I 0 STRING F 3 LISPXHIST) S!g ¿$ (23 SI RESETUNWIND 18 \MVLIST 13 ACE.ASKEMA0001)
|
||
(8 SI RESETUNWIND)
|
||
()
|
||
ACE.TELLEMA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* I 0 SI *CLEANUP-FORMS* F 0 SI *RESETFORMS* F 1 FLG F 2 STRING) r o ` g
|
||
`
|
||
¿` g
|
||
`
|
||
hPc Qdiðœ¿` °g ðš` ¿R`
|
||
h (110 PRIN1 98 TERPRI 79 DSPRESET 56 DSPLEFTMARGIN 45 GETWINDOWUSERPROP 29 DSPCLIPPINGREGION 19 GETWINDOWUSERPROP)
|
||
(105 ACE.CONTROL.WINDOW 93 ACE.CONTROL.WINDOW 86 L 74 ACE.CONTROL.WINDOW 51 ACE.CONTROL.WINDOW 40 PROMPT.CLIP.REGION 35 ACE.CONTROL.WINDOW 24 ACE.CONTROL.WINDOW 14 PROMPT.CLIP.REGION 9 ACE.CONTROL.WINDOW)
|
||
( 4 (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION)) ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION))) ACE.CONTROL.WINDOW)))
|
||
ACE.TELLEM D8
|
||
(P 2 RESETSTATE P 1 SI *RESETFORMS* P 0 LISPXHIST I 1 FLG I 0 STRING F 3 LISPXHIST) S!g ¿$ (23 SI RESETUNWIND 18 \MVLIST 13 ACE.TELLEMA0001)
|
||
(8 SI RESETUNWIND)
|
||
()
|
||
ACE.CONFIRMITA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* I 0 SI *CLEANUP-FORMS* F 0 WHICHKEYS?) 3 ` jð³Pi
|
||
` j
|
||
˜ ¿°Ø ¿°å (46 GETMOUSESTATE 38 GETMOUSESTATE 31 EQP 20 EVAL 15 MOUSESTATE-EXPR)
|
||
(25 LASTMOUSEBUTTONS 4 LASTMOUSEBUTTONS)
|
||
()
|
||
ACE.CONFIRMIT D8
|
||
(P 0 SI *RESETFORMS* I 2 WHICHKEYS? I 1 FLG I 0 CONFIRMSTRING) <00> B§g b¿@A
|
||
ldhi g Bdg ð—¿` °6g ð–` °(Bdg ð—¿` °g ð´o b¿` hhh g ¿$ (134 SI RESETUNWIND 129 \MVLIST 124 ACE.CONFIRMITA0001 104 CURSOR 25 DISMISS 16 ACE.TELLEM)
|
||
(119 SI RESETUNWIND 99 ACE.ALLMOUSE.CURSOR 83 ANY 76 ACE.RIGHTMOUSE.CURSOR 68 RIGHT 59 ACE.MIDDLEMOUSE.CURSOR 52 MIDDLE 45 ACE.LEFTMOUSE.CURSOR 37 LEFT 30 CURSOR 6 LEFT)
|
||
( 91 (NOT UP))
|
||
ACE.DEFINE.SEQ.WINDOW D8
|
||
NIL Ö o i
|
||
²U` š` ¿l2d` lØ` lØho l ¿o i
|
||
¿` °k` ²<` ` g
|
||
ñ³%` ` g
|
||
ñ¬o i
|
||
³+o i
|
||
¿o g hlx ¿` µ±ÿ/ (195 EVAL 190 ACE.ASKEM 171 ACE.TELLEM 158 ACE.CONFIRMIT 145 GETWINDOWPROP 122 GETWINDOWPROP 93 MOVEW 82 ACE.TELLEM 65 CREATEW 28 CLOSEW 10 ACE.CONFIRMIT)
|
||
(206 ACE.SEQ.WINDOW 200 ACE.SEQ.WINDOW 182 L 140 HEIGHT 135 ACE.SEQ.WINDOW 130 ACE.SEQ.HEIGHT 117 WIDTH 112 ACE.SEQ.WINDOW 107 ACE.SEQ.WIDTH 100 ACE.SEQ.WINDOW 88 ACE.SEQ.WINDOW 70 ACE.SEQ.WINDOW 45 ACE.SEQ.HEIGHT 37 ACE.SEQ.WIDTH 23 ACE.SEQ.WINDOW 17 ACE.SEQ.WINDOW)
|
||
( 177 "Enter the Window: " 165 "CAUTION: Enter NIL if Unsure at this Stage." 152 "Click LEFT to Keep Current Window."
|
||
76 "Position the Sequence Window" 58 "Animation Sequence Window" 4 "Click LEFT to Create a Sequence Window.")
|
||
ACE.FIGURE.OUT.WINDOW D8
|
||
(I 0 REGION/POSITION F 0 CURRENT.FRAME) L ` ²P ¿g °,@ ²@ ¿@ °j ¿ ¿ (73 ACE.SET.SEQ.CLIP.REGION 67 ACE.DEFINE.SEQ.WINDOW 31 POSITIONP 23 ACE.CREATE.EDITING.BORDER 12 DISPLAY.FRAME)
|
||
(61 ACE.SEQ.WINDOW.YOFF 56 ACE.SEQ.WINDOW.XOFF 48 ACE.SEQ.WINDOW.YOFF 40 ACE.SEQ.WINDOW.XOFF 18 INVERT 4 ACE.RUNNING.UNDER.TRILLIUM)
|
||
()
|
||
ACE.RETURN.CLOSEST.VERTEX D8
|
||
(P 1 NEW.YCOOR P 0 NEW.XCOOR I 1 REGION I 0 POINT) ? @AAØmÿØXñª@AXýñ¢@¸@AAØmÿØYñ«@AYýñ¢@¹HI NIL
|
||
NIL
|
||
()
|
||
ACE.NEW.SEQ.ASST D8
|
||
(I 2 DUM I 1 MOVE I 0 FIXED) 1 A¬g @
|
||
@g A@Ù A@Ù
|
||
A (45 ACE.UPD.CONTROL.WINDOW 39 ABS 29 ABS 12 ACE.UPD.CONTROL.WINDOW)
|
||
(19 CURSOR 6 CURSOR)
|
||
()
|
||
ACE.DELAY.FRAME.ASST D8
|
||
(I 2 MOUSE I 1 MENU I 0 ITEM) " @3 ´` d@
|
||
|
||
(31 ACE.QUICKDRAW&UPD 26 LDIFF 20 NTH)
|
||
(11 ACE.CURRENT.SEQUENCE)
|
||
()
|
||
ACE.SETUP.CW.CLIPPING.REGIONS D8
|
||
(P 2 INFO P 1 ABOVEMENU P 0 NORMAL I 0 MENU) ' 0` g h`
|
||
X ` g H@ HH@ Ù Y ` g IIl‚IlÙ Z ` g lJJØmÿØØIIIØmÿØlJJØmÿØØÙIlÙ JJØmÿØkØIJJØmÿØkØIIØmÿØkg `
|
||
jd@ @ n–ig ` h (291 DSPFILL 273 CREATEREGION 268 BITMAPHEIGHT 263 CHECK/MENU/IMAGE 257 BITMAPWIDTH 252 CHECK/MENU/IMAGE 244 DRAWLINE 188 PUTWINDOWPROP 183 CREATEREGION 120 PUTWINDOWPROP 114 CREATEREGION 84 PUTWINDOWPROP 78 CREATEREGION 72 BITMAPHEIGHT 67 CHECK/MENU/IMAGE 52 BITMAPHEIGHT 47 CHECK/MENU/IMAGE 29 PUTWINDOWPROP 23 DSPCLIPPINGREGION)
|
||
(286 ACE.CONTROL.WINDOW 281 PAINT 238 ACE.CONTROL.WINDOW 233 PAINT 130 PROMPT.CLIP.REGION 125 ACE.CONTROL.WINDOW 94 INFO.CLIP.REGION 89 ACE.CONTROL.WINDOW 39 ABOVEMENU.CLIP.REGION 34 ACE.CONTROL.WINDOW 18 ACE.CONTROL.WINDOW 12 NORMAL.CLIP.REGION 7 ACE.CONTROL.WINDOW)
|
||
()
|
||
ACE.CHECKSTUFF D8
|
||
(I 0 CONDITIONS) V @dg ð²¿` µDo i
|
||
g ð²` µ)o i
|
||
@g ð´` µ
|
||
o i
|
||
(83 ACE.TELLEM 55 ACE.TELLEM 28 ACE.TELLEM)
|
||
(70 ACE.FRAME.TAIL 62 TAIL 42 ACE.CURRENT.FRAME 34 FRAME 15 ACE.CURRENT.SEQUENCE 6 SEQ)
|
||
( 77 "Sequence is at End." 49 "No Current Frame. Aborted" 22 "No Current Sequence defined. Aborted")
|
||
ACE.UPD.CONTROL.WINDOWA0001 D8
|
||
(NAME SI *UNWIND-PROTECT* I 0 SI *CLEANUP-FORMS* F 0 VALUE F 1 ITEM F 2 SI *RESETFORMS*) <01> o ` g
|
||
`
|
||
¿` g
|
||
`
|
||
hRcl@` lÂåjð‘j€kjð²Qdg ð<>¿g P
|
||
Qg ð²FPið²5` µ g °$` ð–g °` `
|
||
c ¿g P
|
||
Qdg ðœ¿g P
|
||
g ð›g P
|
||
Qdg ð²7¿g i
|
||
g g g
|
||
g g
|
||
ið²+g g g g Qg ð´:g i
|
||
g g
|
||
g g
|
||
g g
|
||
(397 ACE.UPD.CW.MULE 382 ACE.UPD.CW.MULE 367 ACE.UPD.CW.MULE 352 ACE.UPD.CONTROL.WINDOW2 331 ACE.UPD.CW.MULE 321 ACE.UPD.CW.MULE 311 ACE.UPD.CW.MULE 301 ACE.UPD.CW.MULE 286 ACE.UPD.CW.MULE 271 ACE.UPD.CW.MULE 256 ACE.UPD.CW.MULE 246 ACE.UPD.CONTROL.WINDOW2 223 ACE.UPD.CW.MULE 204 ACE.UPD.CW.MULE 182 ACE.UPD.CW.MULE 168 LENGTH 163 LDIFF 105 ACE.UPD.CW.MULE 56 DSPLEFTMARGIN 45 GETWINDOWUSERPROP 29 DSPCLIPPINGREGION 19 GETWINDOWUSERPROP)
|
||
(392 NA 387 ACE.CURSOR 377 NA 372 ACE.OPERATION 362 MOUSE 357 ACE.DEVICE 346 FRAME 338 RESET 326 ACE.CURSOR 316 ACE.OPERATION 306 ACE.DEVICE 296 ACE.FRAME 281 NA 276 ACE.CURSOR 266 OK 261 ACE.OPERATION 251 ACE.DEVICE 240 FRAME 231 UPD 217 ACE.OPERATION 210 OPERATION 198 ACE.DEVICE 190 DEVICE 176 ACE.FRAME 158 ACE.FRAME.TAIL 153 ACE.CURRENT.SEQUENCE 146 START 139 ACE.FRAME.TAIL 132 NA 125 ACE.CURRENT.SEQUENCE 112 FRAME 99 ACE.CURSOR 91 CURSOR 70 \LASTKEYSTATE 51 ACE.CONTROL.WINDOW 40 INFO.CLIP.REGION 35 ACE.CONTROL.WINDOW 24 ACE.CONTROL.WINDOW 14 INFO.CLIP.REGION 9 ACE.CONTROL.WINDOW)
|
||
( 4 (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION)) ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION))) ACE.CONTROL.WINDOW)))
|
||
ACE.UPD.CONTROL.WINDOW D8
|
||
(P 2 RESETSTATE P 1 SI *RESETFORMS* P 0 LISPXHIST I 1 VALUE I 0 ITEM F 3 LISPXHIST) S!g ¿$ (23 SI RESETUNWIND 18 \MVLIST 13 ACE.UPD.CONTROL.WINDOWA0001)
|
||
(8 SI RESETUNWIND)
|
||
()
|
||
ACE.UPD.CW.MULE D8
|
||
(I 1 VALUE I 0 ITEM) ß l@` lÂåjð‘j€kj𢱠<00>@dg 𢱠…¿A §Ag ðœ` @A Œ` @
|
||
b¿l ¿A ²4o `
|
||
¿A`
|
||
¿o `
|
||
¿A±8o `
|
||
¿A±$@g ð²YA3 ¯Ag ð§Ag ðœ` @A Œ` @
|
||
b¿k ¿o `
|
||
¿A`
|
||
¿l± Ñ@dg ð²I¿A` @
|
||
b‹` @A ¿l ¿o `
|
||
¿A`
|
||
¿l± €g 𢱠€Ag ð§Ag ðœ` @A Œ` @
|
||
b¿l ¿o `
|
||
¿Adg ð—¿g °g ð•g „g `
|
||
¿l
|
||
`
|
||
A (475 SPACES 462 PRIN1 416 PRIN1 400 ACE.UPD.CLEAR.SET.LINE 390 WINDOWPROP 378 WINDOWPROP 334 PRIN1 322 PRIN1 306 ACE.UPD.CLEAR.SET.LINE 298 WINDOWPROP 283 WINDOWPROP 253 PRIN1 241 PRIN1 225 ACE.UPD.CLEAR.SET.LINE 216 WINDOWPROP 204 WINDOWPROP 158 PRIN1 137 PRIN1 121 PRIN1 108 PRIN1 91 POSITIONP 84 ACE.UPD.CLEAR.SET.LINE 74 WINDOWPROP 62 WINDOWPROP 41 POSITIONP)
|
||
(470 ACE.CONTROL.WINDOW 457 ACE.CONTROL.WINDOW 452 NA 446 TABLET 439 MM1201 432 MOUSE 424 MOUSE 411 ACE.CONTROL.WINDOW 384 ACE.CONTROL.WINDOW 371 ACE.CONTROL.WINDOW 364 MM1201 356 MOUSE 345 ACE.DEVICE 329 ACE.CONTROL.WINDOW 317 ACE.CONTROL.WINDOW 291 ACE.CONTROL.WINDOW 277 ACE.CONTROL.WINDOW 266 ACE.OPERATION 248 ACE.CONTROL.WINDOW 236 ACE.CONTROL.WINDOW 210 ACE.CONTROL.WINDOW 197 ACE.CONTROL.WINDOW 190 NA 182 START 169 ACE.FRAME 153 ACE.CONTROL.WINDOW 132 ACE.CONTROL.WINDOW 116 ACE.CONTROL.WINDOW 103 ACE.CONTROL.WINDOW 68 ACE.CONTROL.WINDOW 55 ACE.CONTROL.WINDOW 48 NA 29 ACE.CURSOR 6 \LASTKEYSTATE)
|
||
( 406 " Device: " 312 " State: " 231 " Frame: " 148 " Cursor: " 127 " " 98 " Cursor: ")
|
||
ACE.UPD.CLEAR.SET.LINE D8
|
||
(I 0 LINES) & ` jh`
|
||
@kÙÚ` (35 RELMOVETO 21 DSPLINEFEED 9 MOVETOUPPERLEFT)
|
||
(30 ACE.CONTROL.WINDOW 16 ACE.CONTROL.WINDOW 4 ACE.CONTROL.WINDOW)
|
||
()
|
||
ACE.CREATE.CONTROL.MENU D8
|
||
NIL H ` do ¿di ¿dl¿dg ¿dg ¿jdnÿdhHdI
|
||
¿ NIL
|
||
(69 ACE.CONTROL.MENU 40 DEFAULTMENUHELDFN 31 CLRPROMPT 4 MENUTYPE#)
|
||
( 11 (("Get Sequence" (QUOTE I/O:GET) "Fetch a sequence-file") ("Edit Frame" (QUOTE EDIT) "Edits the CURRENT frame") ("Run Sequence" (QUOTE RUN) "Runs the sequence" (SUBITEMS ("Loop" (QUOTE LOOP) "Runs sequence repeatedly until you type a space") ("Loop part" (QUOTE SUBLOOP) "Runs part of the sequence repeatedly "))) ("Put Sequence" (QUOTE I/O:PUT) "Writes current sequence out to a file") ("New Frame" (QUOTE FRAME) "Adds in another frame AFTER the current one") ("Increment Frame" (QUOTE INC) "Moves forward one frame and displays") ("New Sequence" (QUOTE NEW) "Make a new sequence from scratch") ("Delete Frame" (QUOTE DEL) "Removes CURRENT frame and smoothes over") ("Decrement Frame" (QUOTE DEC) "Goes back one frame") ("Reset Sequence" (QUOTE RESET) "Clears window and resets to start of sequence") (" Adjust Timing Delays " (QUOTE TIME) "Manipulate the timing adjustments") ("Initialize MM1201 Tablet" (QUOTE INIT.MM1201) "Sets up the Tablet for use") ("Change compression %%" (QUOTE ACESETTHRESHOLD) "Changes the space compression factor: 0 to 100 (100 = max compression)") ("Change Input Device" (QUOTE DEVICE) "Select Mouse or Tablet (for now)") ("Quit" (QUOTE QUIT) "Exit ACE; Trillium user's MUST quit when done")))
|
||
ACE.SEQ.FETCH.WIDTH D8
|
||
NIL ` È NIL
|
||
(14 BITMAP 4 ACE.CURRENT.SEQUENCE)
|
||
()
|
||
ACE.SEQ.FETCH.HEIGHT D8
|
||
NIL ` È NIL
|
||
(14 BITMAP 4 ACE.CURRENT.SEQUENCE)
|
||
()
|
||
ACE.SET.SEQ.CLIP.REGION D8
|
||
(I 3 HEIGHT I 2 WIDTH I 1 BOTTOM I 0 LEFT) B @§` b ¿A§` b¿B§` b¿C§` b¿` g @ABC (63 PUTWINDOWPROP 58 CREATEREGION)
|
||
(49 SEQUENCE.CLIPPING.REGION 44 ACE.CONTROL.WINDOW 36 ACE.SEQ.HEIGHT 26 ACE.SEQ.WIDTH 16 ACE.SEQ.WINDOW.YOFF 6 ACE.SEQ.WINDOW.XOFF)
|
||
()
|
||
ACE.ASKEM2 D8
|
||
(I 4 SPACES? I 3 TIMELIMIT? I 2 DEFAULTANSWER I 1 FLG I 0 STRING) J C¤l<b¿Adiðœ¿` °g ðš` ¿@Bh` hCD´o
|
||
(71 MKATOM 66 PROMPTFORWORD 41 TERPRI 22 DSPRESET)
|
||
(50 ACE.CONTROL.WINDOW 36 ACE.CONTROL.WINDOW 29 L 17 ACE.CONTROL.WINDOW)
|
||
( 60 (13 27 10))
|
||
ACE.TELLEM2 D8
|
||
(I 1 FLG I 0 STRING) 2 Adiðœ¿` °g ðš` ¿@`
|
||
h (46 PRIN1 34 TERPRI 15 DSPRESET)
|
||
(41 ACE.CONTROL.WINDOW 29 ACE.CONTROL.WINDOW 22 L 10 ACE.CONTROL.WINDOW)
|
||
()
|
||
ACE.UPD.CONTROL.WINDOW2 D8
|
||
(I 1 VALUE I 0 ITEM) 6 @dg ð²C¿Aið²1` µ g ° d` ð–¿g Ž`
|
||
b¿g A
|
||
g ð›g A
|
||
@dg ðœ¿g A
|
||
g ð›g A
|
||
@dg ð²7¿g i
|
||
g g g
|
||
g g
|
||
ið²+g g g g @g ð´:g i
|
||
g g
|
||
g g
|
||
g g
|
||
(307 ACE.UPD.CW.MULE 292 ACE.UPD.CW.MULE 277 ACE.UPD.CW.MULE 262 ACE.UPD.CONTROL.WINDOW2 241 ACE.UPD.CW.MULE 231 ACE.UPD.CW.MULE 221 ACE.UPD.CW.MULE 211 ACE.UPD.CW.MULE 196 ACE.UPD.CW.MULE 181 ACE.UPD.CW.MULE 166 ACE.UPD.CW.MULE 156 ACE.UPD.CONTROL.WINDOW2 133 ACE.UPD.CW.MULE 114 ACE.UPD.CW.MULE 92 ACE.UPD.CW.MULE 73 ACE.UPD.CW.MULE 59 LENGTH 54 LDIFF)
|
||
(302 NA 297 ACE.CURSOR 287 NA 282 ACE.OPERATION 272 MOUSE 267 ACE.DEVICE 256 FRAME 248 RESET 236 ACE.CURSOR 226 ACE.OPERATION 216 ACE.DEVICE 206 ACE.FRAME 191 NA 186 ACE.CURSOR 176 OK 171 ACE.OPERATION 161 ACE.DEVICE 150 FRAME 141 UPD 127 ACE.CURSOR 120 CURSOR 108 ACE.OPERATION 100 OPERATION 86 ACE.DEVICE 79 DEVICE 67 ACE.FRAME 49 ACE.FRAME.TAIL 43 START 35 ACE.FRAME.TAIL 27 NA 20 ACE.CURRENT.SEQUENCE 6 FRAME)
|
||
()
|
||
(PRETTYCOMPRINT ACE-MAINCOMS)
|
||
(RPAQQ ACE-MAINCOMS ((* MAIN TOP LEVEL STUFF) (FNS ACE ACE.ANIMATE ACE.RUN ACEGETFRAME# ACERUNLOOP
|
||
ACE.NEW.SEQUENCE ACE.NEW.FRAME ACE.QUIT.ACE ACE.RESET.SEQ ACE.RUN.CURRENT.SEQ ACE.DELAY
|
||
ACE.DELAY.FRAME ACE.DELAY.SEQ ACE.DECREMENT.FRAME ACE.INCREMENT.FRAME ACE.DELETE.FRAME ACE.SET.DEVICE
|
||
ACE.QUICKDRAW&UPD ACE.RECONSTRUCT.FRAME SUBLIST) (* TRILLIUM STUFF) (FNS ACE.TRILLIUM
|
||
ACE.TRILLIUM.LOOP ACE.RUN.TRILLIUM ACE.QUIT.TRILLIUM ACE.CREATE.EDITING.BORDER) (* I/O STUFF) (FNS
|
||
ACE.GET.SEQ.FILE ACE.PUT.SEQ.FILE ACE.GET.A.FILE.NAME) (* HELPER FNS) (FNS ACE.ASKEM ACE.TELLEM
|
||
ACE.CONFIRMIT ACE.DEFINE.SEQ.WINDOW ACE.FIGURE.OUT.WINDOW ACE.RETURN.CLOSEST.VERTEX ACE.NEW.SEQ.ASST
|
||
ACE.DELAY.FRAME.ASST ACE.SETUP.CW.CLIPPING.REGIONS ACE.CHECKSTUFF ACE.UPD.CONTROL.WINDOW
|
||
ACE.UPD.CW.MULE ACE.UPD.CLEAR.SET.LINE ACE.CREATE.CONTROL.MENU ACE.SEQ.FETCH.WIDTH
|
||
ACE.SEQ.FETCH.HEIGHT ACE.SET.SEQ.CLIP.REGION ACE.ASKEM2 ACE.TELLEM2 ACE.UPD.CONTROL.WINDOW2) (* The
|
||
following Macros set up restricting clipping regions) (MACROS ACE.MAC.CW.INFO.CLIP
|
||
ACE.MAC.CW.PROMPT.CLIP ACE.MAC.SEQ.CLIP) (MACROS ACE.MAC.FETCH.WIDTH ACE.MAC.FETCH.HEIGHT) (CURSORS
|
||
ACE.LEFTMOUSE.CURSOR ACE.MIDDLEMOUSE.CURSOR ACE.RIGHTMOUSE.CURSOR ACE.ALLMOUSE.CURSOR) (GLOBALVARS
|
||
ACE.CONTROL.WINDOW ACE.DIRECTORY ACE.SEQ.WINDOW ACE.SEQ.WIDTH ACE.SEQ.HEIGHT ACE.SEQ.WINDOW.XOFF
|
||
ACE.SEQ.WINDOW.YOFF ACE.CURRENT.SEQUENCE ACE.CURRENT.SEQUENCE.NAME ACE.FRAME.TAIL ACE.CURRENT.FRAME
|
||
ACE.VERTICAL.BLOCK ACE.AREA.THRESHOLD ACE.RUNNING.UNDER.TRILLIUM ACE.LEFTMOUSE.CURSOR
|
||
ACE.MIDDLEMOUSE.CURSOR ACE.RIGHTMOUSE.CURSOR ACE.ALLMOUSE.CURSOR) (* MENUS IN MAIN) (GLOBALVARS
|
||
ACE.CONTROL.MENU ACE.DELAY.MENU ACE.SET.DEVICE.MENU) (P (SETQ ACE.CONTROL.WINDOW NIL) (SETQ
|
||
ACE.CONTROL.MENU NIL) (SETQ ACE.DELAY.MENU NIL) (SETQ ACE.SET.DEVICE.MENU NIL)) (DECLARE:
|
||
DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
|
||
(PUTPROPS ACE.MAC.CW.INFO.CLIP MACRO ((FORM) (RESETLST (RESETSAVE (PROGN (DSPCLIPPINGREGION (
|
||
WINDOWPROP ACE.CONTROL.WINDOW (QUOTE INFO.CLIP.REGION)) ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (
|
||
REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE INFO.CLIP.REGION))) ACE.CONTROL.WINDOW)) (QUOTE
|
||
(PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION))
|
||
ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE
|
||
NORMAL.CLIP.REGION))) ACE.CONTROL.WINDOW)))) FORM)))
|
||
(PUTPROPS ACE.MAC.CW.PROMPT.CLIP MACRO ((FORM) (RESETLST (RESETSAVE (PROGN (DSPCLIPPINGREGION (
|
||
WINDOWPROP ACE.CONTROL.WINDOW (QUOTE PROMPT.CLIP.REGION)) ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (
|
||
REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE PROMPT.CLIP.REGION))) ACE.CONTROL.WINDOW)) (
|
||
QUOTE (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION))
|
||
ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE
|
||
NORMAL.CLIP.REGION))) ACE.CONTROL.WINDOW)))) FORM)))
|
||
(PUTPROPS ACE.MAC.SEQ.CLIP MACRO ((FORM) (COND ((WINDOWPROP ACE.CONTROL.WINDOW (QUOTE
|
||
SEQUENCE.CLIPPING.REGION)) (RESETLST (RESETSAVE (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (
|
||
QUOTE SEQUENCE.CLIPPING.REGION)) ACE.SEQ.WINDOW) (LIST (QUOTE DSPCLIPPINGREGION) (DSPCLIPPINGREGION
|
||
NIL ACE.SEQ.WINDOW) ACE.SEQ.WINDOW)) FORM)) (T FORM))))
|
||
(PUTPROPS ACE.MAC.FETCH.WIDTH MACRO (NIL (fetch (BITMAP BITMAPWIDTH) of (fetch (ACE.BLIT BITMAP) of (
|
||
CAR (fetch (ACE.FRAME BLITS) of (CAR ACE.CURRENT.SEQUENCE)))))))
|
||
(PUTPROPS ACE.MAC.FETCH.HEIGHT MACRO (NIL (fetch (BITMAP BITMAPHEIGHT) of (fetch (ACE.BLIT BITMAP) of
|
||
(CAR (fetch (ACE.FRAME BLITS) of (CAR ACE.CURRENT.SEQUENCE)))))))
|
||
(RPAQ ACE.LEFTMOUSE.CURSOR (CURSORCREATE (READBITMAP) 8 8))
|
||
(16 16 "GOOL" "D@@D" "ELID" "ELID" "ELID" "ELID" "ELID" "ELID" "ELID" "D@@D" "D@@D" "D@@D" "D@@D"
|
||
"D@@D" "D@@D" "GOOL")
|
||
(RPAQ ACE.MIDDLEMOUSE.CURSOR (CURSORCREATE (READBITMAP) 8 8))
|
||
(16 16 "GOOL" "D@@D" "ECID" "ECID" "ECID" "ECID" "ECID" "ECID" "ECID" "D@@D" "D@@D" "D@@D" "D@@D"
|
||
"D@@D" "D@@D" "GOOL")
|
||
(RPAQ ACE.RIGHTMOUSE.CURSOR (CURSORCREATE (READBITMAP) 8 8))
|
||
(16 16 "GOOL" "D@@D" "EBGD" "EBGD" "EBGD" "EBGD" "EBGD" "EBGD" "EBGD" "D@@D" "D@@D" "D@@D" "D@@D"
|
||
"D@@D" "D@@D" "GOOL")
|
||
(RPAQ ACE.ALLMOUSE.CURSOR (CURSORCREATE (READBITMAP) 8 8))
|
||
(16 16 "GOOL" "D@@D" "DMKD" "DMKD" "DMKD" "DMKD" "DMKD" "DMKD" "DMKD" "D@@D" "D@@D" "D@@D" "D@@D"
|
||
"D@@D" "D@@D" "GOOL")
|
||
(SETQ ACE.CONTROL.WINDOW NIL)
|
||
(SETQ ACE.CONTROL.MENU NIL)
|
||
(SETQ ACE.DELAY.MENU NIL)
|
||
(SETQ ACE.SET.DEVICE.MENU NIL)
|
||
NIL
|