steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/ui/pixel-formats/pixel-formats.factor

95 lines
2.5 KiB
Factor
Raw Normal View History

specialized-arrays: performed some cleanup. Specifically, • Created >c-array to be replacement for >T-array. • Created cast-array to be generic replacement for all T-array-cast words. • Created c-array@ to be generic replacement for T-array@ words. • Replaced usages of <T-array> with T <c-array> • Replaced usages of <direct-T-array> with T <c-direct-array> • Replaced usages of >T-array with T >c-array • Replaced usages of T-array-cast with T cast-array • Replaced usages of malloc-T-array with T malloc-array. • Removed malloc-T-array. • Removed T-array-cast. • Removed T-array@. • Removed >T-array. I also added (but didn't change any code to use): • T c-array-type, returns T-array • T c-array?, returns T-array? • c-array{ T ... }, returns T-array{ ... } Bootstraps just find on Mac OS X. Also `load-all test-all` works for me.
2011-09-25 14:49:27 -04:00
USING: alien.c-types alien.data accessors assocs classes
destructors functors kernel lexer math parser sequences
specialized-arrays ui.backend words ;
Specialized array overhaul - Replace hand-written specialized-arrays.* subvocabularies with new system; instead of USE:ing specialized-arrays.T, do SPECIALIZED-ARRAY: T - Ditto for specialized-vectors; use SPECIALIZED-VECTOR: - io.mmap.functor: removed entirely, use <mapped-array> instead - struct-arrays and struct-vectors have been removed because specialized arrays and vectors subsume them entirely
2009-09-09 23:33:34 -04:00
SPECIALIZED-ARRAY: int
OS-independent pixel formats abstraction
2009-04-30 21:31:33 -04:00
IN: ui.pixel-formats
cocoa backend support for ui.pixel-formats; world-pixel-format-attributes generic
2009-05-01 10:09:38 -04:00
SYMBOLS:
OS-independent pixel formats abstraction
2009-04-30 21:31:33 -04:00
double-buffered
stereo
offscreen
fullscreen
windowed
accelerated
software-rendered
backing-store
multisampled
supersampled
sample-alpha
color-float ;
TUPLE: pixel-format-attribute { value integer } ;
TUPLE: color-bits < pixel-format-attribute ;
TUPLE: red-bits < pixel-format-attribute ;
TUPLE: green-bits < pixel-format-attribute ;
TUPLE: blue-bits < pixel-format-attribute ;
TUPLE: alpha-bits < pixel-format-attribute ;
TUPLE: accum-bits < pixel-format-attribute ;
TUPLE: accum-red-bits < pixel-format-attribute ;
TUPLE: accum-green-bits < pixel-format-attribute ;
TUPLE: accum-blue-bits < pixel-format-attribute ;
TUPLE: accum-alpha-bits < pixel-format-attribute ;
TUPLE: depth-bits < pixel-format-attribute ;
TUPLE: stencil-bits < pixel-format-attribute ;
TUPLE: aux-buffers < pixel-format-attribute ;
TUPLE: sample-buffers < pixel-format-attribute ;
TUPLE: samples < pixel-format-attribute ;
need to pass world as arg to pixel-format hooks
2009-05-02 13:31:33 -04:00
HOOK: (make-pixel-format) ui-backend ( world attributes -- pixel-format-handle )
HOOK: (free-pixel-format) ui-backend ( pixel-format -- )
HOOK: (pixel-format-attribute) ui-backend ( pixel-format attribute-name -- value )
OS-independent pixel formats abstraction
2009-04-30 21:31:33 -04:00
need to pass world as arg to pixel-format hooks
2009-05-02 13:31:33 -04:00
ERROR: invalid-pixel-format-attributes world attributes ;
compilation fixes
2009-05-01 13:56:52 -04:00
Move a few more things over to new disposable protocol
2009-08-24 21:33:27 -04:00
TUPLE: pixel-format < disposable world handle ;
OS-independent pixel formats abstraction
2009-04-30 21:31:33 -04:00
need to pass world as arg to pixel-format hooks
2009-05-02 13:31:33 -04:00
: <pixel-format> ( world attributes -- pixel-format )
2dup (make-pixel-format)
ui.pixel-formats: fix screwup
2009-08-24 21:45:19 -04:00
[ pixel-format new-disposable swap >>handle swap >>world ]
Move a few more things over to new disposable protocol
2009-08-24 21:33:27 -04:00
[ invalid-pixel-format-attributes ]
?if ;
OS-independent pixel formats abstraction
2009-04-30 21:31:33 -04:00
Move a few more things over to new disposable protocol
2009-08-24 21:33:27 -04:00
M: pixel-format dispose*
need to pass world as arg to pixel-format hooks
2009-05-02 13:31:33 -04:00
[ (free-pixel-format) ] [ f >>handle drop ] bi ;
OS-independent pixel formats abstraction
2009-04-30 21:31:33 -04:00
shove cocoa pixel format attribute conversion into a functor so we can reuse it
2009-05-01 17:33:49 -04:00
<PRIVATE
adjust pixel format syntax. override offscreen-world pixel-format-attributes instead of special-casing
2009-05-01 21:07:14 -04:00
FUNCTOR: define-pixel-format-attribute-table ( NAME PERM TABLE -- )
shove cocoa pixel format attribute conversion into a functor so we can reuse it
2009-05-01 17:33:49 -04:00
>PFA DEFINES >${NAME}
>PFA-int-array DEFINES >${NAME}-int-array
WHERE
GENERIC: >PFA ( attribute -- pfas )
M: object >PFA
drop { } ;
Fix deployment of UI apps and implement various tricks to make deployed images smaller
2009-05-10 22:33:13 -04:00
M: word >PFA
shove cocoa pixel format attribute conversion into a functor so we can reuse it
2009-05-01 17:33:49 -04:00
TABLE at [ { } ] unless* ;
M: pixel-format-attribute >PFA
Rename class to class-of
2011-10-24 07:47:42 -04:00
dup class-of TABLE at
shove cocoa pixel format attribute conversion into a functor so we can reuse it
2009-05-01 17:33:49 -04:00
[ swap value>> suffix ]
[ drop { } ] if* ;
: >PFA-int-array ( attribute -- int-array )
specialized-arrays: performed some cleanup. Specifically, • Created >c-array to be replacement for >T-array. • Created cast-array to be generic replacement for all T-array-cast words. • Created c-array@ to be generic replacement for T-array@ words. • Replaced usages of <T-array> with T <c-array> • Replaced usages of <direct-T-array> with T <c-direct-array> • Replaced usages of >T-array with T >c-array • Replaced usages of T-array-cast with T cast-array • Replaced usages of malloc-T-array with T malloc-array. • Removed malloc-T-array. • Removed T-array-cast. • Removed T-array@. • Removed >T-array. I also added (but didn't change any code to use): • T c-array-type, returns T-array • T c-array?, returns T-array? • c-array{ T ... }, returns T-array{ ... } Bootstraps just find on Mac OS X. Also `load-all test-all` works for me.
2011-09-25 14:49:27 -04:00
[ >PFA ] map concat PERM prepend 0 suffix int >c-array ;
shove cocoa pixel format attribute conversion into a functor so we can reuse it
2009-05-01 17:33:49 -04:00
;FUNCTOR
SYNTAX: PIXEL-FORMAT-ATTRIBUTE-TABLE:
Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209.
2011-09-27 16:20:07 -04:00
scan-token scan-object scan-object define-pixel-format-attribute-table ;
shove cocoa pixel format attribute conversion into a functor so we can reuse it
2009-05-01 17:33:49 -04:00
PRIVATE>
break code->code docs<-docs dependency
2009-05-02 22:54:25 -04:00
GENERIC: world-pixel-format-attributes ( world -- attributes )
GENERIC# check-world-pixel-format 1 ( world pixel-format -- )