(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 9-Sep-94 09:49:40" ("compiled on " |{DSK}lispusers>EYECON.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED "24-Oct-88 21:40:18" {ERIS}LISP>EYECON.\;18 21796 |changes| |to:| (VARS EYECONCOMS EYECON.CONTROL.POINTS) (FNS EYECON.TRACK EYECON.FIND.POINT) |previous| |date:| "24-Oct-88 21:32:12" {ERIS}LISP>EYECON.\;17) EYECON :D8 (I 0 EW F 0 EYECON.PUPIL F 1 EYECON.OPEN) BQhd@ P@l%l P@lal @ggg@hh (63 PUTWINDOWPROP 58 ADD.PROCESS 30 EYECON.DRAW.PUPIL 19 EYECON.DRAW.PUPIL 8 BKBITBLT) (46 QUOTE 41 EYECON.TRACK 36 PROCESS) () EYECON.DIE :D8 (I 0 EW) @ . (12 DEL.PROCESS 5 \\INSUREWINDOW) NIL () EYECON.DRAW.PUPIL :D8 (P 2 BDY P 1 BDX P 0 EYECON.PUPIL.OFFSET I 4 MASK? I 3 DY I 2 DX I 1 WINDOW I 0 PM F 3 EYECON.PUPIL F 4 EYECON.MASK) el!BHٹCHٺD=Shd@ TIJ@jdl dgg @hdAIJhdgg @hdAIJhdgg (98 BKBITBLT 73 BKBITBLT 49 BKBITBLT 24 BKBITBLT) (92 INVERT 87 INPUT 67 PAINT 62 INPUT 43 ERASE 38 INPUT) () EYECON.FIND.POINT :D8 (L (1 DY 0 DX) F 5 EYECON.SLOPE.LIST F 6 EYECON.CONTROL.POINTS) Ij@@j@bjAAjAb@jUAl@VU"JIhKHLJINIL NIL () EYECON.ICON :D8 (P 0 EP I 1 OLDICON I 0 EW F 1 EYECON.ICON F 2 EYECON.ICON.MASK) .@ .HH @gh A QR (43 ICONW 32 PUTWINDOWPROP 19 DEL.PROCESS 5 \\INSUREWINDOW) (26 PROCESS) () EYECON.OPEN :D8 (P 2 EW I 1 BOTTOM I 0 LEFT F 3 EYECON.OPEN F 4 EYECON.LEFT F 5 EYECON.BOTTOM) z S S @TAUIHhhl J Jgg Jgg Jgg Jgg J (119 EYECON 113 PUTWINDOWPROP 97 PUTWINDOWPROP 81 PUTWINDOWPROP 65 PUTWINDOWPROP 49 OPENW 40 CREATEW 15 BITMAPHEIGHT 8 BITMAPWIDTH) (108 EYECON 103 EXPANDFN 92 EYECON.ICON 87 ICONFN 76 DON\'T 71 RESHAPEFN 60 EYECON.DIE 55 CLOSEFN) () EYECON.TRACK :D8 (P 22 CP P 21 EDY P 20 ERDX P 19 ELDX P 18 OLDLB P 17 OLDLY P 16 OLDLX P 15 EWR P 14 ORPY P 13 OLPY P 12 ORPX P 11 OLPX P 10 ERPMASK P 9 ELPMASK P 8 ERPY P 7 ELPY P 6 ERPX P 5 ELPX P 4 RIGHTLID P 3 LEFTLID P 2 EY P 1 ERX P 0 ELX I 0 EW F 23 EYECON.CLOSED F 24 EYECON.SCALE.FACTOR F 25 EYECON.PUPIL F 26 EYECON.OPEN) VjddidjdddW2 W2 jdddO@ %@ _XOl غHl%ԸIlaԹh_ O `O"`O$``_ `_"`_$dkj?KW.j@ hLW.lR@ hO H_&O I_(O"J_*jO LO LljK W4j@ gKW.j@ hO$ljLW4lR@ gjO ljO"O"jO"l O&jW0_&O(jW0_(O*jW0_*KO&O* _,jO&jO,قO,jO*jO,قO,_KdgMOOO>Kgi[O@l%Ol O M_O_O@l%Ml Oi LOO(O* _,jO(jO,قO,jO*jO,قO,_LdgONOO Lgi\O@laOl O N_O_O@laNl Oi (592 EYECON.DRAW.PUPIL 563 EYECON.DRAW.PUPIL 474 EYECON.FIND.POINT 459 EYECON.DRAW.PUPIL 430 EYECON.DRAW.PUPIL 343 EYECON.FIND.POINT 265 EYECON.WINK 240 EYECON.WINK 222 EYECON.WINK 169 EYECON.WINK 154 EYECON.WINK 54 \\INSUREWINDOW 43 \\INSUREWINDOW 34 BLOCK 22 BITMAPCOPY 15 BITMAPCOPY) (539 NOW 516 NOW 406 NOW 385 NOW 271 NOW 228 NOW 133 LASTMOUSEBUTTONS 125 LASTMOUSEY 117 LASTMOUSEX 109 LASTMOUSEBUTTONS 100 LASTMOUSEY 90 LASTMOUSEX) () EYECON.WINK :D8 (I 2 WINDOW I 1 LEFT I 0 SOURCE F 0 EYECON.OPEN) @AjBAjl2P (19 BKBITBLT 13 BITMAPHEIGHT) NIL () (PRETTYCOMPRINT EYECONCOMS) (RPAQQ EYECONCOMS ((CONSTANTS EYECON.PUPIL.SIZE EYECON.LEFT.CENTER EYECON.RIGHT.CENTER EYECON.HEIGHT.OFFSET EYECON.RIGHT.WINK EYECON.WINK.WIDTH) (VARS EYECON.PUPIL EYECON.MASK EYECON.OPEN EYECON.CLOSED EYECON.ICON EYECON.ICON.MASK EYECON.LEFT EYECON.BOTTOM) (FNS EYECON EYECON.DIE EYECON.DRAW.PUPIL EYECON.FIND.POINT EYECON.ICON EYECON.OPEN EYECON.TRACK EYECON.WINK) (* |;;| "Check screen size and compute appropriate scale factor") (* |;;| "All computations are scaled to keep them in smallp range") (VARS EYECON.SCALE.FACTOR EYECON.CONTROL.POINTS) (P (BIND (MINSF _ 256) (RANGE _ (MAX SCREENHEIGHT SCREENWIDTH)) FIRST (SETQ EYECON.SCALE.FACTOR 0) WHILE (ILESSP MINSF RANGE) DO (ADD EYECON.SCALE.FACTOR 1) (SETQ MINSF (LLSH MINSF 1))) (SETQ EYECON.SLOPE.LIST (FOR P IN (CDR EYECON.CONTROL.POINTS) COLLECT (IQUOTIENT (LSH (CDR P) 8) (CAR P)))) (PUSH EYECON.SLOPE.LIST (IPLUS (CAR EYECON.SLOPE.LIST) 1))))) (RPAQQ EYECON.PUPIL.SIZE 10) (RPAQQ EYECON.LEFT.CENTER 37) (RPAQQ EYECON.RIGHT.CENTER 97) (RPAQQ EYECON.HEIGHT.OFFSET 12) (RPAQQ EYECON.RIGHT.WINK 82) (RPAQQ EYECON.WINK.WIDTH 50) (CONSTANTS EYECON.PUPIL.SIZE EYECON.LEFT.CENTER EYECON.RIGHT.CENTER EYECON.HEIGHT.OFFSET EYECON.RIGHT.WINK EYECON.WINK.WIDTH) (RPAQQ EYECON.PUPIL #*(10 10)AN@@CO@@GOH@OOL@OCL@OCL@OOL@GOH@CO@@AN@@) (RPAQQ EYECON.MASK #*(133 45)OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOON@@AOOOOOOOOOOON@@AOOOOOOOH@@OOOOOOO@@@@OOOOOOOOOOOL@@@COOOOOOH@@OOOOOON@@@@GOOOOOOOOOOH@@@AOOOOOOH@@OOOOOOH@@@@COOOOOOOOOO@@@@@GOOOOOH@@OOOOOOH@@@@COOOOOOOOOO@@@@@GOOOOOH@@OOOOOO@@@@@AOOOOOOOOON@@@@@COOOOOH@@OOOOOO@@@@@@OOOOOOOOOL@@@@@COOOOOH@@OOOOON@@@@@@OOOOOOOOOL@@@@@AOOOOOH@@OOOOOO@@@@@@OOOOOOOOOL@@@@@COOOOOH@@OOOOOOH@@@@@OOOOOOOOOL@@@@@GOOOOOH@@OOOOOOL@@@@@OOOOOOOOOL@@@@@OOOOOOH@@OOOOOON@@@@AOOOOOOOOON@@@@AOOOOOOH@@OOOOOOO@@@@COOOOOOOOOO@@@@COOOOOOH@@OOOOOOOH@@@OOOOOOOOOOOL@@@GOOOOOOH@@OOOOOOOO@@OOOOOOOOOOOOOL@COOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@ ) (RPAQQ EYECON.OPEN #*(133 45)E@@@@EOONJI@@@BC@CA@@@BEEOONH@@@BH@@HD@@AAGOOD@@EAD@C@@JBH@@KOOJB@@@H@@@B@HAEGFOOOMA@@@JAAD@@BBOOOMKJJ@DA@@@D@@@DJOGMONDAADE@BHJB@IONOKMDH@@@H@@I@AEGNIDKKOBJ@MJ@AFLAECOGDJEOJJ@B@@@HA@JMJJKEGODA@@DKDH@B@KOJKEEFMDB@@@@JLEOOM@DEKGOLJA@@@BADOOKFHHBOONHM@@@EBAGOHJAEEOOM@@DEHH@BOONJJADGOJABH@@JIGOH@@@@BEGOME@HDBJOOJI@@@@@GOJE@@@DJEOKD@@@AEKON@@DH@AOOFJ@@@@KGNIDH@@KJOH@@D@B@@DOFJJBAEEKLH@A@@H@@GMG@@@NKGJH@@@HABBON@KDKDAOMAB@D@@@EGKEH@@KGOD@@@@B@@ACML@C@@NOB@@A@@@@@KOK@@@NMFJD@@@@DA@KNIEJFJEODB@H@@@@IEJMH@@KGI@@@@@@ADBEEHB@A@FJI@J@@@@@@BGK@@@NOJD@@@BBB@HBOJI@BEGM@DAAA@@@@IGMH@@MJJH@@@DMKOEM@E@A@BHBNKOFLH@@@EEFH@@NOJB@@DICGDJEEAJHEFBJIDKKBDH@AAGMH@@IFDHBBAGOMOGMB@H@@DABOKNOOJAA@DIJ@@@KFJHH@BKOOFMDDEFAAJHHJMKOOE@@DEEK@@@EE@@@BOJJDHIJIII@BFFEFDDIEGM@@@BJH@@DJFJ@DJNMMECFJDEJFHIEKBJNMMDHAEIDH@@JJH@BAGAOOD@@EJ@@@AFH@@KONCJA@@EE@@@EDJJ@EJMGOBJJJDDLLHIEEECOJMFHAEDJH@@BA@DJIOOOOOI@A@B@A@B@BGOOOONEDHBA@@@EDJIABKOOOOBBKJBAAAGEACOOOOEBBEDJH@@H@EGGONN@@EOHD@@HD@@HGNH@AMOOKJH@@@@JDAMEOO@@@BMDABD@@IB@JM@@@CONJN@I@@@I@EGOON@@@@CAB@JDIDABC@@@@AOOOJHB@@@BDAMOOH@@@@CJ@HDC@HDAG@@@@@GONN@I@@@D@EGOOH@@@@BMDA@DHB@JM@@@@@GOOJH@H@@B@AOOO@@@@@AMDBDJDI@JN@@@@@COON@A@@@HHBBEO@@@@@@GA@DHDHBCH@@@@@CNIA@D@@@H@DJON@@@@@@ODE@C@BHKL@@@@@AOMDH@@@@B@@@@C@@@@@@@H@@@@@@D@@@@@@C@@@@A@@@H@ABEOH@@@@@J@DIABDHAD@@@@@GNIB@@@@@BD@@@@H@@@@@@D@C@C@@H@@@@@@D@@@@I@@@H@@AAFJ@@@@ABAF@@@AJAB@@@@AEJB@@@@@@B@D@@BI@@@@B@@IADJBD@A@@@@BE@@@HA@@@HH@@H@D@@@DHHHB@@@A@DDDH@@@H@D@@D@@@H@H@@E@E@@@@@A@JAADB@@@@@BHBH@@D@@@@E@@@@@B@EAAB@@EA@BBH@ABBBHA@@@@@BH@@HD@@@DH@@@@@H@@DDHH@@D@@@@@DH@@@H@@@B@@@@@@J@DD@@@H@@@@D@@@HHAD@@@@@A@@@D@@@@@@@D@@DAABBDIABB@H@@H@@@@@@@H@@ ) (RPAQQ EYECON.CLOSED #*(133 45)E@@@@EOONJI@@@@@@@@@@@BEEOONH@@@BH@@HD@@AAGOOD@@EA@@@@@DFH@@KOOJB@@@H@@@B@HAEGFOOOMA@@@@@@@@@BBOOOMKJJ@DA@@@D@@@DJOGMONDAA@@@@@DF@IONOKMDH@@@H@@I@AEGNIDKKOBJ@@@@@@@AECOGDJEOJJ@B@@@HA@JMJJKEGODA@@@@@@@F@KOJKEEFMDB@@@@JLDOOM@DEKGOLJ@@@@@BHOOKFHHBOOLHM@@@EBAOOHJAEEOOM@@@@@@@FOONJJADGONABH@@JIGOH@@@@BEGOM@@@@@EOOJI@@@@@GOJE@@@DJEOKD@@@AEKON@@@@@COOFJ@@@@KGNIDH@@KJOH@@D@B@@DOF@@@@@CGLH@A@@H@@GMG@@@NKGJH@@@HABBON@@@@@COMAB@D@@@EGKEH@@KGOD@@@@B@@ACM@@@@@EOB@@A@@@@@KOK@@@NMFJD@@@@DA@KN@@@@@CODB@H@@@@IEJMH@@KGI@@@@@@ADBEE@@@@@EFI@J@@@@@@BGK@@@NOJD@@@BBB@HBO@@@@@GI@DAAA@@@@IGMH@@MJJH@@@DMKOEM@@@@@@@FNKOFLH@@@EEFH@@NOJB@@DICGDJEE@@@@@EFIDKKBDH@AAGMH@@IFDHBBAGOMOGMB@@@@@BFOKNOOJAA@DIJ@@@KFJHH@BOOOFMDD@@@@@A@JMKOOM@@DEEK@@@EE@@@BGNJDHIJI@@@@@DIFDDIEOI@@@BJH@@DJFJ@DNNNBCCFJ@@@@@BIKCAAMMLHAEIDH@@JJH@BAOI@@@@@E@@@@@E@@@@@BGNA@@EE@@@EDJJ@IF@HJHHJJ@@@@@BIDDEDDAJDAEDJH@@BA@@JKHJ@CBA@A@@@@@D@BAC@ADGED@BA@@@EDHBAEBAG@DJBK@@@@@FIADHCJABJA@DJH@@H@E@FLIDH@@DHD@@@@@A@DH@@DJDMHBH@@@@JD@ICD@IBBM@DA@@@@@D@HBMABD@KBD@I@@@I@EBMAE@@H@BIB@@@@@BFE@@D@BJBMBHB@@@BDJMDJ@JBBB@B@@@@@@@A@AAAADADJMDI@@@D@BJO@H@@@@BHD@@@@@A@E@@@@@DCME@@H@@B@AGNL@HHHHHAD@@@@@AF@DDDDD@MOJ@A@@@HH@JOK@@@@@B@A@@@@@D@A@@@@@CGMD@D@@@H@EEONBBBBB@MD@@@@@AFLAAAAAAONJH@@@@BDDFBOL@D@HB@D@@@@@A@A@D@H@OMAHHI@@@H@@@MGJHIDA@JJ@@@@@BIDB@JDEGJL@@@@@@BD@@@GOBBBDACD@@@@@AGB@IAACOH@@@I@@@H@@DAENIEEABNM@@@@@EIMBBJJENJ@H@@@@@B@D@DCONLJDDOD@@@@@AGLHIDMOO@H@HA@@@HH@@@AONMKCKHH@@@@@@HGGCFMON@@@@D@@@H@H@A@GOGGONN@@@@@@@AMOOKKOHB@@D@@@@E@@@@ECOMMMMI@@@@@@@FFNNNOOBH@@@BH@@HD@@@B@OOMOFB@@@@@@@AAKNOOLA@@@@H@@@B@@@@H@BKKNJH@@@@@@@@EEOGE@@D@@@A@@@D@@@@@HCDKEDAA@@@@@DF@JKDK@D@@@@@H@@ ) (RPAQQ EYECON.ICON #*(30 18)@@COO@@@@COOOO@@@ON@AOL@AN@GHAN@CHAON@G@G@COO@CHN@COO@ALL@GLOH@LL@GHGH@LL@GHGH@LL@GLOH@LN@COO@ALG@COO@CHCHAON@G@AN@GHAN@@ON@AOL@@COOOO@@@@COO@@@ ) (RPAQQ EYECON.ICON.MASK #*(30 18)@@COO@@@@COOOO@@@OOOOOL@AOOOOON@COOOOOO@GOOOOOOHOOOOOOOLOOOOOOOLOOOOOOOLOOOOOOOLOOOOOOOLOOOOOOOLGOOOOOOHCOOOOOO@AOOOOON@@OOOOOL@@COOOO@@@@COO@@@ ) (RPAQQ EYECON.LEFT 200) (RPAQQ EYECON.BOTTOM 200) (RPAQQ EYECON.SCALE.FACTOR 3) (RPAQQ EYECON.CONTROL.POINTS ((0 . 4) (1 . 4) (2 . 4) (3 . 4) (4 . 3) (5 . 3) (6 . 2) (7 . 1) (7 . 0)) ) (BIND (MINSF _ 256) (RANGE _ (MAX SCREENHEIGHT SCREENWIDTH)) FIRST (SETQ EYECON.SCALE.FACTOR 0) WHILE (ILESSP MINSF RANGE) DO (ADD EYECON.SCALE.FACTOR 1) (SETQ MINSF (LLSH MINSF 1))) (SETQ EYECON.SLOPE.LIST (FOR P IN (CDR EYECON.CONTROL.POINTS) COLLECT (IQUOTIENT (LSH (CDR P) 8) (CAR P)))) (PUSH EYECON.SLOPE.LIST (IPLUS (CAR EYECON.SLOPE.LIST) 1)) (PUTPROPS EYECON COPYRIGHT ("ENVOS Corporation" 1988)) NIL