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
;
138 memset(_generators
, '\0', sizeof(_generators
));
139 build_note_frequencies();
141 /* load_pat_file("samples/acpiano.pat"); */
142 load_pat_file("/cdrom/orchhit.pat");
146 load_wav_file("samples/amen1.wav", &size, &ls, &rs);
148 generator_play(&_generators[0], ls, rs, size, 1, 0, size, 0.2, 1, 4410);
150 load_wav_file("samples/01c1.wav", &size, &ls, &rs);
151 generator_play(&_generators[1], ls, rs, size,
152 _note_freq[24] / _note_freq[36], 0, size, 1, 1, 44100 / 3);
154 load_wav_file("samples/05c3.wav", &size, &ls, &rs);
156 generator_play(&_generators[2], ls, rs, size,
157 _note_freq[36] / _note_freq[36], 0, size, 0.5, 0.5, 0);
159 generator_play(&_generators[3], ls, rs, size,
160 _note_freq[39] / _note_freq[36], 0, size, 0.5, 0.5, 0);
162 generator_play(&_generators[4], ls, rs, size,
163 _note_freq[43] / _note_freq[36], 0, size, 0.5, 0.5, 0);
165 load_wav_file("samples/as-al017.wav", &size, &ls, &rs);
166 generator_play(&_generators[5], ls, rs, size, 1, 0, size, 2, 2, 0);
169 f=popen("sox -V -t raw -s -r 44100 -c 2 -w - qq.wav","w");
172 if(output_open("oss", "/dev/dsp") < 0)
174 printf("Error: can't init driver\n");
178 init_delay(&e
, 44100 / 10, 0.5);
180 for(n
=TIME2SAMPLES(15);n
> 0;n
--)
186 for(m
=0;m
< NUM_GENERATORS
;m
++)
187 generator(&_generators
[m
], &l
, &r
);
189 if(n
< TIME2SAMPLES(13))
190 process_reverb(&e
, &l
, &r
);
194 /* if(n < TIME2SAMPLES(14))
195 generator_release(&_generators[1]); */