hi i am trying to do a similar project in max msp to the well know i am sitting in a room project if you havent heard of it its well worth a look http://www.lovely.com/titles/cd1013.html . if anyone has heard of it and know of anyway to do this in max or can help in any way it would be much appreciated. this may help http://homestudio.thing.net/revue/content/lucier3.htm
james
alvin lucier - i am sitting in a room/ maxmsp version
→16 posts by 10 people-
3 years ago
-
here it goes:
a vintage patch from Peter Elsea, 1997 ()cheers
Paulo Raposo
http://www.sirr-ecords.com#P toggle 83 26 15 0;
#P button 65 26 15 0;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 65 44 27 196617 sfp;
#P comment 289 400 119 196617 Maximum change is 0.5;
#P comment 289 388 152 196617 If output is above 0.2 turn down;
#P newex 81 332 35 196617 r stop;
#P newex 336 144 35 196617 s stop;
#P message 81 357 27 196617 stop;
#P newex 292 116 65 196617 delay 20000;
#P message 324 174 14 196617 0;
#P newex 269 88 65 196617 delay 20000;
#P flonum 330 236 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 250 42 38 0;
#P message 291 174 29 196617 0.15;
#P message 244 173 29 196617 0.77;
#P newex 201 121 45 196617 loadbang;
#P flonum 225 351 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 84 97 27 196617 *~;
#P newex 182 376 30 196617 line~;
#P message 182 351 35 196617 \$1 30;
#P newex 182 256 33 196617 * 10.;
#P newex 352 285 163 196617 Linterp 0 0 0 0.15 0.3 0.6 1 1 1 1;
#P newex 182 325 159 196617 expr $f1 * 0.5 - $f2 * 0.5 + $f3;
#P newex 182 285 145 196617 Linterp 1 0.5 0 0 0 0 0 0 0 0 0;
#P flonum 88 251 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 184 148 15 0;
#P newex 184 172 50 196617 metro 30;
#P newex 88 215 30 196617 avg~;
#P newex 65 126 27 196617 +~;
#P newex 65 175 69 196617 tapout~ 5000;
#P newex 65 151 63 196617 tapin~ 5000;
#P user ezdac~ 65 379 109 412 0;
#P comment 289 352 150 196617 A little fuzzy logic:;
#P window linecount 3;
#P comment 217 378 69 196617 Line smooths out the changes.;
#P comment 172 206 73 196617 Metro is needed to make avg~ work;
#P window linecount 2;
#P comment 219 257 100 196617 Scale output level to work with Linterp.;
#P comment 94 124 72 196617 Mix new signal and feedback;
#P window linecount 3;
#P comment 116 97 58 196617 Control gain of feedback;
#P window linecount 1;
#P comment 203 302 100 196617 If below 0.2 turn up;
#P comment 369 302 110 196617 If above 0.3 turn down;
#P window setfont Times 12.;
#P window linecount 12;
#P comment 390 34 219 1310732 I am sitting by a computer that is
running Max msp. The words I speak are captured in the computer
memory and held for five seconds \, then played back. As they are
played \, a fraction of the signal is recorded again \, and held
another two seconds \, then recycled over and over. As the words pass
repeatedly through the computer \, the resonant frequencies of the
system and room reinforce themselves so that any semblance of my
speech \, with perhaps the exception of rhythm \, is destroyed.;
#P window setfont "Sans Serif" 9.;
#P window linecount 3;
#P comment 118 39 112 196617 Connect Microphone to input. Leave it
turned on for entire piece.;
#P window setfont Times 12.;
#P window linecount 2;
#P comment 392 201 213 1310732 Derived from Alvin "Luciers I" am
Sitting in a Room.;
#P window linecount 1;
#P comment 387 12 53 9895954 Text:;
#P window setfont "Sans Serif" 9.;
#P comment 494 356 100 196617 Peter Elsea 1997;
#P window linecount 2;
#P comment 495 376 116 196617 University of California \, Santa Cruz;
#P window setfont "Sans Serif" 14.;
#P comment 230 6 100 196622 Click here to end piece.;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P comment 369 237 59 196617 Target gain;
#P comment 289 364 135 196617 Start with gain around 0.77;
#P comment 289 376 142 196617 If output is below 0.2 turn up;
#P window linecount 2;
#P comment 254 189 43 196617 Click to restart;
#P connect 30 0 27 0;
#P fasten 30 0 29 0 187 281 357 281;
#P fasten 42 0 44 0 297 138 341 138;
#P connect 39 0 28 2;
#P fasten 36 0 39 0 249 213 335 213;
#P fasten 37 0 39 0 296 213 335 213;
#P fasten 41 0 39 0 329 213 335 213;
#P fasten 40 0 41 0 274 154 329 154;
#P connect 40 0 42 0;
#P fasten 38 0 37 0 255 160 296 160;
#P connect 38 0 40 0;
#P fasten 29 0 28 1 357 316 261 316;
#P fasten 35 0 25 0 206 143 189 143;
#P fasten 35 0 36 0 206 167 249 167;
#P connect 28 0 31 0;
#P connect 28 0 34 0;
#P connect 25 0 24 0;
#P connect 31 0 32 0;
#P connect 27 0 28 0;
#P connect 23 0 26 0;
#P fasten 23 0 30 0 93 242 187 242;
#P fasten 32 0 33 1 187 401 176 401 176 81 106 81;
#P connect 21 0 19 0;
#P fasten 21 0 33 0 70 200 50 200 50 81 89 81;
#P connect 21 0 23 0;
#P connect 21 0 19 1;
#P fasten 24 0 23 0 189 207 93 207;
#P connect 33 0 22 1;
#P connect 50 0 48 1;
#P connect 45 0 43 0;
#P connect 43 0 19 0;
#P connect 20 0 21 0;
#P connect 22 0 20 0;
#P fasten 48 0 22 0 70 111 70 111;
#P connect 49 0 48 0;
#P window clipboard copycount 51;On Jan 18, 2007, at 9:16 PM, james wrote:
>
> hi i am trying to do a similar project in max msp to the well know
> i am sitting in a room project if you havent heard of it its well
> worth a look http://www.lovely.com/titles/cd1013.html . if anyone
> has heard of it and know of anyway to do this in max or can help in
> any way it would be much appreciated. this may help http://
> homestudio.thing.net/revue/content/lucier3.htm
> jamesnow out:
'Hades', Marc Behrens & Paulo Raposo
http://www.and-oar.orgKenneth Kirshner, Three Compositions
http://www.sirr-ecords.com***
Paulo Raposo
Rua Cidade Nova Lisboa 220 5A
1800 Lisboa - Portugal
sirr@sirr-ecords.comhttp://www.sirr-ecords.com
http://www.sirr-ecords.com/pauloraposo3 years ago -
James,
This is pretty simply done. Closest in spirit to the original would be
to have a buffer, of a size appropriate to the statement you wish to
record (you could use a delay line instead, it's just a slight
difference in interface).On the first iteration you'll need to manually start and stop recording
into the buffer (using record~). Thereafter, using the output of record~
to tell you how long the recorded segment was, the playback-rerecord
cycles can be completely automated (which may be easier using poke~, YMMV).--
Owenjames wrote:
> hi i am trying to do a similar project in max msp to the well know i
> am sitting in a room project if you havent heard of it its well worth
> a look http://www.lovely.com/titles/cd1013.html . if anyone has heard
> of it and know of anyway to do this in max or can help in any way it
> would be much appreciated. this may help
> http://homestudio.thing.net/revue/content/lucier3.htm james
>
>3 years ago -
any chance you could send me the patch?
im not sure what that means?
cheers
james3 years ago -
that was to Paulo by the way
3 years ago -
Select the patch code, copy, open max. new patcher, paste, or
alternatively new patch from clipboard menu.On Jan 18, 2007, at 5:00 PM, james wrote:
>
> any chance you could send me the patch?
> im not sure what that means?
> cheers
> jamesv a d e //
http://www.vade.info
abstrakt.vade.info3 years ago -
awesome cheers, can you set the microphone used? then do you just hit the toggle at top left then speak, then press the dac button to listen?
3 years ago -
There must be tons of these patches lying around. Below is the one I wrote for a performance at Manchester University last year. It was quite wonderful if I may say so. The patch is not completely authentic since it normalizes buffers to minimize accumulation of digital noise. It also requires a couple of my LyonPotpourri objects.
Eric
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P hidden message 19 143 55 196617 size 5000;
#P window setfont "Sans Serif" 18.;
#P number 150 585 44 18 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window setfont "Sans Serif" 9.;
#N vpatcher 10 59 360 293;
#P window setfont "Sans Serif" 9.;
#P number 209 78 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 153 27 71 196617 r Start-Piece;
#P message 153 51 38 196617 goto 0;
#P outlet 15 153 15 0;
#P window linecount 1;
#P newex 50 37 86 196617 r playcount-bang;
#P message 50 133 14 196617 0;
#P newex 50 113 38 196617 sel 29;
#P number 50 93 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N counter 0 100;
#X flags 0 0;
#P newobj 50 72 74 196617 counter 0 100;
#P outlet 50 153 15 0;
#P window linecount 0;
#P comment 208 60 92 196617 iterations minus 1;
#P fasten 3 0 7 0 55 110 20 110;
#P fasten 8 0 2 0 158 69 55 69;
#P connect 6 0 2 0;
#P connect 2 0 3 0;
#P connect 3 0 4 0;
#P connect 4 0 5 0;
#P connect 5 0 1 0;
#P fasten 10 0 4 1 214 110 83 110;
#P connect 9 0 8 0;
#P pop;
#P newobj 150 536 119 196617 p count-and-termination;
#P newex 364 396 76 196617 s play-buffer1;
#P newex 645 505 76 196617 r play-buffer1;
#P newex 464 396 76 196617 s play-buffer2;
#P newex 725 505 76 196617 r play-buffer2;
#P newex 280 421 71 196617 r Start-Piece;
#P button 781 119 34 0;
#P newex 781 159 71 196617 s Start-Piece;
#N vpatcher 20 74 620 474;
#P window setfont "Sans Serif" 9.;
#P newex 319 125 86 196617 s playcount-bang;
#P newex 223 50 75 196617 r player-panic;
#P newex 156 109 37 196617 click~;
#P newex 50 109 37 196617 click~;
#P newex 156 130 103 196617 el.player~ sitting2 1;
#P newex 50 130 103 196617 el.player~ sitting1 1;
#P inlet 50 65 15 0;
#P inlet 156 65 15 0;
#P outlet 101 187 15 0;
#P connect 2 0 5 0;
#P connect 7 0 3 0;
#P connect 5 0 3 0;
#P connect 4 0 0 0;
#P connect 3 0 0 0;
#P connect 1 0 6 0;
#P connect 6 0 4 0;
#P connect 7 0 4 0;
#P connect 2 0 8 0;
#P connect 1 0 8 0;
#P pop;
#P newobj 645 548 90 196617 p playback-engine;
#N vpatcher 30 89 630 489;
#P window setfont "Sans Serif" 9.;
#P newex 158 73 76 196617 r record-panic;
#P newex 256 199 36 196617 edge~;
#P newex 256 176 45 196617 >=~ 1.;
#P newex 78 202 36 196617 edge~;
#P newex 78 179 45 196617 >=~ 1.;
#P newex 256 116 84 196617 record~ sitting2;
#P newex 78 40 109 196617 receive~ sitting-input;
#P newex 78 123 84 196617 record~ sitting1;
#P inlet 11 91 15 0;
#P inlet 402 75 15 0;
#P outlet 349 178 15 0;
#P outlet 78 224 15 0;
#P outlet 30 174 15 0;
#P outlet 256 221 15 0;
#P fasten 6 0 1 0 83 157 35 157;
#P connect 7 0 6 0;
#P fasten 5 0 6 0 16 114 83 114;
#P fasten 13 0 6 0 163 106 83 106;
#P connect 6 0 9 0;
#P connect 9 0 10 0;
#P connect 10 0 2 0;
#P fasten 4 0 8 0 407 103 261 103;
#P fasten 13 0 8 0 163 114 261 114;
#P fasten 7 0 8 0 83 65 261 65;
#P connect 8 0 11 0;
#P connect 11 0 12 0;
#P connect 12 0 0 0;
#P fasten 8 0 3 0 261 155 354 155;
#P pop;
#P newobj 371 489 81 196617 p record-engine;
#P window setfont "Sans Serif" 24.;
#P user number~ 440 527 532 562 24 3 3 2 0. 0. 0 0. 250 0. 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 781 206 34 0;
#P window setfont "Sans Serif" 9.;
#N vpatcher 20 74 620 474;
#P window setfont "Sans Serif" 9.;
#P message 242 115 14 196617 0;
#P newex 243 137 76 196617 s record-panic;
#P message 153 112 29 196617 stop;
#P newex 153 137 75 196617 s player-panic;
#P inlet 153 74 15 0;
#P connect 0 0 2 0;
#P connect 2 0 1 0;
#P connect 0 0 4 0;
#P connect 4 0 3 0;
#P pop;
#P newobj 781 244 74 196617 p panic-button;
#P hidden newex 191 557 60 196617 loadmess 1;
#P toggle 294 593 15 0;
#P newex 472 616 29 196617 gate;
#P newex 294 616 29 196617 gate;
#P window setfont "Sans Serif" 24.;
#P user number~ 299 527 391 562 24 3 3 2 0. 0. 0 0. 250 0. 0 0 0 221 221 221 222 222 222 0 0 0;
#P window setfont "Sans Serif" 9.;
#P message 371 470 14 196617 1;
#P newex 464 372 88 196617 t b b;
#P message 442 470 14 196617 1;
#P newex 364 372 88 196617 t b b;
#P button 491 576 15 0;
#P button 313 576 15 0;
#P user meter~ 693 661 773 674 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P user ezdac~ 645 644 689 677 0;
#P hidden newex 711 599 72 196617 loadmess 127;
#P button 725 529 15 0;
#P button 645 529 15 0;
#P user gain~ 645 576 22 35 158 15 1.071519 7.94321 10.;
#P message 464 325 78 196617 normalize 0.95;
#P message 364 325 78 196617 normalize 0.95;
#P newex 94 121 95 196617 send~ sitting-input;
#P newex 464 347 92 196617 el.buffet~ sitting2;
#P newex 364 347 92 196617 el.buffet~ sitting1;
#P newex 35 387 106 196617 loadmess set sitting2;
#P newex 35 282 106 196617 loadmess set sitting1;
#P user waveform~ 35 403 200 74 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 0;
#W labels 1;
#W vlabels 0;
#W vticks 1;
#W bpm 120. 4.;
#W frgb 33 0 0;
#W brgb 60 178 173;
#W rgb2 0 95 255;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 190 137 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P user waveform~ 35 298 200 74 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 0;
#W labels 1;
#W vlabels 0;
#W vticks 1;
#W bpm 120. 4.;
#W frgb 33 0 0;
#W brgb 60 178 173;
#W rgb2 0 95 255;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 190 137 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P newex 82 194 115 196617 buffer~ sitting2 65000;
#P newex 82 171 115 196617 buffer~ sitting1 65000;
#P user meter~ 109 104 189 117 50 0 168 0 103 103 103 255 153 0 255 0 0 217 217 0 153 186 0 12 3 3 3 3;
#P user ezadc~ 94 61 138 94 0;
#P window setfont "Sans Serif" 18.;
#P window linecount 11;
#P comment 264 34 504 196626 I am sitting in a room \, the same one you are in now. I am recording the sound of my speaking voice and I am going to play it back into the room again and again until the resonant frequencies of the room reinforce themselves so that any semblance of my speech \, with perhaps the exception of r-r-r-rhythm \, is destroyed. What you will hear \, then \, are the natural resonant frequencies of the room articulated by speech. I regard this activity nnnnnot so much as a demonstration of a physical fact \, but more as a way to s-s-smooth out any irregularities my speech might have.;
#P window setfont "Sans Serif" 12.;
#P window linecount 2;
#P comment 50 699 378 196620 Performance patch for Alvin Lucier's "I Am Sitting in a Room" coded by Eric Lyon;
#P connect 33 0 32 0;
#P connect 38 0 37 0;
#P connect 17 0 36 1;
#P connect 40 0 17 0;
#P fasten 15 0 20 0 650 638 670 638 670 607 698 607;
#P fasten 15 0 19 1 650 638 684 638;
#P connect 15 0 19 0;
#P hidden connect 18 0 15 0;
#P connect 36 0 15 0;
#P connect 16 0 36 0;
#P connect 42 0 16 0;
#P connect 22 0 29 1;
#P fasten 35 2 22 0 422 572 496 572;
#P connect 30 0 28 0;
#P fasten 30 0 29 0 299 612 477 612;
#P connect 25 0 41 0;
#P connect 11 0 25 0;
#P connect 14 0 11 0;
#P fasten 29 0 14 0 477 637 574 637 574 317 469 317;
#P connect 24 0 35 1;
#P fasten 23 1 24 0 447 400 447 400;
#P fasten 35 3 34 0 445 515 445 515;
#P connect 26 0 35 0;
#P fasten 25 1 26 0 547 440 460 440 433 466 376 466;
#P fasten 39 0 26 0 285 466 376 466;
#P connect 23 0 43 0;
#P connect 10 0 23 0;
#P connect 13 0 10 0;
#P fasten 28 0 13 0 299 639 271 639 271 318 369 318;
#P connect 21 0 28 1;
#P fasten 35 1 21 0 399 568 318 568;
#P fasten 35 0 27 0 376 516 304 516;
#P fasten 44 1 30 0 277 566 299 566;
#P hidden fasten 31 0 30 0 196 579 299 579;
#P connect 44 0 45 0;
#P fasten 2 0 3 0 99 99 114 99;
#P connect 2 0 12 0;
#P hidden fasten 46 0 5 0 24 191 87 191;
#P hidden fasten 46 0 4 0 24 164 87 164;
#P connect 9 0 7 0;
#P connect 8 0 6 0;
#P window clipboard copycount 47;3 years ago -
On 18-Jan-2007, at 22:54, Paulo Raposo wrote:
> a vintage patch from Peter Elsea, 1997 ()Requires Linterp from Peter Elsea's LObjects (which is easy to find).
But where does one get sfp? MaxObjects doesn't have an entry for it.-------------- http://www.bek.no/~pcastine/Litter/ -------------
Peter Castine +--> Litter Power & Litter Bundle for Jitter
Universal Binaries on the way
iCE: Sequencing, Recording &
Interface Building for |home | chez nous|
Max/MSP Extremely cool |bei uns | i nostri|
http://www.dspaudio.com/ http://www.castine.de3 years ago -
hi eric it looks good, i am a sort of newcomer to max and cant seem to get it working. can you explain the sequence you have to do to get it going and where i can get your LyonPotpourri object and what i do with it. i have an error come up for e.l.buffet~ is this what you are talking about?
cheers james3 years ago -
Quote: james.ashworth@students.plymouth.ac wrote on Fri, 19 January 2007 09:49
----------------------------------------------------
> hi eric it looks good, i am a sort of newcomer to max and cant seem to get it working. can you explain the sequence you have to do to get it going and where i can get your LyonPotpourri object and what i do with it. i have an error come up for e.l.buffet~ is this what you are talking about?
> cheers james
----------------------------------------------------http://www.sarc.qub.ac.uk/~elyon/LyonSoftware/MaxMSP/
Move the object files to where you keep third party objects. Start Max and it should now find el.buffet~.
Hit the bang connected to the patcher "Start-Piece" and start talking into the mic.
Good luck,
Eric
3 years ago -
hi,
has anyone out there used the sparkfun electronics wireless
accelerometer/tilt controller v2.5?http://www.sparkfun.com/commerce/product_info.php?products_id=254
if so, any hints as how to use it with max/msp on os x?
any help greatly appreciated.
thanks,
peter3 years ago -
3 years ago -
http://www.cycling74.com/forums/index.php?t=msg&goto=78313
http://forum.sparkfun.com/viewtopic.php?t=2727
http://www.youtube.com/watch?v=EsPtW59Ozaci think most of ur questions should be answerd, its a fun toy.
On 8/13/07, peter whincop <whincop@mit.edu> wrote:
>
>
> hi,
>
> has anyone out there used the sparkfun electronics wireless
> accelerometer/tilt controller v2.5?
>
> http://www.sparkfun.com/commerce/product_info.php?products_id=254
>
> if so, any hints as how to use it with max/msp on os x?
>
> any help greatly appreciated.
>
> thanks,
> peter
>3 years ago -
3 years ago -
3 years ago
Reply
You must log in to post.