blob: f24ec25ac82a17c19b9cb1e3cd9bf4bbabb8e2c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
(use-modules (ice-9 match)
(srfi srfi-1)
(chickadee)
(chickadee math vector)
(chickadee render color)
(chickadee render shapes)
(chickadee sdl))
(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/sdl #:draw draw)
|
