Mailing List Archive: Re: [ANN] TTF-parser 0.0.1

[REBOL] Re: [ANN] TTF-parser 0.0.1

From: antonr:iinet:au at: 11-Sep-2003 1:00


Hi Oldes,

Looks interesting. I'll just post a bug report
for the first two fonts I tried:
 %/c/windows/fonts/outlook.ttf
 %/c/windows/fonts/wingdng3.ttf

### Vertical Device Metrics table 340 1504 ; outlook.ttf
### character to glyph mapping 1844 354    ; outlook.ttf
** Script Error: segCount has no value
** Where: switch
** Near: parse/all v [
    USHORT (append tmp v n: v / 2)
    USHORT (append tmp v)
    USHORT (append tmp v)
    USHORT (append tmp v)
    (
        endCount: make block! n
        startCount: make block! n
        idDelta: make block! n
        idRangeOffset: make block! n
    )
    segCount [
        USHORT (append endCount v)
    ]
    USHORT
    segCount [
        USHORT (append startCount v)
    ]
    segCount [
        SHORT (append idDelta v)
    ]
    segCount [
        USHORT (append idRangeOffset v)
    ]
    v:
    (
        repend/only tmp endCount
        repend/only tmp startCount
        repend/only tmp idDelta
        repend/only tmp idRangeOffset
        repend tmp glyphIdArray
    )
]

Anton.