home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / INVNOTE.XPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  466 b   |  37 lines
  1. /* 
  2.  
  3. An inverter,
  4. It will play simulaneously a B# for a C#
  5. a B for a D ...
  6.  
  7.  
  8. */
  9.  
  10.  
  11. main ()
  12. {
  13. var i;
  14.  
  15. i=note;
  16. note /= 12; /* no integer is available in XPL,
  17.         the only way to have one is
  18.         to use the note,time or chan 
  19.         variable .. */
  20. note *=12;
  21.  
  22. if (note>i) note-=12;
  23. i -=note;
  24.  
  25. note +=12;
  26. note -= i;
  27.  
  28. outmidi();
  29.  
  30.  
  31. descript ("An inverter");
  32. descript ("Plays B# for a C#");
  33. descript ("      B for a D");
  34. descript ("  etc....");
  35.  
  36. }
  37.