diff options
| -rw-r--r-- | sly/render/model.scm | 6 |
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." |