steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

minesweeper: port to new parser syntax.

modern-harvey2
Doug Coleman 2018-02-10 11:43:24 -06:00
parent ddcd6b2af0
commit ab9d9bfe04
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/minesweeper/minesweeper.factor
View File

@ -51,12 +51,12 @@ TUPLE: cell #adjacent mined? state ;
] with with with count ; ] with with with count ;
:: each-cell ( ... cells quot: ( ... row col cell -- ... ) -- ... ) :: each-cell ( ... cells quot: ( ... row col cell -- ... ) -- ... )
cells [| row | cells |[ row |
[| cell col | row col cell quot call ] each-index |[ cell col | row col cell quot call ] each-index
] each-index ; inline ] each-index ; inline
:: update-counts ( cells -- cells ) :: update-counts ( cells -- cells )
cells [| row col cell | cells |[ row col cell |
cells row col adjacent-mines cell #adjacent<< cells row col adjacent-mines cell #adjacent<<
] each-cell cells ; ] each-cell cells ;
@ -122,7 +122,7 @@ TUPLE: grid-gadget < gadget cells timer textures start end ;
mines place-mines update-counts >>cells mines place-mines update-counts >>cells
H{ } clone >>textures H{ } clone >>textures
dup '[ _ relayout-1 ] f 1 seconds <timer> >>timer dup '[ _ relayout-1 ] f 1 seconds <timer> >>timer
COLOR: gray <solid> >>interior ; color: gray <solid> >>interior ;
M: grid-gadget graft* M: grid-gadget graft*
[ timer>> start-timer ] [ call-next-method ] bi ; [ timer>> start-timer ] [ call-next-method ] bi ;
@ -200,7 +200,7 @@ M: grid-gadget pref-dim*
:: draw-cells ( gadget -- ) :: draw-cells ( gadget -- )
gadget cells>> game-over? :> game-over? gadget cells>> game-over? :> game-over?
gadget cells>> [| row col cell | gadget cells>> |[ row col cell |
col row [ 32 * ] bi@ 58 + 2array [ col row [ 32 * ] bi@ 58 + 2array [
cell game-over? cell-image-path cell game-over? cell-image-path
gadget cached-texture gadget cached-texture