home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / demos / midif / octaplay.c < prev    next >
Text File  |  1988-09-03  |  1KB  |  45 lines
  1. /*********************************************************************
  2. * 
  3. *  octaplay                01 Aug 88         Copyright (c) 1988 cMIDI
  4. *
  5. *  cMIDI function library demonstration.  File 5 of 20.
  6. *
  7. *********************************************************************/
  8. #include <cmidi.h>
  9. #include <stdio.h>
  10.  
  11. main()
  12.    {
  13.    struct cm_message packet;
  14.  
  15.    /* Open cmidi and enable the queue for channel midi messages. */
  16.    CmidiOpen();
  17.    MpuSwitch( MPU_X_MIDI_THRU_OFF );
  18.    MpuSwitchCommand( MPU_X_CHANNEL_REF_TABLE_A_OFF );
  19.    MpuSwitchCommand( MPU_X_CHANNEL_REF_TABLE_B_OFF );
  20.    MpuSwitchCommand( MPU_X_CHANNEL_REF_TABLE_C_OFF );
  21.    MpuSwitchCommand( MPU_X_CHANNEL_REF_TABLE_D_OFF );
  22.    QueueMidiChan( ON );
  23.    if (ERRORQUEUED()) {CmidiClose(CLOSE_PRINT_ERRORS|CLOSE_RESET_MPU); exit();}
  24.  
  25.    printf("\nPlay the keyboard. Hit any key when finished.\n");
  26.  
  27.    /* Until any keys is hit */
  28.    while (!kbhit())
  29.       {
  30.       /* For each note received */
  31.       if (MIDICHANQUEUED())
  32.          {
  33.          TxMidiChan( packet=RxMidiChan() );
  34.          if (ISNOTEONOROFF(packet))
  35.             {
  36.             packet.data1 += 12;
  37.             TxMidiChan( packet );
  38.             }
  39.          }
  40.       }
  41.  
  42.    /* Close cmidi. */
  43.    CmidiClose( CLOSE_PRINT_ERRORS | CLOSE_RESET_MPU );
  44.    }
  45.