HelloWorld example with all the functions needed

[guile-irrlicht.git] / examples / 01.HelloWorld.scm

diff --git a/examples/01.HelloWorld.scm b/examples/01.HelloWorld.scm
index 8ad550d4d2cf74659b3069d10922056cb2f7a246..45761def8d40abd414dd72ebdd7e2f9433b96c94 100644 (file)
--- a/examples/01.HelloWorld.scm
+++ b/examples/01.HelloWorld.scm
@@ -41,9 +41,25 @@
                   '(10 10 260 22)
                   #t)
 
+;; load a Quake2 model
+(define mesh (get-mesh scene-manager "examples/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-md2-animation! node 'stand)
+  (set-material-texture-am! node 0 (get-texture driver "examples/media/sydney.bmp")))
+
+;; place camera
+(add-camera-scene-node scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))
+
 ;; draw everything
 (while (device-run? device)
   (begin-scene driver #t #t '(255 100 101 140))
+  (scene-draw-all scene-manager)
   (gui-draw-all gui-env)
   (end-scene driver))