home *** CD-ROM | disk | FTP | other *** search
/ PC Musician 2000 / PC_Musician_2000.iso / PCMUSIC / MISC / MIDILANG / METRO.XPL < prev    next >
Encoding:
Text File  |  1996-06-02  |  371 b   |  46 lines
  1. /* metronome */
  2.  
  3. init ()
  4. {
  5. var bea;
  6. bea=0;
  7. }
  8.  
  9.  
  10. beats ()
  11. {
  12.  
  13. if (bea==3)
  14.     {
  15.     bea=0;
  16.     note=36;
  17.     chan=10;
  18.     vel=100;
  19.     outmidi();
  20.     time+=120;
  21.     vel=0;
  22.     outmidi(); /* off */
  23.     }
  24. else
  25.     {
  26.     bea++;
  27.     note=48;
  28.     chan=10;
  29.     vel=100;
  30.     outmidi();
  31.     time+=120;
  32.     vel=0;
  33.     outmidi(); /* off */
  34.     
  35.     }
  36.  
  37. }
  38.  
  39.  
  40. main ()
  41. {
  42. descript (" Metronome in xpl ");
  43.  
  44. }
  45.  
  46.