(create-device
#:device-type 'software
#:window-size '(640 480)))
-(when (not device)
- (exit #f))
(set-window-caption! device "Hello World! - Irrlicht Engine Demo")
;; load a Quake2 model
(define mesh (get-mesh scene-manager "media/sydney.md2"))
-(when (is-empty? mesh)
- (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")))
+(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))