summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/shmup/shmup.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/shmup/shmup.scm b/examples/shmup/shmup.scm
index d1f9abc..5267737 100644
--- a/examples/shmup/shmup.scm
+++ b/examples/shmup/shmup.scm
@@ -101,10 +101,11 @@
(set! (x parallax) new-x)
(for-each (lambda (layer)
(let* ((sprite (child-ref parallax (name layer)))
- (width (texture-width (asset-ref (texture sprite))))
+ (t (texture sprite))
+ (width (texture-width t))
(tx (exact->inexact
(/ (mod (* new-x (scalar layer)) width) width)))
- (r (texcoords sprite)))
+ (r (texture-gl-tex-rect t)))
(set-rect-x! r tx)))
(layers parallax))))