maze: update for iota
parent
1408d017a9
commit
cd80dfe667
|
@ -44,7 +44,7 @@ SYMBOL: visited
|
||||||
line-width 2 - glLineWidth
|
line-width 2 - glLineWidth
|
||||||
line-width 2 - glPointSize
|
line-width 2 - glPointSize
|
||||||
1.0 1.0 1.0 1.0 glColor4d
|
1.0 1.0 1.0 1.0 glColor4d
|
||||||
dup [ drop t <array> ] with map visited set
|
dup iota [ drop t <array> ] with map visited set
|
||||||
GL_LINE_STRIP glBegin
|
GL_LINE_STRIP glBegin
|
||||||
{ 0 0 } dup vertex (draw-maze)
|
{ 0 0 } dup vertex (draw-maze)
|
||||||
glEnd ;
|
glEnd ;
|
||||||
|
|
Loading…
Reference in New Issue