1 USING: alien.c-types alien.data accessors assocs classes
2 destructors functors kernel lexer math parser sequences
3 specialized-arrays ui.backend words ;
21 TUPLE: pixel-format-attribute { value integer } ;
23 TUPLE: color-bits < pixel-format-attribute ;
24 TUPLE: red-bits < pixel-format-attribute ;
25 TUPLE: green-bits < pixel-format-attribute ;
26 TUPLE: blue-bits < pixel-format-attribute ;
27 TUPLE: alpha-bits < pixel-format-attribute ;
29 TUPLE: accum-bits < pixel-format-attribute ;
30 TUPLE: accum-red-bits < pixel-format-attribute ;
31 TUPLE: accum-green-bits < pixel-format-attribute ;
32 TUPLE: accum-blue-bits < pixel-format-attribute ;
33 TUPLE: accum-alpha-bits < pixel-format-attribute ;
35 TUPLE: depth-bits < pixel-format-attribute ;
37 TUPLE: stencil-bits < pixel-format-attribute ;
39 TUPLE: aux-buffers < pixel-format-attribute ;
41 TUPLE: sample-buffers < pixel-format-attribute ;
42 TUPLE: samples < pixel-format-attribute ;
44 HOOK: (make-pixel-format) ui-backend ( world attributes -- pixel-format-handle )
45 HOOK: (free-pixel-format) ui-backend ( pixel-format -- )
46 HOOK: (pixel-format-attribute) ui-backend ( pixel-format attribute-name -- value )
48 ERROR: invalid-pixel-format-attributes world attributes ;
50 TUPLE: pixel-format < disposable world handle ;
52 : <pixel-format> ( world attributes -- pixel-format )
53 2dup (make-pixel-format)
54 [ pixel-format new-disposable swap >>handle swap >>world ]
55 [ throw-invalid-pixel-format-attributes ]
58 M: pixel-format dispose*
59 [ (free-pixel-format) ] [ f >>handle drop ] bi ;
63 FUNCTOR: define-pixel-format-attribute-table ( NAME PERM TABLE -- )
66 >PFA-int-array DEFINES >${NAME}-int-array
70 GENERIC: >PFA ( attribute -- pfas )
75 TABLE at [ { } ] unless* ;
76 M: pixel-format-attribute >PFA
78 [ swap value>> suffix ]
81 : >PFA-int-array ( attribute -- int-array )
82 [ >PFA ] map concat PERM prepend 0 suffix int >c-array ;
86 SYNTAX: PIXEL-FORMAT-ATTRIBUTE-TABLE:
87 scan-token scan-object scan-object define-pixel-format-attribute-table ;
91 GENERIC: world-pixel-format-attributes ( world -- attributes )
93 GENERIC# check-world-pixel-format 1 ( world pixel-format -- )