draw-cells ( gadget -- )


Vocabulary
minesweeper

Inputs
gadgetan object


Outputs
None

Definition


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