pbm-image

Vocabulary

images.pbm

Definition

IN: images.pbm

SINGLETON: pbm-image

Methods

USING: accessors combinators images.loader images.pbm
images.pbm.private io io.encodings.ascii io.encodings.string
kernel math.parser sequences ;

M: pbm-image image>stream
    2drop {
        [ drop "P4\n" ascii encode write ]
        [
            dim>> first number>string " " append ascii encode
            write
        ]
        [
            dim>> second number>string "\n" append ascii encode
            write
        ]
        [ [ bitmap>> ] [ dim>> first ] bi write-binary-bits ]
    } cleave ;


USING: images.loader images.pbm images.pbm.private io
io.streams.throwing kernel ;

M: pbm-image stream>image*
    drop [ [ read-pbm ] throw-on-eof ] with-input-stream ;