ppm-image

Vocabulary

images.ppm

Definition

IN: images.ppm

SINGLETON: ppm-image

Methods

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

M: ppm-image image>stream
    2drop {
        [ drop "P6\n" ascii encode write ]
        [
            dim>> first number>string " " append ascii encode
            write
        ]
        [
            dim>> second number>string "\n" append ascii encode
            write
        ]
        [ drop "255\n" ascii encode write ]
        [ bitmap>> write ]
    } cleave ;


USING: images.loader images.ppm io io.streams.throwing kernel ;

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