image>CGImage ( image -- image )

Vocabulary

images.loader.cocoa

Inputs

image

an object

Outputs

image

an object

Definition

USING: accessors cocoa.messages cocoa.runtime core-graphics
core-graphics.private kernel math sequences ;

IN: images.loader.cocoa

: image>CGImage ( image -- image )
    [ bitmap>> ] [ dim>> first2 ] bi 8 pick 4 *
    bitmap-color-space bitmap-flags CGBitmapContextCreate
    { id { id SEL } } "autorelease" send
    CGBitmapContextCreateImage ;