read-author-comments ( -- string )

Vocabulary

images.tga

Inputs

None

Outputs

string

an object

Definition

USING: io io.encodings.ascii io.encodings.string kernel
sequences ;

IN: images.tga

: read-author-comments ( -- string )
    4 <iota> [ drop 81 read ascii decode [ 0 = ] trim ] map
    concat ; inline