examples: Delete obsolete lines example.

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)