diff --git a/extra/maze/maze.factor b/extra/maze/maze.factor index f56c579a3f..de345e732e 100644 --- a/extra/maze/maze.factor +++ b/extra/maze/maze.factor @@ -1,7 +1,7 @@ ! From http://www.ffconsultancy.com/ocaml/maze/index.html USING: sequences namespaces math math.vectors opengl opengl.gl -opengl.demo-support arrays kernel random ui ui.gadgets -ui.gadgets.canvas ui.render math.order math.geometry.rect ; +arrays kernel random ui ui.gadgets ui.gadgets.canvas ui.render +math.order math.geometry.rect ; IN: maze : line-width 8 ; @@ -28,7 +28,7 @@ SYMBOL: visited : (draw-maze) ( cell -- ) dup vertex glEnd - GL_POINTS [ dup vertex ] do-state + GL_POINTS glBegin dup vertex glEnd GL_LINE_STRIP glBegin dup vertex dup visit