From 20ed3a8286d8a83623d1dbe84113f6ea8c1fe6fc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 18 Nov 2020 18:26:56 -0500
Subject: examples: Delete obsolete lines example.

---
 examples/lines.scm | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 examples/lines.scm

(limited to 'examples/lines.scm')

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)
-- 
cgit v1.2.3