oops  Sorry code is this:

Joe:  Here is the code in the Run of a Thread called PlayLoop:

Dim LastBeat as double

  LastBeat=Microseconds

  while window1.playon = true

    if Microseconds - LastBeat >= 150000 then

      HighHat.play

      LastBeat = Microseconds

    end if

  wend

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to