HelpSource/Tutorials/Streams-Patterns-Events5.schelp

   1 title:: Understanding Streams, Patterns and Events - Part 5
   2 summary:: Event.default
   3 related:: Tutorials/Streams-Patterns-Events1, Tutorials/Streams-Patterns-Events2, Tutorials/Streams-Patterns-Events3, Tutorials/Streams-Patterns-Events4, Tutorials/Streams-Patterns-Events6, Tutorials/Streams-Patterns-Events7
   4 categories:: Streams-Patterns-Events>Understanding-Streams-Patterns-and-Events
   5
   6 More about the default Event:
   7
   8 section::protoEvents
   9
  10 The protoEvent contains default values for many useful parameters.
  11
  12 The default protoEvent is code::Event.default::. It provides default bindings for duration, envelope, instrument, making a very simple Pattern directly playable:
  13
  14 code::
  15 (
  16 // an endless sequence of middle Cs
  17 Pbind.new.play
  18 )
  19 ::
  20
  21 By adding other bindings, you can override the defaults in the protoEvent.
  22
  23 code::
  24 (
  25 // duration 0.25 beats (16th notes)
  26 Pbind( \dur, 0.25 ).play
  27 )
  28 ::
  29
  30 code::
  31 (
  32 // specifying the pitch in terms of midinote
  33 // see also The pitch model below
  34 Pbind(
  35         \dur, 0.125,
  36         \legato, 0.2,
  37         \midinote, Pseq(#[60, 62, 64, 65, 67, 69, 71, 72], inf)
  38 ).play
  39 )
  40 ::
  41
  42 section::~finish
  43
  44 Event.default contains a function bound to the Symbol code::'finish':: which is called for each new event generated in order to complete any computations that depend on the other values in the event.
  45
  46 section::The pitch model
  47
  48 Event.default implements a multi level pitch model which allows composition using modal scale degrees, equal division note values, midi note values, or frequencies in Hertz. These different ways of specifying the pitch can all be used interchangably.
  49
  50 The way this works is due to the default values bound to the Symbols of the pitch model.
  51
  52 The lowest level Symbol in the pitch model is code::'freq'::. The default binding for code::'freq':: is a link::Classes/Function:: which calculates the frequency by getting the value of code::'midinote'::, adding a transpose value and converting it to Hertz using code::midicps::.
  53
  54 code::
  55         ~freq = {
  56                 (~midinote.value + ~ctranspose).midicps;
  57         };
  58 ::
  59
  60 If you compose with code::'freq':: directly then this default function is overridden.
  61
  62 code::
  63 (
  64 Pbind(
  65         \dur, 0.25,
  66         \freq, Pseq(#[300, 400, 500, 700, 900], inf)
  67 ).play;
  68 )
  69 ::
  70
  71 Event.default's code::'finish':: function sends the value message to the current binding of code::'freq':: in order to get the value for the frequency and adds a detune value to it which transposes the frequency in Hertz.
  72
  73 code::
  74 (
  75 Pbind(
  76         \dur, 0.25,
  77         \detune, -20,
  78         \freq, Pseq(#[300, 400, 500, 700, 900], inf)
  79 ).play
  80 )
  81 ::
  82
  83 The next level is code::'midinote':: which is by default bound to this function:
  84
  85 code::
  86         ~midinote = {
  87                 (~note.value + ~gtranspose + (~octave * divs) + ~root)
  88                                 * 12.0 / ~stepsPerOctave;
  89         };
  90 ::
  91
  92 This function gets the value bound to code::'note':: which is a value expressed in some equal temperament, not necessarily 12. It adds a gamut transpose value code::'gtranspose'::, and scales from the number of notes per octave being used into 12 notes per octave MIDI key values. If you compose with code::'midinote':: directly then that will override this function.
  93
  94 code::
  95 (
  96 Pbind(
  97         \dur, 0.2,
  98         \midinote, Pseq([ Pshuf(#[60, 61, 62, 63, 64, 65, 66, 67], 3) ], inf)
  99 ).play
 100 )
 101 ::
 102
 103 Another level higher is code::'note':: which is defined by default by this function:
 104
 105 code::
 106         ~note = {
 107                 var divs;
 108                 divs = ~stepsPerOctave;
 109                 (~degree + ~mtranspose).degreeToKey(~scale, divs);
 110         };
 111 ::
 112
 113 This function derives the note value from the next higher level variables which specify a pitch from a scale. These variables are defined as follows:
 114
 115 code::
 116         ~stepsPerOctave = 12.0;
 117 ::
 118
 119 The number of equal divisions of an octave for this tuning. The equal temperament defined by this variable is known as the gamut. If you wanted to work in cents for example you could set this to 1200.0.
 120
 121 code::
 122         ~octave = 5.0;
 123 ::
 124
 125 The current octave. Middle C is the lowest note in octave 5.
 126
 127 code::
 128         ~root = 0.0;
 129 ::
 130
 131 The root of the scale given in equal divisions defined by code::~stepsPerOctave::.
 132
 133 code::
 134         ~scale = #[0, 2, 4, 5, 7, 9, 11]; // diatonic major scale
 135 ::
 136
 137 A set of scale pitches given in equal divisions defined by code::~stepsPerOctave::.
 138
 139 code::
 140         ~degree = 0;
 141 ::
 142
 143 A scale degree index into the code::~scale::. 0 is the root and the scale wraps in the manner defined by code::degreeToKey::.
 144
 145 code::
 146         ~mtranspose = 0;
 147 ::
 148
 149 A modal transposition value that is added to the scale degree.
 150
 151 code::
 152         ~gtranspose = 0;
 153 ::
 154
 155 A gamut transposition value that is added to the gamut pitch.
 156
 157 code::
 158         ~ctranspose = 0;
 159 ::
 160
 161 A chromatic transposition value expressed in semitones.
 162
 163 section::Pitch model Examples
 164
 165 code::
 166 (
 167 // a simple scale degree sequence
 168 Pbind(
 169                 // -7 is 8ve below, -3 is a 4th below,
 170                 // 0 is root, 2 is 3rd above, 4 is 5th above, 7 is 8ve above.
 171         \degree, Pseq([ Pshuf(#[-7,-3,0,2,4,7], 4), Pseq([0,1,2,3,4,5,6,7]) ], inf),
 172         \dur, 0.15
 173 ).play
 174 )
 175
 176
 177 (
 178 // change the octave
 179 Pbind(
 180         \dur, 0.15,
 181         \octave, 4,
 182         \degree, Pseq([ Pshuf(#[-7,-3,0,2,4,7], 4), Pseq([0,1,2,3,4,5,6,7]) ], inf)
 183 ).play
 184 )
 185
 186
 187 (
 188 // change the scale
 189 Pbind(
 190         \dur, 0.15,
 191         \scale, [0, 2, 3, 5, 7, 8, 10],
 192         \degree, Pseq([ Pshuf(#[-7,-3,0,2,4,7], 4), Pseq([0,1,2,3,4,5,6,7]) ], inf)
 193 ).play
 194 )
 195
 196
 197 (
 198 // modal transposition
 199 var notes;
 200 notes = Pseq([ Pshuf(#[-7,-3,0,2,4,7], 4), Pseq([0,1,2,3,4,5,6,7]) ], 1);
 201 Pseq([
 202         Pbind(
 203                 \dur, 0.15,
 204                 \mtranspose, 0,
 205                 \degree, notes
 206         ),
 207         Pbind(
 208                 \dur, 0.15,
 209                 \mtranspose, 1,
 210                 \degree, notes
 211         ),
 212         Pbind(
 213                 \dur, 0.15,
 214                 \mtranspose, 2,
 215                 \degree, notes
 216         )
 217 ], inf).play
 218 )
 219
 220
 221 (
 222 // chromatic transposition
 223 var notes;
 224 notes = Pseq([ Pshuf(#[-7,-3,0,2,4,7], 4), Pseq([0,1,2,3,4,5,6,7]) ], 1);
 225 Pseq([
 226         Pbind(
 227                 \dur, 0.15,
 228                 \ctranspose, 0,
 229                 \degree, notes
 230         ),
 231         Pbind(
 232                 \dur, 0.15,
 233                 \ctranspose, 3,
 234                 \degree, notes
 235         ),
 236         Pbind(
 237                 \dur, 0.15,
 238                 \ctranspose, -3,
 239                 \degree, notes
 240         )
 241 ], inf).play
 242 )
 243
 244
 245 (
 246 // frequency detuning
 247 var notes;
 248 notes = Pseq([ Pshuf(#[-7,-3,0,2,4,7], 4), Pseq([0,1,2,3,4,5,6,7]) ], 1);
 249 Pseq([
 250         Pbind(
 251                 \dur, 0.15,
 252                 \detune, 0,
 253                 \degree, notes
 254         ),
 255         Pbind(
 256                 \dur, 0.15,
 257                 \detune, 20,
 258                 \degree, notes
 259         ),
 260         Pbind(
 261                 \dur, 0.15,
 262                 \detune, 40,
 263                 \degree, notes
 264         )
 265 ], inf).play
 266 )
 267
 268
 269 (
 270 // chords. If an Array of pitches is returned by a Stream for pitch, then a chord
 271 // will be played.
 272 Pbind(
 273         \dur, 0.15,
 274         \degree, Pseq([
 275                 Pshuf(#[-7,-3,0,2,4,7], 4)+[0,4],
 276                 Pseq( [0,1,2,3,4,5,6,7] )+[0,2]
 277         ], inf)
 278 ).play
 279 )
 280
 281
 282 (
 283 // composing in non 12 equal temperaments. 72 tone equal temp.
 284 Pbind(
 285         \stepsPerOctave, 72,
 286         \note, Pseq([
 287                         // 1/1, 7/6, 3/2, 7/4, 9/8
 288                 Pseq([ [0,16,42,58,84], Pseq([ 0, 16, 42, 58, 72, 84 ], 2), [0,16,42,58,84] ], 1),
 289                         // 1/1, 6/5, 3/2, 9/5, 9/8
 290                 Pseq([ [0,19,42,61,84], Pseq([ 0, 19, 42, 61, 72, 84 ], 2), [0,19,42,61,84] ], 1),
 291                         // 1/1, 5/4, 3/2, 15/8, 9/8
 292                 Pseq([ [0,23,42,65,84], Pseq([ 0, 23, 42, 65, 72, 84 ], 2), [0,23,42,65,84] ], 1),
 293                         // 1/1, 9/7, 3/2, 27/14, 9/8
 294                 Pseq([ [0,26,42,68,84], Pseq([ 0, 26, 42, 68, 72, 84 ], 2), [0,26,42,68,84] ], 1)
 295                 ], inf),
 296         \dur, Pseq([ 1.2, Pseq([0.15], 12), 1.2], inf)
 297 ).play
 298 )
 299 ::
 300
 301 section::The duration model
 302
 303 Duration is expressed in beats and is bound to the code::'dur':: symbol. The sustain time of a note can be expressed directly in beats or by using a legato value which is multiplied by the note duration to get the sustain time.
 304
 305 code::
 306 (
 307 // changing duration
 308 Pbind(
 309         \dur, Pseq([ Pgeom(0.05, 1.1, 24), Pgeom(0.5, 0.909, 24) ], inf),
 310         \midinote, Pseq(#[60, 58], inf)
 311 ).play
 312 )
 313
 314
 315 (
 316 // changing legato value
 317 Pbind(
 318         \dur, 0.2,
 319         \legato, Pseq([ Pseries(0.05, 0.05, 40), Pseries(2.05, -0.05, 40) ], inf),
 320         \midinote, Pseq(#[48, 51, 55, 58, 60, 58, 55, 51], inf)
 321 ).play
 322 )
 323 ::
 324
 325 To go to the next file:
 326 link::Tutorials/Streams-Patterns-Events6::
 327