From 18ddbaa0392f6743bae0047861149094d3a3ed0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jes=C3=BAs=20Espino?= Date: Sat, 9 Apr 2016 22:06:02 +0200 Subject: [PATCH] Fix rules with zoom (#4) --- src/uxbox/ui/workspace/rules.cljs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/uxbox/ui/workspace/rules.cljs b/src/uxbox/ui/workspace/rules.cljs index 9a542e308..f3c5e83f7 100644 --- a/src/uxbox/ui/workspace/rules.cljs +++ b/src/uxbox/ui/workspace/rules.cljs @@ -33,7 +33,7 @@ [zoom acc value] (let [big-ticks-mod (big-ticks-mod zoom) mid-ticks-mod (mid-ticks-mod zoom) - pos (+ value + pos (+ (* value zoom) rule-padding (* wb/canvas-start-x zoom) wb/canvas-scroll-padding)] @@ -51,7 +51,7 @@ [zoom acc value] (let [big-ticks-mod (big-ticks-mod zoom) mid-ticks-mod (mid-ticks-mod zoom) - pos (+ value + pos (+ (* value zoom) (* wb/canvas-start-x zoom) wb/canvas-scroll-padding)] (cond @@ -69,7 +69,7 @@ (defn- horizontal-text-label [zoom value] (let [big-ticks-mod (big-ticks-mod zoom) - pos (+ value + pos (+ (* value zoom) rule-padding (* wb/canvas-start-x zoom) wb/canvas-scroll-padding)] @@ -87,7 +87,7 @@ (defn- vertical-text-label [zoom value] (let [big-ticks-mod (big-ticks-mod zoom) - pos (+ value + pos (+ (* value zoom) (* wb/canvas-start-x zoom) ;; wb/canvas-start-x wb/canvas-scroll-padding)]