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 COLOR: red 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 ;