-
Notifications
You must be signed in to change notification settings - Fork 2
/
-gr.ShapesInRhythm
executable file
·210 lines (199 loc) · 10.5 KB
/
-gr.ShapesInRhythm
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
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
// Bol Processor BP3 compatible with version BP2.9.8
// Grammar file saved as "-gr.ShapesInRhythm". Date: 2020-07-27 08:46:18
-se.ShapesInRhythm.QTM
// This is "ShapesInRhythm", a grammar generating a single piece used for the performance of Cronos. It was composed by choreographer Andreine Bel. Part of the material is taken from kathak compositions.
// The piece comprises 9 parts using very different sound "patches". It will not make sense unless played on Roland D-50 with Musitronics extension card. I am sending it on audio cassette to registered users.
// Production and time-setting take 14mn on my old Mac IIci
// but only 2mn 30s on a PowerBook 5300cs...
// Needs about 4500 Kbytes RAM for program and data
// Needs 30ms quantization, yielding K = 222 and 2536 sound-objects.
// At the time this grammar was created, BP2 did not support articulation nor glossary. In fact, this grammar highlighted the need for such features.
// We used time patterns because the dancers wanted initial sections to be "a little slower". The composition starts at metronom 60 and continues at metronom 88.
// Consequently, time is smooth (type cmd-T to verify it).
// Revised 17/10/97 -- fixed new program numbers
TIMEPATTERNS:
t1 = 88/60 t2 = 88/80 t3 = 1/1
--------------------------
ORD
gram#1[1] S --> Route _script(Beep) Part1 Gap12 Part2 Gap23 Part3 Gap34 Part4 Gap45 Part5 Gap56 Part6 Gap67 Part7 Gap78 Part8 Gap89 Part9
gram#1[2] Part1 --> _script(Tick cycle OFF) Route - _vel(127) _script(Tick cycle ON) _script(Reset tick cycle) {Tp1 Tp1 Tp1 Tp1 Tp1 Tp1 Tp1 Tp1, P1} {Tp1,Accord5,sol4 15}
gram#1[3] Part2 --> Sablier _vel(127) {Tp2 Tp2 Tp2 Tp2 Tp2, P2}{Tp3,Dha1 15}
gram#1[4] Part3 --> Maison _vel(35) {Tp3 Tp3 Tp3 Tp3, P3}_vel(45){Tp3,Dha5}
gram#1[5] Part4 --> Toit _vel(127){Tp3 Tp3 Tp3 Tp3 Tp3 Tp3, P4}
gram#1[6] Part5 --> Drapeau _vel(70){Tp3 Tp3 Tp3 Tp3, P5}{Tp3,Chhe 15}
gram#1[7] Part6 --> CerfVolant _vel(127){Tp3 Tp3 Tp3 Tp3, P6}{Tp3,Tin ---}
gram#1[8] Part7 --> Guimbarde _vel(127){Tp3 Tp3 Tp3 Tp3, P7} PedalOn {Tp3,Dha4 15}
gram#1[9] Part8 --> Hippocampe _vel(90){Tp3 Tp3 Tp3, P8}{Tp3,la5 31}
gram#1[10] Part9 --> VaisseauVolant _vel(90) {Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 Tp3 t3 t3 t3 t3, P9}
gram#1[11] Gap12 --> _vel(80) Conque {Tp2,- _pitchbend(0) _pitchcont _mod(0) _modcont si3_____ _mod(16383) _pitchbend(8192) Sablier -} _mod(0)
gram#1[12] Gap23 --> Maison {Tp3,16,_vel(2) _velcont - fa3 _ _ mi3 fa#3 fa3 mi3 sol3 fa3 sol#3 do3 _ _ _ _ _vel(40)}
gram#1[13] Gap34 --> Toit _vel(100) {Tp3,- sol#2 sol#2 sol#2 }
gram#1[14] Gap45 --> Toit _vel(100) {Tp3 Tp3, - sol2 - sol2 sol2 - sol2 Drapeau -}
gram#1[15] Gap56 --> CerfVolant _vel(60) {Tp3,- {6,do4,- do5} -}[{Tp3,PedalOn _vel(50) _velcont do2 sol#2 fa#2 do#3 PedalOff - _vel(90)}]
gram#1[16] Gap67 --> Guimbarde {Tp3,{_vel(40) do3___,_vel(40) _velcont -fa3 fa3_ _vel(60), ---fa2}}
gram#1[17] Gap78 --> {Tp3,7 PedalOff -}
gram#1[18] Gap89 --> _vel(110) Michiko {Tp3, - PedalOn _press(0) _presscont _pitchbend(8192) _pitchcont re5______ _press(127) _pitchbend(12000) - PedalOff}_pitchbend(8192)_press(0)
// Here we used the real values of pitchbend. Usually it is easier to use cent values (see "-da.checkControls") but this wasn't yet implemented.
------------------
SUB1
gram#2[1] P1 --> {16,8 Vi4,Accord1} {16,{8,So8} {8,Ar12},Accord2} {16,{8,Sm16}{8,Su24}} {16,{8,Ol32}{8,An48}}
gram#2[2] Accord1 --> do2
gram#2[3] Accord2 --> do2
gram#2[4] Accord5 --> do2
------------------
SUB1
gram#3[1] P2 --> Down12345 S5 Up12345 S5 Down12345 S5 Up12345 S5 Down12345 S3 Up12345 S3 Down12345 S3 Up12345 S3 Down12345 - Up12345 - Down12345 - Up12345 - Down12345 Up12345 Down12345 Up12345 Dha1 - Down12345 Up12345 Down12345 Up12345 Dha1 - Down12345 Up12345 Down12345 Up12345
gram#3[2] Down12345 --> si5 sol5 fa#5 mi5 re#5
gram#3[3] Up12345 --> si4 re#5 mi5 fa#5 sol5
gram#3[4] S5 --> -----
gram#3[5] S3 --> ---
------------------
SUB1
gram#4[1] P3 --> P3T1 Dha3 P3T2 Dha4 {P3T1,P3T3}
gram#4[2] P3T1 --> {3,do4 do5 do3 do3 do3 do3} {3, do#3 re3 la3 la#4 sol3 sol#4 do#4 do5 do3}{3,do#3 fa3 re#4 la#4 fa#3 sol4 mi4 la4 la#3 do5 re3 fa#3}{1,sol4 fa4}
gram#4[3] Dha3 --> sol#4
gram#4[4] P3T2 --> {3,do#4 do5 do#3 fa3 mi4 la4} {3,si3 do5 do3 do#3 re#3 si3 do5 do#3 re3}{3,sol#3 la#4 sol#3 la4 la#3 si4 re3 sol#3 la#4 sol#3 la#4 sol#3}{1,la#4 la4}
gram#4[5] Dha4 --> do5
gram#4[6] P3T3 --> {3,sol#3 la4 la#3 do5 re3 fa#3} {3,fa#4 fa4 sol4 re#4 do5 fa#3 fa#4 la4 do4}{3,do5 do3 do3 re#3 re#4 do5 re#3 do4 do5 do3 re#3 do4}{1,do5 do3}
gram#4[7] Dha5 --> sol#4
------------------
SUB1
gram#5[1] P4 --> {12,Trio Trio Trio Trio} {12,Trio Trio Trio Trio,Quatuor Quatuor Quatuor Quatuor} {24,Trio Trio Trio Trio Trio Trio Trio Trio,Quatuor Quatuor Quatuor Quatuor Quatuor Quatuor Quatuor Quatuor,OlSeul32}
gram#5[2] Trio --> {1,Sm,An,So} Tik Tik
gram#5[3] Quatuor --> {1,Ar,Ol,Su,Vi} {1,mi6---,do6---}
gram#5[4] OlSeul32 --> OlSeul4 OlSeul4 OlSeul4 OlSeul4 OlSeul4 OlSeul4 OlSeul4 OlSeul4
gram#5[5] OlSeul4 --> Ol Ol Ol Ol
-------------------
SUB1
gram#6[1] P5 --> {Tick32,Tihai5 Chhe Tihai5 Chhe Tihai5}
gram#6[2] Tihai5 --> {4,Cinq2 Chhe Cinq2 Chhe} {6,Cinq2 Cinq2 Cinq2}
-------------------
SUB1
gram#7[1] P6 --> {Tick32,Tihai6 Tin Tihai6 Tin Tihai6}
gram#7[2] Tihai6 --> {2,Huit}{2,Six}{2,Cinq}{2,Quatre}{2,- - Ek - - Do - -}
-------------------
SUB1
gram#8[1] P7 --> {Tick32,Tihai7 Dha4 Tihai7 Dha4 Tihai7}
gram#8[2] Tihai7 --> {2,Huit2}{2,Sept2}{2,Six2}{2,Cinq2}{2,Quatre2}
-------------------
SUB1
gram#9[1] P8 --> Tihai8 Gap8 Tihai8 Gap8 Tihai8
gram#9[2] Tihai8 --> {fa4,do5} - fa5 do6 la5 la#5 sol5 do6 la5 - {fa4,do5} fa5 - do6 la5 la#5 sol5 do6 la5 - {fa4,do5} fa5 do6 - la5 la#5 sol5 do6
gram#9[3] Gap8 --> la5 - - - - -
-------------------
SUB1
gram#10[1] P9 --> {M1 M1 M1 M1 M2 M2 M2 M2 M2 M2 M2 M2 M3 M3 M3 M3 M3 M3 M3 M3 M4 M4 M4 M4 M4 M4 M4 M4 M5 M5 M5 M5 M5 M5 M5 M5 M6 M6 M6 M6 M6 M6 M6 M6,_vel(10){re3,mi3,fa3}}
gram#10[2] M1 --> Smriti
gram#10[3] M2 --> {Smriti,Olivier}
gram#10[4] M3 --> {Smriti,Olivier,Vijayshree}
gram#10[5] M4 --> {Smriti,Olivier,Vijayshree,Arindam}
gram#10[6] M5 --> {Smriti,Olivier,Vijayshree,Arindam,Somenath}
gram#10[7] M6 --> {Smriti,Olivier,Vijayshree,Arindam,Somenath,_vel(127) Suresh}
------------------
ORD [Using time patterns]
gram#11[1] Tp1 --> t1 t1 t1 t1 t1 t1 t1 t1
gram#11[2] Tp2 --> t2 t2 t2 t2 t2 t2 t2 t2
gram#11[3] Tp3 --> t3 t3 t3 t3 t3 t3 t3 t3
---------------------------
SUB1
gram#12[1] Vi4 --> {4,Vi1 Vi1 Vi1 Vi1}
gram#12[2] So8 --> {8,So1 So1 So1 So1 So1 So1 So1 So1}
gram#12[3] Ar12 --> {12,Ar1 Ar1 Ar1 Ar1 Ar1 Ar1 Ar1 Ar1 Ar1 Ar1 Ar1 Ar1}
gram#12[4] Sm16 --> {16,Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1 Sm1}
gram#12[5] Su24 --> {24,Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1 Su1}
gram#12[6] Ol32 --> {32, Ol4 Ol4 Ol4 Ol4 Ol4 Ol4 Ol4 Ol4}
gram#12[7] An48 --> An16 An16 An16
gram#12[8] An16 --> An4 An4 An4 An4
gram#12[9] An4 --> {4, An1 An1 An1 An1}
gram#12[10] Ol4 --> Ol1 Ol1 Ol1 Ol1
gram#12[11] Vi1 --> fa3 -
gram#12[12] So1 --> {mi3,fa#3} -
gram#12[13] Ar1 --> {sol3,la#3} -
gram#12[14] Sm1 --> do4 -
gram#12[15] Su1 --> {do#4,fa4} -
gram#12[16] Ol1 --> sol3 -
gram#12[17] An1 --> sol4 -
--------------------
SUB1
gram#13[1] Smriti --> {3,Sm Sm Sm}
gram#13[2] Olivier --> {5,Ol Ol Ol Ol Ol}
gram#13[3] Vijayshree --> {2,Vi Vi}
gram#13[4] Arindam --> {4,Ar Ar Ar Ar}
gram#13[5] Somenath --> {6,So So So So So So}
gram#13[6] Suresh --> {12,Su Su Su Su Su Su Su Su Su Su Su Su}
----------------------------
SUB1
gram#14[1] Huit --> BigTik Tik Tik Tik Tik Tik Tik Tik
gram#14[2] Six --> BigTik Tik Tik Tik Tik Tik
gram#14[3] Cinq --> BigTik Tik Tik Tik Tik
gram#14[4] Cinq2 --> BigTik Tik3 Tik3 Tik3 Tik3
gram#14[5] Quatre --> BigTik Tik Tik Tik
gram#14[6] Huit2 --> BigTik2 Tik2 Tik2 Tik2 Tik2 Tik2 Tik2 Tik2
gram#14[7] Sept2 --> BigTik2 Tik2 Tik2 Tik2 Tik2 Tik2 Tik2
gram#14[8] Six2 --> BigTik2 Tik2 Tik2 Tik2 Tik2 Tik2
gram#14[9] Cinq2 --> BigTik2 Tik2 Tik2 Tik2 Tik2
gram#14[10] Quatre2 --> BigTik2 Tik2 Tik2 Tik2
gram#14[11] Ek --> Tik
gram#14[12] Do --> Tik
gram#14[13] Tin --> Tik
gram#14[14] Chhe --> BigTik
------------
SUB1
// The eight following rules are typical cases in which _staccato() should be used.
gram#15[1] Dha1 --> {1,{si3,si4}---}
gram#15[2] Su --> do6---
gram#15[3] Sm --> fa5---
gram#15[4] Ol --> mi6---
gram#15[5] So --> la5---
gram#15[6] Vi --> re6-
gram#15[7] Ar --> mi5---
gram#15[8] An --> fa6---
gram#15[9] Dha4 --> {fa2,do4}
gram#15[10] Tick32 --> _vel(40) do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3 do3
gram#15[11] Tik --> do7
gram#15[12] Tik2 --> {do5,do6}
gram#15[13] Tik3 --> {_vel(15) sol6,_vel(110) do7}
gram#15[14] BigTik --> {do6,do8}
gram#15[15] BigTik2 --> {fa3,fa4}
------------
SUB1
gram#16[1] Route --> X87
gram#16[2] Sablier --> X76
gram#16[3] Maison --> C13
gram#16[4] Toit --> X76
gram#16[5] Drapeau --> X36
gram#16[6] CerfVolant --> X63
gram#16[7] Guimbarde --> X86
gram#16[8] Hippocampe --> X72
gram#16[9] VaisseauVolant --> X36
gram#16[10] Conque --> I66
gram#16[11] Michiko --> X75
------------
ORD
[D-50 stuff]
gram#17[1] Xcard --> _script(MIDI controller #98 = 1 channel 1)
gram#17[2] Internal --> _script(MIDI controller #98 = 0 channel 1)
gram#17[3] X13 --> Xcard _script(MIDI program 5)
gram#17[4] X24 --> Xcard _script(MIDI program 12)
gram#17[5] X26 --> Xcard _script(MIDI program 14)
gram#17[6] X27 --> Xcard _script(MIDI program 15)
gram#17[7] X36 --> Xcard _script(MIDI program 22)
gram#17[8] X63 --> Xcard _script(MIDI program 43)
gram#17[9] X68 --> Xcard _script(MIDI program 48)
gram#17[10] X72 --> Xcard _script(MIDI program 50)
gram#17[11] X75 --> Xcard _script(MIDI program 53)
gram#17[12] X76 --> Xcard _script(MIDI program 54)
gram#17[13] X83 --> Xcard _script(MIDI program 59)
gram#17[14] X85 --> Xcard _script(MIDI program 61)
gram#17[15] X86 --> Xcard _script(MIDI program 62)
gram#17[16] X87 --> Xcard _script(MIDI program 63)
gram#17[17] I42 --> Internal _script(MIDI program 26)
gram#17[18] I62 --> Internal _script(MIDI program 42)
gram#17[19] I66 --> Internal _script(MIDI program 46)
gram#17[20] C13 --> Internal _script(MIDI program 67)
gram#17[21] C42 --> Internal _script(MIDI program 90)
gram#17[22] C56 --> Internal _script(MIDI program 102)
gram#17[23] C23 --> Internal _script(MIDI program 75)
gram#17[24] PedalOn --> _switchon(64,1)
gram#17[25] PedalOff --> _switchoff(64,1)
// -------------------------------------------------------+