desc:midi snare note pitcher random bobobo 
//midi inout filter that applies notetriggered random 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

@init
CCPitch = $xE0; 
CCStatus = $xE0; 
@slider
dt1v=slider1+37;
@block
while( midirecv(offset,msg1,msg23) ? (
  dt1 = msg23 & $x7F;
  
  (dt1==dt1v)?(
     pitchr = rand(129)-64;
     midisend(offset>=1 ? offset-1 : 0, CCStatus, (pitchr*256) & $x7F00);
   );
  midisend(offset,msg1,msg23); 
  1;
 ); 
);