# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1464521181 0
# Node ID 5f186e6239d546cfc6c1013fa8c33a8d153ff117
# Parent  efe822c4468f53c0b1fb6e522cead5a218080c72
Embiggen the maze for perf demo

diff -r efe822c4468f -r 5f186e6239d5 src/demo.lisp
--- a/src/demo.lisp	Wed May 25 14:57:33 2016 +0000
+++ b/src/demo.lisp	Sun May 29 11:26:21 2016 +0000
@@ -50,8 +50,8 @@
                   (x2 (* cell-size (1+ (cell-col cell))))
                   (y2 (* cell-size (1+ (cell-row cell))))
                   (dist (dm-distance distances cell)))
-              (when dist
-                (text (princ-to-string dist) (+ 5 x1) (+ 0 y1)))
+              ; (when dist
+              ;   (text (princ-to-string dist) (+ 5 x1) (+ 0 y1)))
               (when (not (cell-north cell))
                 (line x1 y1 x2 y1))
               (when (not (cell-west cell))
@@ -66,16 +66,16 @@
      (mouse (cons 0 0))
      (frame 0)
      ;; Variables
-     (maze (make-grid 10 10))
-     (gen (sidewinder maze))
+     (maze (make-grid 30 30))
+     (gen (sidewinder-generator maze))
      (distances (cell-distance-map (grid-ref maze 0 0)))
      ;; Pens
      )
   (with-setup
     ;;
     (draw-maze maze distances)
-    ; (if (dividesp frame 2)
-    ;   (funcall gen))
+    (if (dividesp frame 2)
+      (funcall gen))
     ;;
     (incf frame)
     ))