home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Classic / MultimediaClassic.mdf / app_midi / kbd-midi / kbmidi.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-10  |  29.0 KB  |  822 lines
  1. /*---------------------------------------------------------
  2.    KBMIDI.C -- Keyboard MIDI Player for Multimedia Windows
  3.                (c) Charles Petzold, 1992
  4.   ---------------------------------------------------------*/
  5. // Modified for Ultrasound by Yuri Lee, 1992
  6.  
  7. #include <windows.h>
  8. #include <mmsystem.h>
  9. #include <string.h>
  10. #include <mem.h>
  11.  
  12. typedef unsigned int UINT ;
  13.  
  14. #define min(a,b) (((a) < (b)) ? (a) : (b))
  15. #define max(a,b) (((a) > (b)) ? (a) : (b))
  16.  
  17.           // Defines for Menu IDs
  18.           // --------------------
  19.  
  20. #define IDM_OPEN    0x100
  21. #define IDM_CLOSE   0x101
  22. #define IDM_DEVICE  0x200
  23. #define IDM_CHANNEL 0x300
  24. #define IDM_VOICE   0x400
  25.  
  26.           // Forward declaration of WndProc
  27.           // ------------------------------
  28.  
  29. long FAR PASCAL _export WndProc (HWND, UINT, UINT, LONG);
  30.  
  31.           // Global variables
  32.           // ----------------
  33.  
  34. char     szAppName [] = "KBMidi" ;
  35. HMIDIOUT hMidiOut ;
  36. int      iDevice = MIDIMAPPER, iChannel = 0, iVoice = 0, iVelocity = 64 ;
  37. int      cxCaps, cyChar, xOffset, yOffset ;
  38.  
  39.           // Structures for family and instrument names
  40.           // ------------------------------------------
  41.  
  42. typedef struct
  43.      {
  44.      char * szInst ;
  45.      int    iVoice ;
  46.      }
  47.      INSTRUMENT ;
  48.  
  49. typedef struct
  50.      {
  51.      char       * szFam ;
  52.      INSTRUMENT   inst [8] ;
  53.      }
  54.      FAMILY ;
  55.  
  56. FAMILY fam [16] = { "Piano",
  57.  
  58.                     "Acoustic Grand Piano",        0,
  59.                     "Bright Acoustic Piano",       1,
  60.                     "Electric Grand Piano",        2,
  61.                     "Honky-tonk Piano",            3,
  62.                     "Rhodes Piano",                4,
  63.                     "Chorused Piano",              5,
  64.                     "Harpsichord",                 6,
  65.                     "Clavinet",                    7,
  66.  
  67.                     "Chromatic Percussion",
  68.  
  69.                     "Celesta",                     8,
  70.                     "Glockenspiel",                9,
  71.                     "Music box",                   10,
  72.                     "Vibraphone",                  11,
  73.                     "Marimba",                     12,
  74.                     "Xylophone",                   13,
  75.                     "Tubular Bells",               14,
  76.                     "Dulcimer",                    15,
  77.  
  78.                     "Organ",
  79.  
  80.                     "Hammond Organ",               16,
  81.                     "Percussive Organ",            17,
  82.                     "Rock Organ",                  18,
  83.                     "Church Organ",                19,
  84.                     "Reed Organ",                  20,
  85.                     "Accordian",                   21,
  86.                     "Harmonica",                   22,
  87.                     "Tango Accordian",             23,
  88.  
  89.                     "Guitar",
  90.  
  91.                     "Acoustic Guitar (nylon)",     24,
  92.                     "Acoustic Guitar (steel)",     25,
  93.                     "Electric Guitar (jazz)",      26,
  94.                     "Electric Guitar (clean)",     27,
  95.                     "Electric Guitar (muted)",     28,
  96.                     "Overdriven Guitar",           29,
  97.                     "Distortion Guitar",           30,
  98.                     "Guitar Harmonics",            31,
  99.  
  100.                     "Bass",
  101.  
  102.                     "Acoustic Bass",               32,
  103.                     "Electric Bass (finger)",      33,
  104.                     "Electric Bass (pick)",        34,
  105.                     "Fretless Bass",               35,
  106.                     "Slap Bass 1",                 36,
  107.                     "Slap Bass 2",                 37,
  108.                     "Synth Bass 1",                38,
  109.                     "Synth Bass 2",                39,
  110.  
  111.                     "Strings",
  112.  
  113.                     "Violin",                      40,
  114.                     "Viola",                       41,
  115.                     "Cello",                       42,
  116.                     "Contrabass",                  43,
  117.                     "Tremolo Strings",             44,
  118.                     "Pizzicato Strings",           45,
  119.                     "Orchestral Harp",             46,
  120.                     "Timpani",                     47,
  121.  
  122.                     "Ensemble",
  123.  
  124.                     "String Ensemble 1",           48,
  125.                     "String Ensemble 2",           49,
  126.                     "Synth Strings 1",             50,
  127.                     "Synth Strings 2",             51,
  128.                     "Choir Aahs",                  52,
  129.                     "Voice Oohs",                  53,
  130.                     "Synth Voice",                 54,
  131.                     "Orchestra Hit",               55,
  132.  
  133.                     "Brass",
  134.  
  135.                     "Trumpet",                     56,
  136.                     "Trombone",                    57,
  137.                     "Tuba",                        58,
  138.                     "Muted Trumpet",               59,
  139.                     "French Horn",                 60,
  140.                     "Brass Section",               61,
  141.                     "Synth Brass 1",               62,
  142.                     "Synth Brass 2",               63,
  143.  
  144.                     "Reed",
  145.  
  146.                     "Soprano Sax",                 64,
  147.                     "Alto Sax",                    65,
  148.                     "Tenor Sax",                   66,
  149.                     "Baritone Sax",                67,
  150.                     "Oboe",                        68,
  151.                     "English Horn",                69,
  152.                     "Bassoon",                     70,
  153.                     "Clarinet",                    71,
  154.  
  155.                     "Pipe",
  156.  
  157.                     "Piccolo",                     72,
  158.                     "Flute",                       73,
  159.                     "Recorder",                    74,
  160.                     "Pan Flute",                   75,
  161.                     "Bottle Blow",                 76,
  162.                     "Shakuhachi",                  77,
  163.                     "Whistle",                     78,
  164.                     "Ocarina",                     79,
  165.  
  166.                     "Synth Lead",
  167.  
  168.                     "Lead 1 (square)",             80,
  169.                     "Lead 2 (sawtooth)",           81,
  170.                     "Lead 3 (caliope lead)",       82,
  171.                     "Lead 4 (chiff lead)",         83,
  172.                     "Lead 5 (charang)",            84,
  173.                     "Lead 6 (voice)",              85,
  174.                     "Lead 7 (fifths)",             86,
  175.                     "Lead 8 (brass + lead)",       87,
  176.  
  177.                     "Synth Pad",
  178.  
  179.                     "Pad 1 (new age)",             88,
  180.                     "Pad 2 (warm)",                89,
  181.                     "Pad 3 (polysynth)",           90,
  182.                     "Pad 4 (choir)",               91,
  183.                     "Pad 5 (bowed)",               92,
  184.                     "Pad 6 (metallic)",            93,
  185.                     "Pad 7 (halo)",                94,
  186.                     "Pad 8 (sweep)",               95,
  187.  
  188.                     "Synth Effects",
  189.  
  190.                     "FX 1 (rain)",                 96,
  191.                     "FX 2 (soundtrack)",           97,
  192.                     "FX 3 (crystal)",              98,
  193.                     "FX 4 (atmosphere)",           99,
  194.                     "FX 5 (brightness)",           100,
  195.                     "FX 6 (goblins)",              101,
  196.                     "FX 7 (echoes)",               102,
  197.                     "FX 8 (sci-fi)",               103,
  198.  
  199.                     "Ethnic",
  200.  
  201.                     "Sitar",                       104,
  202.                     "Banjo",                       105,
  203.                     "Shamisen",                    106,
  204.                     "Koto",                        107,
  205.                     "Kalimba",                     108,
  206.                     "Bagpipe",                     109,
  207.                     "Fiddle",                      110,
  208.                     "Shanai",                      111,
  209.  
  210.                     "Percussive",
  211.  
  212.                     "Tinkle Bell",                 112,
  213.                     "Agogo",                       113,
  214.                     "Steel Drums",                 114,
  215.                     "Woodblock",                   115,
  216.                     "Taiko Drum",                  116,
  217.                     "Melodic Tom",                 117,
  218.                     "Synth Drum",                  118,
  219.                     "Reverse Cymbal",              119,
  220.  
  221.                     "Sound Effects",
  222.  
  223.                     "Guitar Fret Noise",           120,
  224.                     "Breath Noise",                121,
  225.                     "Seashore",                    122,
  226.                     "Bird Tweet",                  123,
  227.                     "Telephone Ring",              124,
  228.                     "Helicopter",                  125,
  229.                     "Applause",                    126,
  230.                     "Gunshot",                     127 } ;
  231.  
  232.           // Data for translating scan codes to octaves and notes
  233.           // ----------------------------------------------------
  234.  
  235. #define NUMSCANS    (sizeof key / sizeof key[0])
  236.  
  237. struct
  238.      {
  239.      int    iOctave ;
  240.      int    iNote ;
  241.      int    yPos ;
  242.      int    xPos ;
  243.      char * szKey ;
  244.      }
  245.      key [] =
  246.      {
  247.                               // Scan  Char  Oct  Note
  248.                               // ----  ----  ---  ----
  249.      -1, -1, -1, -1, NULL,    //   0   None
  250.      -1, -1, -1, -1, NULL,    //   1   Esc
  251.      -1, -1,  0,  0, "",      //   2     1
  252.       5,  1,  0,  2, "C#",    //   3     2    5    C#
  253.       5,  3,  0,  4, "D#",    //   4     3    5    D#
  254.      -1, -1,  0,  6, "",      //   5     4
  255.       5,  6,  0,  8, "F#",    //   6     5    5    F#
  256.       5,  8,  0, 10, "G#",    //   7     6    5    G#
  257.       5, 10,  0, 12, "A#",    //   8     7    5    A#
  258.      -1, -1,  0, 14, "",      //   9     8
  259.       6,  1,  0, 16, "C#",    //  10     9    6    C#
  260.       6,  3,  0, 18, "D#",    //  11     0    6    D#
  261.      -1, -1,  0, 20, "",      //  12     -
  262.       6,  6,  0, 22, "F#",    //  13     =    6    F#
  263.      -1, -1, -1, -1, NULL,    //  14    Back
  264.  
  265.      -1, -1, -1, -1, NULL,    //  15    Tab
  266.       5,  0,  1,  1, "C",     //  16     q    5    C
  267.       5,  2,  1,  3, "D",     //  17     w    5    D
  268.       5,  4,  1,  5, "E",     //  18     e    5    E
  269.       5,  5,  1,  7, "F",     //  19     r    5    F
  270.       5,  7,  1,  9, "G",     //  20     t    5    G
  271.       5,  9,  1, 11, "A",     //  21     y    5    A
  272.       5, 11,  1, 13, "B",     //  22     u    5    B
  273.       6,  0,  1, 15, "C",     //  23     i    6    C
  274.       6,  2,  1, 17, "D",     //  24     o    6    D
  275.       6,  4,  1, 19, "E",     //  25     p    6    E
  276.       6,  5,  1, 21, "F",     //  26     [    6    F
  277.       6,  7,  1, 23, "G",     //  27     ]    6    G
  278.      -1, -1, -1, -1, NULL,    //  28    Ent
  279.  
  280.      -1, -1, -1, -1, NULL,    //  29    Ctrl
  281.       3,  8,  2,  2, "G#",    //  30     a    3    G#
  282.       3, 10,  2,  4, "A#",    //  31     s    3    A#
  283.      -1, -1,  2,  6, "",      //  32     d
  284.       4,  1,  2,  8, "C#",    //  33     f    4    C#
  285.       4,  3,  2, 10, "D#",    //  34     g    4    D#
  286.      -1, -1,  2, 12, "",      //  35     h
  287.       4,  6,  2, 14, "F#",    //  36     j    4    F#
  288.       4,  8,  2, 16, "G#",    //  37     k    4    G#
  289.       4, 10,  2, 18, "A#",    //  38     l    4    A#
  290.      -1, -1,  2, 20, "",      //  39     ;
  291.       5,  1,  2, 22, "C#",    //  40     '    5    C#
  292.      -1, -1, -1, -1, NULL,    //  41     `
  293.  
  294.      -1, -1, -1, -1, NULL,    //  42    Shift
  295.      -1, -1, -1, -1, NULL,    //  43     \           (not line continuation)
  296.       3,  9,  3,  3, "A",     //  44     z    3    A
  297.       3, 11,  3,  5, "B",     //  45     x    3    B
  298.       4,  0,  3,  7, "C",     //  46     c    4    C
  299.       4,  2,  3,  9, "D",     //  47     v    4    D
  300.       4,  4,  3, 11, "E",     //  48     b    4    E
  301.       4,  5,  3, 13, "F",     //  49     n    4    F
  302.       4,  7,  3, 15, "G",     //  50     m    4    G
  303.       4,  9,  3, 17, "A",     //  51     ,    4    A
  304.       4, 11,  3, 19, "B",     //  52     .    4    B
  305.       5,  0,  3, 21, "C"      //  53     /    5    C
  306.      } ;
  307.  
  308. // two array maps for melodic patches and percussion key patches
  309.  
  310. KEYARRAY     PercKeys;
  311. PATCHARRAY     Patches;
  312.  
  313. void InitCacheArrays ( void )
  314. {
  315.     int i;
  316.  
  317.     for(i=0;i<128;i++) {
  318.         Patches[i] = 0x0000;
  319.                 PercKeys[i] = 0x0000;
  320.     }
  321. };
  322.  
  323. void SetPatchArray ( int iVoice )
  324. {
  325.     // clean up the array 
  326.     setmem( (WORD *) Patches, sizeof(WORD)*128, 0x0000 );
  327.         Patches[iVoice] = 0x7DFF; // set all channels except 10 & 16 
  328. }
  329.  
  330. void SetKeyArray ()
  331. {
  332.     int i;
  333.  
  334.     for(i=35;i<82;i++) {
  335.         PercKeys[i] = 0x8200; // for Channel 10 & 16
  336.     }
  337. }
  338.  
  339.  
  340.           // Standard WinMain
  341.       // ----------------
  342.           
  343. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
  344.             LPSTR lpszCmdLine, int nCmdShow)
  345.      {
  346.      MSG      msg;
  347.      HWND     hwnd ;
  348.      WNDCLASS wndclass ;
  349.  
  350.      if (!hPrevInstance) 
  351.           {
  352.           wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
  353.           wndclass.lpfnWndProc   = WndProc ;
  354.           wndclass.cbClsExtra    = 0 ;
  355.           wndclass.cbWndExtra    = 0 ;
  356.           wndclass.hInstance     = hInstance ;
  357.           wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
  358.           wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
  359.           wndclass.hbrBackground = GetStockObject (WHITE_BRUSH) ;
  360.           wndclass.lpszMenuName  = NULL ;
  361.           wndclass.lpszClassName = szAppName ;
  362.  
  363.           RegisterClass (&wndclass) ;
  364.           }
  365.  
  366.      hwnd = CreateWindow (szAppName, "Keyboard MIDI Player",
  367.                           WS_OVERLAPPEDWINDOW | WS_HSCROLL | WS_VSCROLL,
  368.               CW_USEDEFAULT, CW_USEDEFAULT,
  369.                           CW_USEDEFAULT, CW_USEDEFAULT,
  370.                           NULL, NULL, hInstance, NULL) ;
  371.  
  372.      ShowWindow (hwnd, nCmdShow) ;
  373.      UpdateWindow (hwnd); 
  374.  
  375.      // Initialize PercKey key array
  376.      SetKeyArray();
  377.  
  378.      while (GetMessage (&msg, NULL, 0, 0))
  379.           {
  380.           TranslateMessage (&msg) ;
  381.           DispatchMessage (&msg) ;
  382.           }
  383.      return msg.wParam ;
  384.      }
  385.  
  386.           // Create the program's menu (called from WndProc, WM_CREATE)
  387.           // ----------------------------------------------------------
  388.  
  389. HMENU CreateTheMenu (int iNumDevs)
  390.      {
  391.      char        szBuffer [32] ;
  392.      HMENU       hMenu, hMenuPopup, hMenuSubPopup ;
  393.      int         i, iFam, iIns ;
  394.      MIDIOUTCAPS moc ;
  395.  
  396.      hMenu = CreateMenu () ;
  397.  
  398.                // Create "On/Off" popup menu
  399.  
  400.      hMenuPopup = CreateMenu () ;
  401.  
  402.      AppendMenu (hMenuPopup, MF_STRING             , IDM_OPEN,  "&Open") ;
  403.      AppendMenu (hMenuPopup, MF_STRING | MF_CHECKED, IDM_CLOSE, "&Closed") ;
  404.  
  405.      AppendMenu (hMenu, MF_STRING | MF_POPUP, hMenuPopup, "&Status") ;
  406.  
  407.                // Create "Device" popup menu
  408.  
  409.      hMenuPopup = CreateMenu () ;
  410.  
  411.                          // Put MIDI Mapper on menu if it's installed
  412.  
  413.      if (!midiOutGetDevCaps (MIDIMAPPER, &moc, sizeof (moc)))
  414.           AppendMenu (hMenuPopup, MF_STRING, IDM_DEVICE + MIDIMAPPER,
  415.                       moc.szPname) ;
  416.      else
  417.           iDevice = 0 ;
  418.  
  419.                          // Add the rest of the MIDI devices
  420.  
  421.      for (i = 0 ; i < iNumDevs ; i++)
  422.           {
  423.           midiOutGetDevCaps (i, &moc, sizeof (moc)) ;
  424.           AppendMenu (hMenuPopup, MF_STRING, IDM_DEVICE + i, moc.szPname) ;
  425.           }
  426.  
  427.      CheckMenuItem (hMenuPopup, 0, MF_BYPOSITION | MF_CHECKED) ;
  428.      AppendMenu (hMenu, MF_STRING | MF_POPUP, hMenuPopup, "&Device") ;
  429.  
  430.                // Create "Channel" popup menu
  431.  
  432.      hMenuPopup = CreateMenu () ;
  433.  
  434.      for (i = 0 ; i < 16 ; i++)
  435.           {
  436.           wsprintf (szBuffer, "%d", i + 1) ;
  437.           AppendMenu (hMenuPopup,
  438.                       MF_STRING | (i ? MF_UNCHECKED : MF_CHECKED),
  439.                       IDM_CHANNEL + i, szBuffer) ;
  440.           }
  441.  
  442.      AppendMenu (hMenu, MF_STRING | MF_POPUP, hMenuPopup, "&Channel") ;
  443.  
  444.                // Create "Voice" popup menu
  445.  
  446.      hMenuPopup = CreateMenu () ;
  447.  
  448.      for (iFam = 0 ; iFam < 16 ; iFam++)
  449.           {
  450.           hMenuSubPopup = CreateMenu () ;
  451.  
  452.           for (iIns = 0 ; iIns < 8 ; iIns++)
  453.                {
  454.                wsprintf (szBuffer, "&%d.\t%s", iIns + 1,
  455.                          (LPSTR) fam[iFam].inst[iIns].szInst) ;
  456.                AppendMenu (hMenuSubPopup,
  457.                            MF_STRING | (fam[iFam].inst[iIns].iVoice ?
  458.                                         MF_UNCHECKED : MF_CHECKED),
  459.                            fam[iFam].inst[iIns].iVoice + IDM_VOICE,
  460.                            szBuffer) ;
  461.                }
  462.  
  463.           wsprintf (szBuffer, "&%c.\t%s", 'A' + iFam,
  464.                     (LPSTR) fam[iFam].szFam) ;
  465.           AppendMenu (hMenuPopup, MF_STRING | MF_POPUP, hMenuSubPopup,
  466.                       szBuffer) ;
  467.           }
  468.  
  469.      AppendMenu (hMenu, MF_STRING | MF_POPUP, hMenuPopup, "&Voice") ;
  470.  
  471.      return hMenu ;
  472.      }
  473.  
  474.           // Routines for simplifying MIDI output
  475.           // ------------------------------------
  476.  
  477. DWORD MidiOutMessage (HMIDIOUT hMidi, int iStatus, int iChannel,
  478.                                       int iData1,  int iData2)
  479.      {
  480.      DWORD dwMessage ;
  481.  
  482.      dwMessage = iStatus | iChannel | (iData1 << 8) | ((long) iData2 << 16) ;
  483.  
  484.      return midiOutShortMsg (hMidi, dwMessage) ;
  485.      }
  486.  
  487. DWORD MidiNoteOff (HMIDIOUT hMidi, int iChannel, int iOct, int iNote, int iVel)
  488.      {
  489.      return MidiOutMessage (hMidi, 0x080, iChannel, 12 * iOct + iNote, iVel) ;
  490.      }
  491.  
  492. DWORD MidiNoteOn (HMIDIOUT hMidi, int iChannel, int iOct, int iNote, int iVel)
  493.      {
  494.      return MidiOutMessage (hMidi, 0x090, iChannel, 12 * iOct + iNote, iVel) ;
  495.      }
  496.  
  497. DWORD MidiSetPatch (HMIDIOUT hMidi, int iChannel, int iVoice)
  498.      {
  499.      // Lines added for patche caching - this part done by Yuri
  500.      if( (iChannel == 9) || (iChannel == 15) ) {
  501.     // perc Channel
  502.         midiOutCacheDrumPatches( hMidi, 0, PercKeys, MIDI_CACHE_BESTFIT );
  503.      } else {
  504.     // Melody Channel
  505.         SetPatchArray( iVoice );
  506.     midiOutCachePatches( hMidi, 0, Patches, MIDI_CACHE_ALL );
  507.      };
  508.  
  509.      return MidiOutMessage (hMidi, 0x0C0, iChannel, iVoice, 0) ;
  510.      }
  511.  
  512. DWORD MidiPitchBend (HMIDIOUT hMidi, int iChannel, int iBend)
  513.      {
  514.      return MidiOutMessage (hMidi, 0x0E0, iChannel, iBend & 0x7F, iBend >> 7) ;
  515.      }
  516.  
  517.           // Draw a single key on window
  518.           // ---------------------------
  519.  
  520. VOID DrawKey (HDC hdc, int iScanCode, BOOL fInvert)
  521.      {
  522.      RECT rc ;
  523.  
  524.      rc.left   = 3 * cxCaps * key[iScanCode].xPos / 2 + xOffset ;
  525.      rc.top    = 3 * cyChar * key[iScanCode].yPos / 2 + yOffset ;
  526.      rc.right  = rc.left + 3 * cxCaps ;
  527.      rc.bottom = rc.top  + 3 * cyChar / 2 ;
  528.  
  529.      SetTextColor (hdc, fInvert ? 0x00FFFFFFul : 0x00000000ul) ;
  530.      SetBkColor   (hdc, fInvert ? 0x00000000ul : 0x00FFFFFFul) ;
  531.  
  532.      FillRect (hdc, &rc, GetStockObject (fInvert ? BLACK_BRUSH : WHITE_BRUSH)) ;
  533.  
  534.      DrawText (hdc, key[iScanCode].szKey, -1, &rc,
  535.                DT_SINGLELINE | DT_CENTER | DT_VCENTER) ;
  536.  
  537.      FrameRect (hdc, &rc, GetStockObject (BLACK_BRUSH)) ;
  538.      }
  539.  
  540.           // Process a Key Up or Key Down message
  541.           // ------------------------------------
  542.  
  543. VOID ProcessKey (HDC hdc, WORD message, LONG lParam)
  544.      {
  545.      int iScanCode, iOctave, iNote ;
  546.  
  547.      iScanCode = 0x0FF & HIWORD (lParam) ;
  548.  
  549.      if (iScanCode >= NUMSCANS)                       // No scan codes over 53
  550.           return ;
  551.  
  552.      if ((iOctave = key[iScanCode].iOctave) == -1)    // Non-music key
  553.           return ;
  554.  
  555.      if (GetKeyState (VK_SHIFT) < 0)
  556.           iOctave += 0x20000000 & lParam ? 2 : 1 ;
  557.  
  558.      if (GetKeyState (VK_CONTROL) < 0)
  559.           iOctave -= 0x20000000 & lParam ? 2 : 1 ;
  560.  
  561.      iNote = key[iScanCode].iNote ;
  562.  
  563.      if (message == WM_KEYUP)                           // For key up
  564.           {
  565.           MidiNoteOff (hMidiOut, iChannel, iOctave, iNote, 0) ;   // Note off
  566.           DrawKey (hdc, iScanCode, FALSE) ;
  567.           return ;
  568.           }
  569.  
  570.      if (0x40000000 & lParam)                          // ignore typematics
  571.           return ;
  572.  
  573.      MidiNoteOn (hMidiOut, iChannel, iOctave, iNote, iVelocity) ; // Note on
  574.      DrawKey (hdc, iScanCode, TRUE) ;                 // Draw the inverted key
  575.      }
  576.  
  577.           // Window Procedure
  578.           // ----------------
  579.  
  580. long FAR PASCAL _export WndProc (HWND hwnd, UINT message, UINT wParam,
  581.                                                           LONG lParam)
  582.      {
  583.      static BOOL bOpened = FALSE ;
  584.      char        szBuffer [16] ;
  585.      DWORD       dwExtent ;
  586.      HDC         hdc ;
  587.      HMENU       hMenu ;
  588.      MIDIOUTCAPS moc ;
  589.      PAINTSTRUCT ps ;
  590.      short       i, iNumDevs, iPitchBend, cxClient, cyClient ;
  591.  
  592.      switch (message)
  593.           {
  594.           case WM_CREATE:
  595.                          // Get size of capital letters in system font
  596.  
  597.                hdc = GetDC (hwnd) ;
  598.  
  599.                dwExtent = GetTextExtent (hdc, "M", 1) ;
  600.                cxCaps   = LOWORD (dwExtent) ;
  601.                cyChar   = HIWORD (dwExtent) ;
  602.  
  603.                ReleaseDC (hwnd, hdc) ;
  604.  
  605.                          // Initialize "Volume" scroll bar
  606.  
  607.                SetScrollRange (hwnd, SB_HORZ, 1, 127, FALSE) ;
  608.                SetScrollPos   (hwnd, SB_HORZ, iVelocity, TRUE) ;
  609.  
  610.                          // Initialize "Pitch Bend" scroll bar
  611.  
  612.                SetScrollRange (hwnd, SB_VERT, 0, 16383, FALSE) ;
  613.                SetScrollPos   (hwnd, SB_VERT, 8192, TRUE) ;
  614.  
  615.                          // Get number of MIDI output devices and set up menu
  616.  
  617.                if (0 == (iNumDevs = midiOutGetNumDevs ()))
  618.                     {
  619.                     MessageBeep (MB_ICONSTOP) ;
  620.                     MessageBox (hwnd, "No MIDI output devices",
  621.                                 szAppName, MB_OK | MB_ICONSTOP) ;
  622.                     DestroyWindow (hwnd) ;
  623.                     }
  624.                else
  625.                     {
  626.                     SetMenu (hwnd, CreateTheMenu (iNumDevs)) ;
  627.                     }
  628.  
  629.                return 0 ;
  630.  
  631.           case WM_SIZE:
  632.                cxClient = LOWORD (lParam) ;
  633.                cyClient = HIWORD (lParam) ;
  634.  
  635.                xOffset = (cxClient - 25 * 3 * cxCaps / 2) / 2 ;
  636.                yOffset = (cyClient - 11 * cyChar) / 2 + 5 * cyChar ;
  637.                return 0 ;
  638.  
  639.           case WM_COMMAND:
  640.                hMenu = GetMenu (hwnd) ;
  641.  
  642.                          // "Open" menu command
  643.  
  644.                if (wParam == IDM_OPEN && !bOpened)
  645.                     {
  646.                     if (midiOutOpen (&hMidiOut, iDevice, NULL, 0L, 0L))
  647.                          {
  648.                          MessageBeep (MB_ICONEXCLAMATION) ;
  649.                          MessageBox (hwnd, "Cannot open MIDI device",
  650.                                      szAppName, MB_OK | MB_ICONEXCLAMATION) ;
  651.                          }
  652.                     else
  653.                          {
  654.                          CheckMenuItem (hMenu, IDM_OPEN,  MF_CHECKED) ;
  655.                          CheckMenuItem (hMenu, IDM_CLOSE, MF_UNCHECKED) ;
  656.  
  657.                          MidiSetPatch (hMidiOut, iChannel, iVoice) ;
  658.                          bOpened = TRUE ;
  659.                          }
  660.                     }
  661.  
  662.                          // "Close" menu command
  663.  
  664.                else if (wParam == IDM_CLOSE && bOpened)
  665.                     {
  666.                     CheckMenuItem (hMenu, IDM_OPEN,  MF_UNCHECKED) ;
  667.                     CheckMenuItem (hMenu, IDM_CLOSE, MF_CHECKED) ;
  668.  
  669.                               // Turn all keys off and close device
  670.  
  671.                     for (i = 0 ; i < 16 ; i++)
  672.                          MidiOutMessage (hMidiOut, 0xB0, i, 123, 0) ;
  673.  
  674.                     midiOutClose (hMidiOut) ;
  675.                     bOpened = FALSE ;
  676.                     }
  677.  
  678.                          // Change MIDI "Device" menu command
  679.  
  680.                else if (wParam >= IDM_DEVICE - 1 && wParam < IDM_CHANNEL)
  681.                     {
  682.                     CheckMenuItem (hMenu, IDM_DEVICE + iDevice, MF_UNCHECKED) ;
  683.                     iDevice = wParam - IDM_DEVICE ;
  684.                     CheckMenuItem (hMenu, IDM_DEVICE + iDevice, MF_CHECKED) ;
  685.  
  686.                               // Close and reopen MIDI device
  687.  
  688.                     if (bOpened)
  689.                          {
  690.                          SendMessage (hwnd, WM_COMMAND, IDM_CLOSE, 0L) ;
  691.                          SendMessage (hwnd, WM_COMMAND, IDM_OPEN,  0L) ;
  692.                          }
  693.                     }
  694.  
  695.                          // Change MIDI "Channel" menu command
  696.  
  697.                else if (wParam >= IDM_CHANNEL && wParam < IDM_VOICE)
  698.                     {
  699.                     CheckMenuItem (hMenu, IDM_CHANNEL + iChannel, MF_UNCHECKED);
  700.                     iChannel = wParam - IDM_CHANNEL ;
  701.                     CheckMenuItem (hMenu, IDM_CHANNEL + iChannel, MF_CHECKED) ;
  702.  
  703.                     if (bOpened)
  704.                          MidiSetPatch (hMidiOut, iChannel, iVoice) ;
  705.                     }
  706.  
  707.                          // Change MIDI "Voice" menu command
  708.  
  709.                else if (wParam >= IDM_VOICE)
  710.                     {
  711.                     CheckMenuItem (hMenu, IDM_VOICE + iVoice, MF_UNCHECKED) ;
  712.                     iVoice = wParam - IDM_VOICE ;
  713.                     CheckMenuItem (hMenu, IDM_VOICE + iVoice, MF_CHECKED) ;
  714.  
  715.                     if (bOpened)
  716.                          MidiSetPatch (hMidiOut, iChannel, iVoice) ;
  717.                     }
  718.  
  719.                InvalidateRect (hwnd, NULL, TRUE) ;
  720.                return 0 ;
  721.  
  722.                     // Process a Key Up or Key Down message
  723.  
  724.           case WM_KEYUP:
  725.           case WM_KEYDOWN:
  726.                hdc = GetDC (hwnd) ;
  727.  
  728.                if (bOpened)
  729.                     ProcessKey (hdc, message, lParam) ;
  730.  
  731.                ReleaseDC (hwnd, hdc) ;
  732.                return 0 ;
  733.  
  734.                     // For Escape, turn off all notes and repaint
  735.  
  736.           case WM_CHAR:
  737.                if (bOpened && wParam == 27)
  738.                     {
  739.                     for (i = 0 ; i < 16 ; i++)
  740.                          MidiOutMessage (hMidiOut, 0xB0, i, 123, 0) ;
  741.  
  742.                     InvalidateRect (hwnd, NULL, TRUE) ;
  743.                     }
  744.                return 0 ;
  745.  
  746.                     // Horizontal scroll: Velocity
  747.  
  748.           case WM_HSCROLL:
  749.                switch (wParam)
  750.                     {
  751.                     case SB_LINEUP:         iVelocity -= 1 ;  break ;
  752.                     case SB_LINEDOWN:       iVelocity += 1 ;  break ;
  753.                     case SB_PAGEUP:         iVelocity -= 8 ;  break ;
  754.                     case SB_PAGEDOWN:       iVelocity += 8 ;  break ;
  755.                     case SB_THUMBPOSITION:
  756.                          iVelocity = LOWORD (lParam) ;
  757.                          break ;
  758.  
  759.                     default:
  760.                          return 0 ;
  761.                     }
  762.  
  763.                iVelocity = max (1, min (iVelocity, 127)) ;
  764.                SetScrollPos (hwnd, SB_HORZ, iVelocity, TRUE) ;
  765.                return 0 ;
  766.  
  767.             // Vertical scroll:  Pitch Bend
  768.           case WM_VSCROLL:
  769.                switch (wParam)
  770.                     {
  771.                     case SB_THUMBTRACK:
  772.                          iPitchBend = 16383 - LOWORD (lParam) ;
  773.                          break ;
  774.  
  775.                     case SB_THUMBPOSITION:
  776.                          iPitchBend = 8191 ;
  777.                          break ;
  778.  
  779.                     default:
  780.                          return 0 ;
  781.                     }
  782.  
  783.                iPitchBend = max (0, min (iPitchBend, 16383)) ;
  784.                SetScrollPos (hwnd, SB_VERT, 16383 - iPitchBend, TRUE) ;
  785.  
  786.                if (bOpened)
  787.                     MidiPitchBend (hMidiOut, iChannel, iPitchBend) ;
  788.            return 0 ;
  789.  
  790.  
  791.           case WM_PAINT:
  792.                hdc = BeginPaint (hwnd, &ps) ;
  793.  
  794.                for (i = 0 ; i < NUMSCANS ; i++)
  795.                     if (key[i].xPos != -1)
  796.                          DrawKey (hdc, i, FALSE) ;
  797.  
  798.                midiOutGetDevCaps (iDevice, &moc, sizeof (MIDIOUTCAPS)) ;
  799.                wsprintf (szBuffer, "Channel %d", iChannel + 1) ;
  800.  
  801.                TextOut (hdc, cxCaps, 1 * cyChar, bOpened ? "Open" : "Closed",
  802.                                                  bOpened ? 4 : 6) ;
  803.                TextOut (hdc, cxCaps, 2 * cyChar, moc.szPname,
  804.                                                  strlen (moc.szPname)) ;
  805.                TextOut (hdc, cxCaps, 3 * cyChar, (LPSTR) szBuffer,
  806.                                                  strlen (szBuffer)) ;
  807.                TextOut (hdc, cxCaps, 4 * cyChar,
  808.                         (LPSTR) fam[iVoice / 8].inst[iVoice % 8].szInst,
  809.                         strlen (fam[iVoice / 8].inst[iVoice % 8].szInst)) ;
  810.  
  811.                EndPaint (hwnd, &ps) ;
  812.                return 0 ;
  813.  
  814.           case WM_DESTROY :
  815.                SendMessage (hwnd, WM_COMMAND, IDM_CLOSE, 0L) ;
  816.  
  817.                PostQuitMessage (0) ;
  818.                return 0 ;
  819.           }
  820.      return DefWindowProc (hwnd, message, wParam, lParam) ;
  821.      }
  822.