package.lisp @ b030a0f1cc59

Add longest path finder, plus some ui stuff
author Steve Losh <steve@stevelosh.com>
date Thu, 02 Jun 2016 18:38:27 +0000
parents b6ef3040c692
children 7bed529a71b5
(defpackage #:mazes.utils
  (:use
    #:cl
    #:sketch
    #:mazes.quickutils)
  (:export
    #:dividesp
    #:in-context
    #:random-elt
    #:randomp
    #:zap%
    #:full-list
    #:smallest
    #:largest
    #:recursively
    #:recur
    #:hash-keys
    #:%))

(defpackage #:mazes.fps
  (:use
    #:cl
    #:sketch
    #:mazes.quickutils
    #:mazes.utils)
  (:export
    #:with-fps
    #:draw-fps))

(defpackage #:mazes.grid
  (:use
    #:cl
    #:mazes.quickutils
    #:mazes.utils)
  (:export
    #:cell
    #:make-cell
    #:cell-link
    #:cell-unlink
    #:cell-linked-p
    #:cell-linked-north-p
    #:cell-linked-south-p
    #:cell-linked-east-p
    #:cell-linked-west-p
    #:cell-neighbors
    #:cell-north
    #:cell-south
    #:cell-east
    #:cell-west
    #:cell-col
    #:cell-row
    #:grid
    #:grid-cols
    #:grid-rows
    #:grid-cells
    #:grid-ref
    #:make-grid
    #:grid-size
    #:grid-map-cells
    #:grid-map-rows
    #:grid-loop-cells
    #:grid-loop-rows
    #:grid-size
    #:grid-random-cell
    #:distance-map
    #:make-dm
    #:dm-distance
    #:dm-cells
    #:dm-max
    #:cell-distance-map
    #:dijkstra))

(defpackage #:mazes.generation
  (:use
    #:cl
    #:mazes.quickutils
    #:mazes.utils
    #:mazes.grid)
  (:export
    #:binary-tree
    #:binary-tree-generator
    #:sidewinder
    #:sidewinder-generator)
  (:import-from #:snakes
    #:defgenerator
    #:do-generator
    #:yield))

(defpackage #:mazes.demo
  (:use
    #:cl
    #:sketch
    #:mazes.grid
    #:mazes.generation
    #:mazes.quickutils
    #:mazes.utils
    #:mazes.fps))