blob: 0c47805ee623a03859641866e2ea09af45f51ce9 (
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
(ns unheard.midi.notes
"MIDI note number definitions for all notes from C-1 to G9.
Each note is defined as (m/ap {0 }<midi-number>) for use with missionary.
Note naming convention:
- Middle C (MIDI 60) is c4
- Sharps use 's' suffix (e.g., cs4 for C#4)
- Range: C-1 (MIDI 0) to G9 (MIDI 127)"
(:require [missionary.core :as m]))
;; Octave -1
(def c-1 (m/ap {0 {0 :on}}))
(def cs-1 (m/ap {0 {1 :on}}))
(def d-1 (m/ap {0 {2 :on}}))
(def ds-1 (m/ap {0 {3 :on}}))
(def e-1 (m/ap {0 {4 :on}}))
(def f-1 (m/ap {0 {5 :on}}))
(def fs-1 (m/ap {0 {6 :on}}))
(def g-1 (m/ap {0 {7 :on}}))
(def gs-1 (m/ap {0 {8 :on}}))
(def a-1 (m/ap {0 {9 :on}}))
(def as-1 (m/ap {0 {10 :on}}))
(def b-1 (m/ap {0 {11 :on}}))
;; Octave 0
(def c0 (m/ap {0 {12 :on}}))
(def cs0 (m/ap {0 {13 :on}}))
(def d0 (m/ap {0 {14 :on}}))
(def ds0 (m/ap {0 {15 :on}}))
(def e0 (m/ap {0 {16 :on}}))
(def f0 (m/ap {0 {17 :on}}))
(def fs0 (m/ap {0 {18 :on}}))
(def g0 (m/ap {0 {19 :on}}))
(def gs0 (m/ap {0 {20 :on}}))
(def a0 (m/ap {0 {21 :on}}))
(def as0 (m/ap {0 {22 :on}}))
(def b0 (m/ap {0 {23 :on}}))
;; Octave 1
(def c1 (m/ap {0 {24 :on}}))
(def cs1 (m/ap {0 {25 :on}}))
(def d1 (m/ap {0 {26 :on}}))
(def ds1 (m/ap {0 {27 :on}}))
(def e1 (m/ap {0 {28 :on}}))
(def f1 (m/ap {0 {29 :on}}))
(def fs1 (m/ap {0 {30 :on}}))
(def g1 (m/ap {0 {31 :on}}))
(def gs1 (m/ap {0 {32 :on}}))
(def a1 (m/ap {0 {33 :on}}))
(def as1 (m/ap {0 {34 :on}}))
(def b1 (m/ap {0 {35 :on}}))
;; Octave 2
(def c2 (m/ap {0 {36 :on}}))
(def cs2 (m/ap {0 {37 :on}}))
(def d2 (m/ap {0 {38 :on}}))
(def ds2 (m/ap {0 {39 :on}}))
(def e2 (m/ap {0 {40 :on}}))
(def f2 (m/ap {0 {41 :on}}))
(def fs2 (m/ap {0 {42 :on}}))
(def g2 (m/ap {0 {43 :on}}))
(def gs2 (m/ap {0 {44 :on}}))
(def a2 (m/ap {0 {45 :on}}))
(def as2 (m/ap {0 {46 :on}}))
(def b2 (m/ap {0 {47 :on}}))
;; Octave 3
(def c3 (m/ap {0 {48 :on}}))
(def cs3 (m/ap {0 {49 :on}}))
(def d3 (m/ap {0 {50 :on}}))
(def ds3 (m/ap {0 {51 :on}}))
(def e3 (m/ap {0 {52 :on}}))
(def f3 (m/ap {0 {53 :on}}))
(def fs3 (m/ap {0 {54 :on}}))
(def g3 (m/ap {0 {55 :on}}))
(def gs3 (m/ap {0 {56 :on}}))
(def a3 (m/ap {0 {57 :on}}))
(def as3 (m/ap {0 {58 :on}}))
(def b3 (m/ap {0 {59 :on}}))
;; Octave 4 (Middle C octave)
(def c4 (m/ap {0 {60 :on}}))
(def cs4 (m/ap {0 {61 :on}}))
(def d4 (m/ap {0 {62 :on}}))
(def ds4 (m/ap {0 {63 :on}}))
(def e4 (m/ap {0 {64 :on}}))
(def f4 (m/ap {0 {65 :on}}))
(def fs4 (m/ap {0 {66 :on}}))
(def g4 (m/ap {0 {67 :on}}))
(def gs4 (m/ap {0 {68 :on}}))
(def a4 (m/ap {0 {69 :on}}))
(def as4 (m/ap {0 {70 :on}}))
(def b4 (m/ap {0 {71 :on}}))
;; Octave 5
(def c5 (m/ap {0 {72 :on}}))
(def cs5 (m/ap {0 {73 :on}}))
(def d5 (m/ap {0 {74 :on}}))
(def ds5 (m/ap {0 {75 :on}}))
(def e5 (m/ap {0 {76 :on}}))
(def f5 (m/ap {0 {77 :on}}))
(def fs5 (m/ap {0 {78 :on}}))
(def g5 (m/ap {0 {79 :on}}))
(def gs5 (m/ap {0 {80 :on}}))
(def a5 (m/ap {0 {81 :on}}))
(def as5 (m/ap {0 {82 :on}}))
(def b5 (m/ap {0 {83 :on}}))
;; Octave 6
(def c6 (m/ap {0 {84 :on}}))
(def cs6 (m/ap {0 {85 :on}}))
(def d6 (m/ap {0 {86 :on}}))
(def ds6 (m/ap {0 {87 :on}}))
(def e6 (m/ap {0 {88 :on}}))
(def f6 (m/ap {0 {89 :on}}))
(def fs6 (m/ap {0 {90 :on}}))
(def g6 (m/ap {0 {91 :on}}))
(def gs6 (m/ap {0 {92 :on}}))
(def a6 (m/ap {0 {93 :on}}))
(def as6 (m/ap {0 {94 :on}}))
(def b6 (m/ap {0 {95 :on}}))
;; Octave 7
(def c7 (m/ap {0 {96 :on}}))
(def cs7 (m/ap {0 {97 :on}}))
(def d7 (m/ap {0 {98 :on}}))
(def ds7 (m/ap {0 {99 :on}}))
(def e7 (m/ap {0 {100 :on}}))
(def f7 (m/ap {0 {101 :on}}))
(def fs7 (m/ap {0 {102 :on}}))
(def g7 (m/ap {0 {103 :on}}))
(def gs7 (m/ap {0 {104 :on}}))
(def a7 (m/ap {0 {105 :on}}))
(def as7 (m/ap {0 {106 :on}}))
(def b7 (m/ap {0 {107 :on}}))
;; Octave 8
(def c8 (m/ap {0 {108 :on}}))
(def cs8 (m/ap {0 {109 :on}}))
(def d8 (m/ap {0 {110 :on}}))
(def ds8 (m/ap {0 {111 :on}}))
(def e8 (m/ap {0 {112 :on}}))
(def f8 (m/ap {0 {113 :on}}))
(def fs8 (m/ap {0 {114 :on}}))
(def g8 (m/ap {0 {115 :on}}))
(def gs8 (m/ap {0 {116 :on}}))
(def a8 (m/ap {0 {117 :on}}))
(def as8 (m/ap {0 {118 :on}}))
(def b8 (m/ap {0 {119 :on}}))
;; Octave 9
(def c9 (m/ap {0 {120 :on}}))
(def cs9 (m/ap {0 {121 :on}}))
(def d9 (m/ap {0 {122 :on}}))
(def ds9 (m/ap {0 {123 :on}}))
(def e9 (m/ap {0 {124 :on}}))
(def f9 (m/ap {0 {125 :on}}))
(def fs9 (m/ap {0 {126 :on}}))
(def g9 (m/ap {0 {127 :on}}))
|
