Example-related updates

zkat · Jun 27, 2010 · 9743f3d · 9743f3d
1 parent 9448386
commit 9743f3d
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 13 deletions.
diff --git a/examples/basic-no-subclass.lisp b/examples/basic-no-subclass.lisp
@@ -15,8 +15,8 @@
                                     :fps-limit 60
                                     :title "Basic UID Example (no subclasses)"
                                     :clear-color (uid:mix-colors uid:*blue* uid:*white* uid:*green*)
-                                    :window-width 400
+                                    :width 400
-                                    :window-height 400))
+                                    :height 400))
 
 (defmethod uid:on-draw ((game (eql *game*)))
   (uid:clear game)

diff --git a/examples/basic.lisp b/examples/basic.lisp
@@ -8,8 +8,8 @@
   (:default-initargs :title "Basic UID Example"
     :fps-limit 60
     :clear-color (uid:mix-colors uid:*blue* uid:*white* uid:*green*)
-    :window-width 400
+    :width 400
-    :window-height 400))
+    :height 400))
 
 (defmethod uid:on-draw ((game my-basic-game))
   (uid:clear game)

diff --git a/examples/image.lisp b/examples/image.lisp
@@ -7,18 +7,18 @@
   (merge-pathnames "res/" (load-time-value (or #.*compile-file-truename* *load-truename*))))
 
 (defclass image-example (uid:simple-game-engine)
-  ()
+  ((image :initarg :image :accessor image))
   (:default-initargs :title "UID Image-drawing example."
-    :window-width 400
+    :width 400
-    :window-height 400))
+    :height 400
-
+    :image (make-instance 'uid:image
-(defparameter *image* (make-instance 'uid:image
+                          :texture-filepath
-                                     :texture-filepath
+                          (merge-pathnames "lisplogo_alien_256.png"
-                                     (merge-pathnames "lisplogo_alien_256.png" *resource-directory*)))
+                                           *resource-directory*))))
 
 (defmethod uid:on-draw ((game image-example))
   (uid:clear game)
-  (uid:draw *image* :x 100 :y 100))
+  (uid:draw (image game) :x 100 :y 100))
 
 (defmethod uid:on-key-down ((game image-example) keycode keysym string)
   (declare (ignore keycode string))

diff --git a/until-it-dies.examples.asd b/until-it-dies.examples.asd
@@ -10,5 +10,5 @@
             ((:file "basic")
              (:file "text")
              (:file "image")
-             (:file "multi-window")
+             #+nil(:file "multi-window")
              (:file "basic-no-subclass")))))