🚀 go-pugleaf

At 10:15 1/6/93 +1200, David Maulsby wrote:
>Style vectors summarize all the font/style changes across a range of text.
>I'd like to get at this information but I find no routines for decoding
>them, nor documentation on their format.
>
>Any pointers would be appreciated!

;Format of style vectors:
;one word has the number of different fonts used
;each font is four bytes 2 bytes font id, one byte size, one byte style
;each font change has four bytes, 1 byte font index, 3 bytes offset

? (setq *print-base* 16.)
10
? (buffer-get-style (fred-buffer (front-window)) 0 t)
#(2 4 900 4 901 100 0 200 33 100 41 200 6B ...)
? (type-of *)
(SIMPLE-ARRAY (SIGNED-BYTE 10) (63))
? 

    2  Number of fonts
    4  Font ID for font index 1: "Monaco"
#x900  9 point, :plain
    4  Font ID for font index 2: "Monaco"
#x901  9 point, :bold
#x100  Font index 1, high byte of offset = 0
    0  low word of offset = 0
#x200  Font index 2, high byte of offset = 0
#x033  low word of offset = #x33