December 2006 - gamelib-cvs@common-lisp.net

[gamelib-cvs] games-2d.asd
by Ingvar Mattsson 31 Dec '06

31 Dec '06

Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv2923 Modified Files: games-2d.asd Log Message: IM Noticed taht one needed file wasn't being included. Index: games-2d.asd =================================================================== RCS file: /project/gamelib/cvsroot/source/games-2d.asd,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** games-2d.asd 10 Oct 2006 06:18:24 -0000 1.7 --- games-2d.asd 31 Dec 2006 12:39:02 -0000 1.8 *************** *** 7,12 **** (:file "globals-2d" :depends-on ("packages-2d")) (:file "xpm-lib" :depends-on ("packages-2d")) (:file "generics" :depends-on ("packages-2d")) ! (:file "graphics" :depends-on ("packages-2d" "xpm-lib" "globals-2d" "generics")) (:file "gameplay" :depends-on ("packages-2d" "globals-2d")) --- 7,13 ---- (:file "globals-2d" :depends-on ("packages-2d")) (:file "xpm-lib" :depends-on ("packages-2d")) + (:file "images" :depends-on ("packages-2d")) (:file "generics" :depends-on ("packages-2d")) ! (:file "graphics" :depends-on ("packages-2d" "xpm-lib" "images" "globals-2d" "generics")) (:file "gameplay" :depends-on ("packages-2d" "globals-2d"))

1 0

[gamelib-cvs] graphics.lisp
by Ingvar Mattsson 31 Dec '06

31 Dec '06

Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv2849 Modified Files: graphics.lisp Log Message: IM Sliht changes (essentially ripping out some code taht should've been dead already). Index: graphics.lisp =================================================================== RCS file: /project/gamelib/cvsroot/source/graphics.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** graphics.lisp 5 Sep 2006 06:04:32 -0000 1.3 --- graphics.lisp 31 Dec 2006 12:38:40 -0000 1.4 *************** *** 232,235 **** --- 232,238 ---- )) + ;;; The following function has Gatlopp-specific code (namely the calls to + ;;; (keys *player*). IThat's why it's being discarded. + #-(and) (defun update-status-window () (when *player* *************** *** 241,244 **** --- 244,248 ---- *controls* (x *player*) (y *player*))))) + (defmethod draw ((obj xlib:window)) (cond ((xlib:drawable-equal obj *game-window*)

1 0

[gamelib-cvs] generics.lisp
by Ingvar Mattsson 30 Dec '06

30 Dec '06

Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv16209 Modified Files: generics.lisp Log Message: IM Now with doc strings! Index: generics.lisp =================================================================== RCS file: /project/gamelib/cvsroot/source/generics.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** generics.lisp 30 Dec 2006 19:12:36 -0000 1.1 --- generics.lisp 30 Dec 2006 19:19:29 -0000 1.2 *************** *** 1,5 **** (in-package #:net.hexapodia.games-2d) ! (defgeneric draw (object)) ! (defgeneric movement (object)) ! (defgeneric (setf movement) (object)) --- 1,14 ---- (in-package #:net.hexapodia.games-2d) ! (defgeneric draw (object) ! (:documentation "Draw a graphics object into the relevant window ! (objects that move will have their associated window tied from the object)")) ! ! (defgeneric move (object) ! (:documentation "Make an object move, if it is an animated object, also switch ! to the next animation")) ! ! (defgeneric movement (object) ! (:documentation "Returns movement (dx / dy) for a movable object.")) ! (defgeneric (setf movement) (value object) ! (:documentation "Sets movement (dx / dy) for a movable object."))

1 0

[gamelib-cvs] generics.lisp
by Ingvar Mattsson 30 Dec '06

30 Dec '06

Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv15369 Added Files: generics.lisp Log Message: IM First check-in after re-creation. --- NEW FILE: generics.lisp --- (in-package #:net.hexapodia.games-2d) (defgeneric draw (object)) (defgeneric movement (object)) (defgeneric (setf movement) (object))

1 0

[gamelib-cvs] demo-stick.lisp
by Ingvar Mattsson 28 Dec '06

28 Dec '06

Update of /project/gamelib/cvsroot/source/doc In directory clnet:/tmp/cvs-serv30770 Modified Files: demo-stick.lisp Log Message: IM Minor update for the joystick demo. Index: demo-stick.lisp =================================================================== RCS file: /project/gamelib/cvsroot/source/doc/demo-stick.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** demo-stick.lisp 27 Dec 2006 21:27:10 -0000 1.1 --- demo-stick.lisp 28 Dec 2006 06:15:47 -0000 1.2 *************** *** 33,34 **** --- 33,41 ---- ) (xlib:display-force-output *display*)) + + (continous-poll *js*) + (loop for n below 1000 do (progn + (update) + (sleep 0.1))) + + \ No newline at end of file

1 0

[gamelib-cvs] gamelib.asd
by Ingvar Mattsson 27 Dec '06

27 Dec '06

Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv13995 Modified Files: gamelib.asd Log Message: IM Version update, preparing for release. Index: gamelib.asd =================================================================== RCS file: /project/gamelib/cvsroot/source/gamelib.asd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** gamelib.asd 10 Oct 2006 06:18:24 -0000 1.4 --- gamelib.asd 27 Dec 2006 21:28:15 -0000 1.5 *************** *** 1,4 **** (asdf:defsystem "gamelib" ! :version "0.3" :author "Ingvar Mattsson <ingvar(a)hexapodia.net>" ! :depends-on ("games-ai" "games-2d" "games-3d")) --- 1,5 ---- (asdf:defsystem "gamelib" ! :version "0.4" :author "Ingvar Mattsson <ingvar(a)hexapodia.net>" ! :depends-on ("games-ai" "games-2d" "games-3d" ! #+linux "games-stick"))

1 0

[gamelib-cvs] demo-stick.lisp
by Ingvar Mattsson 27 Dec '06

27 Dec '06

Update of /project/gamelib/cvsroot/source/doc In directory clnet:/tmp/cvs-serv13888/doc Added Files: demo-stick.lisp Log Message: IM Initial check-in. --- NEW FILE: demo-stick.lisp --- (in-package :net.hexapodia.games-stick) (defvar *display* (xlib:open-default-display)) (defvar *screen* (car (xlib:display-roots *display*))) (defvar *win* (xlib:create-window :parent (xlib:screen-root *screen*) :width 200 :x 10 :y 10 :height 150)) (defvar *black* (xlib:screen-black-pixel *screen*)) (defvar *white* (xlib:screen-white-pixel *screen*)) (defvar *js* (net.hexapodia.games-stick:make-stick "/dev/input/js0")) (defun update () (update-stick *js*) (xlib:draw-rectangle *win* *white* 0 0 200 150 t) (xlib:display-force-output *display*) (xlib:draw-rectangle *win* *black* 10 10 100 100) (let ((x-offset (round (+ 60 (* 50 (aref (axes *js*) 0))))) (y-offset (round (+ 60 (* 50 (aref (axes *js*) 1))))) (twist (+ 60 (round (* 50 (aref (axes *js*) 3))))) (throttle (+ 60 (round (* 50 (aref (axes *js*) 2)))))) (xlib:draw-line *win* *black* x-offset (- y-offset 5) x-offset (+ y-offset 5)) (xlib:draw-line *win* *black* (- x-offset 5) y-offset (+ x-offset 5) y-offset) (xlib:draw-line *win* *black* twist 120 twist 130) (xlib:draw-line *win* *black* 120 throttle 130 throttle) (loop for n from 0 for bitt across (buttons *js*) do (multiple-value-bind (y x) ( truncate n 4) (let ((x (+ 135 (* 10 x))) (y (+ 10 (* 10 y)))) (xlib:draw-arc *win* *black* x y 6 6 0 (* 2 pi) (not (zerop bitt)))))) ) (xlib:display-force-output *display*))

1 0

[gamelib-cvs] stick.html
by Ingvar Mattsson 27 Dec '06

27 Dec '06

Update of /project/gamelib/cvsroot/source/doc In directory clnet:/tmp/cvs-serv13839 Modified Files: stick.html Log Message: IM Linked in some demo code. Index: stick.html =================================================================== RCS file: /project/gamelib/cvsroot/source/doc/stick.html,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** stick.html 27 Dec 2006 20:26:59 -0000 1.3 --- stick.html 27 Dec 2006 21:26:45 -0000 1.4 *************** *** 59,62 **** --- 59,64 ---- </p> + <p>A quick example using the stick library can be found <a href="demo-stick.lisp">here</a>.</p> + <h3>Full STICK package exported symbol list</h3> <dl>

1 0

[gamelib-cvs] stick.html
by Ingvar Mattsson 27 Dec '06

27 Dec '06

Update of /project/gamelib/cvsroot/source/doc In directory clnet:/tmp/cvs-serv5728 Modified Files: stick.html Log Message: IM Ooops, title still said "3d library", now changed. Index: stick.html =================================================================== RCS file: /project/gamelib/cvsroot/source/doc/stick.html,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** stick.html 27 Dec 2006 19:27:24 -0000 1.2 --- stick.html 27 Dec 2006 20:26:59 -0000 1.3 *************** *** 4,8 **** <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <title>Gamelib - games-3d library</title> <link rel="stylesheet" type="text/css" href="../style.css"/> <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> --- 4,8 ---- <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <title>Gamelib - games-stick library</title> <link rel="stylesheet" type="text/css" href="../style.css"/> <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/>

1 0

[gamelib-cvs] index.html
by Ingvar Mattsson 27 Dec '06

27 Dec '06

Update of /project/gamelib/cvsroot/source/doc In directory clnet:/tmp/cvs-serv3639 Modified Files: index.html Log Message: IM Added the joystick docs to the main page. Index: index.html =================================================================== RCS file: /project/gamelib/cvsroot/source/doc/index.html,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** index.html 23 Sep 2006 07:46:28 -0000 1.4 --- index.html 27 Dec 2006 20:18:34 -0000 1.5 *************** *** 27,32 **** <h2>Components</h2> ! <p>Gamelib has three components, <a href="ai.html">the AI component</a>, the <a href="games-2d.html">games-2D</a> component and the ! <a href="3d.html">games-3d</a> component.</p> <h2>Intended use</h2> --- 27,32 ---- <h2>Components</h2> ! <p>Gamelib has four components, <a href="ai.html">the AI component</a>, the <a href="games-2d.html">games-2D</a> component, the ! <a href="3d.html">games-3d</a> component and the <a href="stick.html">joystick</a> component.</p> <h2>Intended use</h2>

1 0