nik gaffney
be217c70fb
all at a single point. almost instantly, expanding into scratches, eddies and snipets of layout algorithms. gradually reshaping, drawn with puctiform convergence. what did those Z'zus have hidden in their cupboard?
46 lines
1.2 KiB
Scheme
46 lines
1.2 KiB
Scheme
;; -*- mode: scheme -*-
|
|
;;
|
|
;; formless scratches in space
|
|
;;
|
|
;; copyright (C) 2004 FoAM vzw
|
|
;; You are granted the rights to distribute and use this software
|
|
;; under the terms of the GNU Lesser General Public License as
|
|
;; published by the Free Software Foundation; either version 2.1 of
|
|
;; the License, or (at your option) any later version. The LGPL is
|
|
;; distributed with this code (see: LICENCE) and available online
|
|
;; at http://www.gnu.org/copyleft/lesser.html
|
|
|
|
;; authors
|
|
;; - nik gaffney <nik@fo.am>
|
|
|
|
;; requirements
|
|
;; - space
|
|
;; - something to scratch with
|
|
|
|
;; commentary
|
|
;; - scritch, scratch. ..
|
|
|
|
|
|
(module scritch mzscheme
|
|
|
|
(require "graph.scm"
|
|
"snipets.scm"
|
|
(lib "misc.ss" "swindle")
|
|
(lib "mred.ss" "mred")
|
|
(lib "class.ss"))
|
|
|
|
(provide (all-defined))
|
|
|
|
;; quik'n dirty debuggin'
|
|
(define (debug level fstring . fargs)
|
|
(let ([debugging #t] ; toggle #t/#f
|
|
[debug-level 1]) ; higher is more info
|
|
(if (and debugging (>= debug-level level))
|
|
(if (list? fargs)
|
|
(apply printf (cons fstring fargs))
|
|
(printf fstring fargs)))))
|
|
|
|
|
|
|
|
) ;; end of module
|
|
|