ui.gadgets.tracks ui.gadgets.packs ui.gadgets.worlds ui.gestures
ui.render math.geometry.rect locals alien.c-types
specialized-arrays.float ;
-
IN: ui.gadgets.buttons
TUPLE: button < border pressed? selected? quot ;
: checkmark-points ( dim -- points )
{
- [ { 0 0 } v* { 0 1 } v+ ]
- [ { 1 1 } v* { 0 1 } v+ ]
- [ { 0 1 } v* ]
- [ { 1 0 } v* ]
+ [ { 0 0 } v* { 0.5 0.5 } v+ ]
+ [ { 1 1 } v* { 0.5 0.5 } v+ ]
+ [ { 1 0 } v* { -0.3 0.5 } v+ ]
+ [ { 0 1 } v* { -0.3 0.5 } v+ ]
} cleave 4array ;
: checkmark-vertices ( dim -- vertices )