Permalink
Browse files

Example-related updates

  • Loading branch information...
Josh Marchán
Josh Marchán committed Jun 27, 2010
1 parent 9448386 commit 9743f3d0286034958b78c1ff3e1a7ab0a08cdb28
Showing with 13 additions and 13 deletions.
  1. +2 −2 examples/basic-no-subclass.lisp
  2. +2 −2 examples/basic.lisp
  3. +8 −8 examples/image.lisp
  4. +1 −1 until-it-dies.examples.asd
@@ -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
- :window-height 400))
+ :width 400
+ :height 400))
(defmethod uid:on-draw ((game (eql *game*)))
(uid:clear game)
View
@@ -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
- :window-height 400))
+ :width 400
+ :height 400))
(defmethod uid:on-draw ((game my-basic-game))
(uid:clear game)
View
@@ -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
- :window-height 400))
-
-(defparameter *image* (make-instance 'uid:image
- :texture-filepath
- (merge-pathnames "lisplogo_alien_256.png" *resource-directory*)))
+ :width 400
+ :height 400
+ :image (make-instance 'uid:image
+ :texture-filepath
+ (merge-pathnames "lisplogo_alien_256.png"
+ *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))
@@ -10,5 +10,5 @@
((:file "basic")
(:file "text")
(:file "image")
- (:file "multi-window")
+ #+nil(:file "multi-window")
(:file "basic-no-subclass")))))

0 comments on commit 9743f3d

Please sign in to comment.