Drone Just Intonation
This instrument is a port of a Michael Gogins CsoundAC instrument. It is moddled after LaMonte Young and Just Intonation.
Young?s drones consists of the mere persistence of long loud tones in a reverberant space.
Setting the fundamental frequency to low values is nice, but higher settings produces nice aery sounds as well.
This is (the condensed version of) the sore of Michaels CsoundAC instrument.
; p1 p2 p3 p4 p5 p6 p7
; insno onset duration numerator denominator amplitude pan
; just intonation, 3 chords :C major 7, G major 7, G 7, C major with voice leading.
i 1 0 6 1 1 .2 -0.875
i 1 0 18 3 2 . 0.000
i 1 0 6 28 15 . 0.875
i 1 30 6 9 8 . 0.875
i 1 30 3 10 7 . -0.875
i 1 30 3 4 3 . 0.875
i 1 60 6 1 1 . -0.875
i 1 60 6 5 4 . 0.000
i 1 60 6 2 1 . 0.875
version 1, January 2016
- AD envelope for amplitude
- fundamental frequency can be set at will
itone ftgenonce 1, 0, 65536, 10, 3, 0, 1, 0, 0, 2 ; sinoide wave
idistort ftgenonce 2, 0, 65536, 13, 1, 1, 0, 3, 0, 2 ; waveshape table
isustain init p3 - i(<attack>)
p3 = p3 + i(<decay>)
ifundamental = <fundamental>
inumerator = p4
idenominator = p5
iamp = p6
ipan = p7
iratio = inumerator / idenominator
ihertz = ifundamental * iratio
kenvelope transeg 0.0, i(<attack>) / 2.0, 2.5, iamp / 2.0, i(<attack>) / 2.0, -2.5, iamp, isustain, 0.0, iamp, i(<decay>) / 2.0, 2.5, iamp / 2.0, i(<decay>) / 2.0, -2.5, 0.0
asignal poscil3 kenvelope, ihertz, itone
asignal distort asignal, <DistortFactor>, idistort
aleft, aright pan2 asignal , ipan
aLeft, aRight reverbsc aleft, aright, <ReverbscFeedback>, <cutoff>
blueMixerOut (aLeft * <ReverbscFeedback>) + aleft, (aRight * <ReverbscFeedback>) + aright
15
15
DOT
true
DistortFactor
465
60
true
0.0
1.0
0.61993
60
true
465
150
fundamental
165
165
50
50
165
195
600
150
ReverbscFeedback
585
60
true
0.0
1.0
0.90999
60
true
45
60
165
210
attack
465
225
true
0.0
40.0
4.79999
60
true
decay
555
225
true
0.0
40.0
32.3997
60
true
90
30
480
315
570
315
690
150
cutoff
675
60
true
100.0
15000.0
13956.7
60
true
480
195
510
30
120
90