-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathh2quasijazzer.scm
98 lines (95 loc) · 5.75 KB
/
h2quasijazzer.scm
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
(define h2quasijazzer-drumkit
'(( inst-Hi-Hat-Free 36 "Hi Hat Free" )
( inst-Hi-Hat-Opened 37 "Hi Hat Opened" )
( inst-SB-HatBrushOpA1 38 "SB HatBrushOpA1" )
( inst-SB-HatBrushChk 39 "SB HatBrushChk" )
( inst-SB-HatBrushClA1 40 "SB HatBrushClA1" )
( inst-SB-HatBrushSplA1 41 "SB HatBrushSplA1" )
( inst-Sabian-Hat-Semi-Open 42 "Sabian Hat Semi-Open" )
( inst-Sabian-Hat-Pedal 43 "Sabian Hat Pedal" )
( inst-Sabian-Hat-Swish 44 "Sabian Hat Swish" )
( inst-Sabian-Hat-Choke 45 "Sabian Hat Choke" )
( inst-Sabian-Hat-Open 46 "Sabian Hat Open" )
( inst-SB-Snr7BrusH 47 "SB Snr7BrusH" )
( inst-SB-Snr7BrusPA2 48 "SB Snr7BrusPA2" )
( inst-SB-Snr7BrusPA3 49 "SB Snr7BrusPA3" )
( inst-SB-Snr7BrusPA4 50 "SB Snr7BrusPA4" )
( inst-SB-Snr7BrusPA5 51 "SB Snr7BrusPA5" )
( inst-SB-Snr7BrusPA1 52 "SB Snr7BrusPA1" )
( inst-SB-Snr7BrusPA6 53 "SB Snr7BrusPA6" )
( inst-SB-Snr7BrusPA7 54 "SB Snr7BrusPA7" )
( inst-Stick0 55 "Stick" )
( inst-Snare-Dry 56 "Snare Dry" )
( inst-Snare1 57 "Snare1" )
( inst-Snare2 58 "Snare2" )
( inst-Snare-Jazz 59 "Snare Jazz" )
( inst-snare-2 60 "snare 2" )
( inst-snare-4 61 "snare 4" )
( inst-24-Snare-11 62 "24-Snare-11" )
( inst-sn-606 63 "sn 606" )
( inst-sn-33 64 "sn 33" )
( inst-sn-55 65 "sn 55" )
( inst-909-clap 66 "909 clap" )
( inst-Hand-Clap 67 "Hand Clap" )
( inst-Kick 68 "Kick" )
( inst-Kick-Short 69 "Kick Short" )
( inst-Kick-Long 70 "Kick Long" )
( inst-SB-Kik18openA1 71 "SB Kik18openA1" )
( inst-SB-Kik22psoA1 72 "SB Kik22psoA1" )
( inst-Ride 73 "Ride" )
( inst-Ride-Bell 74 "Ride Bell" )
( inst-Ride-2 75 "Ride 2" )
( inst-Ride-Jazz 76 "Ride Jazz" )
( inst-Ride-Rock 77 "Ride Rock" )
( inst-SB-Ride1Brush 78 "SB Ride1Brush" )
( inst-SB-Ride2Brush 79 "SB Ride2Brush" )
( inst-SB-Crash2BA1 80 "SB Crash2BA1" )
( inst-SB-Crash1BA1 81 "SB Crash1BA1" )
( inst-Paiste-Ride 82 "Paiste Ride" )
( inst-Paiste-Ride-Flink 83 "Paiste Ride Flink" )
( inst-Paiste-Bell 84 "Paiste Bell" )
( inst-Sabian-Crash 85 "Sabian Crash" )
( inst-Sabian-Crash-Flink 86 "Sabian Crash Flink" )
( inst-Zildjian-Splash 87 "Zildjian Splash" )
( inst-Zildjian-Splash-Choke 88 "Zildjian Splash Choke" )
( inst-Crash-Jazz 89 "Crash Jazz" )
( inst-Crash 90 "Crash" )
( inst-Sizzle-Cymbal 91 "Sizzle Cymbal" )
( inst-Crash-Cymbal 92 "Crash Cymbal" )
( inst-SB-Ride1BrushRoll2 93 "SB Ride1BrushRoll2" )
( inst-SB-Ride1BrushRoll 94 "SB Ride1BrushRoll" )
( inst-Djembe1-Tone 95 "Djembe1 Tone" )
( inst-Djembe2-Slap 96 "Djembe2 Slap" )
( inst-Djembe2-Bass 97 "Djembe2 Bass" )
( inst-High-Tom 98 "High Tom" )
( inst-Mid-Tom 99 "Mid Tom" )
( inst-Floor-Tom 100 "Floor Tom" )
( inst-SB-TomB10in 101 "SB TomB10in" )
( inst-SB-TomB12in 102 "SB TomB12in" )
( inst-SB-TomB14in 103 "SB TomB14in" )
( inst-SB-TomB16in 104 "SB TomB16in" )
( inst-Cowbell 105 "Cowbell" )
( inst-Kenkeni1-Bell-Hit 106 "Kenkeni1 Bell Hit" )
( inst-Kenkeni1-Bell-Mute 107 "Kenkeni1 Bell Mute" )
( inst-Dununba1-Bell 108 "Dununba1 Bell" )
( inst-Dununba1-Bell-Mute 109 "Dununba1 Bell Mute" )))
(define (init-h2quasijazzer-variables drumkit)
; variables
(for-each (lambda (x)
(eval (list
'define
(list-ref x 0)
(list-ref x 1))))
drumkit ))
(define (init-h2quasijazzer-incremental-symbols kawapad drumkit)
(let* ((link (lambda(x y)
(kawapad:textual-increment:add-incremental-symbol (car x) (car y)))))
(let ((last-elem #f))
(for-each (lambda (curr-elem)
(if last-elem
;then
(link last-elem curr-elem)
;else
)
(set! last-elem curr-elem)) drumkit)
(link (last drumkit ) (first drumkit)))))