mirror of
https://github.com/penpot/penpot.git
synced 2025-01-10 00:40:30 -05:00
49 lines
1.1 KiB
Text
49 lines
1.1 KiB
Text
|
(ns bench
|
||
|
|
(:require
|
||
|
|
[app.common.data :as d]
|
||
|
|
[app.common.geom.point :as gpt]
|
||
|
|
[app.common.geom.shapes.rect :as gsr]
|
||
|
|
[app.common.perf :as perf]
|
||
|
|
[clojure.spec.alpha :as s]
|
||
|
|
[clojure.test.check.generators :as gen]))
|
||
|
|
|
||
|
|
(def points
|
||
|
|
(gen/sample (s/gen ::gpt/point) 20))
|
||
|
|
|
||
|
|
(defn points->rect
|
||
|
|
[points]
|
||
|
|
(when-let [points (seq points)]
|
||
|
|
(loop [minx ##Inf
|
||
|
|
miny ##Inf
|
||
|
|
maxx ##-Inf
|
||
|
|
maxy ##-Inf
|
||
|
|
pts points]
|
||
|
|
(if-let [pt ^boolean (first pts)]
|
||
|
|
(let [x (d/get-prop pt :x)
|
||
|
|
y (d/get-prop pt :y)]
|
||
|
|
(recur (min minx x)
|
||
|
|
(min miny y)
|
||
|
|
(max maxx x)
|
||
|
|
(max maxy y)
|
||
|
|
(rest pts)))
|
||
|
|
(when (d/num? minx miny maxx maxy)
|
||
|
|
(gsr/make-rect minx miny (- maxx minx) (- maxy miny)))))))
|
||
|
|
|
||
|
|
(defn bench-points
|
||
|
|
[]
|
||
|
|
(perf/benchmark
|
||
|
|
:f #(gsr/points->rect points)
|
||
|
|
:name "base")
|
||
|
|
(perf/benchmark
|
||
|
|
:f #(points->rect points)
|
||
|
|
:name "optimized"))
|
||
|
|
|
||
|
|
|
||
|
|
(defn main
|
||
|
|
[& [name]]
|
||
|
|
(case name
|
||
|
|
"points" (bench-points)
|
||
|
|
(println "available: points")))
|
||
|
|
|
||
|
|
|