draw-hint ( gadget -- )

Vocabulary

minesweeper

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors colors kernel math opengl sequences ui.gestures
;

IN: minesweeper

:: draw-hint ( gadget -- )
    gadget hint?>> "xyzzy" sequence= [
        gadget hand-rel first2 :> ( w h ) h 58 >= [
            h 58 - w [ 32 /i ] bi@
            :> ( row col ) gadget cells>> row col cell-at [
                mined?>> COLOR: black COLOR: white ? gl-color
                { 0 0 } { 1 1 } gl-fill-rect
            ] when*
        ] when
    ] when ;