Adding support for writing zlib compressed set files and fixing audio
[terminatorX.git] / src / tX_tape.cc
1 /*
2     terminatorX - realtime audio scratching software
3     Copyright (C) 1999-2003  Alexander K├Ânig
4  
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9  
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13     GNU General Public License for more details.
14  
15     You should have received a copy of the GNU General Public License
16     along with this program; if not, write to the Free Software
17     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18  
19     File: tX_tape.cc
20  
21     Description: This implements a "harddisk recording tapedeck" - simply dumps
22                  the generated audio into a plain mono wav-file.
23 */    
24
25 #include "tX_tape.h"
26 #include <string.h>
27
28 tx_tapedeck :: tx_tapedeck()
29 {
30         is_recording=0;
31         written_bytes=0;
32 }
33
34 int tx_tapedeck :: start_record (char *name, int bs, int samplerate)
35 {
36         if (is_recording) return 1;
37                 
38         strcpy(file.name, name);
39         file.srate=samplerate;
40         file.chans=2;
41         file.depth=16;
42         file.bps=samplerate*2;
43         file.blkalign=2;
44         file.len=0;
45         file.sofar=0;
46
47         blocksize=bs * sizeof(int16_t) * 2;
48
49         written_bytes=0;        
50
51         if (!open_wav_rec(&file)) 
52         {
53                 return 1;
54         }
55         
56         is_recording=1;
57         
58         return 0;
59 }
60
61 void tx_tapedeck :: eat(int16_t *buffer)
62 {
63         written_bytes+=fwrite((void *) buffer, blocksize, 1, file.handle);
64 }
65
66 void tx_tapedeck :: stop_record()
67 {
68         if (!is_recording) return;
69         
70         written_bytes*=blocksize;
71         
72         file.len=written_bytes;
73         file.sofar=written_bytes;
74
75         rewrite_head(&file);
76         fclose(file.handle);
77         
78         is_recording=0;
79 }