From 17901b6e4d66dd4ce7ce23d683bf73db85a7f4a6 Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Sat, 6 Jun 2015 15:04:25 -0400
Subject: render: model: Add model-scale.

* sly/render/model.scm (model-scale): New procedure.
---
 sly/render/model.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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."
-- 
cgit v1.2.3