diff options
author | Peter D'Hoye <peter.dhoye@gmail.com> | 2009-05-24 21:28:16 +0000 |
---|---|---|
committer | Peter D'Hoye <peter.dhoye@gmail.com> | 2009-05-24 21:28:16 +0000 |
commit | 526b5580dabbfed7cfe5439dc3a90ec727f563c2 (patch) | |
tree | 22b1af92348785daad16714ee5e2b633017e0e48 /apps/plugins/pdbox/PDa/intern/sfread~.c | |
parent | 4f2dfcc01b260d946044ef2b6af5fe36cb772c8d (diff) | |
download | rockbox-526b5580dabbfed7cfe5439dc3a90ec727f563c2.tar.gz rockbox-526b5580dabbfed7cfe5439dc3a90ec727f563c2.zip |
Cut the files in half and it might work better (note to self: check your tree is really clean before patching)
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21070 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'apps/plugins/pdbox/PDa/intern/sfread~.c')
-rw-r--r-- | apps/plugins/pdbox/PDa/intern/sfread~.c | 288 |
1 files changed, 0 insertions, 288 deletions
diff --git a/apps/plugins/pdbox/PDa/intern/sfread~.c b/apps/plugins/pdbox/PDa/intern/sfread~.c index 0980583fa3..3882777ed9 100644 --- a/apps/plugins/pdbox/PDa/intern/sfread~.c +++ b/apps/plugins/pdbox/PDa/intern/sfread~.c | |||
@@ -286,291 +286,3 @@ void sfread_tilde_setup(void) | |||
286 | 286 | ||
287 | } | 287 | } |
288 | 288 | ||
289 | #include <unistd.h> | ||
290 | #include <fcntl.h> | ||
291 | #include <errno.h> | ||
292 | #include <stdio.h> | ||
293 | #include <string.h> | ||
294 | #include <unistd.h> | ||
295 | #include <sys/mman.h> | ||
296 | #include <sys/stat.h> | ||
297 | |||
298 | #include <m_pd.h> | ||
299 | #include <m_fixed.h> | ||
300 | #include "g_canvas.h" | ||
301 | |||
302 | /* ------------------------ sfread~ ----------------------------- */ | ||
303 | |||
304 | #include "sformat.h" | ||
305 | |||
306 | static t_class *sfread_class; | ||
307 | |||
308 | |||
309 | typedef struct _sfread | ||
310 | { | ||
311 | t_object x_obj; | ||
312 | void* x_mapaddr; | ||
313 | int x_fd; | ||
314 | |||
315 | int x_play; | ||
316 | int x_channels; | ||
317 | long long x_size; | ||
318 | int x_loop; | ||
319 | t_time x_pos; | ||
320 | |||
321 | t_sample x_skip; | ||
322 | t_sample x_speed; | ||
323 | |||
324 | t_glist * x_glist; | ||
325 | t_outlet *x_bangout; | ||
326 | } t_sfread; | ||
327 | |||
328 | |||
329 | void sfread_open(t_sfread *x,t_symbol *filename) | ||
330 | { | ||
331 | struct stat fstate; | ||
332 | char fname[MAXPDSTRING]; | ||
333 | |||
334 | if (filename == &s_) { | ||
335 | post("sfread: open without filename"); | ||
336 | return; | ||
337 | } | ||
338 | |||
339 | canvas_makefilename(glist_getcanvas(x->x_glist), filename->s_name, | ||
340 | fname, MAXPDSTRING); | ||
341 | |||
342 | |||
343 | /* close the old file */ | ||
344 | |||
345 | if (x->x_mapaddr) munmap(x->x_mapaddr,x->x_size); | ||
346 | if (x->x_fd >= 0) close(x->x_fd); | ||
347 | |||
348 | if ((x->x_fd = open(fname,O_RDONLY)) < 0) | ||
349 | { | ||
350 | error("can't open %s",fname); | ||
351 | x->x_play = 0; | ||
352 | x->x_mapaddr = NULL; | ||
353 | return; | ||
354 | } | ||
355 | |||
356 | /* get the size */ | ||
357 | |||
358 | fstat(x->x_fd,&fstate); | ||
359 | x->x_size = fstate.st_size; | ||
360 | |||
361 | /* map the file into memory */ | ||
362 | |||
363 | if (!(x->x_mapaddr = mmap(NULL,x->x_size,PROT_READ,MAP_PRIVATE,x->x_fd,0))) | ||
364 | { | ||
365 | error("can't mmap %s",fname); | ||
366 | return; | ||
367 | } | ||
368 | } | ||
369 | |||
370 | #define MAX_CHANS 4 | ||
371 | |||
372 | static t_int *sfread_perform(t_int *w) | ||
373 | { | ||
374 | t_sfread* x = (t_sfread*)(w[1]); | ||
375 | short* buf = x->x_mapaddr; | ||
376 | t_time tmp; | ||
377 | int c = x->x_channels; | ||
378 | t_time pos = x->x_pos; | ||
379 | t_sample speed = x->x_speed; | ||
380 | t_time end = itofix(x->x_size/sizeof(short)/c); | ||
381 | int i,n; | ||
382 | t_sample* out[MAX_CHANS]; | ||
383 | |||
384 | for (i=0;i<c;i++) | ||
385 | out[i] = (t_sample *)(w[3+i]); | ||
386 | n = (int)(w[3+c]); | ||
387 | |||
388 | /* loop */ | ||
389 | |||
390 | if (pos > end) | ||
391 | pos = end; | ||
392 | |||
393 | if (pos + n*speed >= end) { // playing forward end | ||
394 | if (!x->x_loop) { | ||
395 | x->x_play=0; | ||
396 | } | ||
397 | pos = x->x_skip; | ||
398 | } | ||
399 | tmp = n*speed; | ||
400 | |||
401 | if (pos + n*speed <= 0) { // playing backwards end | ||
402 | if (!x->x_loop) { | ||
403 | x->x_play=0; | ||
404 | } | ||
405 | pos = end; | ||
406 | |||
407 | } | ||
408 | if (x->x_play && x->x_mapaddr) { | ||
409 | t_time aoff = fixtoi(pos)*c; | ||
410 | while (n--) { | ||
411 | long frac = (long long)((1<<fix1)-1)&pos; | ||
412 | |||
413 | for (i=0;i<c;i++) { | ||
414 | t_sample bs = *(buf+aoff+i)<<(fix1-16); | ||
415 | t_sample cs = *(buf+aoff+i+1)<<(fix1-16); | ||
416 | *out[i]++ = bs + mult((cs - bs),frac); | ||
417 | |||
418 | } | ||
419 | pos += speed; | ||
420 | aoff = fixtoi(pos)*c; | ||
421 | if (aoff > end) { | ||
422 | if (x->x_loop) pos = x->x_skip; | ||
423 | else break; | ||
424 | } | ||
425 | if (aoff < x->x_skip) { | ||
426 | if (x->x_loop) pos = end; | ||
427 | else break; | ||
428 | } | ||
429 | } | ||
430 | /* Fill with zero in case of end */ | ||
431 | n++; | ||
432 | while (n--) | ||
433 | for (i=0;i<c;i++) | ||
434 | *out[i]++ = 0; | ||
435 | } | ||
436 | else { | ||
437 | while (n--) { | ||
438 | for (i=0;i<c;i++) | ||
439 | *out[i]++ = 0.; | ||
440 | } | ||
441 | } | ||
442 | |||
443 | x->x_pos = pos; | ||
444 | return (w+c+4); | ||
445 | } | ||
446 | |||
447 | |||
448 | static void sfread_float(t_sfread *x, t_floatarg f) | ||
449 | { | ||
450 | int t = f; | ||
451 | if (t && x->x_mapaddr) { | ||
452 | x->x_play=1; | ||
453 | } | ||
454 | else { | ||
455 | x->x_play=0; | ||
456 | } | ||
457 | |||
458 | } | ||
459 | |||
460 | static void sfread_loop(t_sfread *x, t_floatarg f) | ||
461 | { | ||
462 | x->x_loop = f; | ||
463 | } | ||
464 | |||
465 | |||
466 | |||
467 | static void sfread_size(t_sfread* x) | ||
468 | { | ||
469 | t_atom a; | ||
470 | |||
471 | SETFLOAT(&a,x->x_size*0.5/x->x_channels); | ||
472 | outlet_list(x->x_bangout, gensym("size"),1,&a); | ||
473 | } | ||
474 | |||
475 | static void sfread_state(t_sfread* x) | ||
476 | { | ||
477 | t_atom a; | ||
478 | |||
479 | SETFLOAT(&a,x->x_play); | ||
480 | outlet_list(x->x_bangout, gensym("state"),1,&a); | ||
481 | } | ||
482 | |||
483 | |||
484 | |||
485 | |||
486 | static void sfread_bang(t_sfread* x) | ||
487 | { | ||
488 | x->x_pos = x->x_skip; | ||
489 | sfread_float(x,1.0); | ||
490 | } | ||
491 | |||
492 | |||
493 | static void sfread_dsp(t_sfread *x, t_signal **sp) | ||
494 | { | ||
495 | /* post("sfread: dsp"); */ | ||
496 | switch (x->x_channels) { | ||
497 | case 1: | ||
498 | dsp_add(sfread_perform, 4, x, sp[0]->s_vec, | ||
499 | sp[1]->s_vec, sp[0]->s_n); | ||
500 | break; | ||
501 | case 2: | ||
502 | dsp_add(sfread_perform, 5, x, sp[0]->s_vec, | ||
503 | sp[1]->s_vec,sp[2]->s_vec, sp[0]->s_n); | ||
504 | break; | ||
505 | case 4: | ||
506 | dsp_add(sfread_perform, 6, x, sp[0]->s_vec, | ||
507 | sp[1]->s_vec,sp[2]->s_vec, | ||
508 | sp[3]->s_vec,sp[4]->s_vec, | ||
509 | sp[0]->s_n); | ||
510 | break; | ||
511 | } | ||
512 | } | ||
513 | |||
514 | |||
515 | static void sfread_speed(t_sfread* x, t_floatarg f) | ||
516 | { | ||
517 | x->x_speed = ftofix(f); | ||
518 | } | ||
519 | |||
520 | static void sfread_offset(t_sfread* x, t_floatarg f) | ||
521 | { | ||
522 | x->x_pos = (int)f; | ||
523 | } | ||
524 | |||
525 | static void *sfread_new(t_floatarg chan,t_floatarg skip) | ||
526 | { | ||
527 | t_sfread *x = (t_sfread *)pd_new(sfread_class); | ||
528 | t_int c = chan; | ||
529 | |||
530 | x->x_glist = (t_glist*) canvas_getcurrent(); | ||
531 | |||
532 | if (c<1 || c > MAX_CHANS) c = 1; | ||
533 | inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); | ||
534 | inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2")); | ||
535 | |||
536 | |||
537 | x->x_fd = -1; | ||
538 | x->x_mapaddr = NULL; | ||
539 | |||
540 | x->x_size = 0; | ||
541 | x->x_loop = 0; | ||
542 | x->x_channels = c; | ||
543 | x->x_mapaddr=NULL; | ||
544 | x->x_pos = 0; | ||
545 | x->x_skip = 0; | ||
546 | x->x_speed = ftofix(1.0); | ||
547 | x->x_play = 0; | ||
548 | |||
549 | while (c--) { | ||
550 | outlet_new(&x->x_obj, gensym("signal")); | ||
551 | } | ||
552 | |||
553 | x->x_bangout = outlet_new(&x->x_obj, &s_float); | ||
554 | |||
555 | return (x); | ||
556 | } | ||
557 | |||
558 | void sfread_tilde_setup(void) | ||
559 | { | ||
560 | /* sfread */ | ||
561 | |||
562 | sfread_class = class_new(gensym("sfread~"), (t_newmethod)sfread_new, 0, | ||
563 | sizeof(t_sfread), 0,A_DEFFLOAT,A_DEFFLOAT,0); | ||
564 | class_addmethod(sfread_class, nullfn, gensym("signal"), 0); | ||
565 | class_addmethod(sfread_class, (t_method) sfread_dsp, gensym("dsp"), 0); | ||
566 | class_addmethod(sfread_class, (t_method) sfread_open, gensym("open"), A_SYMBOL,A_NULL); | ||
567 | class_addmethod(sfread_class, (t_method) sfread_size, gensym("size"), 0); | ||
568 | class_addmethod(sfread_class, (t_method) sfread_offset, gensym("ft1"), A_FLOAT, A_NULL); | ||
569 | class_addmethod(sfread_class, (t_method) sfread_speed, gensym("ft2"), A_FLOAT, A_NULL); | ||
570 | class_addmethod(sfread_class, (t_method) sfread_state, gensym("state"), 0); | ||
571 | class_addfloat(sfread_class, sfread_float); | ||
572 | class_addbang(sfread_class,sfread_bang); | ||
573 | class_addmethod(sfread_class,(t_method)sfread_loop,gensym("loop"),A_FLOAT,A_NULL); | ||
574 | |||
575 | } | ||
576 | |||