Изображение, нарисованное на холсте, не отображается должным образом - PullRequest
0 голосов
/ 09 апреля 2020

Я запускаю этот пример в clojurescript: https://www.w3schools.com/tags/tryit.asp?filename=tryhtml5_canvas_drawimage И у меня есть следующее. (Игнорировать, что означает сегментация или сегментированный):

(def run-segmentation (with-meta identity {:component-did-mount #(dispatch [:run-segmentation])}))
[run-segmentation
      [:div
       [:canvas {:id "img-editing"}]
        [:img {:src "/run-segmentation" :id "segmented"}]]]

Файл css:

#segmented {
    border: 1px solid green;
    height: 277px;
    width: 220px;
}


#img-editing {
    border: 2px solid blue;
    width:240px;
    height:297px;
}

Прослушиватель событий:

(reg-event-db
 :run-segmentation
 (fn [db _]
   (set! (.-onload img)
         (fn []
           (let [c (js/document.getElementById "img-editing")
                 ctx (.getContext c "2d")
                 img (js/document.getElementById "segmented")]
             (.drawImage ctx img 10 10))))
   db))

Но вывод не не то, что ожидается: enter image description here

Что я делаю не так?

...