[CM] recording MIDI input

Fri Dec 16 19:49:19 PST 2011

Hi,

I think I have a bit of midi-recording code working in SAL... But the
values I am getting for the time seem wrong, in particular the very first
time recorded is a really weird incredibly small number instead of just
being 0.

Any help is appreciated, or if there is cleaner or better way that would be
even better.  Here is my code so far:

variable incoming-midi = {}
variable first-note-time = #f

function midi-recorder (mididata)
  begin
    with current = now(),
         opcode = first(mididata),
         channel = second(mididata),
         keynum = third(mididata),
         velocity = fourth(mididata)
    if (! first-note-time)
      set first-note-time = current, current = 0
    else
      set current = (current - first-note-time)
    set incoming-midi &= list(current, opcode, channel, keynum, velocity)
    end
  end
end

;to begin recording:
begin
 variable incoming-midi = {}
 variable first-note-time = #f
 send("mp:receive", mm:on, midi-recorder)
end

;to stop the recording
send("mp:receive", mm:on, #f)

And here is an example of what got recorded into the global variable
("incoming-midi") after a test run using a midi file created from the reich
tutorial example:
{{4.3472355173435e-005 9 0 64 63} {0.86995516913521 9 0 66 63}
{0.87000498120688 9 0 66 63} {0.87003215142977 9 0 71 63} {0.87007109541264
9 0 71 63} {0.87009781279812 9 0 73 63} {0.87015079472985 9 0 73 63}
{0.87018068197176 9 0 74 63} {0.87021781461044 9 0 74 63} {0.8702449848297
9 0 66 63} {0.87029162704494 9 0 66 63} {0.8703192501016 9 0 64 63}
{0.87035592990287 9 0 64 63} {0.87038445863436 9 0 73 63} {0.87042113843199
9 0 73 63} {0.87044740298006 9 0 71 63} {0.87048453561692 9 0 71 63}
{0.87051080016317 9 0 66 63} {0.87054793280004 9 0 66 63} {1.2680038943981
9 0 74 63} {1.268050989449 9 0 74 63} {1.2680808766945 9 0 73 63}
{1.2681343114618 9 0 73 63} {1.2682103880816 9 0 64 63} {1.2682579359698 9
0 64 63} {1.2682783136352 9 0 66 63} {1.2683104650641 9 0 66 63}
{1.2683322012417 9 0 71 63} {1.2683638998333 9 0 71 63} {1.2683860888465 9
0 73 63} {1.2684182402754 9 0 73 63} {1.268439976453 9 0 74 63}
{1.2684725807194 9 0 74 63} {1.2684943168952 9 0 66 63} {1.2685260154867 9
0 66 63} {1.2685477516661 9 0 64 63} {1.6363184349957 9 0 64 63}
{1.6363383598236 9 0 73 63} {1.6363859077119 9 0 73 63} {1.6364185119783 9
0 71 63} {1.6366259113347 9 0 71 63} {1.6366530815576 9 0 66 63}
{1.6367001766066 9 0 66 63} {1.6367309695252 9 0 74 63} {1.6367776117386 9
0 74 63} {1.6368097631675 9 0 73 63} {1.8736562061313 9 0 73 63}
{1.8736820178437 9 0 64 63} {1.8737300185676 9 0 64 63} {1.8737617171573 9
0 66 63} {1.8738119820682 9 0 66 63} {1.8738445863346 9 0 71 63}
{1.8738894172002 9 0 71 63} {2.0213331521991 9 0 73 63} {2.0213829642726 9
0 73 63} {2.0214101344936 9 0 74 63} {2.021451795501 9 0 74 63}
{2.1085146945625 9 0 66 63} {2.1085577140784 9 0 66 63} {2.1509378254777 9
0 64 63} {2.1825856994074 9 0 64 63} {2.2213720961827 9 0 73 63}
{2.2673853190245 9 0 73 63} {2.3044518407823 9 0 71 63} {2.3515957976742 9
0 71 63} {2.387618077255 9 0 66 63} {2.4386953765352 9 0 66 63}
{2.4715867409323 9 0 74 63} {2.5225698501126 9 0 74 63} {2.5556355567642 9
0 73 63} {2.6074994339542 9 0 73 63} {2.6385549970582 9 0 64 63}
{2.6925666802526 9 0 64 63} {2.7229207988057 9 0 66 63} {2.7776004166099 9
0 66 63} {2.8049295838427 9 0 71 63} {2.8623878096278 9 0 71 63}
{2.8909908074093 9 0 73 63} {2.9475401892869 9 0 73 63} {2.9730715935348 9
0 74 63} {3.0325182266915 9 0 74 63} {3.0595693519899 9 0 66 63}
{3.1184879771772 9 0 66 63} {3.1458429561208 9 0 64 63} {3.2025567178371 9
0 64 63} {3.2284268441799 9 0 73 63} {3.287489924378 9 0 73 63}
{3.3141271566365 9 0 71 63} {3.3714735316771 9 0 71 63} {3.3980025358869 9
0 66 63} {3.4577444187835 9 0 66 63} {3.484926413983 9 0 74 63}
{3.5425426798902 9 0 74 63} {3.5707888420966 9 0 73 63} {3.6366508173705 9
0 73 63} {3.654834035231 9 0 64 63} {3.712540415705 9 0 64 63}
{3.739727844948 9 0 66 63} {3.7975338495671 9 0 66 63} {3.8253167594994 9 0
71 63} {3.882491056469 9 0 71 63} {3.909039532673 9 0 73 63}
{3.9675098492062 9 0 73 63} {3.9950120001813 9 0 74 63} {4.051609835622 9 0
74 63} {4.0781465380605 9 0 66 63} {4.1374609428076 9 0 66 63}
{4.1554195535045 9 0 64 63} {4.2225367930096 9 0 64 63} {4.2505728388369 9
0 73 63} {4.3077548340352 9 0 73 63} {4.3354114024369 9 0 71 63}
{4.3916216093821 9 0 66 63} {4.8541221754294 9 0 71 63}}

Thanks,
Charles

On Tue, Dec 13, 2011 at 10:57 AM, Heinrich Taube <taube at illinois.edu> wrote:

> im sorry its taking so long to get to this.  you are correct you use a
> hook and push data onto a "recoding list" .
> if you cant get this going i'll send a demo out early next week once the
> end-of-semester madness is over!
> --rick
>
>
>
> On Dec 6, 2011, at 9:17 PM, Landspeedrecord wrote:
>
>  Hi,
>>
>> I have a newbie question...
>>
>> I am looking to record midi input to grace...  I am guessing by the
>> "input hooks" sal tutorial that this is done by defining a midi receiver
>> (call it "myrecorder") and then running it with a send("mp:receive",
>> myrecorder) command.  I was hoping someone already had some code created to
>> do it... If not, having "myrecorder" shove the midi note information into a
>> list isn't difficult and I suppose each note on or note off can be paired
>> with the output of a call to the now() function... Is there a better method?
>>
>> In related matters, is there a way to exchange midi tempo and other
>> information between a DAW and Grace (besides using OSC)?  I am on a PC for
>> what it is worth.
>>
>> Thanks,
>> Charles
>> ______________________________**_________________
>> Cmdist mailing list
>> Cmdist at ccrma.stanford.edu
>> http://ccrma-mail.stanford.**edu/mailman/listinfo/cmdist<http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist>
>>
>
>

-- 

Reality <http://en.wikipedia.org/wiki/Reality> is the original Rorschach.
Verily! So much for all that.
—Malaclypse the Younger, *Principia Discordia*, Pages 00049–00050
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20111216/75b480ed/attachment.html>