Chris@40
|
1 /*
|
Chris@40
|
2 ** Copyright (C) 2007-2016 Erik de Castro Lopo <erikd@mega-nerd.com>
|
Chris@40
|
3 **
|
Chris@40
|
4 ** This program is free software; you can redistribute it and/or modify
|
Chris@40
|
5 ** it under the terms of the GNU General Public License as published by
|
Chris@40
|
6 ** the Free Software Foundation; either version 2 of the License, or
|
Chris@40
|
7 ** (at your option) any later version.
|
Chris@40
|
8 **
|
Chris@40
|
9 ** This program is distributed in the hope that it will be useful,
|
Chris@40
|
10 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Chris@40
|
11 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Chris@40
|
12 ** GNU General Public License for more details.
|
Chris@40
|
13 **
|
Chris@40
|
14 ** You should have received a copy of the GNU General Public License
|
Chris@40
|
15 ** along with this program; if not, write to the Free Software
|
Chris@40
|
16 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
Chris@40
|
17 */
|
Chris@40
|
18
|
Chris@40
|
19 #include "sfconfig.h"
|
Chris@40
|
20
|
Chris@40
|
21 #include <stdio.h>
|
Chris@40
|
22 #include <stdlib.h>
|
Chris@40
|
23 #include <string.h>
|
Chris@40
|
24 #include <unistd.h>
|
Chris@40
|
25
|
Chris@40
|
26 #include <math.h>
|
Chris@40
|
27
|
Chris@40
|
28 #include <sndfile.h>
|
Chris@40
|
29
|
Chris@40
|
30 #include "utils.h"
|
Chris@40
|
31 #include "dft_cmp.h"
|
Chris@40
|
32
|
Chris@40
|
33 #define SAMPLE_RATE 16000
|
Chris@40
|
34 #define DATA_LENGTH (SAMPLE_RATE)
|
Chris@40
|
35
|
Chris@40
|
36 static float data_out [DATA_LENGTH] ;
|
Chris@40
|
37
|
Chris@40
|
38 static inline float
|
Chris@40
|
39 max_float (float a, float b)
|
Chris@40
|
40 { return a > b ? a : b ;
|
Chris@40
|
41 } /* max_float */
|
Chris@40
|
42
|
Chris@40
|
43 static void
|
Chris@40
|
44 vorbis_test (void)
|
Chris@40
|
45 { static float float_data [DFT_DATA_LENGTH] ;
|
Chris@40
|
46 const char * filename = "vorbis_test.oga" ;
|
Chris@40
|
47 SNDFILE * file ;
|
Chris@40
|
48 SF_INFO sfinfo ;
|
Chris@40
|
49 float max_abs = 0.0 ;
|
Chris@40
|
50 unsigned k ;
|
Chris@40
|
51
|
Chris@40
|
52 print_test_name ("vorbis_test", filename) ;
|
Chris@40
|
53
|
Chris@40
|
54 /* Generate float data. */
|
Chris@40
|
55 gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 1.0) ;
|
Chris@40
|
56
|
Chris@40
|
57 /* Set up output file type. */
|
Chris@40
|
58 memset (&sfinfo, 0, sizeof (sfinfo)) ;
|
Chris@40
|
59 sfinfo.format = SF_FORMAT_OGG | SF_FORMAT_VORBIS ;
|
Chris@40
|
60 sfinfo.channels = 1 ;
|
Chris@40
|
61 sfinfo.samplerate = SAMPLE_RATE ;
|
Chris@40
|
62
|
Chris@40
|
63 /* Write the output file. */
|
Chris@40
|
64
|
Chris@40
|
65 /* The Vorbis encoder has a bug on PowerPC and X86-64 with sample rates
|
Chris@40
|
66 ** <= 22050. Increasing the sample rate to 32000 avoids triggering it.
|
Chris@40
|
67 ** See https://trac.xiph.org/ticket/1229
|
Chris@40
|
68 */
|
Chris@40
|
69 if ((file = sf_open (filename, SFM_WRITE, &sfinfo)) == NULL)
|
Chris@40
|
70 { const char * errstr ;
|
Chris@40
|
71
|
Chris@40
|
72 errstr = sf_strerror (NULL) ;
|
Chris@40
|
73 if (strstr (errstr, "Sample rate chosen is known to trigger a Vorbis") == NULL)
|
Chris@40
|
74 { printf ("Line %d: sf_open (SFM_WRITE) failed : %s\n", __LINE__, errstr) ;
|
Chris@40
|
75 dump_log_buffer (NULL) ;
|
Chris@40
|
76 exit (1) ;
|
Chris@40
|
77 } ;
|
Chris@40
|
78
|
Chris@40
|
79 printf ("\n Sample rate -> 32kHz ") ;
|
Chris@40
|
80 sfinfo.samplerate = 32000 ;
|
Chris@40
|
81
|
Chris@40
|
82 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
|
Chris@40
|
83 } ;
|
Chris@40
|
84
|
Chris@40
|
85 test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
|
Chris@40
|
86 sf_close (file) ;
|
Chris@40
|
87
|
Chris@40
|
88 memset (float_data, 0, sizeof (float_data)) ;
|
Chris@40
|
89
|
Chris@40
|
90 /* Read the file back in again. */
|
Chris@40
|
91 memset (&sfinfo, 0, sizeof (sfinfo)) ;
|
Chris@40
|
92 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_FALSE, __LINE__) ;
|
Chris@40
|
93 test_read_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ;
|
Chris@40
|
94 sf_close (file) ;
|
Chris@40
|
95
|
Chris@40
|
96 for (k = 0 ; k < ARRAY_LEN (float_data) ; k ++)
|
Chris@40
|
97 max_abs = max_float (max_abs, fabs (float_data [k])) ;
|
Chris@40
|
98
|
Chris@40
|
99 exit_if_true (max_abs > 1.023,
|
Chris@40
|
100 "\n\nLine %d : max_abs %f should be < 1.023.\n\n", __LINE__, max_abs) ;
|
Chris@40
|
101
|
Chris@40
|
102 puts ("ok") ;
|
Chris@40
|
103 unlink (filename) ;
|
Chris@40
|
104 } /* vorbis_test */
|
Chris@40
|
105
|
Chris@40
|
106 static void
|
Chris@40
|
107 compression_size_test (int format, const char * filename)
|
Chris@40
|
108 { /*
|
Chris@40
|
109 ** Encode two files, one at quality 0.3 and one at quality 0.5 and then
|
Chris@40
|
110 ** make sure that the quality 0.3 files is the smaller of the two.
|
Chris@40
|
111 */
|
Chris@40
|
112 char q3_fname [64] ;
|
Chris@40
|
113 char q6_fname [64] ;
|
Chris@40
|
114 char test_name [64] ;
|
Chris@40
|
115
|
Chris@40
|
116 SNDFILE *q3_file, *q6_file ;
|
Chris@40
|
117 SF_INFO sfinfo ;
|
Chris@40
|
118 int q3_size, q6_size ;
|
Chris@40
|
119 double quality ;
|
Chris@40
|
120 int k ;
|
Chris@40
|
121
|
Chris@40
|
122 snprintf (q3_fname, sizeof (q3_fname), "q3_%s", filename) ;
|
Chris@40
|
123 snprintf (q6_fname, sizeof (q6_fname), "q6_%s", filename) ;
|
Chris@40
|
124
|
Chris@40
|
125 snprintf (test_name, sizeof (test_name), "q[36]_%s", filename) ;
|
Chris@40
|
126 print_test_name (__func__, test_name) ;
|
Chris@40
|
127
|
Chris@40
|
128 memset (&sfinfo, 0, sizeof (sfinfo)) ;
|
Chris@40
|
129
|
Chris@40
|
130 /* Set up output file type. */
|
Chris@40
|
131 sfinfo.format = format ;
|
Chris@40
|
132 sfinfo.channels = 1 ;
|
Chris@40
|
133 sfinfo.samplerate = SAMPLE_RATE ;
|
Chris@40
|
134
|
Chris@40
|
135 /* Write the output file. */
|
Chris@40
|
136 q3_file = test_open_file_or_die (q3_fname, SFM_WRITE, &sfinfo, SF_FALSE, __LINE__) ;
|
Chris@40
|
137 q6_file = test_open_file_or_die (q6_fname, SFM_WRITE, &sfinfo, SF_FALSE, __LINE__) ;
|
Chris@40
|
138
|
Chris@40
|
139 quality = 0.3 ;
|
Chris@40
|
140 sf_command (q3_file, SFC_SET_VBR_ENCODING_QUALITY, &quality, sizeof (quality)) ;
|
Chris@40
|
141 quality = 0.6 ;
|
Chris@40
|
142 sf_command (q6_file, SFC_SET_VBR_ENCODING_QUALITY, &quality, sizeof (quality)) ;
|
Chris@40
|
143
|
Chris@40
|
144 for (k = 0 ; k < 5 ; k++)
|
Chris@40
|
145 { gen_lowpass_signal_float (data_out, ARRAY_LEN (data_out)) ;
|
Chris@40
|
146 test_write_float_or_die (q3_file, 0, data_out, ARRAY_LEN (data_out), __LINE__) ;
|
Chris@40
|
147 test_write_float_or_die (q6_file, 0, data_out, ARRAY_LEN (data_out), __LINE__) ;
|
Chris@40
|
148 } ;
|
Chris@40
|
149
|
Chris@40
|
150 sf_close (q3_file) ;
|
Chris@40
|
151 sf_close (q6_file) ;
|
Chris@40
|
152
|
Chris@40
|
153 q3_size = file_length (q3_fname) ;
|
Chris@40
|
154 q6_size = file_length (q6_fname) ;
|
Chris@40
|
155
|
Chris@40
|
156 exit_if_true (q3_size >= q6_size,
|
Chris@40
|
157 "\n\nLine %d : q3 size (%d) >= q6 size (%d)\n\n", __LINE__, q3_size, q6_size) ;
|
Chris@40
|
158
|
Chris@40
|
159 puts ("ok") ;
|
Chris@40
|
160 unlink (q3_fname) ;
|
Chris@40
|
161 unlink (q6_fname) ;
|
Chris@40
|
162 } /* compression_size_test */
|
Chris@40
|
163
|
Chris@40
|
164
|
Chris@40
|
165
|
Chris@40
|
166 int
|
Chris@40
|
167 main (int argc, char *argv [])
|
Chris@40
|
168 { int all_tests = 0, tests = 0 ;
|
Chris@40
|
169
|
Chris@40
|
170 if (argc != 2)
|
Chris@40
|
171 { printf (
|
Chris@40
|
172 "Usage : %s <test>\n"
|
Chris@40
|
173 " Where <test> is one of:\n"
|
Chris@40
|
174 " vorbis - test Ogg/Vorbis\n"
|
Chris@40
|
175 " flac - test FLAC\n"
|
Chris@40
|
176 " all - perform all tests\n",
|
Chris@40
|
177 argv [0]) ;
|
Chris@40
|
178 exit (0) ;
|
Chris@40
|
179 } ;
|
Chris@40
|
180
|
Chris@40
|
181 if (! HAVE_EXTERNAL_XIPH_LIBS)
|
Chris@40
|
182 { puts (" No Ogg/Vorbis tests because Ogg/Vorbis support was not compiled in.") ;
|
Chris@40
|
183 return 0 ;
|
Chris@40
|
184 } ;
|
Chris@40
|
185
|
Chris@40
|
186 if (strcmp (argv [1], "all") == 0)
|
Chris@40
|
187 all_tests = 1 ;
|
Chris@40
|
188
|
Chris@40
|
189 if (all_tests || strcmp (argv [1], "vorbis") == 0)
|
Chris@40
|
190 { vorbis_test () ;
|
Chris@40
|
191 compression_size_test (SF_FORMAT_OGG | SF_FORMAT_VORBIS, "vorbis.oga") ;
|
Chris@40
|
192 tests ++ ;
|
Chris@40
|
193 } ;
|
Chris@40
|
194
|
Chris@40
|
195 if (all_tests || strcmp (argv [1], "flac") == 0)
|
Chris@40
|
196 { compression_size_test (SF_FORMAT_FLAC | SF_FORMAT_PCM_16, "pcm16.flac") ;
|
Chris@40
|
197 tests ++ ;
|
Chris@40
|
198 } ;
|
Chris@40
|
199
|
Chris@40
|
200 return 0 ;
|
Chris@40
|
201 } /* main */
|