diff options
Diffstat (limited to 'examples/lines.scm')
| -rw-r--r-- | examples/lines.scm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/examples/lines.scm b/examples/lines.scm deleted file mode 100644 index 6750083..0000000 --- a/examples/lines.scm +++ /dev/null @@ -1,28 +0,0 @@ -(use-modules (ice-9 match) - (srfi srfi-1) - (chickadee) - (chickadee math vector) - (chickadee graphics color) - (chickadee graphics shapes)) - -(define lines - (list-tabulate 48 - (lambda (n) - (list #v((random 640) (random 480)) - #v((random 640) (random 480)) - (make-color (random:uniform) - (random:uniform) - (random:uniform) - 1.0) - (1+ (random 16)))))) - -(define (draw alpha) - (for-each (match-lambda - ((start end color thickness) - (draw-line start end - #:feather 1.5 - #:color color - #:thickness thickness))) - lines)) - -(run-game #:draw draw) |