// name: MIDI_Micro_Tune,  xackley 05-16-2008

desc: MIDI Micro Tuner using Pitch Bend

slider1:0<-50,50,1>Cents
slider2:2<0,4,1>PB Range

@slider

slidermove=1;
slider1=floor(slider1);
cents = slider1*.64/slider2;
offset = floor(64+cents)*256;
remainder = abs( (64+cents) - (floor(64+cents) ))*128;
offset = (remainder|offset);



@sample

slidermove ? (
	slidermove=0;
	midisend(ts,224+InChan,offset);
	);

while ( midirecv(ts,msg1,msg23) ? (
	//InMess = msg1 & 240;
	InChan = msg1 & 15;
	//InVelo = (msg23/256)|0;
	//InNote = msg23 & 127;

	//send offset just incase the pb was used, not bothering PB offset correction options
	midisend(ts,224+InChan,offset);
	midisend(ts,msg1,msg23);
	);
);
 