summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2020-11-18 18:26:56 -0500
committerDavid Thompson <dthompson2@worcester.edu>2020-11-18 18:26:56 -0500
commit20ed3a8286d8a83623d1dbe84113f6ea8c1fe6fc (patch)
treec8d1f2c1438a22e8a971ce17d1e23e07bb0d30b7
parent61cdbd49ae1b4a0ab769af9bde02adb8fc1b1911 (diff)
examples: Delete obsolete lines example.
-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)