home *** CD-ROM | disk | FTP | other *** search
- // Copyright 2006, Thomas Scott Stillwell
- // All rights reserved.
- //
- //Redistribution and use in source and binary forms, with or without modification, are permitted
- //provided that the following conditions are met:
- //
- //Redistributions of source code must retain the above copyright notice, this list of conditions
- //and the following disclaimer.
- //
- //Redistributions in binary form must reproduce the above copyright notice, this list of conditions
- //and the following disclaimer in the documentation and/or other materials provided with the distribution.
- //
- //The name of Thomas Scott Stillwell may not be used to endorse or
- //promote products derived from this software without specific prior written permission.
- //
- //THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR
- //IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
- //FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
- //BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- //(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- //PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
- //STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
- //THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
- desc:randomize input note to multiple notes
-
- slider1:0<0,255,1>Listen for note#
- slider2:0<0,16,1>Listen channel (0=omni)
- slider3:0<0,255,1>Starting output note
- slider4:0<0,255,1>Ending output note
- slider5:0<0,100,0.1>Mix %
-
- @init
- note_on = 9*16;
- note_off = 8*16;
-
- @slider
- note=slider1;
- chan=slider2-1;
- start=slider3;
- end=slider4;
- mix=slider5/100;
-
- @block
- while(
- midirecv(mpos, msg1, msg2) ? (
- (msg1 & 240) == note_on ? (
- ((msg1 & 15) == chan) || chan==-1 ? (
- (msg2 & 255) == note ? (
- velocity = msg2 & 65280;
- newnote = floor(rand(end-start)) + start;
- newnote == prevnote ? newnote == end ? newnote = start : newnote += 1;
- midisend(mpos, msg1, velocity | newnote);
- prevnote = newnote;
- );
- ) : (
- midisend(mpos, msg1, msg2);
- );
- );
- (msg1 & 240) == note_off ? (
- ((msg1 & 15) == chan) || chan==-1 ? (
- (msg2 & 255) == note ? (
- midisend(mpos, msg1, newnote);
- prevnote = newnote;
- );
- ) : (
- midisend(mpos, msg1, msg2);
- );
- );
- );
- );
-
- @sample
- spl0 = spl0 * mix;
- spl1 = spl1 * mix;
-