diff options
Diffstat (limited to 'chickadee/render/scene.scm')
-rw-r--r-- | chickadee/render/scene.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/chickadee/render/scene.scm b/chickadee/render/scene.scm index 60b34ce..db8b2bf 100644 --- a/chickadee/render/scene.scm +++ b/chickadee/render/scene.scm @@ -222,13 +222,15 @@ (%make-scene name nodes)) (define (draw-primitive primitive matrix) - ;; TODO: Use material. ;; TODO: Actually use physically based rendering. - (let ((mvp (primitive-matrix primitive))) + (let ((mvp (primitive-matrix primitive)) + (material (primitive-material primitive))) (matrix4-mult! mvp matrix (current-projection)) - (gpu-apply (pbr-shader) - (primitive-vertex-array primitive) - #:mvp mvp))) + (with-texture 0 (material-base-color-texture material) + (gpu-apply (pbr-shader) + (primitive-vertex-array primitive) + #:mvp mvp + #:base_color_factor (material-base-color-factor material))))) (define (draw-mesh mesh matrix) (for-each (lambda (primitive) |