wav.c

   1 /*
   2
   3     Ann Hell Ex Machina - Music Software
   4     Copyright (C) 2003/2004 Angel Ortega <angel@triptico.com>
   5
   6     wav.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 <string.h>
  30 #include <stdlib.h>
  31 #include <math.h>
  32
  33 #include "core.h"
  34 #include "output.h"
  35 #include "ss_gen.h"
  36 #include "effect.h"
  37 #include "ss_ins.h"
  38 #include "input.h"
  39 #include "event.h"
  40 #include "preprocessor.h"
  41 #include "compiler.h"
  42
  43 /*******************
  44         Data
  45 ********************/
  46
  47 /*******************
  48         Code
  49 ********************/
  50
  51 int main(void)
  52 {
  53         float * wave[CHANNELS];
  54         float output[CHANNELS];
  55         float vol[CHANNELS];
  56         int s_rate;
  57         double size;
  58         int n_channels;
  59         FILE * f;
  60         int n, m;
  61         struct effect e[16];
  62         struct ss_ins i[16];
  63         int goon;
  64         int frame;
  65         struct ss_wave w;
  66
  67         union event1 e1;
  68         union event2 * e2;
  69
  70         event1_clear();
  71
  72         e1.note.type=EV1_NOTE;
  73         e1.note.time=0;
  74         e1.note.trk_id=1;
  75         e1.note.note=60;
  76         e1.note.len=1.0;
  77         e1.note.vol=1.0;
  78
  79         new_event1(&e1);
  80
  81         e1.note.note=63;
  82         new_event1(&e1);
  83
  84         e1.note.note=67;
  85         new_event1(&e1);
  86
  87         e1.note.type=EV1_NOTE;
  88         e1.note.time=1.0;
  89         e1.note.note=60;
  90
  91         new_event1(&e1);
  92
  93         e1.note.note=65;
  94         new_event1(&e1);
  95
  96         e1.note.note=68;
  97         new_event1(&e1);
  98
  99         e1.note.type=EV1_NOTE;
 100         e1.note.time=2.0;
 101         e1.note.note=60;
 102
 103         new_event1(&e1);
 104
 105         e1.note.note=63;
 106         new_event1(&e1);
 107
 108         e1.note.note=67;
 109         new_event1(&e1);
 110
 111         e1.note.type=EV1_NOTE;
 112         e1.note.time=3.0;
 113         e1.note.note=60;
 114
 115         new_event1(&e1);
 116
 117         e1.note.note=65;
 118         new_event1(&e1);
 119
 120         e1.note.note=68;
 121         new_event1(&e1);
 122
 123         e1.tempo.type=EV1_TEMPO;
 124         e1.tempo.time=0;
 125         e1.tempo.trk_id=-1;
 126         e1.tempo.tempo=60.0;
 127
 128         new_event1(&e1);
 129
 130         e1.tempo.time=2;
 131         e1.tempo.tempo=120.0;
 132         new_event1(&e1);
 133
 134         e1.measure.type=EV1_MEASURE;
 135         e1.measure.time=0;
 136         e1.measure.trk_id=-1;
 137         e1.measure.num=4;
 138         e1.measure.den=4;
 139
 140         new_event1(&e1);
 141
 142 /*
 143         {
 144                 char * ptr=preprocess("%examples/example1.ahml");
 145                 printf("%s\n",ptr);
 146                 compile("x16-2~0.8,8-4~0.6 c8d#''4/3*6~0.5 x o2e4~0.8o++f");
 147         }
 148 */
 149         _interpolation=3;
 150         _frequency=44100;
 151         _master_volume=0.5;
 152         _n_channels=4;
 153
 154         ss_ins_init(&i[1], 1);
 155         load_pat_file(&i[1], "samples/acpiano.pat");
 156         ss_ins_init(&i[2], 2);
 157 /*      load_pat_file(&i[2], "samples/synstr1.pat"); */
 158         load_pat_file(&i[2], "samples/flute.pat");
 159
 160 /*      n_channels=load_wav_file("samples/as-al017.wav", &size, wave); */
 161 /*      n_channels=load_wav_file("samples/amen1.wav", &size, &s_rate, wave);
 162         printf("n_channels: %d\n", n_channels); */
 163
 164         load_wav_file(&w, "samples/amen1.wav");
 165
 166         printf("tempo: %lf\n", tempo_from_wave(&w, 60, 4));
 167
 168         ss_ins_init(&i[0], 0);
 169 /*      ss_ins_add_layer(&i[0],
 170                 note_frequency(36), note_frequency(0), note_frequency(127),
 171                 n_channels, wave, size, s_rate, 0, size); */
 172         ss_ins_add_layer(&i[0], &w);
 173
 174 /*
 175         f=popen("sox -V -t raw -s -r 44100 -c 2 -w - qq.wav","w");
 176 */
 177
 178         if(output_open("default", NULL) < 0)
 179         {
 180                 printf("Error: can't init driver\n");
 181                 return(1);
 182         }
 183
 184         /* 'reverb' with 3 allpass */
 185         /*
 186         init_delay(&e, (int)TIME2SAMPLES(20.0 / 1000.0), 0.9, 0, 0, 0, 0);
 187         init_delay(&e2, (int)TIME2SAMPLES(36.0 / 1000.0), 0.9, 0, 0, 0, 0);
 188         init_delay(&e3, (int)TIME2SAMPLES(39.0 / 1000.0), 0.9, 0, 0, 0, 0);
 189         */
 190
 191 /*      init_delay(&e, 44100, 0.9, 150, 0.1, 3.14 / 2, 0); */
 192
 193         /* wobble */
 194         /*
 195         init_delay(&e4, 1, 1, 1, 4, 3.14 / 2, 0);
 196         */
 197
 198         /* wobble */
 199         effect_wobble(&e[0], 0.5, 0);
 200         effect_wobble(&e[1], 0.5, 0.25);
 201
 202         /* delay */
 203         effect_delay(&e[2], 300);
 204
 205         /* allpasses in serial (reverb) */
 206         effect_allpass(&e[3], (int)TIME2SAMPLES(20.0 / 1000.0), 0.9);
 207         effect_allpass(&e[4], (int)TIME2SAMPLES(36.0 / 1000.0), 0.9);
 208         effect_allpass(&e[5], (int)TIME2SAMPLES(39.0 / 1000.0), 0.9);
 209
 210         effect_allpass(&e[6], (int)TIME2SAMPLES(20.0 / 1000.0), 0.9);
 211         effect_allpass(&e[7], (int)TIME2SAMPLES(36.0 / 1000.0), 0.9);
 212         effect_allpass(&e[8], (int)TIME2SAMPLES(39.0 / 1000.0), 0.9);
 213
 214         /* flanger */
 215         effect_flanger(&e[9], 44100, 0.9, 150, 0.1, 0.25);
 216         effect_flanger(&e[10], 44100, 0.9, 150, 0.1, 0);
 217
 218         /* fader */
 219         effect_fader(&e[11], 44100 * 6, 0, 1);
 220 #ifdef QQ
 221         /* events */
 222         event_clear();
 223
 224         vol[0]=1.0; vol[1]=1.0; vol[2]=0.0; vol[3]=0.0;
 225         ss_ins_set_channel_map(&i[0], 4, vol);
 226
 227         /* drum loop */
 228         event_note_on(0, 0, 36, 1);
 229         event_note_off(441000, 0, 36);
 230
 231         /* piano */
 232         vol[0]=0.0; vol[1]=0.0; vol[2]=1.0; vol[3]=1.0;
 233         ss_ins_set_channel_map(&i[1], 4, vol);
 234
 235         event_note_on(44100, 1, 64, 1);
 236         event_note_on(44100, 1, 67, 1);
 237         event_note_on(44100, 1, 71, 1);
 238
 239         event_note_off(44100 * 3, 1, 64);
 240         event_note_off(44100 * 3, 1, 67);
 241         event_note_off(44100 * 3, 1, 71);
 242
 243         event_note_on(44100 * 3, 1, 64, 1);
 244         event_note_on(44100 * 3, 1, 66, 1);
 245         event_note_on(44100 * 3, 1, 71, 1);
 246
 247         event_note_off(44100 * 6, 1, 64);
 248         event_note_off(44100 * 6, 1, 66);
 249         event_note_off(44100 * 6, 1, 71);
 250
 251         event_note_on(44100, 1, 28, 1);
 252         event_note_off(44100 * 9, 1, 28);
 253
 254         event_sort();
 255 #endif
 256
 257         event1_clear();
 258         compile("T81.67 o5c1*10 \\ z1s0.5 t-1 x4~0.6,2~0.3,2.~0.2 <c;e-;g><c;e-;g#>|<c;f;g#><d;f;g> s0.8z8 c'gb-c'b-gfg| \\ t-1 o6s1 c1*3.5 b,2 c1*4 ");
 259
 260         event1_to_event2();
 261
 262         e2=_events_2;
 263
 264         for(frame=0,goon=1;goon;frame++)
 265         {
 266                 if(e2->generic.type == EV2_END)
 267                         break;
 268
 269                 while(e2->generic.frame == frame)
 270                 {
 271                         if(e2->generic.type == EV2_NOTE_ON)
 272                                 ss_ins_note_on(&i[e2->note_on.trk_id],
 273                                         e2->note_on.note,
 274                                         e2->note_on.vol,
 275                                         e2->note_on.note_id);
 276                         else
 277                         if(e2->generic.type == EV2_NOTE_OFF)
 278                                 ss_ins_note_off(e2->note_off.note_id);
 279                         else
 280                         if(e2->generic.type == EV2_END)
 281                                 goon=0;
 282
 283                         e2++;
 284                 }
 285
 286                 output_init_frame(output);
 287
 288                 ss_ins_frame(0, output);
 289                 ss_ins_frame(1, output);
 290                 ss_ins_frame(2, output);
 291
 292 #ifdef QQ
 293                 if(n < TIME2SAMPLES(13))
 294                 {
 295                         output[0]=process_effect(&e[0], output[0]);
 296                         output[1]=process_effect(&e[1], output[1]);
 297
 298 /*                      output[1]=process_effect(&e[2], output[1]); */
 299
 300 /*                      output[0]=process_effect(&e[3], output[0]);
 301                         output[0]=process_effect(&e[4], output[0]);
 302                         output[0]=process_effect(&e[5], output[0]);
 303
 304                         output[1]=process_effect(&e[6], output[1]);
 305                         output[1]=process_effect(&e[7], output[1]);
 306                         output[1]=process_effect(&e[8], output[1]); */
 307
 308 /*                      output[0]=process_effect(&e[9], output[0]);
 309                         output[1]=process_effect(&e[10], output[1]); */
 310
 311 /*                      output[0]=process_effect(&e[11], output[0]);
 312                         output[1]=process_effect(&e[11], output[1]); */
 313                 }
 314 #endif
 315
 316                 output_write(output);
 317
 318 /*              if(n < TIME2SAMPLES(14))
 319                         generator_release(&_generators[1]); */
 320         }
 321
 322         output_close();
 323
 324         printf("clipped: %d optimal volume: %f\n",
 325                 _output_clipped, _optimal_volume);
 326
 327         return(0);
 328 }