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 ;