X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fimage.scm;h=236ac744fd420e83bf770e606346c46c02cf0d3a;hp=6acff1dbe0e0d5717f7ae040f6d0de54e4d244f0;hb=1a2289c59c999b73d932a60137967961c635c90a;hpb=db983f855772fcc138c84b5772a41b1a737f4e47

diff --git a/gacela/image.scm b/gacela/image.scm
index 6acff1d..236ac74 100644
--- a/gacela/image.scm
+++ b/gacela/image.scm
@@ -75,7 +75,9 @@
   (make-scene
    "scale"
    (lambda ()
-     (gl-scale x y z)
+     (gl-scale (calculate x)
+               (calculate y)
+               (calculate z))
      (display-scene scene))))
 
 (define (over . scenes)