+(add-static-text!
+ gui-env
+ "Hello World! This is the Irrlicht Software renderer!"
+ '(10 10 260 22)
+ #:border #t)
+
+;; load a Quake2 model
+(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! node 'lighting #f)
+ (set-md2-animation! node 'stand)
+ (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))