desc:midi snare note pitcher random triggerless 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:0<0,127,1> pitchrv 

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