[PD] display waveform in GEM

[Frank Barknecht]

Hallo,
derek holzer hat gesagt: // derek holzer wrote:

> Following an idea from Gerhard Daurer, I'd like to look into displaying 
> the waveform of an audiofile in a Gemwin. Gerhard sent me a prototype of 
> a very cool patch combining my Particle Chamber with PMPD and GEM, which 
> uses physical modelling to visually control the granulation of a 
> soundfile. (And I hope he posts this same prototype here soon!)

I'm curious, too.

> In his version, he has only a set number of audiofiles to choose from, 
> so he simply loads a JPG of the waveform into the Gemwin. However, I'd 
> like to be able to load any wav file into this and get some visual 
> feedback (i.e. be able to see the peaks). This would be a one-time 
> operation, and not something that would be changing in realtime (except 
> maybe a zoom in and out), however I would like that displaying the peaks 
> doesn't interrupt audio processing (as drawing a table would).
> 
> I'd like to use GEM for this so that the various grains could be 
> graphically represented on top of the waveform. I'm open for PDP 
> implementations, but I don't really consider PDP cross-platform so I'd 
> rather stick with GEM.
> 
> Any Gemheads out there have an idea of how to go about this?

well, I don't qualify as a Gemhead, but I made a simple patch which
does this using the method, I use in my msd-editor to render lots of
things inside one render command. I have first seen this in Cyrille
Henry's patches. 

I didn't fiddle with placing the waveform in a nicer way.

Ciao
-- 
 Frank Barknecht                               _ ______footils.org__
             
          _ __latest track: "scans" _ http://footils.org/cms/show/41
-------------- next part --------------
#N canvas 522 198 885 571 10;
#X obj 108 121 gemhead;
#X obj 108 212 separator;
#X obj 108 151 t a b;
#X obj 108 239 t a b b;
#X obj 108 181 repeat 32;
#X msg 189 184 0;
#X obj 193 261 f 0;
#X obj 219 261 + 1;
#X obj 200 306 tabread x;
#X obj 122 379 * -1;
#X obj 242 420 pack 0 0;
#X obj 122 411 pack 0 0;
#X obj 195 284 t f f;
#X obj 241 359 / 32;
#X obj 108 509 curve 3;
#X msg 122 443 \$2 \$1 0;
#X msg 186 447 \$1 0 0;
#X msg 242 449 \$2 \$1 0;
#X floatatom 325 148 5 0 0 0 zoom - -;
#X floatatom 189 148 5 0 0 0 length - -;
#X obj 544 166 soundfiler;
#X obj 544 97 openpanel;
#X msg 544 124 read -resize \$1 x;
#X msg 544 67 bang;
#X msg 519 385 0 \, destroy;
#X obj 519 432 gemwin;
#X obj 163 336 * 4;
#X msg 519 359 reset \, create \, 1;
#X obj 516 252 table x 32;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 2 1 5 0;
#X connect 3 0 14 0;
#X connect 3 2 6 0;
#X connect 4 0 1 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 6 0 12 0;
#X connect 7 0 6 1;
#X connect 8 0 26 0;
#X connect 9 0 11 0;
#X connect 10 0 17 0;
#X connect 11 0 15 0;
#X connect 12 0 8 0;
#X connect 12 1 13 0;
#X connect 13 0 10 1;
#X connect 13 0 11 1;
#X connect 13 0 16 0;
#X connect 15 0 14 1;
#X connect 16 0 14 2;
#X connect 17 0 14 3;
#X connect 18 0 13 1;
#X connect 19 0 4 1;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 26 0 9 0;
#X connect 26 0 10 0;
#X connect 27 0 25 0;