From 09f3e85728cdfbf88ad1aa24caa0427c641525ae Mon Sep 17 00:00:00 2001 From: Abram Hindle Date: Thu, 28 Apr 2011 19:09:11 -0700 Subject: [PATCH] before dicking around with rob --- Makefile | 2 +- energy.orc | 7 ++++--- energy.orc~ | 4 ++++ energy.sco~ | 2 ++ 4 files changed, 11 insertions(+), 4 deletions(-) create mode 100644 energy.orc~ create mode 100644 energy.sco~ diff --git a/Makefile b/Makefile index 36021a9..de52fab 100644 --- a/Makefile +++ b/Makefile @@ -7,7 +7,7 @@ difference: difference.c play: glview2 sudo ./glview2 | perl filter.pl | csound -dm6 -o devaudio -L stdin sine2.orc sine2.sco playdiff: difference - sudo ./difference | csound -dm6 -o devaudio -L stdin energy.orc energy.sco + ./difference | csound -dm6 -o devaudio -L stdin energy.orc energy.sco playOsc: perl oscInstrument.pl | csound -dm6 -o devaudio -L stdin sine2.orc sine2.sco diff --git a/energy.orc b/energy.orc index a36e6b6..8f44275 100644 --- a/energy.orc +++ b/energy.orc @@ -24,7 +24,7 @@ iavgl = p9 isumr = p10 iavgr = p11 - ishare = 0.05 + ishare = 0.2 ires = 1 - ishare gksum = gksum*ires + isum*ishare gkavg = gkavg*ires + iavg*ishare @@ -42,10 +42,11 @@ endin instr 666 -ac oscil 1000, 20*gksumc/600+10, 1 +ac oscil 1000, 20*gksuml/600+10, 1 al oscil 1000, 2*20*gksuml/600+10, 1 ar oscil 1000, 2.9966*20*gksumr/600+10, 1 -af foscili 1000, 20*gksumc/600 + 20, 1+gkavg, 2.8-gkavg, 0.3+gkavgc, 1 +;af foscili 1000, 20*gksumc/600 + 20, 1+gkavg, 2.8-gksumr/600, 0.3+gkavgc, 1 +af foscili 1000, 20*gksumc/600 + 20, 1+gkavg, 0.7, 0.7 + gkavgc, 1 ; ad distort1 af,2,1,0.1,0 asig bbcutm af*ac, 3, 8, 4, 4, 1, 2,0.3, 1 al lowpass2 asig,40,20 diff --git a/energy.orc~ b/energy.orc~ new file mode 100644 index 0000000..e40c873 --- /dev/null +++ b/energy.orc~ @@ -0,0 +1,4 @@ + sr = 22050 + kr = 220.5 + ksmps = 100 + nchnls = 1 diff --git a/energy.sco~ b/energy.sco~ new file mode 100644 index 0000000..3cb23f6 --- /dev/null +++ b/energy.sco~ @@ -0,0 +1,2 @@ +f1 0 8192 10 1 +f 0 3600