maze: generate new mazes with a click

diff --git a/extra/maze/maze.factor b/extra/maze/maze.factor
index 1e5c63b72750ea9cda39a41d4a2912e7c4f9ed16..8ffbe5de3652ae361050419f53bd407690b338c6 100644 (file)
--- a/extra/maze/maze.factor
+++ b/extra/maze/maze.factor
@@ -1,7 +1,7 @@
 ! From http://www.ffconsultancy.com/ocaml/maze/index.html
 USING: accessors arrays kernel math math.order math.vectors
 namespaces opengl.demo-support opengl.gl random sequences ui
-ui.gadgets ui.gadgets.canvas ui.render ;
+ui.gadgets ui.gadgets.canvas ui.gestures ui.render ;
 IN: maze
 
 CONSTANT: line-width 8
@@ -29,13 +29,13 @@ SYMBOL: visited
     GL_LINE_STRIP glBegin
     dup vertex
     dup visit
-    dup random-neighbour dup [
+    dup random-neighbour [
         (draw-maze) (draw-maze)
     ] [
-        2drop
+        drop
         glEnd
         GL_LINE_STRIP glBegin
-    ] if ;
+    ] if* ;
 
 : draw-maze ( n -- )
     line-width 2 - glLineWidth
@@ -58,7 +58,9 @@ M: maze draw-gadget* [ n draw-maze ] draw-canvas ;
 
 M: maze pref-dim* drop { 400 400 } ;
 
+M: maze handle-gesture
+    over T{ button-down { # 1 } } =
+    [ nip relayout f ] [ call-next-method ] if ;
+
 MAIN-WINDOW: maze-window { { title "Maze" } }
     <maze> >>gadgets ;
-
-MAIN: maze-window