WIP

exporter/src/app/renderer/bitmap.cljs

@@ -25,7 +25,8 @@
                                 :height bw/default-viewport-height}
                  :locale "en-US"
                  :storageState #js {:cookies (bw/create-cookies uri {:token token})}
-                 :deviceScaleFactor scale
+                 ;;:deviceScaleFactor scale
+                 :deviceScaleFctor 1
                  :userAgent bw/default-user-agent})
 
           (render-object [page {:keys [id] :as object}]

frontend/src/app/main/render.cljs

@@ -486,7 +486,7 @@
 
 (mf/defc object-wasm
   {::mf/wrap [mf/memo]}
-  [{:keys [objects object-id skip-children] :as props}]
+  [{:keys [objects object-id skip-children scale] :as props}]
   (let [object  (get objects object-id)
         object (cond-> object
                  (:hide-fill-on-export object)
@@ -499,7 +499,7 @@
         (gsb/get-object-bounds objects object {:ignore-margin? false})
 
         vbox (format-viewbox bounds)
-        zoom    1
+        scale (or scale 1)
         canvas-ref (mf/use-ref nil)]
 
     (mf/use-effect
@@ -512,7 +512,7 @@
                    (try
                      (when (wasm.api/init-canvas-context canvas)
                        (wasm.api/initialize-viewport
-                        objects zoom vbox "transparent"
+                        objects scale vbox "transparent"
                         (fn []
                           (wasm.api/render-sync-shape object-id)
                           (dom/set-attribute! canvas "id" (dm/str "screenshot-" object-id)))))
@@ -520,8 +520,8 @@
                        (js/console.error "Error initializing canvas context:" e)
                        false)))))))))
     [:canvas {:ref canvas-ref
-              :width width
-              :height height
+              :width (* scale width)
+              :height (* scale height)
               :style {:background "red"}}]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

frontend/src/app/render.cljs

@@ -64,7 +64,8 @@
 (mf/defc object-svg
   {::mf/wrap-props false}
   [{:keys [object-id embed skip-children wasm]}]
-  (let [objects (mf/deref ref:objects)]
+  (let [scale 2
+        objects (mf/deref ref:objects)]
 
     ;; Set the globa CSS to assign the page size, needed for PDF
     ;; exportation process.
@@ -82,6 +83,7 @@
          {:objects objects
           :object-id object-id
           :embed embed
+          :scale 2
           :skip-children skip-children}]
 
         [:& (mf/provider ctx/is-render?) {:value true}
@@ -103,6 +105,7 @@
             :key (str object-id)
             :object-id object-id
             :embed embed
+            :scale 2
             :skip-children skip-children}]
 
           [:& (mf/provider ctx/is-render?) {:value true}
@@ -150,6 +153,7 @@
 
 (defn- render-objects
   [params]
+  (prn "/render-objects" params)
   (try
     (let [{:keys [file-id page-id embed share-id object-id skip-children wasm] :as params}
           (coerce-render-objects-params params)]