X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F01.HelloWorld.scm;h=b480c8934ccbac60ffc0361d3b2253e08649a58d;hb=0cb94da9c4b0cc97e1a6e3452922b78f9f84124e;hp=5a3411609ecfbd8cffce4a6950f78e177e6e596b;hpb=e01650cfcde81068b3b5819b64f9b641905b3b76;p=guile-irrlicht.git

diff --git a/examples/01.HelloWorld.scm b/examples/01.HelloWorld.scm
index 5a34116..b480c89 100644
--- a/examples/01.HelloWorld.scm
+++ b/examples/01.HelloWorld.scm
@@ -28,7 +28,7 @@
 (define device
   (create-device
    #:device-type 'software
-   #:window-size (make-dimension2d 640 480)))
+   #:window-size '(640 480)))
 (when (not device)
   (exit #f))
 
@@ -42,16 +42,16 @@
 (add-static-text!
  gui-env
  "Hello World! This is the Irrlicht Software renderer!"
- (make-rect 10 10 260 22)
+ '(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)
+  (drop! device)
   (exit #f))
 
-(define node (add-animated-mesh-scene-node scene-manager mesh))
+(define node (add-animated-mesh-scene-node! scene-manager mesh))
 (when node
   (set-material-flag! node 'lighting #f)
   (set-md2-animation! node 'stand)
@@ -61,12 +61,12 @@
 (add-camera-scene-node! scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))
 
 ;; draw everything
-(while (device-run? device)
+(while (run device)
   (begin-scene driver #:color '(255 100 101 140))
-  (scene-draw-all scene-manager)
-  (gui-draw-all gui-env)
+  (draw-all scene-manager)
+  (draw-all gui-env)
   (end-scene driver))
 
 ;; delete device
-(device-drop! device)
+(drop! device)
 (exit #t)