Increased default zoom factor and parameterized it in one location. C…

…ommitted by Ben Weintraub.
iowaguy · Aug 12, 2016 · 0e3ff67 · 0e3ff67
1 parent 0cc35a0
commit 0e3ff67
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/cljs/jackal/core.cljs b/src/cljs/jackal/core.cljs
@@ -20,7 +20,7 @@
 (def pixel-offset-x (/ screen-width 2))
 (def pixel-offset-y (/ screen-height 2))
 (def canvas-name "fractal-canvas")
-(def zoom-factor 2)
+(def zoom-factor 4)
 
 (defn offset-pixel-coordinate-x
   [x]
@@ -81,8 +81,8 @@
         (assoc :ymax new-max-y)
         (assoc :scale new-scale)
         (update :step #(/ 1 new-scale))
-        (update :x-offset #(- pixel-offset-x (* 2 (- (:x event) %))))
-        (update :y-offset #(- pixel-offset-y (* 2 (- (:y event) %)))))))
+        (update :x-offset #(- pixel-offset-x (* zoom-factor (- (:x event) %))))
+        (update :y-offset #(- pixel-offset-y (* zoom-factor (- (:y event) %)))))))
 
 (defn draw
   [state]