Fork Code: Simple GUI for WavesetsEvent

name

code content

/***************************************************
****************************************************

A simple GUI for Waveset Synthesis.

Requires WavesetsEvent, which should be placed in your
SC extensions folder.

Most of the code came from the included help files.
https://github.com/musikinformatik/WavesetsEvent

***************************************************
***************************************************/

(
s.waitForBoot{

var numSliders = 9;
var numButtons = 3;
var switchFile, sliders, buttons, actions, labels, controls, init;

WavesetsEvent.prepareSynthDefs;
~wavesets = ~wavesets ?? {
	WavesetsEvent.read(Platform.resourceDir +/+ "sounds/a11wlk01-44_1.aiff")
};

Tdef(\ws, {
	inf.do{ |i|
		var event = ~wavesets.asEvent((
			start: ( i % ~wavesets.size) + ~shuf.rand, //from which waveset to start + waveset shuffle
			num: ~numWs, //how many wavesets to play
			repeats: ~repeats, // how many times to repeat the selected wavesets
			rate: ~playRate, //playback speed of the audio file
			rate2: ~playRate2, //end playback speed of the audio file (will create a linear glisson sweep)
			amp: if(~prob.coin, {~volume}, {0}), //scale the amplitude of the original sound + random waveset omission from 0 - 100%
			pan: ~pan, //stereo panorama position
			legato: ~legato //scales the duration, so that wavesets will overlap or have gaps between them.
			));
		event.play;
		event[\dur].wait;
	}
});


//gui
w = Window.new("wavesets", Rect(128, 64, 400, 400)).front;
w.addFlowLayout;
w.view.decorator.gap=5@5;

	labels = ["numWs", "repeats", "playRate", "playRate2", "volume", "pan",  "legato", "shuffle", "omission"];

controls = (
		numWs: [1, 50, \lin, 1],
		repeats: [1, 10, \lin, 1],
		playRate: [-10, 10, \lin],
		playRate2: [-10, 10, \lin],
		volumes: [0, 1, \lin],
		pan: [-1, 1, \lin],
		legato: [0.001, 2, \lin],
		shuffle: [0, 100, \lin, 1],
		omission: [0, 1, 'lin']
	);

init = [1, 2, 1, 1.5, 1, 0, 1, 0, 1];

actions = (
		numWs: {|v| ~numWs = v},
		repeats: {|v| ~repeats = v},
		playRate: {|v| ~playRate = v},
		playRate2: {|v| ~playRate2 = v},
		volume: {|v| ~volume = v},
		pan: {|v| ~pan = v},
		legato: {|v| ~legato = v},
		shuffle: {|v| ~shuf = v},
		omission: {|v| ~prob = v}
	);

//create buttons
buttons = numButtons.collect{|i|
	Button.new(w, 125@30);
};

//create sliders
sliders = numSliders.collect{|i|
		EZSlider.new(w, 390@30, labels[i], controls[labels[i].asSymbol], {|sl| actions[labels[i].asSymbol].(sl.value)}, init[i], true)
		.setColors(sliderBackground: Color.rand);
};

//new soundfile button
buttons[0]
.states_(
	[["Switch File", Color.black]]
)
.action_({|obj|
	Dialog.openPanel({ | path |
		var ws = WavesetsEvent.new;
		ws.readChannel(path, onComplete: { ~wavesets = ws; ~path = path })
	});
});

//start button
buttons[1]
.states_(
	[["Start", Color.black]]
)
.action_({|obj|
	Tdef(\ws).play;
});

//stop button
buttons[2]
.states_(
	[["Stop", Color.black]]
)
.action_({|obj|
	Tdef(\ws).stop;
});

}

)

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change