| Hello all !
I've made a sound that I like A LOT, but I don't know what to do
next.....The orc and sco are included, so check it out.
Try to run it in realtime with Maldonado's DXCsound 2.1, as there are
opcodes used only supported by DXCsound...
- Can anyone comment this sound and make suggestions what could be done for
making it more interesting ??
- Is there a way to "morph" between two function tables ????
The ORC :
;----------------------------------------------------------------;
; " Emotions of the Lost " ;
;----------------------------------------------------------------;
;---------------------------------------------------------------------------
--------
; By Affective Disorder (davids@pavell.com) Sept 1998
;---------------------------------------------------------------------------
--------
;sr = 44100
;kr = 4410
sr = 22050
kr = 2205
ksmps = 10
nchnls = 2
garevr init 0
garevl init 0
instr 2
kenv linen 1,50,p3,30
;kenv expseg 0,30,1,p3-60,1,30,0
irevgain=p4
kcut oscili 15,.1,1
asig oscil 5000,100,1
asig=asig*kenv
kbase randi 10,.1
kbase=kbase+100
as oscil 6000,kbase/1.33,1
as1 oscil 6000,kbase,1
as2 oscil 6000,kbase*1.33,1
as3 oscil 6000,kbase*2.66,1
as4 oscil 6000,kbase*3.99,1
as5 oscil 6000,kbase*4.33,1
as6 oscil 6000,kbase*5.66,1
as7 oscil 6000,kbase*6.99,1
kcut randi 500,.01
kcut=kcut+500
kasfenv randi .5,.1
kasfenv=kasfenv+.5
asf reson as,(kbase/3),1000-kcut
asum = ((asf*kasfenv)*.02)+as1+as2+as3+as4+as5+as6+as7
asfinr balance asum,asig
asfinl vdelay asfinr,20,1000
kcolf randi 500,.1
kcolf=kcolf+700
acolorr resonx asfinr,kcolf,1000-kcut,0,1
acolorl resonx asfinl,kcolf,1000-kcut,0,1
;asfinr=acolorr
;asfinl=acolorl
acolbalr balance acolorr, asig
acolball balance acolorl, asig
;outs asfinr,asfinl
outs acolbalr*1.5,acolball*1.5
garevr=(garevr+asfinr)
garevl=(garevl+asfinl)
arevrbal balance garevr,asfinr
arevlbal balance garevl,asfinl
garevr=arevrbal*irevgain
garevl=arevlbal*irevgain
endin
;-------------------
; Reverb
;-------------------
instr 100
irevtime=p4
arevr nreverb garevr,p4,0
arevl nreverb garevl,p4,0
outs arevr,arevl
garevr=0
garevl=0
endin
The SCO :
f1 0 65536 10 1 1.33 2.66 3.99 4.33 5.66 6.99
i100 0 300 20
i2 0 300 .2
e
David |