draw-cells ( gadget -- )

Vocabulary

minesweeper

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors arrays kernel math opengl ;

IN: minesweeper

:: draw-cells ( gadget -- )
    gadget cells>> [ won? ] [ lost? ] bi
    :> ( won? lost? ) gadget cells>> [| row col cell |
        col row [ 32 * ] bi@ 58 + 2array [
            cell won? lost? cell-image-path
            gadget draw-cached-texture
        ] with-translation
    ] each-cell ;