johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

✨ Improve cache rendering

Browse Source
This commit is contained in:
alonso.torres
2025-11-20 15:34:28 +01:00
parent 0120a5335b
commit c2026918a4
6 changed files with 69 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
frontend/src/app/render_wasm/api.cljs
View File

@@ -111,12 +111,6 @@
(aget buffer 3))
(set! wasm/internal-frame-id nil))))
(def set-view-render
(fns/debounce
(fn [ts]
(h/call wasm/internal-module "_set_view_end")
(render ts))
200))
(defonce pending-render (atom false))
@@ -866,10 +860,24 @@
(:y position))]
(= result 1)))
(def render-finish
(letfn [(do-render [ts]
(h/call wasm/internal-module "_set_view_end")
(render ts))]
(fns/debounce do-render 100)))
(def render-pan
(fns/throttle render 10))
(defn set-view-box
[zoom vbox]
[prev-zoom zoom vbox]
(h/call wasm/internal-module "_set_view" zoom (- (:x vbox)) (- (:y vbox)))
(set-view-render))
(if (mth/close? prev-zoom zoom)
(do (render-pan)
(render-finish))
(do (h/call wasm/internal-module "_render_from_cache" 0)
(render-finish))))
(defn set-object
[objects shape]