This commit is contained in:
Alejandro Alonso 2023-12-18 12:17:15 +01:00
parent f0d0529f58
commit 4690945f59
2 changed files with 7 additions and 3 deletions

View File

@ -351,7 +351,8 @@
;; IT's MAGIC! ;; IT's MAGIC!
[gl/canvas {:objects base-objects [gl/canvas {:objects base-objects
:active-frames @active-frames}] :active-frames @active-frames
:vbox vbox}]
[:svg.viewport-controls [:svg.viewport-controls
{:xmlns "http://www.w3.org/2000/svg" {:xmlns "http://www.w3.org/2000/svg"

View File

@ -40,7 +40,7 @@
(.set programs "default" default-program))) (.set programs "default" default-program)))
(defn render-gl (defn render-gl
[gl objects] [gl objects vbox]
(.clearColor gl 0.0 0.0 0.0 0.0) (.clearColor gl 0.0 0.0 0.0 0.0)
(.clear gl (.-COLOR_BUFFER_BIT gl)) (.clear gl (.-COLOR_BUFFER_BIT gl))
@ -64,8 +64,11 @@
(js/console.log props) (js/console.log props)
(js/console.log "default-shaders" default-vertex-shader default-fragment-shader) (js/console.log "default-shaders" default-vertex-shader default-fragment-shader)
(let [objects (unchecked-get props "objects") (let [objects (unchecked-get props "objects")
vbox (unchecked-get props "vbox")
canvas-ref (mf/use-ref nil) canvas-ref (mf/use-ref nil)
gl-ref (mf/use-ref nil)] gl-ref (mf/use-ref nil)]
(println "---------------> vbox" (:x vbox) (:width vbox) (:y vbox) (:height vbox))
(mf/with-effect [canvas-ref] (mf/with-effect [canvas-ref]
(let [canvas (mf/ref-val canvas-ref)] (let [canvas (mf/ref-val canvas-ref)]
@ -74,7 +77,7 @@
(mf/set-ref-val! gl-ref gl) (mf/set-ref-val! gl-ref gl)
(resize-canvas canvas) (resize-canvas canvas)
(prepare-gl gl) (prepare-gl gl)
(render-gl gl objects) (render-gl gl objects vbox)
(js/console.log "gl" gl))))) (js/console.log "gl" gl)))))
[:canvas {:class (stl/css :canvas) [:canvas {:class (stl/css :canvas)