From 74612178d7d961ab8d12e5ce32fde6d320365695 Mon Sep 17 00:00:00 2001
From: Alejandro Alonso <alejandroalonsofernandez@gmail.com>
Date: Thu, 12 May 2022 14:04:36 +0200
Subject: [PATCH] :bug: Fix Thumbnail blur on mouse movements

---
 .../shapes/frame/thumbnail_render.cljs        | 31 ++++++++++++-------
 1 file changed, 20 insertions(+), 11 deletions(-)

diff --git a/frontend/src/app/main/ui/workspace/shapes/frame/thumbnail_render.cljs b/frontend/src/app/main/ui/workspace/shapes/frame/thumbnail_render.cljs
index 1fb12c7509..f603202c62 100644
--- a/frontend/src/app/main/ui/workspace/shapes/frame/thumbnail_render.cljs
+++ b/frontend/src/app/main/ui/workspace/shapes/frame/thumbnail_render.cljs
@@ -17,19 +17,28 @@
    [beicon.core :as rx]
    [rumext.alpha :as mf]))
 
+(def thumbnail-scale-factor 2)
+
 (defn- draw-thumbnail-canvas
   [canvas-node img-node]
-  (try
-    (when (and (some? canvas-node) (some? img-node))
-      (let [canvas-context (.getContext canvas-node "2d")
-            canvas-width   (.-width canvas-node)
-            canvas-height  (.-height canvas-node)]
-        (.clearRect canvas-context 0 0 canvas-width canvas-height)
-        (.drawImage canvas-context img-node 0 0 canvas-width canvas-height)
-        (.toDataURL canvas-node "image/png")))
-    (catch :default err
-      (.error js/console err)
-      nil)))
+  (time (try
+          (when (and (some? canvas-node) (some? img-node))
+            (let [canvas-context (.getContext canvas-node "2d")
+                  canvas-width   (.-width canvas-node)
+                  canvas-height  (.-height canvas-node)]
+
+              (set! (.-width canvas-node) (* thumbnail-scale-factor canvas-width))
+              (set! (.-height canvas-node) (* thumbnail-scale-factor canvas-height))
+              (.setTransform canvas-context thumbnail-scale-factor 0 0 thumbnail-scale-factor 0 0)
+              (set! (.-imageSmoothingEnabled canvas-context) true)
+              (set! (.-imageSmoothingQuality canvas-context) "high")
+
+              (.clearRect canvas-context 0 0 canvas-width canvas-height)
+              (.drawImage canvas-context img-node 0 0 canvas-width canvas-height)
+              (.toDataURL canvas-node "image/png" 1.0)))
+          (catch :default err
+            (.error js/console err)
+            nil))))
 
 (defn use-render-thumbnail
   "Hook that will create the thumbnail thata"