(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:45:13" ("compiled on " {DSK}lispusers>TRAJECTORY-FOLLOWER.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 4-Apr-88 11:51:42" {ERINYES}MEDLEY>TRAJECTORY-FOLLOWER.;1 9967 changes to%: (FNS TRAJECTORY.FOLLOW TRAJECTORY.FOLLOWER.POINT TRAJECTORY.FOLLOWER.PUT TRAJECTORY.FOLLOWER.SETUP TRAJECTORY.FOLLOWER.TEST TRAJECTORY.FOLLOWER.WRAPUP) (VARS TRAJECTORY-FOLLOWERCOMS) previous date%: " 4-Apr-88 11:43:37" {CORE}TRAJECTORY-FOLLOWER.;2) TRAJECTORY.FOLLOW :D8 (I 5 WINDOW I 4 BITMAP I 3 DELAY I 2 N I 1 CLOSED I 0 KNOTS F 0 TRAJECTORY.FOLLOWER.BALL) 1EµBCDµP@AghEµ` h(45 TRAJECTORY.FOLLOWER.WRAPUP 40 DRAWCURVE 18 TRAJECTORY.FOLLOWER.SETUP 7 SCREENBITMAP) (34 PROMPTWINDOW 25 TRAJECTORY.FOLLOWER.POINT) () TRAJECTORY.FOLLOWER.POINT :D8 (I 2 WINDOW I 1 Y I 0 X) —`lØd`ñ–¿k `µ<@²X``@ ``kØA ` ` Ù ¿j ¿°©``o(148 SETA 120 CLOCK 113 DISMISS 107 CLOCKDIFFERENCE 96 TRAJECTORY.FOLLOWER.PUT 86 SETA 81 FIXR 63 SETA 58 FIXR 32 TRAJECTORY.FOLLOWER.PUT) (138 TRAJECTORY.FOLLOWER.POINTER 133 TRAJECTORY.FOLLOWER.POINTS 125 TRAJECTORY.FOLLOWER.LAST.TIME 102 TRAJECTORY.FOLLOWER.LAST.TIME 91 TRAJECTORY.FOLLOWER.POINTER 73 TRAJECTORY.FOLLOWER.POINTER 68 TRAJECTORY.FOLLOWER.POINTS 52 TRAJECTORY.FOLLOWER.POINTER 47 TRAJECTORY.FOLLOWER.POINTS 37 TRAJECTORY.FOLLOWER.DELAY 27 TRAJECTORY.FOLLOWER.POINTER 18 TRAJECTORY.FOLLOWER.COUNT 12 TRAJECTORY.FOLLOWER.POINTER 4 TRAJECTORY.FOLLOWER.POINTER) ( 143 2147483647) TRAJECTORY.FOLLOWER.PUT :D8 (P 1 Y P 0 X I 0 POINTER) ^ `@ XoÙjð³D`@kØ ¹`jd`H`ÙI`Ù``gg h(90 BKBITBLT 37 ELT 13 ELT) (84 INVERT 79 INPUT 74 TRAJECTORY.FOLLOWER.HEIGHT 69 TRAJECTORY.FOLLOWER.WIDTH 63 TRAJECTORY.FOLLOWER.HALF.HEIGHT 56 TRAJECTORY.FOLLOWER.HALF.WIDTH 50 TRAJECTORY.FOLLOWER.DSP 43 TRAJECTORY.FOLLOWER.BITMAP 29 TRAJECTORY.FOLLOWER.POINTS 7 TRAJECTORY.FOLLOWER.POINTS) ( 19 2147483647) TRAJECTORY.FOLLOWER.SETUP :D8 (P 1 REAL.BITMAP P 0 REAL.N I 3 BITMAP I 2 DELAY I 1 N I 0 DSP F 2 TRAJECTORY.FOLLOWER.DEFAULT.BITMAP) AµldCµR`²HlÚ` ð³HlÚgo¿kH@Bd›j ¿IdÈIÈ`lÛ`lÛh(92 CLOCK 54 ARRAY 32 ARRAYSIZE) (156 TRAJECTORY.FOLLOWER.HALF.HEIGHT 148 TRAJECTORY.FOLLOWER.HEIGHT 143 TRAJECTORY.FOLLOWER.HALF.WIDTH 135 TRAJECTORY.FOLLOWER.WIDTH 130 TRAJECTORY.FOLLOWER.HEIGHT 123 BITMAP 117 TRAJECTORY.FOLLOWER.WIDTH 110 BITMAP 104 TRAJECTORY.FOLLOWER.BITMAP 97 TRAJECTORY.FOLLOWER.LAST.TIME 84 TRAJECTORY.FOLLOWER.DELAY 78 TRAJECTORY.FOLLOWER.DSP 72 TRAJECTORY.FOLLOWER.COUNT 66 TRAJECTORY.FOLLOWER.POINTER 59 TRAJECTORY.FOLLOWER.POINTS 44 FIXP 27 TRAJECTORY.FOLLOWER.POINTS 16 TRAJECTORY.FOLLOWER.POINTS) ( 49 2147483647) TRAJECTORY.FOLLOWER.TEST :D8 (P 4 BITMAP P 3 CLOSED P 2 DELAY P 1 N P 0 KNOTS) P€o` 0 _¿OµOh__¿l@`lÂåjð™jˆO&_¿°êkjð²ÐOXo Yo ½jMó‘j€MZdjðªd˜d ‘hº`do¿dg ¿dg¿jdnÿdh¾dN ¿ [`do¿dg ¿dg¿jdnÿdh_¿dO ¿ \IJLKgð²-l@`lÂåjð‘j€kjð³,High` ¿°×Hhgh` ¿h(332 TRAJECTORY.FOLLOWER.WRAPUP 326 DRAWCURVE 304 DRAWCURVE 255 TRAJECTORY.FOLLOWER.SETUP 247 SCREENBITMAP 241 MENU 182 MENU 124 \FZEROP 101 RNUMBER 90 RNUMBER 30 GETPOSITION 22 GETPOSITION 17 PRIN1) (320 PROMPTWINDOW 314 TRAJECTORY.FOLLOWER.POINT 298 PROMPTWINDOW 292 TRAJECTORY.FOLLOWER.POINT 271 \LASTKEYSTATE 261 CLOSED 213 DEFAULTMENUHELDFN 204 CLRPROMPT 188 |MENUTYPE#| 157 DEFAULTMENUHELDFN 148 CLRPROMPT 132 |MENUTYPE#| 53 \LASTKEYSTATE 12 PROMPTWINDOW) ( 195 (("A single point" NIL) ("A horizontal line" TRAJECTORY.FOLLOWER.HORIZONTAL) ("A vertical line" TRAJECTORY.FOLLOWER.VERTICAL) ("A ball" TRAJECTORY.FOLLOWER.BALL)) 139 (OPEN CLOSED) 96 "Indicate the delay per point (milliseconds)" 85 "Indicate the number of points in the follower" 7 "Indicate knots on a trajectory; hold down left shift key on last point") TRAJECTORY.FOLLOWER.WRAPUP :D8 (P 1 I) `kYHó‘h¿IkÔ°ñ(19 TRAJECTORY.FOLLOWER.POINT) (4 TRAJECTORY.FOLLOWER.COUNT) () (PRETTYCOMPRINT TRAJECTORY-FOLLOWERCOMS) (RPAQQ TRAJECTORY-FOLLOWERCOMS ((FNS TRAJECTORY.FOLLOW TRAJECTORY.FOLLOWER.POINT TRAJECTORY.FOLLOWER.PUT TRAJECTORY.FOLLOWER.SETUP TRAJECTORY.FOLLOWER.TEST TRAJECTORY.FOLLOWER.WRAPUP) (VARS (TRAJECTORY.FOLLOWER.POINTS)) (GLOBALVARS TRAJECTORY.FOLLOWER.COUNT TRAJECTORY.FOLLOWER.LAST.TIME TRAJECTORY.FOLLOWER.POINTER TRAJECTORY.FOLLOWER.POINTS TRAJECTORY.FOLLOWER.DELAY TRAJECTORY.FOLLOWER.DSP TRAJECTORY.FOLLOWER.BITMAP TRAJECTORY.FOLLOWER.HALF.WIDTH TRAJECTORY.FOLLOWER.HALF.HEIGHT TRAJECTORY.FOLLOWER.WIDTH TRAJECTORY.FOLLOWER.HEIGHT) (BITMAPS TRAJECTORY.FOLLOWER.DEFAULT.BITMAP TRAJECTORY.FOLLOWER.BALL TRAJECTORY.FOLLOWER.HORIZONTAL TRAJECTORY.FOLLOWER.VERTICAL) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) READNUMBER))) (RPAQQ TRAJECTORY.FOLLOWER.POINTS NIL) (RPAQQ TRAJECTORY.FOLLOWER.DEFAULT.BITMAP #*(1 1)H@@@) (RPAQQ TRAJECTORY.FOLLOWER.BALL #*(21 21)@AOL@@@@@COO@@@@@OOOH@@@AOOOL@@@COOON@@@GOOOO@@@GOOOO@@@GOOOOH@@OOOOOH@@OOOOOH@@OOOOOH@@OOOOOH@@GOOOOH@@GOOOO@@@GOOOO@@@COOON@@@COOON@@@AOOOL@@@@OOOH@@@@GOO@@@@@AOL@@@@ ) (RPAQQ TRAJECTORY.FOLLOWER.HORIZONTAL #*(18 1)OOOOL@@@) (RPAQQ TRAJECTORY.FOLLOWER.VERTICAL #*(1 16)H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@H@@@ ) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) READNUMBER) (PUTPROPS TRAJECTORY-FOLLOWER COPYRIGHT ("Xerox Corporation" 1986 1988)) NIL