mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

add examples 'tilt-sensor' (sensor reading on mobile devices)

Browse source
This commit is contained in:
pls.153 2022-04-15 10:32:22 +02:00
parent 834440953b
commit 15fc8c062a
9 changed files with 335 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

61
examples/tilt-sensor/lisp/maze.lisp Normal file
View file

@ -0,0 +1,61 @@
;;; original copyright: CL Maze 20030311 by Joe Wingbermuehle
;;;
;;; this is a reviewed version
(in-package :maze)
;; both must be odd
(defconstant *width* 25)
(defconstant *height* 39)
(defvar *maze*)
(defun carve-maze (x y)
(let ((d (random 4)))
(dotimes (c 4)
(let* ((cd (mod (+ c d) 4))
(dv (case cd
(0 (list 1 0))
(1 (list 0 1))
(2 (list -1 0))
(t (list 0 -1))))
(x1 (+ x (car dv)))
(y1 (+ y (cadr dv)))
(x2 (+ x1 (car dv)))
(y2 (+ y1 (cadr dv))))
(when (and (< 0 x2 *width*)
(< 0 y2 *height*)
(aref *maze* x1 y1)
(aref *maze* x2 y2))
(set-visible x1 y1 nil)
(set-visible x2 y2 nil)
(qsleep 0.001) ; slow down to make visible
(carve-maze x2 y2))))))
(defun generate-maze ()
(set-visible 1 1 nil)
(carve-maze 1 1)
(set-visible 1 0 nil)
(set-visible (- *width* 1) (- *height* 2) nil))
(defun set-visible (x y visible)
(setf (aref *maze* x y) visible)
;; |visible| doesn't work inside Repeater
(q> |opacity| (q! |itemAt| ui:*maze*
(+ x (* y *width*)))
(if visible 1 0)))
(defun display-maze ()
(dotimes (y *height*)
(dotimes (x *width*)
(set-visible x y (aref *maze* x y)))))
(defun new-maze ()
(setf *maze* (make-array (list *width* *height*)
:initial-element t))
(display-maze)
(qlater 'generate-maze))
(defun ini ()
(setf *random-state* (make-random-state t))
(new-maze))