luka
/
algoforte03a
1
0
Fork 0
Code Pull Requests Releases Activity

cleaned up main code. instructions.

main
Luka Prinčič 2023-04-30 23:40:55 +02:00
parent 10dcaf0185
commit dbb1b11c72
3 changed files with 22 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
ALGOFORTE03a.scd
View File

@ -30,66 +30,30 @@ s.meter; s.plotTree; s.scope;
MIDIClient.init(1,1); MIDIClient.init(1,1);
m = MIDIOut(0); m = MIDIOut(0);
( // connect sc midi to midi input of whatever
// (virtual) piano you are using
// connect a copy of a signal your virtual piano
// back to SuperCollider inputs. keep main out from
// virtual piano
//
// this project used Salamander Grand SFZ sound font
// loaded into a Renoise.
( // evaluate this first to initialize busses etc..
~locPath = PathName.new(thisProcess.nowExecutingPath).pathOnly; ~locPath = PathName.new(thisProcess.nowExecutingPath).pathOnly;
// init loads samples, libs, fx. // init loads samples, libs, fx.
this.executeFile(~locPath ++ "00_init.scd") this.executeFile(~locPath ++ "00_init.scd")
) ) // re-eval whenever you press ctrl-. (stopping sound)
/* // eval each of these lines for the complete track:
piano connections:
$ a2jmidid
$ cd /usr/lib/lv2/sfizz.lv2/Contents/Resources
# mv DefaultInstrument.sfz DefaultInstrument.sfz.bak
# ln -s /home/random/SAMPLES/SFZ/SalamanderGrandPianoV3_44.1khz16bit/SalamanderGrandPianoV3Retuned.sfz DefaultInstrument.sfz
# exit
$ jalv http://sfztools.github.io/sfizz
$ jack_connect "sfizz:control" "a2j:SuperCollider [128] (capture): out0"
$ jack_connect "sfizz:out_left" "system:playback_1"
$ jack_connect "sfizz:out_right" "system:playback_2"
*/
PathName.new(~locPath).files.do({|i| i.fileName.postln})
// 1.
this.executeFile(~locPath ++ "BLACK_HOLE_BLACK_STAR.scd") this.executeFile(~locPath ++ "BLACK_HOLE_BLACK_STAR.scd")
// 2.
this.executeFile(~locPath ++ "MELLOW_PULSES.scd")
// 3.
this.executeFile(~locPath ++ "SINODA_LULLABY.scd") this.executeFile(~locPath ++ "SINODA_LULLABY.scd")
this.executeFile(~locPath ++ "FLATTEN_TO_ARP.scd")
this.executeFile(~locPath ++ "MELLOW_PULSES.scd")
this.executeFile(~locPath ++ "OCTAVE_FOLDS_PLUS.scd")
this.executeFile(~locPath ++ "THE_FATHERS.scd")
~locPath.postln
// play tracks
this.executeFile(~locPath ++ "OCTAVE_FOLDS_PLUS.scd")
this.executeFile(~locPath ++ "01_OCTAVE_FOLDS_PLUS.scd")
// ----------------------------------------------------------------------------
// ----------------------------------------------------------------------------
// control effects
~fxFeedDelay1.set(\feedback, 0.9)
~fxFeedDelay1.set(\time, 0.8)
~fxDelayWarp1.set(\wet, 0.1)
// sustain pedal
m.control(1, ctlNum: 64, val: 0)
m.control(1, ctlNum: 64, val: 127)
(
// TEST
Pbindef(\test, *[
type: \midi, midicmd: \noteOn, midiout: m, chan: 1,
dur: 1/2,
amp: 0.7
]).play
)
x = {PinkNoise.ar!2 * 0.1}.play
x.free

42
MELLOW_PULSES.scd
View File

@ -82,46 +82,4 @@ fork {
"end. ".postln; "end. ".postln;
} }
)
(
Pbind(*[ instrument: \pulseTriSaw,
amp: Pseg([0.6, 0.9, 0.6], 60, \lin, inf) * 1,
legato: 0.1,
scale: Scale.minor(\pythagorean),
dur:1.5,
degree: 0,
octave: 6,
sawamp: Pseg([0,1,0],50,\lin,inf),
atk:0,
dec:0.2,
sus:0.3 * Pseg([0,1,0], 40, \sqr, inf),
rls:5,
lpf: Pseg([3,20,3],40,\sqr, inf), //Pwhite(3,20),
pan:Pwhite(-1,1),
out: ~fxJPverbBus1,
// ctranspose: Pget(\ctrans, default:0, repeats: 8 * 6 * 1 * (5/1.5))
]).stop
) )

4
README.md
View File

@ -1,2 +1,6 @@
# algoforte03a # algoforte03a
Currently the code is a bit of a mess. Working on it.
Start in ALGOFORTE03a.scd file. Open it in SuperCollider and follow instructions.