summaryrefslogtreecommitdiff
path: root/examples/lines.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/lines.scm')
-rw-r--r--examples/lines.scm28
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)