stream>image* ( stream class -- image )

Vocabulary

images.loader

Inputs

stream	an object
class	an object

Outputs

image

an object

Definition

IN: images.loader

GENERIC: stream>image* ( stream class -- image )

Methods

USING: accessors arrays combinators images images.bitmap
images.loader kernel math ;

M: bmp-image stream>image*
    drop load-bitmap [ image new ] dip {
        [ loading-bitmap>bytes >>bitmap ]
        [
            header>> [ width>> ] [ height>> abs ] bi 2array
            >>dim
        ]
        [ header>> height>> 0 < not >>upside-down? ]
        [
            bitmap>component-order >>component-order
            ubyte-components >>component-type
        ]
    } cleave ;


USING: images.gif images.loader kernel ;

M: gif-image stream>image*
    drop load-gif ensure-loaded gif>image ;


USING: gdk2.pixbuf.ffi gobject.ffi images.loader
images.loader.gtk images.loader.gtk.private io kernel ;

M: gtk-image stream>image*
    drop
    stream-contents data>GInputStream &g_object_unref
    GInputStream>GdkPixbuf &g_object_unref GdkPixbuf>image ;


USING: images.jpeg images.jpeg.private images.loader kernel ;

M: jpeg-image stream>image* drop load-jpeg loading-jpeg>image ;


USING: images.loader images.loader.cocoa io kernel ;

M: ns-image stream>image*
    drop stream-contents <CGImage> CGImage>image ;


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 ;


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

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


USING: images.loader images.png kernel ;

M: png-image stream>image* drop load-png loading-png>image ;


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

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


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

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


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

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