XEROX EYECON 2 4 1 EYECON 1 4 By: Bob Bane (Bane.envos@Xerox.com) DESCRIPTION EYECON creates a window with two eyes in it that follow your cursor around. The eyes also wink when you click your mouse buttons: left and right buttons close the corresponding eye, middle button closes both. Here's what it looks like: -ʗ%Bĥ@ ~˯Oj[η/ഴ @W@  ֤A Zj_By%X j@" %} ͪM] tQV*$d!} jEaEP/H&edIWĦJ6ZhHʨZhJZLȕU?hJ  'HJ+"!uR%w@@~A@ 1 0A:CAp-A ׀BJI ?Ȃ%?HH#>EԘ0<0% $|~@@00?@j?Z ) @PȀ?G@P^ (( ""@HD@HD@A$" The EYECON window can be shrunk into an icon that looks like this: ?8pp?8?| xx xx | ?p?88p? doing this kills the process which tracks the cursor. Opening the icon restarts the tracking process. To start it, load EYECON and call (EYECON.OPEN left bottom) to create an EYECON window at (left bottom). INSPIRATION I hacked this up after hearing about something similar that runs under Suntools. The bitmap for the eyes was borrowed from Spy and slightly modified (thanks, Larry!). Julian Orr suggested that the eyes should wink. (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))), , ,,8, ,8H PAGEHEADING RUNNINGHEADMODERN MODERN MODERN MODERN MODERN MODERNLOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN % 6 BMOBJ.GETFN3MODERN CT BMOBJ.GETFN3MODERN h/ !  6z