draw-mines ( n gadget -- )

Vocabulary

minesweeper

Inputs

n	an object
gadget	an object

Outputs

None

Definition

USING: accessors arrays formatting kernel math opengl sequences
;

IN: minesweeper

:: draw-mines ( n gadget -- )
    gadget cells>> won? 0 n ? "%03d" sprintf [
        26 * 3 + 6 2array
        [ digit-image-path gadget draw-cached-texture ]
        with-translation
    ] each-index ;