X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F01.HelloWorld.scm;h=ea5c5be37768a63b2fee5d7e0ba91f9e5df7303b;hb=6d96d2506407a538ddb88fa97c9375b512571dda;hp=1df5080ed0e7e2ac772357269196a14f245d757f;hpb=a91f11d5d012053962259cb6c3fd13a7cc9e2a23;p=guile-irrlicht.git diff --git a/examples/01.HelloWorld.scm b/examples/01.HelloWorld.scm index 1df5080..ea5c5be 100644 --- a/examples/01.HelloWorld.scm +++ b/examples/01.HelloWorld.scm @@ -46,7 +46,7 @@ #: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)) @@ -55,7 +55,7 @@ (when node (set-material-flag-am! node 'lighting #f) (set-md2-animation! node 'stand) - (set-material-texture-am! node 0 (get-texture driver "examples/media/sydney.bmp"))) + (set-material-texture-am! node 0 (get-texture driver "media/sydney.bmp"))) ;; place camera (add-camera-scene-node scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))