blob: 51b948d6a11c474be78b318fe6289cb32726409b (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
(include "lib.scm")
; https://musiclab.chromeexperiments.com/Song-Maker/song/5761928473608192
; https://musiclab.chromeexperiments.com/Song-Maker/song/6414430911070208
(define (melody t)
(apply + (map (lambda (x)
(apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) (- t 32))) x))
'(
; (2 5 0 1/4)
; (3 0 1 1/2)
; (2 8 3 1/4)
; (2 7 4 1/2)
; (2 5 6 1/4)
; (3 1 7 1/4)
; (3 0 8 1/4)
; (2 5 0 4)
; (3 0 8 4)
; (2 3 18 1)
; (2 10 20 1)
; (3 0 22 1)
; (3 1 24 1)
; (3 0 26 1)
; (2 10 27 1)
; (2 5 28 1)
; (3 0 30 1)
; (2 5 32 4)
; (3 0 38 4)
; (2 3 42 1)
; (3 1 44 1)
; (3 1 48 1)
; (2 10 49 1)
; (3 0 50 1)
; (3 1 51 1)
; (2 10 52 1)
; (2 8 53 1)
; (2 10 54 1)
; (3 0 56 1)
; (3 1 58 1)
; (3 0 60 1)
; (2 8 62 1)
(2 5 1 2)
(3 0 7 2)
(2 10 15 2)
(3 1 19 2)
(3 0 21 2)
(2 10 29 1)
(3 0 30 2)
))))
(define (base t)
(apply + (map (lambda (x)
(apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x))
'(
(1 5 1 1)
(1 8 4 1)
(2 5 7 1)
(2 0 9 1)
(1 10 10 1)
(1 8 12 1)
(1 7 15 1)
(1 8 17 1)
(1 7 18 1)
(2 3 19 1)
(1 8 21 1)
(2 0 22 1)
(2 3 23 1)
(2 5 25 1)
(2 5 29 1)
(2 0 30 1)
(2 3 31 1)))))
(define (music t)
(+ (* 1/2 (tri (* t (melody (floor-remainder (* t 8) 64)))))
(* 1/4 (tri (* t (base (floor-remainder (* t 8) 32)))))))
|