en·vإos READAPPLEFONT 2 4 1 READAPPLEFONT 1 4 By: Christopher Lane (Lane@Sumex-Aim.Stanford.Edu) Uses: READDISPLAYFONT READAPPLEFONT defines a new display font type which allows Envos Lisp to use (commercially available) Macintoshش display fonts. Although this module is primarily intended for extracting font width information for conversion programs (eg. MacPaintش to Sketch and vice versa) it can also be used to extend the number of display fonts available within the Envos Lisp environment. There are no user functions in the module. In addition to this module, you need a directory of extracted Macintoshش font files (as described below) and you must add the name of that directory to the system DISPLAYFONTDIRECTORIES list. The following function is added under the type APPLE to the list DISPLAYFONTTYPES (defined by the READDISPLAYFONT module). (READAPPLEFONT STREAM FAMILY SIZE FACE) [Function] The module also adds the extension APPLE to the system list DISPLAYFONTEXTENSIONS. FONT FILES This module only uses the FontRec portion of the font files (see Inside Macintoshش). The font resources must be extracted into individual files with appropriate names, eg. SANFRANCISCO18-MRR-C0.APPLE. One method of doing this is to use the Font/DA Moverش utility: @°5ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے€€ںےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےùںےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےùککککککککک0ہ|`ک@ ``کO `xًّکںگ`جج`کںگxجج`کںگ`جج`کںگ`جج`کO `جج`ک@ `xج0ک0ہکxجxطک<جججàکىجججہک جججüہکŒججہہک0ہ|ہ€جبؤہک@ fہہxًxہک@ f<8جا8xغ0ک€ffdطج™32dجم0ک€ffpًج38pجأ0ک€f~8àج?8جأ0ک€f`ًج0جأ0ک@ fbLطج™1&Lجأ0ک@ |<8جا8xءًک0ہ0ک0کàککککککککککےےےےےےےےےےےےےےےےےہےےےےےےےےےےًےےےےےےےےےےےےےےےےےّک @ک @@ک @کً€`<!@<à00x"کک€8F"@أb0pجAککٌڈgأہ$@a€`<|f>د1أ‡€0ج€ˆک™‘Œff`(@0ہ`fff#3™™3&Lہ0جHکًùڈŒff`>@``fff†3ئ™ک3†ہ0xءèکپ™™Œff`"@0ہ`fff33™ک1ئہ0جAکپ™™Œff`0"@a€`fff33™ک0وہ0جAکپ™™Œff``"@أbfff033™™2fLہ0جAک€ùڈ†fcہ~#ّ@<<|>3™ژ1أ‡€0xک @`ک @`Fک?ےہ<ےّک""@ک(ˆہےےےےےےےےكًک""@€ک(ˆہہکً€`""@àکک€8(ˆہککٌڈgأہ""@ک™‘Œff`&(ˆہ€کًùڈŒff`F""@€کپ™™Œff`(ˆہہکپ™™Œff`""@ہکپ™™Œff`(ˆہک€ùڈ†fcہ""@ک(ˆہک""@ک(ˆہک""@ےےےےےےےےےےًک(ˆہک""@ک(ˆہکً€`<""@ًکک€8f(ˆہکککٌڈgأہf""@کٌےڈک™‘Œff`f(ˆہ™™™™™™€کًùڈŒff`<""@ٌ™™™™™€کپ™™Œff`f(ˆہ™ù™™™ں€کپ™™Œff`f""@™پ™™™ککپ™™Œff`f(ˆہ™‰™™™€ک€ùڈ†fcہ<""@کٌ™ڈک(ˆہک""@ک(ˆہک""@ک(ˆہےےےےےےےےےےًک""@ک(ˆہکً€`<""@کک€F(ˆہککٌڈgأہ""@ک™‘Œff`&(ˆہکًùڈŒff`F""@کپ™™Œff`(ˆہکپ™™Œff`0""@کپ™™Œff``(ˆہک€ùڈ†fcہ~""@ک(ˆہک""@ک(ˆہک?ےہکےےےےےےےےےےےےےےےًہکےےےےےےےےےےےےےےےًہکےےےےےےےےےےےےےےےًہکےےءےےےüےےےüّےًہکoےےدےےےےےےےَّ?ےًہک~د“ما‡üَ?ےًہک=جددژوflح›3üَ?ےًہکدأںf|اں3üّےًہکŒجدد‍ff|مں3üَ?ےًہکججدد‍ff|ٌں3üَ?ےًہکججدد‍fflظ›3üَ?ےًہکددںgما‡üّےًہکےےےےےےےےےےےےےےےًہکےےےےےےےےےےےےےےےًہکےےےےےےےےےےےےےےےےےہل‡مہ`0کےےےےےےےےےےےےےےےâ"@أ†``0ک(ˆہپ†`|fxًàک""@ء‡ئ`ff1™گک(ˆہa€f`ff1™ہکà00""@a€f`ff1ّàکگ003(ˆہa€f`ff1€pکƒ3‏>03""@a„f`ff1‰0کأ333303(ˆہءƒأہ|>ًàکم333303""@کs33330(ˆہFک333330""@<ک333330(ˆہکلَ3>0""@ک0(ˆہک0""@کà(ˆہہ`ک""@ہ`ک(ˆہ‡Œxqمأàک?ےہLججبئf`ےّک @ججہئf`کà00 @ڈجüہاو`کگ003#ّ@جہہئ`کƒ3‏>03"@جLؤبئ&`Aکأ333303"@‡ŒxpcأàAکم333303"@Aکs333303>@ءèک3333303(@Hک3333303$@€ˆکلَ3>0"@Aک0!@"ک0 @کà @@ک @کےےےےےےےےےےےےےےےےےہےےےےےےےےےےےےےےےےےّکککککک0€€ہ@ ک0@3``ک3xٌےڈŒ<|8ا3pàک321™™€ججFfdج™33yàک381™™€€ƒ‡جد>f`خ3>_`ک31ù™€جججff`ا33N`ک31پ™€€€جججff`أک33D`ک3&1‰™€جججffdة™33@ffکٌ™€€ƒ‡جج>f8ا@ffکک#€€کک€€کےےےےےےےےےےًک€€کک|8ئ€€أŒ`کfdج€fLہکاہf`ط€€€<|f €کf`fpًڈًffgکf`f8à€™™ک€ffcژکf`fً™™کffaدکf`fط€ں™ک€ff`ح€کf`fLجککffdجہکئ`|8ئ€ک™ک€<ا™€`ٌ™ًٌà8ججک338ئ™€€€`™کہ0ججک33<ئں€`™کà0üüک336ئ€€`™ک°0ہہک#33#3ئک€a™™ک0ؤؤک1€ئ€€`ًًًٌŒ0xxکک€€کک€€کےےےےےےےےےےüےےےےےےےےےےً?ےےےےےےےےےے€ک€€`ہکہ`ک€€€ ک€ ک0€€`€€ئ ک10ہ`€& ک01لأہ€ججً€€<8x ک033&`جج`€fdج ک033†`€جج`€€fpج ک031اàجج`€f8ü ک030و€جج`€€fہ ک132f جج`€&fLؤ ک1لأہ€‡ج0€€ئ<8x کہ€ ک€€€ کہ`ک€€`ہکےےےےےےےےےےüےےےےےےےےےےً?ےےےےےےےےےے€ککککککک ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھ ککککککککککککککککککککàکà €ک€€ €ک€à€ €ک?ٌ€ü€ک€ّ'ر€کyوہàًہ†0Dجçح€کلƒّfyو`ً€آ ‚جئ‡کاŒf?ئ0ّءأï€طجکًf¾طجکfطجک?ط~کpککککککککککککککککککککککککککںےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےùںےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےù€€ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے If another method for extracting the FontRec data structure into individual files is used, the following variable will probably need to be reset: APPLEFONTREC.OFFSET [Variable] The offset in bytes into the font file of where the FontRec data structure begins (initially 264). NOTES ےےïfے This module only handles proportionally spaced fonts and ignores fractional character widths. ےےïfے The user is responsible for determining the legality of extracting the fonts in question. The individual font files should be moved to a Unix AUFS/CAP server (or the equivalent) and the resource forks (in the .resource directory) should be copied to the directory you added to DISPLAYFONTDIRECTORIES above. (LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 228) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 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))))),ب5طب8P2ب5بب,ب,ٹٹ8,ٹٹ8HببPAGEHEADINGRUNNINGHEADCLASSICCLASSICCLASSICMODERN ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) HELVETICA MODERN MODERN MODERNMODERNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN 4z \#*A، A:BMOBJ.GETFN3?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) ’ca]ظHٌIz؛