[gamelib-cvs] demo-stick.lisp

[Ingvar Mattsson]

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*))