Use smaller capture size for mobile

This commit is contained in:
heyarne 2020-05-02 22:20:28 +02:00
commit 81896ba400

View file

@ -70,6 +70,7 @@
(set! (.-onloadedmetadata video-elem) #(resolve video-elem)))))
;; TODO: Handle rejected permission request
;; TODO: Initialize model in the background
(defn init []
(swap! state ::status :webcam-init)
@ -85,8 +86,7 @@
;; initialize canvas
(set! (.-width canvas) (.-videoWidth video))
(set! (.-height canvas) (.-videoHeight video))
#_(.translate ctx (.-width canvas) 0)
#_(.scale ctx -1 1)
#_(.scale ctx (/ (.-clientWidth video) (.-videoWidth video)) (/ (.-clientHeight video) (.-videoHeight video)))
;; initalize model
(swap! state ::status :model-init)
@ -95,6 +95,8 @@
(then #(.load facemesh #js {:maxFaces 1}))
(then #(detect-faces % video))))))))
(.-clientWidth (.querySelector js/document "video#capture"))
(defonce initialize (init)
#_(do
(println "Initializing…")