14 lines
21 KiB
Plaintext
14 lines
21 KiB
Plaintext
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 ˜ à ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ˜ @ ˜ @@ ˜ @ ˜ ð€ ` < !@ < à 0 0x " ˜ ˜€ 8F "@ à b 0 pÌ A ˜ ˜ñ<CB9C> gÃÀ $@ a€`<|f >Ï 1Ç€0Ì €ˆ ˜ ™‘Œff` (@ 0À`fff #3™™3&LÀ0Ì H ˜ ðù<C3B0>Œff` >@ ``fff† 3Æ™˜3† À0x Áè ˜ <11>™™Œff` "@ 0À`fff 33™˜1Æ À0Ì A ˜ <11>™™Œff`0 "@ a€`fff 33™˜0æ À0Ì A ˜ <11>™™Œff`` "@ à bfff 0 33™™2fLÀ0Ì A ˜ €ù<E282AC>†fcÀ~ #ø@ <<|> 3™Ž1Ç€0x ˜ @ ` ˜ @ `F ˜ ?ÿÀ < ÿø ˜ ""@ ˜ (ˆÀÿÿÿÿÿÿÿÿßð ˜ ""@ € ˜ (ˆÀ À ˜ ð€ ` ""@ à ˜ ˜€ 8 (ˆÀ ˜ ˜ñ<CB9C> gÃÀ ""@ ˜ ™‘Œff`& (ˆÀ € ˜ ðù<C3B0>Œff`F ""@ € ˜ <11>™™Œff` (ˆÀ À ˜ <11>™™Œff` ""@ À ˜ <11>™™Œff` (ˆÀ ˜ €ù<E282AC>†fcÀ ""@ ˜ (ˆÀ ˜ ""@ ˜ (ˆÀ ˜ ""@ÿÿÿÿÿÿÿÿÿÿð ˜ (ˆÀ ˜ ""@ ˜ (ˆÀ ˜ ð€ ` < ""@ ð ˜ ˜€ 8f (ˆÀ ˜ ˜ ˜ñ<CB9C> gÃÀf ""@ ˜ñÿ<19> ˜ ™‘Œff`f (ˆÀ ™™™™™™€ ˜ ðù<C3B0>Œff`< ""@ ñ™™™™™€ ˜ <11>™™Œff`f (ˆÀ ™ù™™™Ÿ€ ˜ <11>™™Œff`f ""@ ™<>™™™˜ ˜ <11>™™Œff`f (ˆÀ ™‰™™™€ ˜ €ù<E282AC>†fcÀ< ""@ ˜ñ™<C3B1> ˜ (ˆÀ ˜ ""@ ˜ (ˆÀ ˜ ""@ ˜ (ˆÀÿÿÿÿÿÿÿÿÿÿð ˜ ""@ ˜ (ˆÀ ˜ ð€ ` < ""@ ˜ ˜€ F (ˆÀ ˜ ˜ñ<CB9C> gÃÀ ""@ ˜ ™‘Œff`& (ˆÀ ˜ ðù<C3B0>Œff` F ""@ ˜ <11>™™Œff` (ˆÀ ˜ <11>™™Œff`0 ""@ ˜ <11>™™Œff`` (ˆÀ ˜ €ù<E282AC>†fcÀ~ ""@ ˜ (ˆÀ ˜ ""@ ˜ (ˆÀ ˜ ?ÿÀ ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð À ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð À ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð À ˜ ÿÿÁÿÿÿüÿÿÿüøÿð À ˜ oÿÿÏÿÿÿÿÿÿÿøó?ÿð À ˜ ~ Ï“ ãLJüó?ÿð À ˜ =ÌÏÏŽæflÍ›3üó?ÿð À ˜ Ïßf|ÇŸ3üøÿð À ˜ ŒÌÏÏžff|ãŸ3üó?ÿð À ˜ ÌÌÏÏžff|ñŸ3üó?ÿð À ˜ ÌÌÏÏžfflÙ›3üó?ÿð À ˜ ÏÏŸg ãLJüøÿð À ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð À ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð À ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ á‡ãÀ` 0 ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ"@ Æ`` 0 ˜ (ˆÀ <01>†`|fxðà ˜ ""@ Á‡Æ`ff1™<31> ˜ (ˆÀ a€f`ff1™À ˜ à 0 0 ""@ a€f`ff1øà ˜ <11> 0 03 (ˆÀ a€f`ff1€p ˜ ƒ3þ> 03 ""@ a„f`ff1‰0 ˜ Ã333303 (ˆÀ ÁƒÃÀ|>ðà ˜ ã333303 ""@ ˜ s33330 (ˆÀ F ˜ 333330 ""@ < ˜ 333330 (ˆÀ ˜ áó3> 0 ""@ ˜ 0 (ˆÀ ˜ 0 ""@ ˜ à (ˆÀ À ` ˜ ""@ À ` ˜ (ˆÀ ‡ŒxqãÃà ˜ ?ÿÀ LÌÌÈÆf` ÿø ˜ @ ÌÌÀÆf` ˜ à 0 0 @ <03>ÌüÀÇæ` ˜ <11> 0 0 3 #ø@ Ì ÀÀÆ` ˜ ƒ3þ> 0 3 "@ ÌLÄÈÆ&` A ˜ Ã33330 3 "@ ‡ŒxpcÃà A ˜ ã33330 3 "@ A ˜ s33330 3 >@ Áè ˜ 333330 3 (@ H ˜ 333330 3 $@ €ˆ ˜ áó3> 0 "@ A ˜ 0 !@ " ˜ 0 @ ˜ à @@ ˜ @ ˜ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø ˜ ˜ ˜ ˜ ˜ ˜ 0 € € À @ ˜ 0 @ 3 `` ˜ 3 xñÿ <07>Œ<|8Ç 3 pà ˜ 321™™€ ÌÌ FfdÌ™3 3 yà ˜ 381™™€ € ƒ‡ÌÏ>f`Î3 >_` ˜ 3 1ù™€ ÌÌÌff`Ç3 3 N` ˜ 31<>™€ € €ÌÌÌff`Ø3 3 D` ˜ 3&1‰™€ ÌÌÌffdÉ™3 3 @ff ˜ ñ™€ € ƒ‡ÌÌ>f8Ç @ff ˜ ˜ # € € ˜ ˜ € € ˜ ÿÿÿÿÿÿÿÿÿÿð ˜ € € ˜ ˜ |8Æ € € ÃŒ` ˜ fdÌ € fLÀ ˜ ÇÀf`Ø € € € <|f
|
||
€ ˜ f`fpð <19>ð ffg ˜ f`f8à € ™™˜ € ffcŽ ˜ f`f ð ™™˜ ffaÏ ˜ f`f Ø € Ÿ™˜ € ff`Í€ ˜ f`fLÌ ˜˜ ffdÌÀ ˜ Æ`|8Æ € ˜™˜ € <fÃŒ` ˜ <19>ð ˜ € € € ˜ € ˜ € € ˜ ˜ €ÿÿÿÿÿÿÿÿÿÿð € ˜ ˜ ? ?1€p € € aøðqùŒ€ ˜ 33 À à1˜À1˜ ˜ 30 6æÏ € € `a™€a°6xx ˜ 3> < Ç™€ `ñ™ðñà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 ˜ À € ˜ € € € ˜ À ` ˜ € € ` À ˜ ÿÿÿÿÿÿÿÿÿÿü ÿÿÿÿÿÿÿÿÿÿð ?ÿÿÿÿÿÿÿÿÿÿ€ ˜ ˜ ˜ ˜ ˜ ˜ ˜
|
||
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ ˜ à ˜ à
|
||
€ ˜ € €
|
||
€ ˜ € à €
|
||
€ ˜ ?ñ€ ü € ˜ € ø 'Ñ€ ˜ <?Æ ÿ{À áÀ Ž ˜ @ À 3 Á€ ˜î yæ ÷ˆ‡9À â ÜÎ Ç ˜ <07>€Á³ÇÃŒpáà 30 Á¼ð˜f yæ ÷˜Ç9À †3ï€ Ì:ÖÀ ˜ ÌÀÁÄffLÉ“0 30 ÁÆ ˜f yæ`÷˜Ç9Ïø†0‚ Ì\æÁ€ ˜ ‡ÌÀñƒæf áƒ0 Áƒ ˜f yæÀ÷˜Ç9Ç †0D ÌÆÍ€ ˜ ÌÌÀÁ†ff qƒ0 3 Áƒ ˜f x€ðÇ9Ç †0( ÌÆÍ€ ˜ ÌÌÀÁ†ff 9ƒ0 3 Áƒ ü˜f yç ðÇ9‡ †0 ÌÆÍ€ ˜ ÌÌÀÁ†ffL™“0 30 Áƒ ˜f yç€ðÇÿ †0( Ì֘̀ ˜ ‡ÌÀÁƒæcŒpáà 0 Áƒ ˜f>yæÀàðÀ †0D Ì ç Í€ ˜ რøf yæ` ð€  ‚ ÌÆ ‡ ˜ ÇŒ 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 Ø È8P 2 È 5 È È , È , Š Š8 , Š Š8 H È È PAGEHEADING RUNNINGHEAD CLASSIC CLASSIC CLASSIC MODERN
|
||
? 1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
|
||
HELVETICA
|
||
MODERN
|
||
MODERN
|
||
MODERN MODERN MODERN
|
||
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN 4 z
|
||
\ # * A ¡
|
||
A: BMOBJ.GETFN3 ? 1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
|
||
’ c a ] Ù Hñ Izº |