Handbook Glossary
factorcode.org
metrics-paint


Vocabulary
ui.gadgets.debug

Definition
IN: ui.gadgets.debug

SINGLETON: metrics-paint


Methods
USING: accessors arrays colors kernel opengl sequences
ui.gadgets.debug ui.gadgets.labels ui.pens ui.text ;

M: metrics-paint draw-boundary
drop T{ rgba
{ red 1.0 }
{ green 0.0 }
{ blue 0.0 }
{ alpha 1.0 }
} gl-color [ dim>> ] [ >label< line-metrics ] bi [
[ first ] [ ascent>> ] bi*
[ nip 0 swap 2array ] [ 2array ] 2bi gl-line
] [ drop { 0 0 } swap gl-rect ] 2bi ;