Some fixes (beware with pointers casting)

[guile-irrlicht.git] / examples / 04.Movement.scm

diff --git a/examples/04.Movement.scm b/examples/04.Movement.scm
index 385007924e09e2185d7e0500e2aaa21f7d66b45f..e0592c3645f93c65b4d64113249b4af6748a535a 100644 (file)
--- a/examples/04.Movement.scm
+++ b/examples/04.Movement.scm
@@ -77,14 +77,14 @@
 (define gui-env (get-gui-environment device))
 
 ;; create the node which will be moved with the WSAD keys
-(define wall (add-sphere-scene-node! scene-manager))
-(set-position! wall '(0 0 30))
-(set-material-texture! wall 0 (get-texture driver "media/wall.bmp"))
-(set-material-flag! wall 'lighting #f)
+(define ball (add-sphere-scene-node! scene-manager))
+(set-position! ball '(0 0 30))
+(set-material-texture! ball 0 (get-texture driver "media/wall.bmp"))
+(set-material-flag! ball 'lighting #f)
 
 ;; create another node, movable using a scene node animator
 (let ((cube (add-cube-scene-node! scene-manager))
-      (anim (create-fly-circle-animator scene-manager #:center '(0 0 30))))
+      (anim (create-fly-circle-animator scene-manager #:center '(0 0 30) #:radius 20)))
   (set-material-texture! cube 0 (get-texture driver "media/t351sml.jpg"))
   (set-material-flag! cube 'lighting #f)
   (add-animator! cube anim)
@@ -126,7 +126,7 @@
         (set! then now)
 
         ;; check if W, S, A or D are pressed
-        (let* ((node-position (get-position wall))
+        (let* ((node-position (get-position ball))
                (pos-x (car node-position))
                (pos-y (cadr node-position))
                (pos-z (caddr node-position)))
@@ -138,7 +138,7 @@
               (set! pos-x (- pos-x (* movement-speed frame-delta-time))))
           (if (is-key-down? 'key-d)
               (set! pos-x (+ pos-x (* movement-speed frame-delta-time))))
-          (set-position! wall (list pos-x pos-y pos-z))))
+          (set-position! ball (list pos-x pos-y pos-z))))
 
       (begin-scene driver #:color '(255 113 113 133))
       (draw-all scene-manager)