145 lines
3.8 KiB
Factor
145 lines
3.8 KiB
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien alien.c-types alien.data alien.destructors
|
|
alien.syntax accessors destructors fry kernel math math.bitwise
|
|
sequences libc colors images images.memory core-graphics.types
|
|
core-foundation.utilities opengl.gl literals ;
|
|
IN: core-graphics
|
|
|
|
TYPEDEF: int CGImageAlphaInfo
|
|
CONSTANT: kCGImageAlphaNone 0
|
|
CONSTANT: kCGImageAlphaPremultipliedLast 1
|
|
CONSTANT: kCGImageAlphaPremultipliedFirst 2
|
|
CONSTANT: kCGImageAlphaLast 3
|
|
CONSTANT: kCGImageAlphaFirst 4
|
|
CONSTANT: kCGImageAlphaNoneSkipLast 5
|
|
CONSTANT: kCGImageAlphaNoneSkipFirst 6
|
|
|
|
CONSTANT: kCGBitmapAlphaInfoMask HEX: 1f
|
|
CONSTANT: kCGBitmapFloatComponents 256
|
|
|
|
CONSTANT: kCGBitmapByteOrderMask HEX: 7000
|
|
CONSTANT: kCGBitmapByteOrderDefault 0
|
|
CONSTANT: kCGBitmapByteOrder16Little 4096
|
|
CONSTANT: kCGBitmapByteOrder32Little 8192
|
|
CONSTANT: kCGBitmapByteOrder16Big 12288
|
|
CONSTANT: kCGBitmapByteOrder32Big 16384
|
|
|
|
: kCGBitmapByteOrder16Host ( -- n )
|
|
little-endian?
|
|
kCGBitmapByteOrder16Little
|
|
kCGBitmapByteOrder16Big ? ; foldable
|
|
|
|
: kCGBitmapByteOrder32Host ( -- n )
|
|
little-endian?
|
|
kCGBitmapByteOrder32Little
|
|
kCGBitmapByteOrder32Big ? ; foldable
|
|
|
|
FUNCTION: CGColorRef CGColorCreateGenericRGB (
|
|
CGFloat red,
|
|
CGFloat green,
|
|
CGFloat blue,
|
|
CGFloat alpha
|
|
) ;
|
|
|
|
: <CGColor> ( color -- CGColor )
|
|
>rgba-components CGColorCreateGenericRGB ;
|
|
|
|
M: color (>cf) <CGColor> ;
|
|
|
|
FUNCTION: CGColorSpaceRef CGColorSpaceCreateDeviceRGB ( ) ;
|
|
|
|
FUNCTION: CGContextRef CGBitmapContextCreate (
|
|
void* data,
|
|
size_t width,
|
|
size_t height,
|
|
size_t bitsPerComponent,
|
|
size_t bytesPerRow,
|
|
CGColorSpaceRef colorspace,
|
|
CGBitmapInfo bitmapInfo
|
|
) ;
|
|
|
|
FUNCTION: void CGColorSpaceRelease ( CGColorSpaceRef ref ) ;
|
|
|
|
DESTRUCTOR: CGColorSpaceRelease
|
|
|
|
FUNCTION: void CGContextRelease ( CGContextRef ref ) ;
|
|
|
|
DESTRUCTOR: CGContextRelease
|
|
|
|
FUNCTION: void CGContextSetRGBStrokeColor (
|
|
CGContextRef c,
|
|
CGFloat red,
|
|
CGFloat green,
|
|
CGFloat blue,
|
|
CGFloat alpha
|
|
) ;
|
|
|
|
FUNCTION: void CGContextSetRGBFillColor (
|
|
CGContextRef c,
|
|
CGFloat red,
|
|
CGFloat green,
|
|
CGFloat blue,
|
|
CGFloat alpha
|
|
) ;
|
|
|
|
FUNCTION: void CGContextSetTextPosition (
|
|
CGContextRef c,
|
|
CGFloat x,
|
|
CGFloat y
|
|
) ;
|
|
|
|
FUNCTION: void CGContextFillRect (
|
|
CGContextRef c,
|
|
CGRect rect
|
|
) ;
|
|
|
|
FUNCTION: void CGContextSetShouldSmoothFonts (
|
|
CGContextRef c,
|
|
bool shouldSmoothFonts
|
|
) ;
|
|
|
|
FUNCTION: void* CGBitmapContextGetData ( CGContextRef c ) ;
|
|
|
|
CONSTANT: kCGLRendererGenericFloatID HEX: 00020400
|
|
|
|
FUNCTION: CGLError CGLSetParameter ( CGLContextObj ctx, CGLContextParameter pname, GLint* params ) ;
|
|
|
|
FUNCTION: CGDirectDisplayID CGMainDisplayID ( ) ;
|
|
|
|
FUNCTION: CGError CGDisplayHideCursor ( CGDirectDisplayID display ) ;
|
|
FUNCTION: CGError CGDisplayShowCursor ( CGDirectDisplayID display ) ;
|
|
|
|
FUNCTION: CGError CGDisplayMoveCursorToPoint ( CGDirectDisplayID display, CGPoint point ) ;
|
|
|
|
FUNCTION: CGError CGAssociateMouseAndMouseCursorPosition ( boolean_t connected ) ;
|
|
|
|
FUNCTION: CGError CGWarpMouseCursorPosition ( CGPoint newCursorPosition ) ;
|
|
|
|
FUNCTION: uint GetCurrentButtonState ( ) ;
|
|
|
|
<PRIVATE
|
|
|
|
: bitmap-flags ( -- n )
|
|
kCGImageAlphaPremultipliedFirst kCGBitmapByteOrder32Host bitor ;
|
|
|
|
: bitmap-color-space ( -- color-space )
|
|
CGColorSpaceCreateDeviceRGB &CGColorSpaceRelease ;
|
|
|
|
: <CGBitmapContext> ( data dim -- context )
|
|
[ first2 8 ] [ first 4 * ] bi
|
|
bitmap-color-space bitmap-flags CGBitmapContextCreate
|
|
[ "CGBitmapContextCreate failed" throw ] unless* ;
|
|
|
|
PRIVATE>
|
|
|
|
: dummy-context ( -- context )
|
|
\ dummy-context [
|
|
[ 4 malloc { 1 1 } <CGBitmapContext> ] with-destructors
|
|
] initialize-alien ;
|
|
|
|
: make-bitmap-image ( dim quot -- image )
|
|
'[ <CGBitmapContext> &CGContextRelease @ ] make-memory-bitmap
|
|
ARGB >>component-order
|
|
ubyte-components >>component-type ; inline
|