home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / demos / midif / silence.c < prev    next >
Text File  |  1988-09-03  |  876b  |  36 lines
  1. /*********************************************************************
  2. * 
  3. *  silence              01 Aug 88            Copyright (c) 1988 cMIDI 
  4. * 
  5. *  cMIDI function library demonstration.  File 2 of 20.
  6. *
  7. *********************************************************************/
  8. #include <cmidi.h>
  9.  
  10. main()
  11.    {
  12.    struct cm_message m1, m2;
  13.    int channel;
  14.  
  15.    /* Open cmidi */
  16.    CmidiOpen();
  17.  
  18.    /* Create all notes off messages. */
  19.    m1.status = m2.status = MIDI_CONTROL_CHANGE;
  20.    m1.data1 = 0x7b;
  21.    m1.data2 = 0x00;
  22.    m2.data1 = 0x7c;
  23.    m2.data2 = 0x00;
  24.  
  25.    /* On each midi channel */
  26.    for (channel=0; channel<=15; channel++)
  27.       {
  28.       m1.status = m2.status = (m1.status & 0xf0) | channel;
  29.       TxMidiChan( m1 );
  30.       TxMidiChan( m2 );
  31.       }
  32.  
  33.    /* Close cmidi */
  34.    CmidiClose( CLOSE_PRINT_ERRORS | CLOSE_RESET_MPU );
  35.    }
  36.