save-ns-image ( image path type -- )

Vocabulary

images.loader.cocoa

Inputs

image	an object
path	an object
type	an object

Outputs

None

Definition

USING: core-foundation core-foundation.urls core-graphics
destructors kernel ;

IN: images.loader.cocoa

:: save-ns-image ( image path type -- )
    [
        path f <CFFileSystemURL>
        &CFRelease type 1 f CGImageDestinationCreateWithURL
        &CFRelease [
            image image>CGImage &CFRelease f
            CGImageDestinationAddImage
        ] [ CGImageDestinationFinalize drop ] bi
    ] with-destructors ;