summaryrefslogtreecommitdiff
path: root/sly/render/model.scm
diff options
context:
space:
mode:
Diffstat (limited to 'sly/render/model.scm')
-rw-r--r--sly/render/model.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/sly/render/model.scm b/sly/render/model.scm
index 7f9ead9..b42dd64 100644
--- a/sly/render/model.scm
+++ b/sly/render/model.scm
@@ -43,7 +43,7 @@
model-mesh model-texture model-shader model-color
model-blend-mode model-depth-test?
draw-model
- paint blend))
+ model-paint model-blend))
;; Representation of a single OpenGL render call.
(define-record-type <model>
@@ -115,10 +115,10 @@ CONTEXT."
;;; Utility Procedures
;;;
-(define (paint color model)
+(define (model-paint color model)
"Create a copy of MODEL, but with a new COLOR."
(model-inherit model #:color color))
-(define (blend blend-mode model)
+(define (model-blend blend-mode model)
"Create a copy of MODEL, but with a new BLEND-MODE."
(model-inherit model #:blend-mode blend-mode))