desc:midi snare note pitcher manual bobobo
//midi inout filter that applies notetriggered manual pitchbendvalues
// This fulfills the urgency if you want to make the Reasamplomatic drum kit (rs5k)
// a little more variable.
// A random midipitchbend value is generated when a note arrives.
// The note value of the incoming note can be adjusted. The effect
// size has to be set in Reasamplomatic. All instances
// except the one that should receive the pitchbend should have
// the pitchbend value set to 0. The received to a suitable value.
//tags: Pitch Shift
//author: bobobo (standing on shoulders of giants)
slider1:3<0,4,1{37,38,39,40}> trigger note
slider2:64<1,126,1>PB Center Position



@init
pitch=0;
CCPitch = $xE0; 
CCStatus = CCPitch ;

@slider
pitch=slider2; 
dt1v=slider1+37;
@block
while( midirecv(offset,msg1,msg23) ? (
  dt1 = msg23 & $x7F;
  (dt1==dt1v)?(
    prev_pitch!=pitch ?(
        midisend(offset>=1 ? offset-1 : 0, CCStatus, (pitch*256) & $x7F00);
        prev_pitch=pitch;
    );
   );
  midisend(offset,msg1,msg23); 
  1;
 ); 
);

@sample