Handbook
Glossary
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
;