X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmaze%2Fmaze.factor;h=02a868641136cc8f7e7ced63800341e5463ce16d;hp=8ffbe5de3652ae361050419f53bd407690b338c6;hb=6d4293b5822d769619f66e46e64b704ddfe41b43;hpb=b7bb69b178712e9d135362ebd6efa69c9b8371ba diff --git a/extra/maze/maze.factor b/extra/maze/maze.factor index 8ffbe5de36..02a8686411 100644 --- a/extra/maze/maze.factor +++ b/extra/maze/maze.factor @@ -17,7 +17,7 @@ SYMBOL: visited [ v+ ] with map [ unvisited? ] filter ; -: random-neighbour ( cell -- newcell ) choices random ; +: random-neighbor ( cell -- newcell ) choices random ; : vertex ( pair -- ) first2 [ 0.5 + line-width * ] bi@ glVertex2d ; @@ -29,7 +29,7 @@ SYMBOL: visited GL_LINE_STRIP glBegin dup vertex dup visit - dup random-neighbour [ + dup random-neighbor [ (draw-maze) (draw-maze) ] [ drop