Pan1 : UGen  { 
	//panning scaler. input 2 channels, multiplies accordingly.
	*ar { arg in, pan=0, mul=1, add=0;
		pan = 0.5 * pan + 0.5;
		^([1 - pan, pan] * in * 2 * mul + add)
	}
	*kr { arg in, pan=0, mul=1, add=0;
		pan = 0.5 * pan + 0.5;
		^([1 - pan, pan] * in * 2 * mul + add)
	}
}