Fork Code: Scribble Squiggle

name

code content

// part one: record squiggle
(
// start time
var startTime = thisThread.seconds ;
~allPoints = [] ;
~diffPoints = [] ;
w = Window.new.front;

q = UserView.new(w,w.view.bounds);

q.mouseDownAction_({
	| view, x, y, modifiers, buttonNumber, clickCount |
	~allPoints = [];
});
q.mouseMoveAction_({
	| view, x, y, modifiers, buttonNumber, clickCount |
	~allPoints = ~allPoints.add([x, y, thisThread.seconds-startTime].postln );
});
q.animate_(true);
q.drawFunc_({
	~allPoints.do({
		|pos, index|
		if ((index > 0), {
			Pen.fillColor = "000000";
			Pen.line( Point(~allPoints[index-1][0], ~allPoints[index-1][1]), Point(pos[0], pos[1]));
			Pen.stroke;
		});
	});
});
)

// part two: perform squiggle
(
s.waitForBoot({

SynthDef(\doSomething,  {
		| out=0, freq=440, xval, yval |
		var sig = 0.05*(VarSaw.ar(freq*yval.linlin(0,350,2,1), width:xval.linlin(0,350,0.2,0.9)));
		var env = EnvGen.ar(Env.perc(0.1),doneAction:2);
		sig = env*sig;
		Out.ar(out, sig!2);
}).add;

s.sync;

Pdef(\playRecorded,
	Pbind(\instrument, \doSomething,
		  \firstOrder, Pseq(~allPoints, 1),
		  \secondOrder, Pseq([[0,0,0], Pseq(~allPoints.differentiate.shift(-1), 1)], 1),
		  \degree, 5,
		  \xval,  Pfunc({ | ev | ev[\firstOrder][0]; }), // xval somewhere between 0 and 350
		  \yval,  Pfunc({ | ev | ev[\firstOrder][1]; }), // yval somewhere between 0 and 350
		  \dur,  Pfunc({ | ev | ev[\secondOrder][2]; })
));
Pdef(\playRecorded).play;

});

)

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