http://www.diigo.com/
很棒的web 2.0支持,
可以随便标记网页了,
取代之前的highlighter.

As we speak to the wall,
it starts to rain a million invaders
to our ever-green stupidity.

装备了last.fm的滚动更新以后, 这里需要的东西其实更少了.
但愿有自动Radio功能, 把我在上面的groups都连过来, 以后再能
嵌入代码把本地文章自动上传,blog就正式变成ghost in the shell.

一角, 来自我憧憬的时代.
不然我们就继续做工具的工具.

根据戒毒状况闭关是否必要也很难说. 不管怎么样, 最近鬼使神差
开始听BT的东西, 主要是611课上老板的前老板McGill MT的开山掌门
Bruce提到的唯一两个主流艺人就是九寸钉和BT. 以前除了粉喜欢BT
97年<ESCM>的单曲"remember"之外, 对所谓Epic House只是一般喜欢,
今天的反应链是酱紫:

1. 本地Winamp放BT的99大碟<Movements in Still Life>
2. last.fm的audioscrobbler插件把ID3 tag上传
3. 捆绑在Winamp上的last.fm驻留内存的程序根据tag下载专辑信息和网站上BT的介绍 (BTW, 超级喜欢last.fm上的艺人简介, 看得出来全部来自音乐专业的写手, 对技术十分熟悉且绝不删繁就简. 看了10多年文科生和准文科生的理科写手的东西我开始看到不久的将来技术文风将占有一定非技术评论的市场份额, 就像我相信geek人口的增长将给科幻惊险电影剧本里的技术段落质量造成压力一样.)
4. 跟着软件上的read more链接来到last.fm上的BT主页, 看到艺人简介余文关于BT装备的全部介绍("a few Apple G5's and 8 AMD dual-core Opteron 64-bit desktops"), 以及他是个cSound程序员的消息 (AMG等地永远不会有这样的字段)
   
5. 接着去到上面BT的myspace博客, 几个月没有更新, 但这家伙写起来就是满屏字.
6. 惊奇地看到他说到他本月29号即将发布的新碟里有一首纯cSound曲目, 并且贴了一段较完整的代码, 兴趣来了.

结论, 忙完了下一仗之后开始业余抽时间收藏一些算法和代码. Doug去年暑期打工曾经在PD上实现John Cage的一部分曲目. 考虑找他借一点来看看.


顺手再贴一段他年初的帖子, 很搞, 但很现实.
(来源: BT博客)
What a journey this year has been. One of the hardest, most confusing, turbulent, powerful, constructive, exhausting, overwhelming, important, frustrating, cacophonous, yet creative and beautiful years of my life.

I gotta admit.

Not one that I will be unhappy to say goodbye too.
With exceptions of course. What a beautiful year of growth watching and parenting Kaia. Watching her walk, sign, speak, swim…..beauty indescribable.

But personally, a train wreck, four huge legal wars, that alone have not only eaten my savings, but have put me so far in debt it may take me years to recover….that is if I escape bankruptcy. One lawsuit is ongoing. There is a guy in New York, that claims ONE loop on my sample CD (a one bar loop) is his. A composer used it in a Pfizer commercial and he heard it, say’s it’s his (I made the loop in Reason in about 5 minutes, and furthermore after paying a musicologist 10,000$, found out that it’s the first beat in the book “Intro to drumming”, literally the first beat they teach you when you learn to play drums). Well how’s this for the American legal system…..

He is suing me for 10 MILLION DOLLARS.

Not joking. He’s also suing East/West the company that distributed my CD for 10 million dollars and Pfizer etc. We have done FFT analysis of the loop, showed the judge waveforms, etc…..does not matter, in America, you can sue anyone for anything. Here’s the kicker…..I have to pay for my own defense, and this guy has some ambulance chaser attorney working on a percentage with nothing better to do than try to force a settlement with a huge corporation, and some guy that just loves making music and sounds, so he can sit on his ass and smoke weed all day. I swear sometimes I want to renounce my citizenship.

Anyway, all this anti-legal, expatriate sort of stuff may be coming from the fact that I am in one of the most beautiful, eco friendly, amazing people, food, diving, jungle, unreal places on the planet…

呵呵, 看看后面留言便又是一个结论.
for better or worse, 总有人在你这边.

下面转贴BT公布的代码, 有兴趣的可以用cSound编译一下试试.
(来源: BT博客http://blog.myspace.com/mrbt)
Ps: anyone here that is a geek, here's a little gift for you. I am going to publish the whole thing with the This Binary Universe record. I wrote one of the songs completely in code in cSound. The song is called "everything that makes us human, continues". If you have cSound (it's a free download if your don't and are interested), compile this and you'll hear one of the main riffs from the song. Like I said when the record comes out, I will publish the whole thing, this whole thing I wrote in Thailand last Christmas, from scratch. Enjoy J

Copy paste this into the orchestra file :



sr = 44100

kr = 4410

ksmps = 10

nchnls = 2


instr 101


.r{}

itempo = 100
kenv linseg 14000, .12, 8000, .15, 3000, .12, 1200, .11, 400, .7, 0
kenv2 linseg 15000, .11, 2000, .16, 900, .11, 500, .12, 200, .8, 0
kenv3 linseg 25000, .09, 9000, .6, 4000, 1, 0
ktone line 0, p3, 1
kbrite line 6.2, p3, 6.2
kbrite2 line 7.6, p3, 7.6
kfadefilter line 1500, p3, 25000
kfadefilter2 line 100, p3, 8000
kverbpan3 lfo 20, p3*.02
ileveloscs = p4
a1 hsboscil kenv*.18, ktone, kbrite, cpspch(p5+2.0), 2, 3, 10, -1
a2 hsboscil kenv2*.18, ktone, kbrite2, cpspch(p5+3.0), 2, 3, 10, -1
a3 oscil kenv3, cpspch(p5+3), 4
a4 oscil kenv3*0.01, cpspch(p5+1.6), 4
a5 oscil kenv3, cpspch(p5-2.4), 4
a6 oscil kenv3*.2, cpspch(p5-2.0), 4
a7 oscil kenv3*.2, cpspch(p5-1.4), 4
a5hp butterhp a5, kfadefilter2
amixhp1 butterhp a1+(a2*.1), kfadefilter+1000
amix = amixhp1*.1+a3+a5hp+a4+a6+a7
acomb comb amix, .007, .01, 4.0
al, ar babo acomb, kverbpan3, 0, 0, 8.39, 7.86, 40,
ahilinput = (amix+a3+a5hp+a4+a7) + (al*.3)
kfreq linseg cpspch(p6), p3, cpspch(p6)+.001
ahilL, ahilR hilbert ahilinput
asin oscili 1, kfreq, 5
acos oscili 1, kfreq, 5, .25
amod1 = ahilL * acos
amod2 = ahilR * asin
aupshift = (amod1 + amod2) * 0.71
adownshift = (amod1 - amod2) * 0.7
aoutL = aupshift +ar*.1
aoutR = adownshift +acomb*.3
khpline line 440, p3, 180
kpanL line 1, p3, 0
kpanR line 0, p3, 1
aoutLhp butterhp aoutL* ileveloscs, khpline
aoutRhp butterhp aoutR* ileveloscs, khpline

ilevl = .71
itap1 = 0.3
itap2 = 0.45
itap3 = 0.6
itap4 = 0.9
ifdbk1 = 0.75
ifdbk2 = 0.69
ifdbk3 = 0.71
ifdbk4 = 0.72
irate1 = 0.7
irate2 = 0.2
irate3 = 1.1
irate4 = .5
ifdbk = 0.059

atap1 init 0
atap2 init 0
atap3 init 0
atap4 init 0

ataps sum atap1, atap2, atap3, atap4
afdbk = ataps*ifdbk
afdbk1 = atap1*ifdbk1
afdbk2 = atap2*ifdbk2
afdbk3 = atap3*ifdbk3
afdbk4 = atap4*ifdbk4
apan1 oscil .5, irate1, 1
apan2 oscil .5, irate2, 1
apan3 oscil .5, irate3, 1
apan4 oscil .5, irate4, 1
kfilt1 lfo .01, irate1/4, 5
kfilt2 lfo .01, irate2/4, 5
kfilt3 oscil .5, irate3/2, 5
kfilt4 oscil .5, irate4/2, 5
apan1 = apan1 + .5
apan2 = apan2 + .5
apan3 = apan3 + .5
apan4 = apan4 + .5
atap1 delay aoutLhp + afdbk1, itap1, itap1
atap2 delay aoutLhp + afdbk2, itap2, itap2
atap3 delay aoutRhp + afdbk3, itap3, itap3
atap4 delay aoutRhp + afdbk4, itap4, itap4
atap1rf butterlp atap1, 5000*kfilt1, 200
atap2rf butterlp atap1, 2700*kfilt2, 230
al = atap1rf*sqrt(apan1) + atap2rf*sqrt(1 - apan2)
ar = atap1rf*sqrt(1 - apan1) + atap2rf*sqrt(apan2)
al = al + atap3*sqrt(apan3) + atap4*sqrt(1 - apan4)
ar = ar + atap3*sqrt(1 - apan3) + atap4*sqrt(apan4)

aoutLhpan = aoutLhp*kpanL+aoutRhp*kpanR
aoutRhpan = aoutRhp*kpanL +aoutLhp*kpanR
aoutsL = aoutLhpan + al*ilevl
aoutsR = aoutRhpan + ar*ilevl


outs aoutsL*.7, aoutsR*.7
endin

instr 102


.r{}


itempo = 100
kenv linseg 14000, .12, 8000, .15, 3000, .12, 1200, .11, 400, .7, 0
kenv2 linseg 15000, .11, 2000, .16, 900, .11, 500, .12, 200, .8, 0
kenv3 linseg 25000, .09, 9000, .6, 4000, 1, 0
ileveloscs = p4
a3 oscil kenv3, cpspch(p5), 4
a4 oscil kenv3*0.01, cpspch(p5+1.7), 4
a5 oscil kenv3, cpspch(p5-2.4), 4
a6 oscil kenv3*.2, cpspch(p5-2.0), 4
a7 oscil kenv3*.2, cpspch(p5-1.5), 4
anreverb nreverb a3+a4+a5+a6+a7, 3.9, .2
adryL = a3+a4+a7
adryR = a5+a6+a7
ahilinput = adryL
kfreq1 linseg 0, p3, 1
kfreq2 linseg 0, p3, 1
ahilL, ahilR hilbert ahilinput
asin oscili 1, kfreq1, 5
acos oscili 1, kfreq2, 5, .25
amod1 = ahilL * acos
amod2 = ahilR * asin
aupshift = (amod1 + amod2) * 0.7
adownshift = (amod1 - amod2) * 0.7
aoutL = adownshift
aoutR = aupshift
khpline line 120, p3, 180
kpanL line 1, p3, 0
kpanR line 0, p3, 1
aoutLhp butterhp aoutL* ileveloscs, khpline
aoutRhp butterhp aoutR* ileveloscs, khpline
aoutLmix = adryL+(aoutLhp*.01)
aoutRmix = adryR+(aoutRhp*.01)
ilevl = .50
irate1 = 0.7
irate2 = 0.2
irate3 = 1.1
irate4 = .5
ifdbk = 0.059
apan1 oscil .5, irate1, 1
apan2 oscil .5, irate2, 1
apan3 oscil .5, irate3, 1
apan4 oscil .5, irate4, 1
apan1 = apan1 + .5
apan2 = apan2 + .5
apan3 = apan3 + .5
apan4 = apan4 + .5
iptest = p6+p7+p8+p9
if iptest == 4 kgoto outnoramp
if iptest != 4 kgoto outramp



outnoramp:

aeighth = .50
adottedeight = .75
aquart = 1.00
adottedquart = 1.50
atap1 flanger aoutLmix, aeighth, .75
atap2 flanger aoutLmix, adottedquart, .69
atap3 flanger aoutLmix, aquart, .71
atap4 flanger aoutLmix, adottedeight, .72
atap1rf butterhp atap1, 300
atap2rf butterhp atap1, 300
al = atap1rf*sqrt(apan1) + atap2rf*sqrt(1 - apan2)
ar = atap1rf*sqrt(1 - apan1) + atap2rf*sqrt(apan2)
al = al + atap3*sqrt(apan3) + atap4*sqrt(1 - apan4)
ar = ar + atap3*sqrt(1 - apan3) + atap4*sqrt(apan4)
aoutLhpan = aoutLhp*kpanL+aoutRhp*kpanR
aoutRhpan = aoutRhp*kpanL +aoutLhp*kpanR
aoutsL = aoutLhpan + al*ilevl
aoutsR = aoutRhpan + ar*ilevl
outs (aoutsL*p4)*.5, (aoutsR*p4)*.5


outramp:

adelayline linseg 1, p3/32, .5, p3/32, .25, p3/32, .125, p3/16, .0625, p3/16, .03125, p3/16, .015625, p3/16, .0078125
kdelayup downsamp adelayline
kdelayline portk kdelayup, .2
adelayup upsamp kdelayline
atap1 flanger aoutLmix, 0.50* adelayup, .89
atap2 flanger aoutLmix, 1.50* adelayup, .79
atap3 flanger aoutLmix, 1.00* adelayup, .69
atap4 flanger aoutLmix, 0.5* adelayup, .74
atap1rf butterhp atap1, 300
atap2rf butterhp atap1, 300
al = atap1rf*sqrt(apan1) + atap2rf*sqrt(1 - apan2)
ar = atap1rf*sqrt(1 - apan1) + atap2rf*sqrt(apan2)
al = al + atap3*sqrt(apan3) + atap4*sqrt(1 - apan4)
ar = ar + atap3*sqrt(1 - apan3) + atap4*sqrt(apan4)
aoutLhpan = aoutLhp*kpanL+aoutRhp*kpanR
aoutRhpan = aoutRhp*kpanL +aoutLhp*kpanR
kline linseg 0, p3/2, .4, p3/3, 1
iline = i(kline)
aoutsL = aoutLhpan + al*ilevl
aoutsR = aoutRhpan + ar*ilevl
outs ((aoutsL*p4)/2)*kline, ((aoutsR*p4)/2)*kline
endin





and this into the score >




.r{}



f1 0 32768 10 1
f2 0 4096 10 1
f3 0 1024 -19 1 0.5 270 0.5
f4 0 4096 10 1
f5 0 16384 10 1

t 0 75

..define BELLSOFLIFE ..

;inst start dur vol Pitch HilbertPitch

i101 0 8 1 4.00 8.00
i101 1.25 8 .9 5.00 6.00
i101 3 8 1 4.00 6.00
i101 4.5 8 .85 4.00 7.00
i101 5 8 1 4.00 8.00
i101 7.5 8 .79 3.00 6.00
i101 8 8 .62 4.00 8.00
i101 9 8 1 4.00 8.00
i101 9.25 8 .13 3.00 6.00
i101 10.5 8 .92 5.00 6.00
i101 13 8 1 4.00 6.00
i101 14.5 8 .67 4.00 7.00
i101 15 8 1 4.00 8.00
i101 17.5 8 1.21 3.00 6.00
i101 17.75 8 .33 4.00 7.00
i101 18 8 .7 4.00 7.00
i101 19 8 .5 3.00 8.00
i101 20 8 1 4.00 3.00
i101 21.5 8 .67 4.00 12.00
i101 22 8 1 4.00 9.00
i101 22.5 8 1.21 3.00 5.00
i101 22.75 8 .33 4.00 4.00
i101 23 8 .7 4.00 6.00
i101 24 8 .5 3.00 10.00 ..

..define SINE ..

;inst start dur vol Pitch DelRatio1 DelRatio2 DelRatio3 DelRatio4

i102 0 8 1 4.00 1 1 1 1
i102 0 1 .3 6.07 2 2 .5 8
i102 0.5 8 .6 5.00 1 1 1 1
i102 1 8 .6 3.00 1 1 1 1
i102 1.50 8 .13 5.00 1 1 1 1
i102 2 8 .85 7.00 1 1 1 1
i102 2.5 8 .6 6.00 1 1 1 1
i102 3 4 1 6.00 .25 .50 4 2
i102 3.5 8 .6 7.00 1 1 1 1
i102 4 8 .9 4.00 1 1 1 1
i102 4.5 8 .6 5.00 1 1 1 1
i102 5 8 1 6.00 1 1 1 1
i102 5.25 8 .15 5.00 1 1 1 1
i102 5.5 8 .5 7.00 1 1 1 1
i102 6 8 1 5.00 1 1 1 1
i102 6.5 8 .4 7.00 1 1 1 1
i102 7 8 1 4.00 1 1 1 1
i102 7.5 4 .6 7.00 2 2 1 2 ..



$SINE.
$BELLSOFLIFE.
b 8
$SINE.
b 16
$SINE.
b 24


e