midiin.c

   1 /*
   2
   3     Ann Hell Ex Machina - Music Software
   4     Copyright (C) 2003/2005 Angel Ortega <angel@triptico.com>
   5
   6     midiin.c - Code for testing the libraries
   7
   8     This program is free software; you can redistribute it and/or
   9     modify it under the terms of the GNU General Public License
  10     as published by the Free Software Foundation; either version 2
  11     of the License, or (at your option) any later version.
  12
  13     This program is distributed in the hope that it will be useful,
  14     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16     GNU General Public License for more details.
  17
  18     You should have received a copy of the GNU General Public License
  19     along with this program; if not, write to the Free Software
  20     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  21
  22     http://www.triptico.com
  23
  24 */
  25
  26 #include "config.h"
  27
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <unistd.h>
  31 #include <string.h>
  32 #include <sys/types.h>
  33 #include <sys/stat.h>
  34 #include <fcntl.h>
  35 #include <math.h>
  36
  37 #include "annhell.h"
  38
  39 /*******************
  40         Data
  41 ********************/
  42
  43 #define MIDI_NOTE_OFF   0x80
  44 #define MIDI_NOTE_ON    0x90
  45 #define MIDI_AFTERTOUCH 0xA0
  46 #define MIDI_PARAMETER  0xB0
  47 #define MIDI_PROGRAM    0xC0
  48 #define MIDI_PRESSURE   0xD0
  49 #define MIDI_PITCHWHEEL 0xE0
  50 #define MIDI_SYSEX      0xF0
  51 #define MIDI_EOX        0xf7
  52
  53 /* MIDI device */
  54 char midi_dev[150]="/dev/midi";
  55 int midi_fd=-1;
  56
  57 /* PAT instrument */
  58 char pat_instrument[150]="samples/acpiano.pat";
  59
  60 /* the instrument */
  61 struct ss_ins i;
  62
  63 /* the MIDI message */
  64 unsigned char midimsg[128];
  65 int i_msg=0;
  66
  67 /*******************
  68         Code
  69 ********************/
  70
  71 void print_note(int note)
  72 {
  73         static int octave = -1;
  74         int o, d, n;
  75         char * notestr[] = {
  76                 "c", "c#", "d", "d#", "e", "f",
  77                 "f#", "g", "g#", "a", "a#", "b"
  78         };
  79
  80         o=note / 12;
  81         n=note % 12;
  82
  83         if(octave == -1 || (d=abs(octave - o)) > 1)
  84         {
  85                 /* first time or octave too far; set it */
  86                 octave=o;
  87                 printf("o%d ", o);
  88                 d=0;
  89         }
  90
  91         printf("%s%s ", notestr[n], (d == 1 ? "'" : (d == -1 ? "," : "")));
  92
  93         fflush(stdout);
  94 }
  95
  96
  97 void process_MIDI(void)
  98 {
  99         /* strip MIDI channel */
 100         midimsg[0] &= 0xf0;
 101
 102         if(midimsg[0] == MIDI_NOTE_OFF)
 103                 ss_ins_note_off(&i, midimsg[1]);
 104         else
 105         if(midimsg[0] == MIDI_NOTE_ON)
 106         {
 107                 ss_ins_note_on(&i, midimsg[1],
 108                         ((float)midimsg[2]) / 127.0, midimsg[1]);
 109
 110                 print_note(midimsg[1]);
 111         }
 112
 113         i_msg=0;
 114 }
 115
 116
 117 void midiin(void)
 118 {
 119         unsigned char midibuf[128];
 120         int c, n;
 121         float sample[2];
 122
 123         for(;;)
 124         {
 125                 /* read from MIDI device */
 126                 c=read(midi_fd, midibuf, sizeof(midibuf));
 127
 128                 if(c > 0)
 129                 {
 130                         for(n=0;n < c;n++)
 131                         {
 132                                 /* if 7bit of input is set,
 133                                    it's a start of MIDI message */
 134                                 if((midibuf[n] & 0x80) && i_msg)
 135                                         process_MIDI();
 136
 137                                 midimsg[i_msg++]=midibuf[n];
 138                         }
 139                 }
 140
 141                 ss_output_init_frame(sample);
 142                 ss_ins_frame(&i, sample);
 143                 ss_output_write(sample);
 144         }
 145 }
 146
 147
 148 int main(int argc, char * argv[])
 149 {
 150         ss_interpolation=1;
 151         ss_frequency=44100;
 152         ss_master_volume=1;
 153         ss_nchannels=2;
 154
 155         if(argc == 0)
 156         {
 157                 printf("Usage:\n");
 158                 printf("midiin [instrument.pat] [midi device]\n");
 159                 return(1);
 160         }
 161
 162         if(argc > 1)
 163                 strcpy(pat_instrument, argv[1]);
 164
 165         if(argc > 2)
 166                 strcpy(midi_dev, argv[2]);
 167
 168         /* loads the instrument or bangs */
 169         ss_ins_init(&i);
 170         if(ss_load_pat_file(&i, pat_instrument) < 0)
 171         {
 172                 printf("Error loading '%s'\n", pat_instrument);
 173                 return(2);
 174         }
 175
 176         /* opens the ahxm output driver */
 177         if(ss_output_open("default", NULL) < 0)
 178         {
 179                 printf("Error opening ahxm output driver\n");
 180                 return(4);
 181         }
 182
 183         /* opens the MIDI channel */
 184         if((midi_fd=open(midi_dev, O_RDONLY|O_NONBLOCK))==-1)
 185         {
 186                 printf("Error opening midi device '%s'\n", midi_dev);
 187                 return(3);
 188         }
 189
 190         midiin();
 191
 192         ss_output_close();
 193
 194         return(0);
 195 }