5 Copyright (C) 2003 Angel Ortega <angel@triptico.com>
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License
9 as published by the Free Software Foundation; either version 2
10 of the License, or (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
21 http://www.triptico.com
34 #include "generator.h"
35 #include "instrument.h"
41 /* main output frequency */
52 #define NUM_GENERATORS 64
53 struct generator _generators
[NUM_GENERATORS
];
70 #define TIME2SAMPLES(s) ((s) * _frequency)
72 void init_delay(struct effect_delay
* e
, int size
, double vol
)
74 /* free previously allocated buffer */
75 /* if(e->lbuffer != NULL) free(e->lbuffer);
76 if(e->rbuffer != NULL) free(e->rbuffer);
78 e
->lbuffer
=(int *) malloc(size
* sizeof(int));
79 memset(e
->lbuffer
, '\0', size
* sizeof(int));
80 e
->rbuffer
=(int *) malloc(size
* sizeof(int));
81 memset(e
->rbuffer
, '\0', size
* sizeof(int));
89 void process_delay(struct effect_delay
* e
, int * lsample
, int * rsample
)
93 l
=e
->lbuffer
[e
->cursor
];
94 r
=e
->lbuffer
[e
->cursor
];
96 l
=*lsample
+ (int)(e
->vol
* (double)l
);
97 r
=*rsample
+ (int)(e
->vol
* (double)r
);
99 e
->lbuffer
[e
->cursor
]=*lsample
;
100 e
->rbuffer
[e
->cursor
]=*rsample
;
102 if(++e
->cursor
== e
->size
) e
->cursor
=0;
109 void process_reverb(struct effect_delay
* e
, int * lsample
, int * rsample
)
113 l
=e
->lbuffer
[e
->cursor
];
114 r
=e
->lbuffer
[e
->cursor
];
116 e
->lbuffer
[e
->cursor
]=*lsample
+ (int)(e
->vol
* (double)l
);
117 e
->rbuffer
[e
->cursor
]=*rsample
+ (int)(e
->vol
* (double)r
);
122 if(++e
->cursor
== e
->size
) e
->cursor
=0;
136 struct effect_delay e
;
139 memset(_generators
, '\0', sizeof(_generators
));
140 build_note_frequencies();
142 load_pat_file("samples/acpiano.pat");
143 /* load_pat_file("/cdrom/orchhit.pat"); */
146 load_wav_file("samples/01c1.wav", &size
, &ls
, &rs
);
149 add_instrument_layer(&i
, 36, 0, 128, ls
, rs
,
150 size
, 0, size
, 44100 / 3);
152 instrument_play_note(&i
, 38, 1, 1);
155 load_wav_file("samples/amen1.wav", &size, &ls, &rs);
157 generator_play(&_generators[0], ls, rs, size, 1, 0, size, 0.2, 1, 4410);
159 load_wav_file("samples/01c1.wav", &size, &ls, &rs);
160 generator_play(&_generators[1], ls, rs, size,
161 _note_freq[24] / _note_freq[36], 0, size, 1, 1, 44100 / 3);
163 load_wav_file("samples/05c3.wav", &size, &ls, &rs);
165 generator_play(&_generators[2], ls, rs, size,
166 _note_freq[36] / _note_freq[36], 0, size, 0.5, 0.5, 0);
168 generator_play(&_generators[3], ls, rs, size,
169 _note_freq[39] / _note_freq[36], 0, size, 0.5, 0.5, 0);
171 generator_play(&_generators[4], ls, rs, size,
172 _note_freq[43] / _note_freq[36], 0, size, 0.5, 0.5, 0);
174 load_wav_file("samples/as-al017.wav", &size, &ls, &rs);
175 generator_play(&_generators[5], ls, rs, size, 1, 0, size, 2, 2, 0);
178 f=popen("sox -V -t raw -s -r 44100 -c 2 -w - qq.wav","w");
181 if(output_open("oss", "/dev/dsp") < 0)
183 printf("Error: can't init driver\n");
187 init_delay(&e
, 44100 / 10, 0.5);
189 for(n
=TIME2SAMPLES(15);n
> 0;n
--)
195 for(m=0;m < NUM_GENERATORS;m++)
196 generator(&_generators[m], &l, &r);
198 generate_instrument(&i
, &l
, &r
);
200 if(n < TIME2SAMPLES(13))
201 process_reverb(&e, &l, &r);
205 /* if(n < TIME2SAMPLES(14))
206 generator_release(&_generators[1]); */