X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F01.HelloWorld.scm;h=3f128cb7770d3839213a0f825148165942f81adf;hb=2a0373b3eda4407e2e41a4e8fc3a7333bb789a89;hp=1df5080ed0e7e2ac772357269196a14f245d757f;hpb=a91f11d5d012053962259cb6c3fd13a7cc9e2a23;p=guile-irrlicht.git

diff --git a/examples/01.HelloWorld.scm b/examples/01.HelloWorld.scm
index 1df5080..3f128cb 100644
--- a/examples/01.HelloWorld.scm
+++ b/examples/01.HelloWorld.scm
@@ -46,19 +46,19 @@
  #:border #t)
 
 ;; load a Quake2 model
-(define mesh (get-mesh scene-manager "examples/media/sydney.md2"))
+(define mesh (get-mesh scene-manager "media/sydney.md2"))
 (when (not mesh)
   (device-drop! device)
   (exit #f))
 
 (define node (add-animated-mesh-scene-node scene-manager mesh))
 (when node
-  (set-material-flag-am! node 'lighting #f)
+  (set-material-flag! node 'lighting #f)
   (set-md2-animation! node 'stand)
-  (set-material-texture-am! node 0 (get-texture driver "examples/media/sydney.bmp")))
+  (set-material-texture! node 0 (get-texture driver "media/sydney.bmp")))
 
 ;; place camera
-(add-camera-scene-node scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))
+(add-camera-scene-node! scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))
 
 ;; draw everything
 (while (device-run? device)