← Back to branch summary

~ubuntu-branches/ubuntu/utopic/glame/utopic

« back to all changes in this revision

Viewing changes to src/gui/libgtkwaveform/gwavefile.c

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Kobras
  • Date: 2002-04-09 17:14:12 UTC
  • Revision ID: james.westby@ubuntu.com-20020409171412-jzpnov7mbz2w6zsr
Tags: upstream-0.6.2
Import upstream version 0.6.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gui/libgtkwaveform/gwavefile.c
 
1
/*
 
2
 * gwavefile.c: wave utilities
 
3
 *
 
4
 * Copyright (c) 2000, 2001 David A. Bartold, Richard Guenther
 
5
 *
 
6
 * This library is free software; you can redistribute it and/or
 
7
 * modify it under the terms of the GNU Library General Public
 
8
 * License as published by the Free Software Foundation; either
 
9
 * version 2 of the License, or (at your option) any later version.
 
10
 *
 
11
 * This library is distributed in the hope that it will be useful,
 
12
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 
13
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
14
 * Library General Public License for more details.
 
15
 *
 
16
 * You should have received a copy of the GNU Library General Public
 
17
 * License along with this library; if not, write to the
 
18
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
19
 * Boston, MA 02111-1307, USA.
 
20
 */
 
21
 
 
22
#include <glib.h>
 
23
#include <string.h>
 
24
#include "gwavefile.h"
 
25
 
 
26
 
 
27
guint32
 
28
g_wavefile_type_width (GWavefileType dtype)
 
29
{
 
30
  switch (dtype)
 
31
    {
 
32
    case G_WAVEFILE_TYPE_F8: case G_WAVEFILE_TYPE_F8NI:
 
33
      return 8;
 
34
 
 
35
    case G_WAVEFILE_TYPE_S32: case G_WAVEFILE_TYPE_U32: case G_WAVEFILE_TYPE_F4: case G_WAVEFILE_TYPE_F4NI:
 
36
      return 4;
 
37
 
 
38
    case G_WAVEFILE_TYPE_S16: case G_WAVEFILE_TYPE_U16:
 
39
      return 2;
 
40
 
 
41
    case G_WAVEFILE_TYPE_S8: case G_WAVEFILE_TYPE_U8:
 
42
      return 1;
 
43
 
 
44
    default:
 
45
      break;
 
46
    }
 
47
 
 
48
  return 0;
 
49
}
 
50
 
 
51
void
 
52
g_wavefile_type_convert (guint32       n_channels,
 
53
                              guint32       length,
 
54
                              GWavefileType out_type,
 
55
                              gpointer      out,
 
56
                              GWavefileType in_type,
 
57
                              gpointer      in)
 
58
{
 
59
  gint32 *s32;
 
60
  guint32 *u32;
 
61
  gint16 *s16;
 
62
  guint16 *u16;
 
63
  guint8 *u8;
 
64
  gint8 *s8;
 
65
  gdouble *f8;
 
66
  gfloat *f4;
 
67
 
 
68
  guint32 i, j, frames;
 
69
 
 
70
  frames = length * n_channels;
 
71
 
 
72
  if (in_type == out_type)
 
73
    {
 
74
      guint32 width;
 
75
 
 
76
      width = g_wavefile_type_width (in_type);
 
77
      memcpy (out, in, frames * width);
 
78
      return;
 
79
    }
 
80
 
 
81
  switch (out_type)
 
82
    {
 
83
    case G_WAVEFILE_TYPE_F8:
 
84
      f8 = (gdouble*) out;
 
85
 
 
86
      switch (in_type)
 
87
        {
 
88
          case G_WAVEFILE_TYPE_F4:
 
89
            f4 = (gfloat*) in;
 
90
            for (i = 0; i < frames; i++)
 
91
              *f8++ = *f4++;
 
92
            break;
 
93
 
 
94
          case G_WAVEFILE_TYPE_U32:
 
95
            u32 = (guint32*) in;
 
96
            for (i = 0; i < frames; i++)
 
97
              *f8++ = s32_to_double ((*u32++) ^ 0x80000000);
 
98
            break;
 
99
 
 
100
          case G_WAVEFILE_TYPE_S32:
 
101
            s32 = (gint32*) in;
 
102
            for (i = 0; i < frames; i++)
 
103
              *f8++ = s32_to_double (*s32++);
 
104
            break;
 
105
 
 
106
          case G_WAVEFILE_TYPE_U16:
 
107
            u16 = (guint16*) in;
 
108
            for (i = 0; i < frames; i++)
 
109
              *f8++ = s16_to_double ((*u16++) ^ 0x8000);
 
110
            break;
 
111
 
 
112
          case G_WAVEFILE_TYPE_S16:
 
113
            s16 = (gint16*) in;
 
114
            for (i = 0; i < frames; i++)
 
115
              *f8++ = s16_to_double (*s16++);
 
116
            break;
 
117
 
 
118
          case G_WAVEFILE_TYPE_U8:
 
119
            u8 = (guint8*) in;
 
120
            for (i = 0; i < frames; i++)
 
121
              *f8++ = s16_to_double (((*u8++) << 8) ^ 0x8000);
 
122
            break;
 
123
 
 
124
          case G_WAVEFILE_TYPE_S8:
 
125
            s8 = (gint8*) in;
 
126
            for (i = 0; i < frames; i++)
 
127
              *f8++ = s16_to_double ((*s8++) << 8);
 
128
            break;
 
129
 
 
130
          default:
 
131
            break;
 
132
        }
 
133
      break;
 
134
 
 
135
    case G_WAVEFILE_TYPE_F4:
 
136
      f4 = (gfloat*) out;
 
137
 
 
138
      switch (in_type)
 
139
        {
 
140
          case G_WAVEFILE_TYPE_F8:
 
141
            f8 = (gdouble*) in;
 
142
            for (i = 0; i < frames; i++)
 
143
              *f4++ = *f8++;
 
144
            break;
 
145
 
 
146
          case G_WAVEFILE_TYPE_U32:
 
147
            u32 = (guint32*) in;
 
148
            for (i = 0; i < frames; i++)
 
149
              *f4++ = s32_to_double ((*u32++) ^ 0x80000000);
 
150
            break;
 
151
 
 
152
          case G_WAVEFILE_TYPE_S32:
 
153
            s32 = (gint32*) in;
 
154
            for (i = 0; i < frames; i++)
 
155
              *f4++ = s32_to_double (*s32++);
 
156
            break;
 
157
 
 
158
          case G_WAVEFILE_TYPE_U16:
 
159
            u16 = (guint16*) in;
 
160
            for (i = 0; i < frames; i++)
 
161
              *f4++ = s16_to_double ((*u16++) ^ 0x8000);
 
162
            break;
 
163
 
 
164
          case G_WAVEFILE_TYPE_S16:
 
165
            s16 = (gint16*) in;
 
166
            for (i = 0; i < frames; i++)
 
167
              *f4++ = s16_to_double (*s16++);
 
168
            break;
 
169
 
 
170
          case G_WAVEFILE_TYPE_U8:
 
171
            u8 = (guint8*) in;
 
172
            for (i = 0; i < frames; i++)
 
173
              *f4++ = s16_to_double (((*u8++) << 8) ^ 0x8000);
 
174
            break;
 
175
 
 
176
          case G_WAVEFILE_TYPE_S8:
 
177
            s8 = (gint8*) in;
 
178
            for (i = 0; i < frames; i++)
 
179
              *f4++ = s16_to_double ((*s8++) << 8);
 
180
            break;
 
181
 
 
182
          default:
 
183
            break;
 
184
        }
 
185
      break;
 
186
 
 
187
    case G_WAVEFILE_TYPE_S32:
 
188
      s32 = (gint32*) out;
 
189
 
 
190
      switch (in_type)
 
191
        {
 
192
        case G_WAVEFILE_TYPE_F8:
 
193
          f8 = (gdouble*) in;
 
194
          for (i = 0; i < frames; i++)
 
195
            *s32++ = double_to_s32 (*f8++);
 
196
          break;
 
197
 
 
198
        case G_WAVEFILE_TYPE_F4:
 
199
          f4 = (gfloat*) in;
 
200
          for (i = 0; i < frames; i++)
 
201
            *s32++ = double_to_s32 (*f4++);
 
202
          break;
 
203
 
 
204
        case G_WAVEFILE_TYPE_U32:
 
205
          u32 = (guint32*) in;
 
206
          for (i = 0; i < frames; i++)
 
207
            *s32++ = (*u32++) ^ 0x80000000;
 
208
          break;
 
209
 
 
210
        case G_WAVEFILE_TYPE_S16:
 
211
          u16 = (guint16*) in;
 
212
          for (i = 0; i < frames; i++)
 
213
            *s32++ = (*u16++) << 16;
 
214
          break;
 
215
 
 
216
        case G_WAVEFILE_TYPE_U16:
 
217
          u16 = (guint16*) in;
 
218
          for (i = 0; i < frames; i++)
 
219
            *s32++ = ((*u16++) << 16) ^ 0x80000000;
 
220
          break;
 
221
 
 
222
        case G_WAVEFILE_TYPE_S8:
 
223
          s8 = (gint8*) in;
 
224
          for (i = 0; i < frames; i++)
 
225
            *s32++ = (*s8++) << 24;
 
226
          break;
 
227
 
 
228
        case G_WAVEFILE_TYPE_U8:
 
229
          u8 = (guint8*) in;
 
230
          for (i = 0; i < frames; i++)
 
231
            *s32++ = ((*u8++) << 24) ^ 0x8000000;
 
232
          break;
 
233
 
 
234
        default:
 
235
          break;
 
236
        }
 
237
        break;
 
238
 
 
239
    case G_WAVEFILE_TYPE_U32:
 
240
      u32 = (guint32*) out;
 
241
 
 
242
      switch (in_type)
 
243
        {
 
244
        case G_WAVEFILE_TYPE_S32:
 
245
          s32 = (gint32*) in;
 
246
          for (i = 0; i < frames; i++)
 
247
            *u32++ = (*s32++) ^ 0x80000000;
 
248
          break;
 
249
 
 
250
        default:
 
251
          g_wavefile_type_convert (n_channels, length, G_WAVEFILE_TYPE_S32, out, in_type, in);
 
252
          g_wavefile_type_convert (n_channels, length, out_type, out, G_WAVEFILE_TYPE_S32, out);
 
253
        }
 
254
      break;
 
255
 
 
256
    case G_WAVEFILE_TYPE_S16:
 
257
      s16 = (gint16*) out;
 
258
 
 
259
      switch (in_type)
 
260
        {
 
261
        case G_WAVEFILE_TYPE_F8:
 
262
          f8 = (gdouble*) in;
 
263
          for (i = 0; i < frames; i++)
 
264
            *s16++ = double_to_s16 (*f8++);
 
265
          break;
 
266
 
 
267
        case G_WAVEFILE_TYPE_F8NI: {
 
268
          gint16 *s16temp = s16;
 
269
          f8 = (gdouble*) in;
 
270
          for (j=0; j<n_channels; j++) {
 
271
            s16temp = s16;
 
272
            for (i=0; i<length; i++) {
 
273
              *s16temp = double_to_s16(*f8++);
 
274
              s16temp += n_channels;
 
275
            }
 
276
            s16++;
 
277
          }
 
278
          break;
 
279
        }
 
280
 
 
281
        case G_WAVEFILE_TYPE_F4:
 
282
          f4 = (gfloat*) in;
 
283
          for (i = 0; i < frames; i++)
 
284
            *s16++ = double_to_s16 (*f4++);
 
285
          break;
 
286
 
 
287
        case G_WAVEFILE_TYPE_F4NI: {
 
288
          gint16 *s16temp = s16;
 
289
          f4 = (gfloat*) in;
 
290
          for (j=0; j<n_channels; j++) {
 
291
            s16temp = s16;
 
292
            for (i=0; i<length; i++) {
 
293
              *s16temp = double_to_s16(*f4++);
 
294
              s16temp += n_channels;
 
295
            }
 
296
            s16++;
 
297
          }
 
298
          break;
 
299
        }
 
300
 
 
301
        case G_WAVEFILE_TYPE_S32:
 
302
          s32 = (gint32*) in;
 
303
          for (i = 0; i < frames; i++)
 
304
            *s16++ = (*s32++) >> 16;
 
305
          break;
 
306
 
 
307
        case G_WAVEFILE_TYPE_U32:
 
308
          u32 = (guint32*) in;
 
309
          for (i = 0; i < frames; i++)
 
310
            *s16++ = ((*u32++) >> 16) ^ 0x8000;
 
311
          break;
 
312
 
 
313
        case G_WAVEFILE_TYPE_U16:
 
314
          u16 = (guint16*) in;
 
315
          for (i = 0; i < frames; i++)
 
316
            *s16++ = (*u16++) ^ 0x8000;
 
317
          break;
 
318
 
 
319
        case G_WAVEFILE_TYPE_S8:
 
320
          s8 = (gint8*) in;
 
321
          for (i = 0; i < frames; i++)
 
322
            *s16++ = (*s8++) << 8;
 
323
          break;
 
324
 
 
325
        case G_WAVEFILE_TYPE_U8:
 
326
          u8 = (guint8*) in;
 
327
          for (i = 0; i < frames; i++)
 
328
            *s16++ = ((*u8++) << 8) ^ 0x8000;
 
329
          break;
 
330
 
 
331
        default:
 
332
          break;
 
333
        }
 
334
        break;
 
335
 
 
336
    case G_WAVEFILE_TYPE_U16:
 
337
      u16 = (guint16*) out;
 
338
 
 
339
      switch (in_type)
 
340
        {
 
341
        case G_WAVEFILE_TYPE_S16:
 
342
          s16 = (gint16*) in;
 
343
          for (i = 0; i < frames; i++)
 
344
            *u16++ = (*s16++) ^ 0x80000000;
 
345
          break;
 
346
 
 
347
        default:
 
348
          g_wavefile_type_convert (n_channels, length, G_WAVEFILE_TYPE_S16, out, in_type, in);
 
349
          g_wavefile_type_convert (n_channels, length, out_type, out, G_WAVEFILE_TYPE_S16, out);
 
350
        }
 
351
      break;
 
352
 
 
353
    case G_WAVEFILE_TYPE_S8:
 
354
      s8 = (gint8*) out;
 
355
 
 
356
      switch (in_type)
 
357
        {
 
358
        case G_WAVEFILE_TYPE_F8:
 
359
          f8 = (gdouble*) in;
 
360
          for (i = 0; i < frames; i++)
 
361
            *s8++ = double_to_s16 (*f8++) >> 8;
 
362
          break;
 
363
 
 
364
        case G_WAVEFILE_TYPE_F4:
 
365
          f4 = (gfloat*) in;
 
366
          for (i = 0; i < frames; i++)
 
367
            *s8++ = double_to_s16 (*f4++) >> 8;
 
368
          break;
 
369
 
 
370
        case G_WAVEFILE_TYPE_S32:
 
371
          s32 = (gint32*) in;
 
372
          for (i = 0; i < frames; i++)
 
373
            *s8++ = (*s32++) >> 24;
 
374
          break;
 
375
 
 
376
        case G_WAVEFILE_TYPE_U32:
 
377
          u32 = (guint32*) in;
 
378
          for (i = 0; i < frames; i++)
 
379
            *s8++ = ((*u32++) >> 24) ^ 0x80;
 
380
          break;
 
381
 
 
382
        case G_WAVEFILE_TYPE_S16:
 
383
          u16 = (guint16*) in;
 
384
          for (i = 0; i < frames; i++)
 
385
            *s8++ = (*u16++) >> 8;
 
386
          break;
 
387
 
 
388
        case G_WAVEFILE_TYPE_U16:
 
389
          u16 = (guint16*) in;
 
390
          for (i = 0; i < frames; i++)
 
391
            *s8++ = ((*u16++) >> 8) ^ 0x80;
 
392
          break;
 
393
 
 
394
        case G_WAVEFILE_TYPE_U8:
 
395
          u8 = (guint8*) in;
 
396
          for (i = 0; i < frames; i++)
 
397
            *s8++ = (*u8++) ^ 0x80;
 
398
          break;
 
399
 
 
400
        default:
 
401
          break;
 
402
        }
 
403
      break;
 
404
 
 
405
    case G_WAVEFILE_TYPE_U8:
 
406
      u8 = (guint8*) out;
 
407
 
 
408
      switch (in_type)
 
409
        {
 
410
        case G_WAVEFILE_TYPE_S8:
 
411
          s8 = (gint8*) in;
 
412
          for (i = 0; i < frames; i++)
 
413
            *u8++ = (*s8++) ^ 0x80000000;
 
414
          break;
 
415
 
 
416
        default:
 
417
          g_wavefile_type_convert (n_channels, length, G_WAVEFILE_TYPE_S8, out, in_type, in);
 
418
          g_wavefile_type_convert (n_channels, length, out_type, out, G_WAVEFILE_TYPE_S8, out);
 
419
          break;
 
420
        }
 
421
      break;
 
422
 
 
423
    default:
 
424
      break;
 
425
    }
 
426
}
 
427
 
 
428
void
 
429
g_wavefile_type_clear (guint32       n_channels,
 
430
                       guint32       length,
 
431
                       GWavefileType type,
 
432
                       gpointer      out)
 
433
{
 
434
  guint32 i, frames;
 
435
  gint8 *s8;
 
436
  gint16 *s16;
 
437
  gint32 *s32;
 
438
  
 
439
  frames = n_channels * length;
 
440
 
 
441
  switch (type)
 
442
    {
 
443
    case G_WAVEFILE_TYPE_U32:
 
444
      s32 = (gint32*) out;
 
445
      for (i = 0; i < frames; i++)
 
446
        *s32++ = 0x80000000L;
 
447
      break;
 
448
 
 
449
    case G_WAVEFILE_TYPE_U16:
 
450
      s16 = (gint16*) out;
 
451
      for (i = 0; i < frames; i++)
 
452
        *s16++ = 0x8000;
 
453
      break;
 
454
 
 
455
    case G_WAVEFILE_TYPE_U8:
 
456
      s8 = (gint8*) out;
 
457
      for (i = 0; i < frames; i++)
 
458
        *s8++ = 0x80;
 
459
      break;
 
460
 
 
461
    default:
 
462
      memset (out, 0, g_wavefile_type_width (type) * frames);
 
463
    }
 
464
}