home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / lisp / mcl / 1937 < prev    next >
Encoding:
Text File  |  1993-01-06  |  1.3 KB  |  40 lines
  1. Path: sparky!uunet!stanford.edu!apple!cambridge.apple.com!bill@cambridge.apple.com
  2. From: bill@cambridge.apple.com (Bill St. Clair)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: fred style vectors
  5. Message-ID: <9301061616.AA24741@cambridge.apple.com>
  6. Date: 6 Jan 93 17:20:57 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 29
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10.  
  11. At 10:15 1/6/93 +1200, David Maulsby wrote:
  12. >Style vectors summarize all the font/style changes across a range of text.
  13. >I'd like to get at this information but I find no routines for decoding
  14. >them, nor documentation on their format.
  15. >
  16. >Any pointers would be appreciated!
  17.  
  18. ;Format of style vectors:
  19. ;one word has the number of different fonts used
  20. ;each font is four bytes 2 bytes font id, one byte size, one byte style
  21. ;each font change has four bytes, 1 byte font index, 3 bytes offset
  22.  
  23. ? (setq *print-base* 16.)
  24. 10
  25. ? (buffer-get-style (fred-buffer (front-window)) 0 t)
  26. #(2 4 900 4 901 100 0 200 33 100 41 200 6B ...)
  27. ? (type-of *)
  28. (SIMPLE-ARRAY (SIGNED-BYTE 10) (63))
  29. ? 
  30.  
  31.     2  Number of fonts
  32.     4  Font ID for font index 1: "Monaco"
  33. #x900  9 point, :plain
  34.     4  Font ID for font index 2: "Monaco"
  35. #x901  9 point, :bold
  36. #x100  Font index 1, high byte of offset = 0
  37.     0  low word of offset = 0
  38. #x200  Font index 2, high byte of offset = 0
  39. #x033  low word of offset = #x33
  40.