STRUCT: POINT
{ x LONG }
- { y LONG } ;
+ { y LONG } ;
STRUCT: SIZE
{ cx LONG }
: RGB ( r g b -- COLORREF )
{ 16 8 0 } bitfield ; inline
: >RGB< ( COLORREF -- r g b )
- [ HEX: ff bitand ]
- [ -8 shift HEX: ff bitand ]
- [ -16 shift HEX: ff bitand ] tri ;
+ [ 0xff bitand ]
+ [ -8 shift 0xff bitand ]
+ [ -16 shift 0xff bitand ] tri ;
: color>RGB ( color -- COLORREF )
>rgba-components drop [ 255 * >integer ] tri@ RGB ;