home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 February / PCWorld_2008-02_cd.bin / audio-video / reaper / reaper2028-install.exe / Effects / IX / MIDI_Variant < prev    next >
Text File  |  2007-12-03  |  7KB  |  201 lines

  1. /*
  2. Copyright 2007, Philip S. Considine
  3. All rights reserved.
  4.  
  5. Redistribution and use in source and binary forms, with or without modification, are permitted 
  6. provided that the following conditions are met:
  7.  
  8. Redistributions of source code must retain the above copyright notice, this list of conditions 
  9. and the following disclaimer. 
  10.  
  11. Redistributions in binary form must reproduce the above copyright notice, this list of conditions 
  12. and the following disclaimer in the documentation and/or other materials provided with the distribution. 
  13.  
  14. The name of Philip S. Considine may not be used to endorse or promote products derived from this
  15. software without specific prior written permission.
  16.  
  17. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
  18. IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
  19. FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS 
  20. BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
  21. (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
  22. PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 
  23. STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 
  24. THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25. */
  26.  
  27. ////////////////////////////////////////////////////////////////////////////////////////////
  28. desc: MIDI Pattern Variation Effect. Edit for more info.
  29.  
  30. ////////////////////////////////////////////////////////////////////////////////////////////
  31.  
  32. //Input Channel
  33. slider1:0<0,15,1{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16}>Input Channel
  34.  
  35. /*----------- NOTE MIN/MAX You can change these if you want! --------------*/
  36. //Standard Sliders
  37. slider2:0<0,127,1>Note Min
  38. slider3:127<0,127,1>Note Max
  39.  
  40. //Drop-downs with note names (disabled)
  41. //slider2:0<0,127,1{C0,C#0,D0,D#0,E0,F0,F#0,G0,G#0,A0,A#0,B0,C1,C#1,D1,D#1,E1,F1,F#1,G1,G#1,A1,A#1,B1,C2,C#2,D2,D#2,E2,F2,F#2,G2,G#2,A2,A#2,B2,C3,C#3,D3,D#3,E3,F3,F#3,G3,G#3,A3,A#3,B3,C4,C#4,D4,D#4,E4,F4,F#4,G4,G#4,A4,A#4,B4,C5,C#5,D5,D#5,E5,F5,F#5,G5,G#5,A5,A#5,B5,C6,C#6,D6,D#6,E6,F6,F#6,G6,G#6,A6,A#6,B6,C7,C#7,D7,D#7,E7,F7,F#7,G7,G#7,A7,A#7,B7,C8,C#8,D8,D#8,E8,F8,F#8,G8,G#8,A8,A#8,B8,C9,C#9,D9,D#9,E9,F9,F#9,G9,G#9,A9,A#9,B9,C10,C#10,D10,D#10,E10,F10,F#10,G10}>Note Min
  42. //slider3:127<0,127,1{C0,C#0,D0,D#0,E0,F0,F#0,G0,G#0,A0,A#0,B0,C1,C#1,D1,D#1,E1,F1,F#1,G1,G#1,A1,A#1,B1,C2,C#2,D2,D#2,E2,F2,F#2,G2,G#2,A2,A#2,B2,C3,C#3,D3,D#3,E3,F3,F#3,G3,G#3,A3,A#3,B3,C4,C#4,D4,D#4,E4,F4,F#4,G4,G#4,A4,A#4,B4,C5,C#5,D5,D#5,E5,F5,F#5,G5,G#5,A5,A#5,B5,C6,C#6,D6,D#6,E6,F6,F#6,G6,G#6,A6,A#6,B6,C7,C#7,D7,D#7,E7,F7,F#7,G7,G#7,A7,A#7,B7,C8,C#8,D8,D#8,E8,F8,F#8,G8,G#8,A8,A#8,B8,C9,C#9,D9,D#9,E9,F9,F#9,G9,G#9,A9,A#9,B9,C10,C#10,D10,D#10,E10,F10,F#10,G10}>Note Max
  43. /*-------------------------------------------------------------------------*/
  44.  
  45. slider4:0<0,11,1{C,C#,D,Eb,E,F,F#,G,G#,A,Bb,B}>Root Note
  46. slider5:/ix_scales:01 Major.txt:Scale File
  47. slider6:5<0,10,1> Low Octave
  48. slider7:5<0,10,1> High Octave
  49. slider8:/ix_sequences:none:Sequence File
  50. slider9:1<0,1,1{Off,On}>On/Off
  51.  
  52. ////////////////////////////////////////////////////////////////////////////////////////////
  53. @init
  54.  
  55. //Set memory offsets
  56. inputTracker = 0;
  57. noteMap = 128;
  58. scale = 1024;
  59. seq = 2048;
  60.  
  61. //MIDI constants
  62. statNoteOn = 9 * 16;
  63. statNoteOff = 8 * 16;
  64.  
  65. //File change flags
  66. scaleFile = seqFile -1;
  67.  
  68. ////////////////////////////////////////////////////////////////////////////////////////////
  69. @slider
  70.  
  71. //Catch bad values
  72. slider2 = floor(slider2);
  73. slider3 = floor(slider3);
  74. slider6 = floor(slider6);
  75. slider7 = floor(slider7);
  76. slider2 < 0 ? slider2 = 0; slider2 > 127 ? slider2 = 127;
  77. slider3 < 0 ? slider3 = 0; slider3 > 127 ? slider3 = 127;
  78. slider6 < 0 ? slider6 = 0; slider6 > 10 ? slider6 = 10;
  79. slider7 < 0 ? slider7 = 0; slider7 > 10 ? slider7 = 10;
  80.  
  81. //Store values
  82. inChannel = slider1;
  83. noteMin = slider2;
  84. noteMax = slider3;
  85. root = slider4;
  86. octMin = slider6;
  87. octMax = slider7;
  88.  
  89. slider9 != on ?
  90. (
  91.     on = slider9;
  92.     step = 0;    //Reset step counter
  93. );
  94.  
  95. //Load scale
  96. scaleFile != slider5|0 ?
  97. (
  98.     scaleFile = slider5|0;
  99.     scaleSize = 0;
  100.     fileHandle = file_open(slider5);
  101.     fileHandle > 0 && file_text(fileHandle) ?
  102.     (
  103.         while
  104.         (
  105.             file_var(fileHandle, scale[scaleSize]);
  106.             file_avail(fileHandle) ? scaleSize += 1;
  107.         );
  108.         file_close(fileHandle);
  109.     );
  110. );
  111.  
  112. //Load sequence
  113. seqFile != slider8|0 ?
  114. (
  115.     seqFile = slider8|0;
  116.     seqSize = 0;
  117.     fileHandle = file_open(slider8);
  118.     fileHandle > 0 && file_text(fileHandle) ?
  119.     (
  120.         while
  121.         (
  122.             file_var(fileHandle,seq[seqSize]);
  123.             file_avail(fileHandle) ? seqSize += 1;
  124.         );
  125.         file_close(fileHandle);
  126.     );
  127. );
  128.  
  129. ////////////////////////////////////////////////////////////////////////////////////////////
  130. @block
  131.  
  132. while
  133. (
  134.     midirecv(offset,msg1,msg23) ?
  135.     (    
  136.         //Reset flags
  137.         passThru = 1;
  138.         
  139.         //Check status byte
  140.         status = msg1 & 240; //High four bits is message type (240 == 11110000)
  141.         channel = msg1 & 15; //Low four bits is channel number (15 == 00001111)
  142.  
  143.         //Is it on our channel
  144.         channel == inChannel && on == 1 ? 
  145.         (
  146.             //Is it a note event
  147.             (status == statNoteOn || status == statNoteOff) ?
  148.             (
  149.                 //get note number and velocity
  150.                 note = msg23 & 127;
  151.                 velocity = ((msg23/256) & 127);
  152.                 
  153.                 //Process if it's within the note range
  154.                 note >= noteMin && note <= noteMax ?
  155.                 (
  156.                 
  157.                     //What kind of note event?
  158.                     (status == statNoteOn && velocity > 0) ?
  159.                     (    
  160.                         //Note On code starts here
  161.                         inputTracker[note] == 0 ?
  162.                         (                    
  163.                             inputTracker[note] = 1; //Flag as ordinary note
  164.  
  165.                             seq[step] == 1 ? //Check sequence
  166.                             (
  167.                                 inputTracker[note] = 2; //Flag as modified note
  168.                                 
  169.                                 //Do note generation and clamp to useful range.
  170.                                 noteMap[note] = scale[rand(scaleSize+1)] + root + (12 * (octMin + rand(octMax-octMin)));
  171.                                 noteMap[note] < 0 ? noteMap[note] = 0; noteMap[note] > 127 ? noteMap[note] = 127;
  172.                                 
  173.                                 msg23 = noteMap[note] |(velocity * 256); //Modify MIDI data
  174.                             );
  175.                             
  176.                             step < (seqSize) ? step += 1 : step = 0; //Update the step counter
  177.  
  178.                         ):passThru = 0; //Block duplicate notes
  179.                     )
  180.                     :
  181.                     (
  182.                         //Note Off code starts here
  183.                         inputTracker[note] > 0 ?            
  184.                         (
  185.                             //Check if it's a modified note
  186.                             inputTracker[note] == 2 ?
  187.                             (
  188.                                 msg23 = noteMap[note] |(velocity * 256); //Modify MIDI data
  189.                                 noteMap[note] = note; //Reset noteMap
  190.                             );
  191.                             
  192.                             inputTracker[note] = 0; //Flag this note as off    
  193.                         );
  194.                     );
  195.                 );
  196.             );
  197.         );
  198.         passThru == 1 ? midisend(offset,msg1,msg23);    //Pass if flagged
  199.     );
  200. );
  201.