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

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)