summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/render/model.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/sly/render/model.scm b/sly/render/model.scm
index 72a1719..3cc310a 100644
--- a/sly/render/model.scm
+++ b/sly/render/model.scm
@@ -51,6 +51,7 @@
model-group
list->model
model-move
+ model-scale
model-place))
;; Representation of a single OpenGL render call.
@@ -199,6 +200,11 @@ the vector POSITION."
(model-inherit model #:transform (transform* (model-transform model)
(translate position))))
+(define (model-scale factor model)
+ "Create a version of MODEL that is scaled up/down by FACTOR."
+ (model-inherit model #:transform (transform* (model-transform model)
+ (scale factor))))
+
(define (model-place transform model)
"Create a new group in which the tranformation matrices of the
CHILDREN are multiplied by TRANSFORM."