3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-26 02:37:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

Minor improvements on grid render code.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-10 18:04:37 +03:00
parent aa06d824ee
commit e9d3e7578e
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/uxbox/ui/workspace/grid.cljs
View file

@ -14,7 +14,6 @@
;; --- Grid (Component) ;; --- Grid (Component)
(declare ticks-range)
(declare vertical-line) (declare vertical-line)
(declare horizontal-line) (declare horizontal-line)
@ -24,8 +23,14 @@
color (:grid/color options "#cccccc") color (:grid/color options "#cccccc")
width wb/viewport-width width wb/viewport-width
height wb/viewport-height height wb/viewport-height
x-ticks (ticks-range width (:grid/x-axis options 10)) x-ticks (range (- 0 wb/canvas-start-x)
y-ticks (ticks-range height (:grid/y-axis options 10)) (- width wb/canvas-start-x)
(:grid/x-axis options 10))
y-ticks (range (- 0 wb/canvas-start-x)
(- height wb/canvas-start-x)
(:grid/y-axis options 10))
path (as-> [] $ path (as-> [] $
(reduce (partial vertical-line height) $ x-ticks) (reduce (partial vertical-line height) $ x-ticks)
(reduce (partial horizontal-line width) $ y-ticks))] (reduce (partial horizontal-line width) $ y-ticks))]
@ -50,9 +55,3 @@
[height acc value] [height acc value]
(let [pos (+ value wb/canvas-start-y)] (let [pos (+ value wb/canvas-start-y)]
(conj acc (str/format "M %s %s L %s %s" pos 0 pos height)))) (conj acc (str/format "M %s %s L %s %s" pos 0 pos height))))
(defn- ticks-range
[size step]
(range (- 0 wb/canvas-start-y)
(- size wb/canvas-start-y)
step))