midiin.c

   1 /*
   2
   3     Ann Hell Ex Machina - Music Software
   4     Copyright (C) 2003/2008 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 "ahxm.h"
  38
  39
  40 /** data **/
  41
  42 #define MIDI_NOTE_OFF   0x80
  43 #define MIDI_NOTE_ON    0x90
  44 #define MIDI_AFTERTOUCH 0xA0
  45 #define MIDI_PARAMETER  0xB0
  46 #define MIDI_PROGRAM    0xC0
  47 #define MIDI_PRESSURE   0xD0
  48 #define MIDI_PITCHWHEEL 0xE0
  49 #define MIDI_SYSEX      0xF0
  50 #define MIDI_EOX        0xf7
  51
  52 /* MIDI device */
  53 char midi_dev[150] = "/dev/midi";
  54 int midi_fd = -1;
  55
  56 /* instrument */
  57 char instrument[150] = "samples/acpiano.pat";
  58
  59 /* the MIDI message */
  60 unsigned char midimsg[128];
  61 int i_msg = 0;
  62
  63 /* use the instruments in ss_ins */
  64 extern struct ss_ins ss_song_ins[256];
  65
  66
  67 /** code **/
  68
  69 void print_note(int note)
  70 {
  71     static int octave = -1;
  72     int o, d, n;
  73     char *notestr[] = {
  74         "c", "c#", "d", "d#", "e", "f",
  75         "f#", "g", "g#", "a", "a#", "b"
  76     };
  77
  78     o = note / 12;
  79     n = note % 12;
  80
  81     if (octave == -1 || (d = (octave - o)) > 1 || d < -1) {
  82         /* first time or octave too far; set it */
  83         octave = o;
  84         printf("o%d ", o);
  85         d = 0;
  86     }
  87
  88     printf("%s%s ", notestr[n], (d == -1 ? "'" : (d == 1 ? "," : "")));
  89
  90     fflush(stdout);
  91 }
  92
  93
  94 void process_MIDI(void)
  95 {
  96     /* strip MIDI channel */
  97     midimsg[0] &= 0xf0;
  98
  99     if (midimsg[0] == MIDI_NOTE_OFF)
 100         ss_ins_note_off(&ss_song_ins[0], midimsg[1]);
 101     else
 102     if (midimsg[0] == MIDI_NOTE_ON) {
 103         ss_ins_note_on(&ss_song_ins[0], midimsg[1],
 104                        ((sample_t) midimsg[2]) / 127.0, midimsg[1]);
 105
 106         print_note(midimsg[1]);
 107     }
 108
 109     i_msg = 0;
 110 }
 111
 112
 113 void midiin(void)
 114 {
 115     unsigned char midibuf[128];
 116     int c, n;
 117     sample_t sample[2];
 118
 119     for (;;) {
 120         /* read from MIDI device */
 121         c = read(midi_fd, midibuf, sizeof(midibuf));
 122
 123         if (c > 0) {
 124             for (n = 0; n < c; n++) {
 125                 /* if 7bit of input is set,
 126                    it's a start of MIDI message */
 127                 if ((midibuf[n] & 0x80) && i_msg)
 128                     process_MIDI();
 129
 130                 midimsg[i_msg++] = midibuf[n];
 131             }
 132         }
 133
 134         ss_output_init_frame(sample);
 135         ss_ins_frame(&ss_song_ins[0], sample);
 136         ss_output_write(sample);
 137     }
 138 }
 139
 140
 141 int main(int argc, char *argv[])
 142 {
 143     char *ext;
 144
 145     ss_interpolation = 1;
 146     ss_frequency = 44100;
 147     ss_master_volume = 1;
 148     ss_nchannels = 2;
 149
 150     libpath_add("~/ahxmlib", 0);
 151
 152     /* default converters */
 153     transconv_add(".flac", ".wav", "flac -d -s -o '%s' '%s'");
 154     transconv_add(".mp3", ".wav", "mpg321 -q -w '%s' '%s'");
 155
 156     if (argc == 0) {
 157         printf("Usage:\n");
 158         printf("midiin [instrument.pat] [midi device]\n");
 159         return 1;
 160     }
 161
 162     if (argc > 1)
 163         strcpy(instrument, argv[1]);
 164
 165     if (argc > 2)
 166         strcpy(midi_dev, argv[2]);
 167
 168     ss_gen_init();
 169
 170     /* loads the instrument or bangs */
 171     ss_ins_init(&ss_song_ins[0]);
 172
 173     if ((ext = strchr(instrument, '.')) == NULL) {
 174         printf("The instrument '%s' doesn't have an extension\n",
 175                instrument);
 176         return 2;
 177     }
 178
 179     if (strcmp(ext, ".pat") == 0 || strcmp(ext, ".PAT") == 0) {
 180         if (ss_load_pat_file(&ss_song_ins[0], instrument) < 0) {
 181             printf("Error loading '%s'\n", instrument);
 182             return 2;
 183         }
 184     }
 185     else {
 186         if (compile_ahs(instrument))
 187             return 2;
 188
 189         if (ss_song_render(0, "default", NULL))
 190             return 4;
 191     }
 192
 193     /* opens the MIDI channel */
 194     if ((midi_fd = open(midi_dev, O_RDONLY | O_NONBLOCK)) == -1) {
 195         printf("Error opening midi device '%s'\n", midi_dev);
 196         return 3;
 197     }
 198
 199     midiin();
 200
 201     ss_output_close();
 202
 203     return 0;
 204 }