dimension2d as a foreign record type

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

diff --git a/examples/01.HelloWorld.scm b/examples/01.HelloWorld.scm
index ea5c5be37768a63b2fee5d7e0ba91f9e5df7303b..40b0acadba2e9809566a6bc82a7527fbc823639d 100644 (file)
--- a/examples/01.HelloWorld.scm
+++ b/examples/01.HelloWorld.scm
@@ -28,7 +28,7 @@
 (define device
   (create-device
    #:device-type 'software
-   #:window-size '(640 480)))
+   #:window-size (make-dimension2d 640 480)))
 (when (not device)
   (exit #f))
 
@@ -53,12 +53,12 @@
 
 (define node (add-animated-mesh-scene-node scene-manager mesh))
 (when node
-  (set-material-flag-am! node 'lighting #f)
+  (set-material-flag! node 'lighting #f)
   (set-md2-animation! node 'stand)
-  (set-material-texture-am! node 0 (get-texture driver "media/sydney.bmp")))
+  (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))
+(add-camera-scene-node! scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))
 
 ;; draw everything
 (while (device-run? device)