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

tetris.gl: update for iota

db4
Slava Pestov 2010-01-15 06:15:15 +13:00
parent a93831a36e
commit 4bab2ba807
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/tetris/gl/gl.factor
View File

@ -26,10 +26,10 @@ IN: tetris.gl
[ gl-color 2array draw-block ] [ 3drop ] if ; [ gl-color 2array draw-block ] [ 3drop ] if ;
: draw-row ( y row -- ) : draw-row ( y row -- )
dup length -rot [ (draw-row) ] 2curry each ; [ length iota swap ] keep [ (draw-row) ] 2curry each ;
: draw-board ( board -- ) : draw-board ( board -- )
rows>> dup length swap rows>> [ length iota ] keep
[ dupd nth draw-row ] curry each ; [ dupd nth draw-row ] curry each ;
: scale-board ( width height board -- ) : scale-board ( width height board -- )