diff options
author | David Thompson <dthompson2@worcester.edu> | 2020-11-18 18:26:56 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2020-11-18 18:26:56 -0500 |
commit | 20ed3a8286d8a83623d1dbe84113f6ea8c1fe6fc (patch) | |
tree | c8d1f2c1438a22e8a971ce17d1e23e07bb0d30b7 /examples/lines.scm | |
parent | 61cdbd49ae1b4a0ab769af9bde02adb8fc1b1911 (diff) |
examples: Delete obsolete lines example.
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) |