draw-timer ( n gadget -- )

Vocabulary

minesweeper

Inputs

n	an object
gadget	an object

Outputs

None

Definition

USING: arrays formatting kernel math math.order opengl sequences
ui.gadgets ;

IN: minesweeper

:: draw-timer ( n gadget -- )
    gadget pref-dim first :> width n 999 min "%03d" sprintf [
        3 swap - 26 * width swap - 3 - 6 2array
        [ digit-image-path gadget draw-cached-texture ]
        with-translation
    ] each-index ;