SuperCollider

Interface Fractures IF4Q

December 20, 2016

Interface Fractures is a series of audiovisual explorations Luka Prinčič has been developing in collaboration with the Slovenian Cinematheque since 2013. The series’ cinema-sound episodes share the same method and format: an immersive situation in the darkness of the cinema, the use of digital and open source tools for generating image and sound, a dichotomy between fixed composition and improvisation in time, a tendency for abstraction out of which fragments of the concrete arise, and playing with the synchronisation of sound and image. Although the creation process includes an examination of the contemporary human condition, conventional narration is not so important in the created performances and remains in the background. Interface Fractures is thus a fragmented excursion into abstract sound and the moving picture. Their synthetic integration emerges from the process of searching for fractures and subjectivities in a seeming impenetrability of polished and polarised interfaces – mediated, inter-machinic, interhuman.

Collaborators

Author: Luka Prinčič

Support

Production: Emanat – (emanat.si/en/production/luka-princic–interface-fractures-if4q)
Co-production: Slovenska kinoteka
Financial support: City Municipality Ljubljana, Ministry of Culture RS

Technical

Technical rider -> https://goo.gl/VAIHtq

Events

31.05.2017 at 21:00, 2017 – Community, Stadtwerkstadt, Linz, AT
02.02.2017, MENT, Pritličje, Ljubljana, SI
20.01.2017, Cirkulacija, Ljubljana, SI
20.12.2016, Slovenska kinoteka, Ljubljana, SI (odpade/cancelled)

Video

Save

supercollider: easy beats with patterns

December 13, 2016

///////////////// some easy beats, yo!
(

// somekind of highhat - enveloped whitenoise
SynthDef(\highhat, { | amp,freq,release |
	var env, sig;

	env = Env.perc(0.001,release);
	sig = WhiteNoise.ar(EnvGen.kr(env, doneAction: 2));
	sig = HPF.ar(sig, freq:freq);
	sig = Splay.ar(sig);
	sig = sig * amp;

	Out.ar(0,sig);
}).add;


// bass kick
SynthDef(\kicker, {
	var sig, env;

	env = Env.perc(0.01, 2, 1);
	sig = LFPar.ar(
		freq:50,
		mul: EnvGen.kr(env, doneAction: 2)
	) * 10;
	sig = Splay.ar(sig.distort * 0.5);

	Out.ar(0, sig);
 }).add;


~oscBridge = NetAddr.new("127.0.0.1", 12000);


h = Pbind(
	\dur, Pseq([ 4, 4, 4, 4, 2, 2, 4, 4, 2, 1, 1 ], inf),
	\instrument, \highhat,
	\amp, Pseq([ 1, 0.9, 1, 0.5, 1, 0.9, 0.2, 0.9,     1, 0.6, 1          ], inf),
	\freq, Pseq([9000,8000,7000,1000], inf),
	\release, Pseq([0.07, 0.09, 0.06, 0.2, 1], inf),
).play(quant:32);

k = Pbind(
	\instrument, \kicker,
	\dur, 32
).play(quant:32);

TempoClock.default.tempo = 100/6;


) ////////////////////////////////////////////////////////////////////////////

///////////////// some easy beats, yo!

(

// somekind of highhat - enveloped whitenoise

SynthDef(\highhat, { | amp,freq,release |

var env, sig;

env = Env.perc(0.001,release);

sig = WhiteNoise.ar(EnvGen.kr(env, doneAction: 2));

sig = HPF.ar(sig, freq:freq);

sig = Splay.ar(sig);

sig = sig * amp;

Out.ar(0,sig);

}).add;

// bass kick

SynthDef(\kicker, {

var sig, env;

env = Env.perc(0.01, 2, 1);

sig = LFPar.ar(

freq:50,

mul: EnvGen.kr(env, doneAction: 2)

) * 10;

sig = Splay.ar(sig.distort * 0.5);

Out.ar(0, sig);

}).add;

~oscBridge = NetAddr.new("127.0.0.1", 12000);

h = Pbind(

\dur, Pseq([ 4, 4, 4, 4, 2, 2, 4, 4, 2, 1, 1 ], inf),

\instrument, \highhat,

\amp, Pseq([ 1, 0.9, 1, 0.5, 1, 0.9, 0.2, 0.9, 1, 0.6, 1 ], inf),

\freq, Pseq([9000,8000,7000,1000], inf),

\release, Pseq([0.07, 0.09, 0.06, 0.2, 1], inf),

).play(quant:32);

k = Pbind(

\instrument, \kicker,

\dur, 32

).play(quant:32);

TempoClock.default.tempo = 100/6;

) ////////////////////////////////////////////////////////////////////////////

minor random bliss in two

December 12, 2016

Learning Patterns in SuperCollider, here’s a little lullaby:

(

SynthDef(\param, { arg freq = 100, sustain, amp;
	var sig;
    sig = LFPar.ar(freq: freq,
        mul: EnvGen.kr(Env.perc(0, sustain, 0.5), doneAction:2) * amp);
	sig = Splay.ar(sig);
	Out.ar(0, sig);
}).add;

e = Pbind(
	\midinote, Prout({
		var tone0, tone1, tone2, interval, freq0, delta;
		loop {
			tone0 = rrand(0,11);
			interval = rrand(2,4);
			tone1 = Scale.minor(\pythagorean).at(tone0) + [0,12,24].choose + 0.07;
			tone2 = Scale.minor(\pythagorean).at(tone0 + interval) + [0,12,24].choose;
			freq0 = [tone1,tone2]+48;
			postln(freq0);
			freq0.yield;
		}
	}),
    \dur, Prand([1,2,4,8,12,16,4,6,8], inf),
    \instrument, \param,
	\amp, 0.5,
	\sustain, 1,
).play(quant:1); // returns an EventStream
TempoClock.default.tempo = 200/60;

)

(

SynthDef(\param, { arg freq = 100, sustain, amp;

var sig;

sig = LFPar.ar(freq: freq,

mul: EnvGen.kr(Env.perc(0, sustain, 0.5), doneAction:2) * amp);

sig = Splay.ar(sig);

Out.ar(0, sig);

}).add;

e = Pbind(

\midinote, Prout({

var tone0, tone1, tone2, interval, freq0, delta;

loop {

tone0 = rrand(0,11);

interval = rrand(2,4);

tone1 = Scale.minor(\pythagorean).at(tone0) + [0,12,24].choose + 0.07;

tone2 = Scale.minor(\pythagorean).at(tone0 + interval) + [0,12,24].choose;

freq0 = [tone1,tone2]+48;

postln(freq0);

freq0.yield;

}

}),

\dur, Prand([1,2,4,8,12,16,4,6,8], inf),

\instrument, \param,

\amp, 0.5,

\sustain, 1,

).play(quant:1); // returns an EventStream

TempoClock.default.tempo = 200/60;

)

SuperCollider Help in dark grey

December 10, 2016

In order to browse and use SuperCollider help system in inverted gray colours, there are two quick hacks:

modify internal Help system
style the help on doc.sccode.org using Stylish

To modify internal Help system find the file /usr/local/share/SuperCollider/HelpSource/scdoc.css and add at the bottom/end of the file:

body {
    background: #333;
    color: #333;
    -webkit-filter: invert(100%);
    filter: invert(100%) ;
}

body {

background: #333;

color: #333;

-webkit-filter: invert(100%);

filter: invert(100%) ;

}

If you use doc.sccode.org and a Stylish add-on in (for example) Firefox to custom-style pages, you can add a new style which is similar to the above:

@namespace url(http://www.w3.org/1999/xhtml);

@-moz-document domain("doc.sccode.org") {
  body {
    background: #333;
    color: #333;
    -webkit-filter: invert(100%) !important;
    filter: invert(100%) !important;
  }
}

@namespace url(http://www.w3.org/1999/xhtml);

@-moz-document domain("doc.sccode.org") {

body {

background: #333;

color: #333;

-webkit-filter: invert(100%) !important;

filter: invert(100%) !important;

}

Drawing SuperCollider Slovenija logo in SuperCollider

April 17, 2016

The other day I was trying to revive our Facebook groups “SuperColider Slovenija” and had some ideas to change the cover image. So I went and wrote everything in SuperCollider itself. Indeed, using music-making programming environment for (rudimentary) visuals. Below is the code and end result.

Continue reading →

IF3 Progress Report #1

July 14, 2015

With the summer-time, a working-time on my new audio-visual piece, Interface Fractures III, begun. It is now almost confirmed that the date of premiere showing at Slovenian Cinemateque (Slovenska Kinoteka) is most probably 15/september. Since the plan was that we spend some quality sun&salt time at Croatian coast I brough some machinery with me to vacation. It’s always fun to work in the summer heat!

Anyway, with this next episode in the series I want to upgrade technically a “little bit”, so I acquired a better graphic card (Nvidia GTX960) and a multi-touch screen monitor with fullHD 1080p resolution. Adding also a 120GB SSD drive I needed to reinstall operating system (UbuntuStudio 14.4.1), separately compiled drivers for Nvidia and the rest worked pretty much out of the box (after some apt-get-ing). Multi-touch is application-dependent and my idea (for many years now) is to write custom interfaces for live sound/music/noise and visual composition and improvisation.

More technicalities: I compiled Processing and SuperCollider, tried a multi-touch library in Processing (SMT) but it didn’t work. Filed an issue at their GitHub and went on with a version of SuperCollider that supports multi-touch (I was kindly pushed in the right direction by Scott Cazan, who added MT support to his own branch of SC on GitHub). After some basic testing I wrote a simple granulator with a GUI. I also tested a very basic idea of TABs-like interface. In Processing I’ve whet my appetite with an excercise that focused on off-screen rendering and blending two images together.

Continue reading →

SuperCollider GUI – tabs proof of concept

July 13, 2015

These are very newbie baby steps in the construction of a something bigger, a powerful flexible interface for a touch-screen device. Novels are being written one word at the time, right?

The following is a snippet of code that I needed to write in order to test a TABs-like behaviour in SuperCollider QT GUI system. Essentially, I was curious if it’s possible to show and hide whole windows/areas of different widgets using a tabs-like paging system – something we’re all used to now from browsers, for example.

(

// 2 tabs proof of concept, hiding and showing views

~gwin = Window.new("Test visibility", Rect(120, 420, 500, 200));
~gwin.front;

~viewOne = View.new(~gwin, Rect(50,50,280,140))
	.background_(Color.gray(0.4,1))
	.visible_(0);

Slider(~viewOne, Rect(5,50,20,50));


~viewTwo = View.new(~gwin, Rect(50,50,280,140))
	.background_(Color.gray(0.4,1))
	.visible_(0);

Slider2D(~viewTwo, Rect(20,20,100,100));



b = Button(~gwin, Rect(50, 10, 80, 35))
	.states_([
		["one"],
		["one", Color.white, Color.gray(0.4)]
	])
	.action_({arg butt;
		switch(butt.value,
			0, { ~viewOne.visible = 0; postln("off")
				},
			1, { ~viewOne.visible = 1; postln("on");
				b.enabled_(0);
				c.enabled_(1);
				 ~viewTwo.visible = 0;
				c.valueAction = 0;
				}
			
		);
		butt.value.postln;
	});


c = Button(~gwin, Rect(140, 10, 80, 35))
	.states_([
		["two"],
		["two", Color.white, Color.gray(0.4,1)]
	])
	.action_({arg butt;
		switch(butt.value,
			0, { ~viewTwo.visible = 0; postln("off")
				},
			1, { ~viewTwo.visible = 1; postln("on");
				c.enabled_(0);
				b.enabled_(1);
				 ~viewOne.visible = 0;
				b.valueAction = 0;
				}
			
		);
		butt.value.postln;
	});



)

(

// 2 tabs proof of concept, hiding and showing views

~gwin = Window.new("Test visibility", Rect(120, 420, 500, 200));

~gwin.front;

~viewOne = View.new(~gwin, Rect(50,50,280,140))

.background_(Color.gray(0.4,1))

.visible_(0);

Slider(~viewOne, Rect(5,50,20,50));

~viewTwo = View.new(~gwin, Rect(50,50,280,140))

.background_(Color.gray(0.4,1))

.visible_(0);

Slider2D(~viewTwo, Rect(20,20,100,100));

b = Button(~gwin, Rect(50, 10, 80, 35))

.states_([

["one"],

["one", Color.white, Color.gray(0.4)]

])

.action_({arg butt;

switch(butt.value,

0, { ~viewOne.visible = 0; postln("off")

1, { ~viewOne.visible = 1; postln("on");

b.enabled_(0);

c.enabled_(1);

~viewTwo.visible = 0;

c.valueAction = 0;

}

);

butt.value.postln;

});

c = Button(~gwin, Rect(140, 10, 80, 35))

.states_([

["two"],

["two", Color.white, Color.gray(0.4,1)]

])

.action_({arg butt;

switch(butt.value,

0, { ~viewTwo.visible = 0; postln("off")

1, { ~viewTwo.visible = 1; postln("on");

c.enabled_(0);

b.enabled_(1);

~viewOne.visible = 0;

b.valueAction = 0;

}

);

butt.value.postln;

});

)

SuperCollider: Granulator & a GUI

July 13, 2015

An example and working ground for a granular synthesis system in SuperCollider with GUI for a fullHD touch-screen surface. There’s some things not yet working here (loading files from GUI for example), but it’s a milestone for one.

Continue reading →

Granular synthesis in SC

July 4, 2015

This morning I started to work on a granular machine in SuperCollider. This is what I got so far:

// load buffers

p = "/home/random/SAMPLES/ironmaiden/RENAMED/gentleandbass.wav";
b = Buffer.readChannel(s,p, channels:1);

b.free;


// SynthDef granulator
(
SynthDef(\Granny, {

	arg bufnum,
		freq = 10, fvar = 1,
		dur = 0.1, durvar = 0
	;
	var signal;
		
	signal = GrainBuf.ar(
		numChannels: 2, // we want stereo!
		trigger: Impulse.kr(freq + (freq * (fvar * LFNoise2.kr(freq)))), // a UGen?
		dur: dur + (durvar * LFNoise2.kr(freq)), // in seconds
		sndbuf: bufnum,
		rate: LFNoise1.kr.range(0.98, 1.02), // pitch
		pos: SinOsc.kr(0.1).range(0.1,0.9), // position 0-1
		interp: 2, // interpolation for pitchshifting
		pan: LFNoise1.kr(10).range(-0.2, 0.2), // if numChannels=2, similar to Pan2, -1 left, +1 right
		//		envbunum: -1, // the buffer number cont. grain envelope
		maxGrains: 512,
		mul: 0.5,
		add: 0
	);

	Out.ar(0, signal);

}).send(s)
)


x = Synth(\Granny, [\bufnum, b]);
x.set(\freq, 5);
x.set(\fvar, 0);
x.set(\dur, 0.2);
x.set(\durvar, 0.2);

// load buffers

p = "/home/random/SAMPLES/ironmaiden/RENAMED/gentleandbass.wav";

b = Buffer.readChannel(s,p, channels:1);

b.free;

// SynthDef granulator

(

SynthDef(\Granny, {

arg bufnum,

freq = 10, fvar = 1,

dur = 0.1, durvar = 0

;

var signal;

signal = GrainBuf.ar(

numChannels: 2, // we want stereo!

trigger: Impulse.kr(freq + (freq * (fvar * LFNoise2.kr(freq)))), // a UGen?

dur: dur + (durvar * LFNoise2.kr(freq)), // in seconds

sndbuf: bufnum,

rate: LFNoise1.kr.range(0.98, 1.02), // pitch

pos: SinOsc.kr(0.1).range(0.1,0.9), // position 0-1

interp: 2, // interpolation for pitchshifting

pan: LFNoise1.kr(10).range(-0.2, 0.2), // if numChannels=2, similar to Pan2, -1 left, +1 right

// envbunum: -1, // the buffer number cont. grain envelope

maxGrains: 512,

mul: 0.5,

add: 0

);

Out.ar(0, signal);

}).send(s)

)

x = Synth(\Granny, [\bufnum, b]);

x.set(\freq, 5);

x.set(\fvar, 0);

x.set(\dur, 0.2);

x.set(\durvar, 0.2);

Interface Fractures III: Silicon log #1

July 3, 2015

These days I started some work on a new chapter of my audio-visual series called “Interface Fractures”.

Bought a new graphic card – Nvidia-based GTX960.
Also a fullHD multitouch screen is here for exploitation in next couple of years.

SuperCollider for multitouch

Somebody (Scott Cazan) on the supercollider-users list mentioned a fork of SuperCollider with multitouch support (which will be included in main with 3.8 release). I cloned git fork from Cazan’s github, installed build dependencies, couple of twiddles, and compilation went through.

Continue reading →

saturday supercolliding

September 24, 2011

Today I worked more on a piece of code that should get up basic functionality of SenseStage/DataNetwork. With some nice help from Marije I’m now this far in SuperCollider:

///////////////////////////////////////////////////////////////////////////
// DataNetwork host! //////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////

~datanet = SWDataNetwork.new;
~datanet.createHost;
~datanet.makeGui;

///////////////////////////////////////////////////////////////////////////
// Nowsclang SETUP CONTROLLER MINIBEE to be able to listen to 
// the network of minibees-  use python - pydon

(
"
echo "cd /home/random/src/pydonhive.8/pydon/" > /tmp/wonkohive.sh;
echo "python swpydonhive.py -c wonko-hive.xml -s /dev/ttyUSB0" >> /tmp/wonkohive.sh; 
echo "sleep 10" >> /tmp/wonkohive.sh; 
chmod u+x /tmp/wonkohive.sh;
gnome-terminal -t SW-WonkoHive -e /tmp/wonkohive.sh;
sleep 2;
rm /tmp/wonkohive.sh
".unixCmd;
)




///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
// DataNetwork CLIENT! ////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////


y = SWDataNetworkClient( "localhost", "NovaSC"); // create client
y.subscribeNode(1); // subscribe to a DN node (a miniBee with accel. sensors)

~node1 = y.nodes[1];
~node1.createBus(s);

~node1.value; // print what's on the bus
~node1.value.at(1);
~node1.value.at(2);
~node1.value.at(0);

// define a synth
(
	SynthDef(ThreeWF, { |freq1=0.5, freq2=1, freq3=2, amp=0.05|
		Out.ar([0,1],
			SinOsc.ar(freq1 * 1000 - 300, 0, [amp,0]) +
			SinOsc.ar(freq2 * 1000 - 300, 0, [0,amp]) +
			SinOsc.ar(freq3 * 1000 - 300, 0, [amp,amp])
		);
	}).send(s)
)

// instantiate the synth
i = Synth(ThreeWF);

// either we map a subBus to another variable
~node1bus1 = ~node1.bus.subBus(0,1); // .subBus (offset, numChannels = 1)
// before we map it then to an argument of the synth
i.map( freq1, ~node1bus1 );

// or we skip another variable all together
i.map(freq2, ~node1.bus.subBus(1,1));
i.map(freq3, ~node1.bus.subBus(2,1));

///////////////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////////////

// DataNetwork host! //////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////////////

~datanet = SWDataNetwork.new;

~datanet.createHost;

~datanet.makeGui;

///////////////////////////////////////////////////////////////////////////

// Nowsclang SETUP CONTROLLER MINIBEE to be able to listen to

// the network of minibees- use python - pydon

(

echo "cd /home/random/src/pydonhive.8/pydon/" > /tmp/wonkohive.sh;

echo "python swpydonhive.py -c wonko-hive.xml -s /dev/ttyUSB0" >> /tmp/wonkohive.sh;

echo "sleep 10" >> /tmp/wonkohive.sh;

chmod u+x /tmp/wonkohive.sh;

gnome-terminal -t SW-WonkoHive -e /tmp/wonkohive.sh;

sleep 2;

rm /tmp/wonkohive.sh

".unixCmd;

)

///////////////////////////////////////////////////////////////////////////

// DataNetwork CLIENT! ////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////////////

y = SWDataNetworkClient( "localhost", "NovaSC"); // create client

y.subscribeNode(1); // subscribe to a DN node (a miniBee with accel. sensors)

~node1 = y.nodes[1];

~node1.createBus(s);

~node1.value; // print what's on the bus

~node1.value.at(1);

~node1.value.at(2);

~node1.value.at(0);

// define a synth

(

SynthDef(ThreeWF, { |freq1=0.5, freq2=1, freq3=2, amp=0.05|

Out.ar([0,1],

SinOsc.ar(freq1 * 1000 - 300, 0, [amp,0]) +

SinOsc.ar(freq2 * 1000 - 300, 0, [0,amp]) +

SinOsc.ar(freq3 * 1000 - 300, 0, [amp,amp])

);

}).send(s)

)

// instantiate the synth

i = Synth(ThreeWF);

// either we map a subBus to another variable

~node1bus1 = ~node1.bus.subBus(0,1); // .subBus (offset, numChannels = 1)

// before we map it then to an argument of the synth

i.map( freq1, ~node1bus1 );

// or we skip another variable all together

i.map(freq2, ~node1.bus.subBus(1,1));

i.map(freq3, ~node1.bus.subBus(2,1));

///////////////////////////////////////////////////////////////////////////

I still have (more and more) questions. It’s funny, as you progress in slowly becoming familiar with language things keep on popping out, questions that are most of the time in the form of “why this doesn’t work? it should work, but it doesn’t!”

For example, if i write “~variable” what exactly does it mean? It seems to be some kind of global variable, according to SC docs?

sound, noise, music & new media

SuperCollider

Interface Fractures IF4Q

Collaborators

Support

Technical

Events

Video

supercollider: easy beats with patterns

minor random bliss in two

SuperCollider Help in dark grey

Drawing SuperCollider Slovenija logo in SuperCollider

IF3 Progress Report #1

SuperCollider GUI – tabs proof of concept

SuperCollider: Granulator & a GUI

Granular synthesis in SC

Interface Fractures III: Silicon log #1

SuperCollider for multitouch

saturday supercolliding

About

Newsletter

Events