write-ns-image ( image extension -- )

Vocabulary

images.loader.cocoa

Inputs

image	an object
extension	an object

Outputs

None

Definition

USING: alien.data core-foundation core-foundation.data
core-graphics destructors io kernel ;

IN: images.loader.cocoa

:: write-ns-image ( image extension -- )
    [
        f 0 CFDataCreateMutable
        &CFRelease :> data data extension extension>uttype 1 f
        CGImageDestinationCreateWithData &CFRelease [
            image image>CGImage &CFRelease f
            CGImageDestinationAddImage
        ] [ CGImageDestinationFinalize drop ] bi
        data CFDataGetBytePtr data CFDataGetLength
        memory>byte-array write
    ] with-destructors ;