electro-music.com   Dedicated to experimental electro-acoustic
and electronic music
 
    Front Page  |  Articles  |  Radio
 |  Media  |  Forum  |  Wiki  |  Links  |  Store
Forum with support of Syndicator RSS
 FAQFAQ   CalendarCalendar   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   LinksLinks
 RegisterRegister   ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in  Chat RoomChat Room 
 Forum index » DIY Hardware and Software » Supercollider
Psycollider, my work PC, and lunch hour
Post new topic   Reply to topic Moderators: v-un-v
Page 1 of 1 [2 Posts]
View unread posts
View new posts in the last week
Mark the topic unread :: View previous topic :: View next topic
Author Message
dewdrop_world



Joined: Aug 28, 2006
Posts: 858
Location: Guangzhou, China
Audio files: 4

PostPosted: Tue May 06, 2008 11:39 am    Post subject: Psycollider, my work PC, and lunch hour
Subject description: a happy combination
Reply with quote  Mark this post and the followings unread

I'm so glad Psycollider 3.2 is in a really usable state... it lets me wreak mischief such as this at lunch time.



James

Code:

// note, this uses classes in the dewdrop_lib quark
// this won't work on an out-of-the-box install
// also you need to have a soundfile

(
BP(\brk).free;
PR(\break).chuck(BP(\brk), parms: (
//   bufPaths: ["sounds-link/breaks/oldskool/basic funk rustle snare-compressed.aiff"],
   inChannels: 2,
   bufPaths: ["F:/vn piece/basic tests/basic funk rustle snare-compressed.aiff"],
   postMCCreation: { |chan|
      StaticEQ(2,
         \eq, 465.613, -8.936.dbamp, 0.123,
         \eq, 12004.805, 3.546.dbamp, 0.405,
         \eq, 121.417, -9.504.dbamp, 0.081,
         \eq, 105.966, 2.979.dbamp, 0.462
      ).play(chan);
   },
   segStart: [46 + ((0..31) * 5865.12)],
   rates: [104 / 112.35668789809],
   amps: [1, 0, 0, 0].dup(8).flat,
   start: (0, 4 .. 31),
   categories: (
      kick: #[0, 16, /* 19*/],
      kicksnr8: #[10, 26],
      crash: #[14, 30],
      snare: (4, 12 .. 28),
      hh: #[2, 8, 18, 24],
      rustle: #[6, 7, 8, 22, 23, 24],
      longSegments: [0, 10, 14, 4, 12, 2, 8, 18]
   )
))
)

TempoClock.default.tempo = 108/60;

SynthDef(\bufGrainRateChangeRLPF, {
   |bufnum, start, time, amp, rate1 = 1, rate2 = 1, ffreq1 = 20000, ffreq2 = 20000, rq1 = 1, rq2 = 1,
    pan1 = 0, pan2 = 0, attack = 0.001, decay = 0.02, outbus|
   var   sig,
      rate = Line.kr(rate1, rate2, time),
      ffreq = XLine.kr(ffreq1, ffreq2, time),
      rq = Line.kr(rq1, rq2, time);
   sig = PlayBuf.ar(1, bufnum, rate * BufRateScale.kr(bufnum), 1, start, 0)
      * EnvGen.kr(Env.linen(attack, time, decay), doneAction:2);
   sig = RLPF.ar(sig, ffreq, rq, mul: amp);
   Out.ar(outbus, Pan2.ar(sig, Line.kr(pan1, pan2, time)));
}).memStore;

BP(\brk).def = \bufGrainRateChangeRLPF;

BP(\brk).argPairs = [
   rate1: Pexprand(0.5, 3.0, inf),
   rate2: Pkey(\rate1) * Pexprand(0.8, 2.0, inf),
   pan1: Pwhite(-1.0, 1.0, inf),
   pan2: Pwhite(-1.0, 1.0, inf),
   rq1: Pwhite(0.1, 0.5, inf),
   rq2: Pkey(\rq1),
   ffreq1: Pexprand(800, 5000, inf),
   ffreq2: Pkey(\ffreq1) * Pexprand(0.25, 3.5, inf)
];

BP(\brk).usedKeys = #[start];
BP(\brk).pbindPreAction = {
   var   i, avail = (1..15);
   ~amps = (0 ! 16).put(0, 1);
   ~start = (0 ! 16).put(0, ~categories.snare.choose);
   rrand(4, 9).do({
      i = avail.takeAt(avail.size.rand);
      ~amps[i] = rrand(0.7, 1.0);
      ~start[i] = ~categories.choose.choose;
   });
   Func(\shrinkKeys).value;
};

// for level adjustment
MixingBoard(\x, nil, BP(\brk).chan);

BP(\brk).play(doReset: true);
BP(\brk).stop;



brk-edit.mp3
 Description:
eeeee-vil

Download
 Filename:  brk-edit.mp3
 Filesize:  312.5 KB
 Downloaded:  883 Time(s)


_________________
ddw online: http://www.dewdrop-world.net
sc3 online: http://supercollider.sourceforge.net
Back to top
View user's profile Send private message Visit poster's website AIM Address
Blue Hell
Site Admin


Joined: Apr 03, 2004
Posts: 23280
Location: The Netherlands, Enschede
Audio files: 255
G2 patch files: 320

PostPosted: Tue May 06, 2008 1:05 pm    Post subject: Reply with quote  Mark this post and the followings unread

Not bad at all for a lunch break thingie Wink
_________________
Jan
also .. could someone please turn down the thermostat a bit.
Posted Image, might have been reduced in size. Click Image to view fullscreen.
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic Moderators: v-un-v
Page 1 of 1 [2 Posts]
View unread posts
View new posts in the last week
Mark the topic unread :: View previous topic :: View next topic
 Forum index » DIY Hardware and Software » Supercollider
Jump to:  

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
e-m mkii

Please support our site. If you click through and buy from
our affiliate partners, we earn a small commission.


Forum with support of Syndicator RSS
Powered by phpBB © 2001, 2005 phpBB Group
Copyright © 2003 through 2009 by electro-music.com - Conditions Of Use