0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-18 18:51:29 -05:00

Fix rules with zoom (#4)

This commit is contained in:
Jesús Espino 2016-04-09 22:06:02 +02:00 committed by Andrey Antukh
parent 3a448e33e4
commit 18ddbaa039

View file

@ -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)]