| Hi,
I think it was tolve who asked for an example of granular using samples a
while back. Here one is.
Regards,
Hans Mikelson
sr=44100
kr=4410
ksmps=10
nchnls=2
;---------------------------------------------------------------------------
-------
; Basic Granular Sampler Synthesis
;---------------------------------------------------------------------------
-------
instr 4
idur = p3
iamp = p4
ifqc = p5
igrtab = p6
iwintab = p7
ifrng = p8
idens = p9
ifade = p10
igdur = p11
iamprng = p12
kamp linseg 0, ifade, 1, idur-2*ifade, 1, ifade, 0
; Amp Fqc Dense AmpOff PitchOff GrDur GrTable
WinTable MaxGrDur
aoutl grain p4, ifqc, idens, 100*iamprng, ifqc*ifrng, igdur, igrtab,
iwintab, 5
aoutr grain p4, ifqc, idens, 100*iamprng, ifqc*ifrng, igdur, igrtab,
iwintab, 5
outs aoutl*kamp, aoutr*kamp
endin
; SCORE
f1 0 65536 1 "soundin.13" 0 4 0
f2 0 1024 7 0 224 1 800 0
f3 0 8192 7 1 8192 -1
f4 0 1024 7 0 512 1 512 0
f5 0 1024 10 1 .3 .1 0 .2 .02 0 .1 .04
f6 0 1024 10 1 0 .5 0 .33 0 .25 0 .2 0 .167
; Start Dur Amp Freq GrTab WinTab FqcRng Dens Fade GrDur AmpRng
i4 0.0 5.0 7000 .4 5 1 .0021 10 1.8 1 1
i4 2.0 5.0 7000 .7 5 1 .021 6 1.8 1 1
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa24749;
19 Jul 98 1:17 BST
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa16104;
19 Jul 98 1:16 BST
Received: (qmail 21221 invoked from network); 19 Jul 1998 00:16:54 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 19 Jul 1998 00:16:54 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (BAA11917); Sun, 19 Jul 1998 01:11:38 +0100 (BST)
Received: from exeter.ac.uk by maths.ex.ac.uk; Sun, 19 Jul 1998 01:10:43 +0100
Received: from howl.werewolf.net [206.103.224.20] by hermes via ESMTP (PAA27547); Sat, 18 Jul 1998 15:32:20 +0100 (BST)
Received: from default (dial6.werewolf.net [206.103.225.16])
by howl.werewolf.net (8.9.0/8.9.0) with SMTP id JAA29111
for ; Sat, 18 Jul 1998 09:30:51 -0500 (CDT)
From: Hans Mikelson
To: Csound
Subject: MotoCross Orc Sco
Date: Sat, 18 Jul 1998 09:34:08 -0500
Message-ID: <01bdb259$1f35e0a0$10e167ce@default>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 4.71.1712.3
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Hi there,
Annoy you neighbors with this MotoCross orchestra and score!
Bye there,
Hans Mikelson
;------------------------------------------------------------------
; ORCHESTRA
sr=44100
kr=22050
ksmps=2
nchnls=2
;------------------------------------------------------------------
; Industrial Loops
;------------------------------------------------------------------
instr 4
idur = p3
iamp = p4*2
ifqc = cpspch(p5)
iplstab = p6
irattab = p7
iratrat = p8
ipantab = p9
imixtab = p10
ilptab = p11
kpan oscil 1, 1/idur, ipantab ; Panning
kmix oscil 1, 1/idur, imixtab ; Fading
kloop oscil 1, 1/idur, ilptab ; Looping
;kfc expseg .1, idur/2, 4, idur/2, .1 ; Fqc Center
loop1:
kprate oscil 1, iratrat/kloop, irattab ; Pulse Rate
kamp oscil iamp, kprate, iplstab ; Amplitude Pulse
asig rand kamp ; Noise source
;aflt butterbp asig, ifqc*kfc, ifqc*kfc/4 ; Band Filter
aflt butterbp asig, ifqc, ifqc/4 ; Band Filter
aout balance aflt, asig ; Bring level back up
; When the time runs out reinitialize
timout 0, i(kloop), cont1
reinit loop1
cont1:
outs aout*sqrt(kpan)*kmix, aout*sqrt(1-kpan)*kmix ; Output pan
& fade
endin
; SCORE
f1 0 8192 10 1 ; Sine
; Pulse Tables
f12 0 1024 7 0 512 1 512 0
; Rate Tables
f25 0 1024 -5 5000 1024 100
; Pan Tables
f31 0 1024 7 1 1024 0
; Mix Tables
f41 0 1024 5 .01 128 1 768 1 128 .01
; Loop Tables
f50 0 1024 -5 .41 50 .021 206 .35 56 .012 200 .28 56 .016 200 .085 56 .02
200 .32
; Generate Industrial Loops
; Sta Dur Amp Pitch PulsTab RtTab RtRt PanTab MixTab Loop
i4 0 32 6000 8.00 12 25 1 31 41 50
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa24755;
19 Jul 98 1:17 BST
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa16111;
19 Jul 98 1:16 BST
Received: (qmail 21224 invoked from network); 19 Jul 1998 00:16:56 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 19 Jul 1998 00:16:56 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (BAA07614); Sun, 19 Jul 1998 01:11:30 +0100 (BST)
Received: from exeter.ac.uk by maths.ex.ac.uk; Sun, 19 Jul 1998 01:10:34 +0100
Received: from howl.werewolf.net [206.103.224.20] by hermes via ESMTP (QAA14921); Sat, 18 Jul 1998 16:24:55 +0100 (BST)
Received: from default (dial6.werewolf.net [206.103.225.16])
by howl.werewolf.net (8.9.0/8.9.0) with SMTP id KAA22424
for ; Sat, 18 Jul 1998 10:23:26 -0500 (CDT)
From: Hans Mikelson
To: Csound
Subject: Frogs? Orchestra & Score
Date: Sat, 18 Jul 1998 10:26:43 -0500
Message-ID: <01bdb260$78353780$10e167ce@default>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 4.71.1712.3
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Hi,
Continuing my "flood" of orchestras and scores. This one started out as an
attempt to simulate frog chirps but never sounded much like them to me. It
uses a series of noise pulses in a resonance chamber for synthesis. Maybe
someone could improve on this and send it back to the list???
Bye,
Hans Mikelson
; ORCHESTRA
sr=44100
kr=4410
ksmps=10
nchnls=2
;------------------------------------------------------------------
; Frogs?
;------------------------------------------------------------------
instr 8
idur = p3
iamp = p4*2
ifqc = cpspch(p5)
iplstab = p6
irattab = p7
iratrat = p8
ipantab = p9
imixtab = p10
imaxd = p11
ifdbk = .98
abal init 0
kpan oscil 1, 1/idur, ipantab ; Panning
kmix oscili 1, 1/idur, imixtab ; Fading
kprate oscil 1, iratrat, irattab ; Pulse Rate
kamp oscil iamp, kprate, iplstab ; Amplitude Pulse
kdtime expseg imaxd*.9, idur*.75, imaxd*.5, idur*.25, imaxd*.4
asig rand kamp ; Noise source
adel vdelay (asig+abal)*ifdbk, kdtime, imaxd ; Variable delay
resonator
aflt butterbp adel, ifqc, ifqc/4 ; Band Filter
abal balance aflt, adel ; Adjust level
aout = abal
outs aout*sqrt(kpan)*kmix, aout*sqrt(1-kpan)*kmix ; Output pan
& fade
endin
; SCORE
f1 0 8192 10 1 ; Sine
; Pulse Tables
f10 0 1024 7 0 256 0 256 1 256 0 256 0 ; Medium Pulse
f11 0 1024 7 0 256 0 128 0 128 1 128 0 128 0 256 0 ; Narrow Pulse
f12 0 1024 7 0 512 1 512 0 ; Wide Pulse
f13 0 1024 7 0 256 0 128 0 64 0 64 1 64 0 64 0 128 0 256 0 ; Narrower
Pulse
; Rate Tables
f20 0 1024 -5 40 512 25 512 10
f21 0 1024 -5 20 512 45 512 20
f22 0 1024 -5 10 512 25 512 40
f23 0 1024 -5 20 512 20 512 20
; Pan Tables
f30 0 1024 7 0 1024 1
f31 0 1024 7 1 1024 0
f32 0 1024 7 1 512 0 512 1
f33 0 1024 -7 .5 1024 .5
f34 0 1024 -7 .8 1024 .8
f35 0 1024 -7 .2 1024 .2
; Mix Tables
f40 0 1024 5 .01 256 1 512 1 256 .01
f41 0 1024 5 .01 128 1 768 1 128 .01
f42 0 1024 7 0 12 1 1000 1 12 0
; Loop Tables
f50 0 1024 -5 1 1024 1
; Frog Chirps ??
; Sta Dur Amp Pitch PulsTab RtTab RtRt PanTab MixTab Delay
i8 0 1.5 4000 7.00 13 20 1 32 42 50
i8 .5 .25 4000 8.00 13 23 1 33 42 30
i8 + . 3500 9.00 13 23 1 35 42 20
i8 1 1.5 800 7.10 13 21 1 30 42 50
i8 1.5 .25 1000 8.04 13 23 1 34 42 30
i8 + . 3000 8.07 13 23 1 35 42 20
i8 2 1.5 2600 7.00 13 22 1 31 42 50
i8 2.5 .25 3000 8.00 13 23 1 35 42 30
i8 + . 1800 9.00 13 23 1 34 42 20
;
i8 3 1.5 4000 7.00 13 20 1 32 42 50
i8 3.5 .25 4000 8.00 13 23 1 33 42 30
i8 + . 3500 9.00 13 23 1 35 42 20
i8 4 1.5 800 7.10 13 21 1 30 42 50
i8 4.5 .25 1000 8.04 13 23 1 34 42 30
i8 + . 3000 8.07 13 23 1 35 42 20
i8 5 1.5 2600 7.00 13 22 1 31 42 50
i8 5.5 .25 3000 8.00 13 23 1 35 42 30
i8 + . 1800 9.00 13 23 1 34 42 20
;
i8 6.0 .25 3500 9.00 13 23 1 35 42 20
i8 + . 3400 9.02 13 23 1 35 42 20
i8 . . 3000 9.04 13 22 1 35 42 20
i8 . . 2500 9.05 13 22 1 35 42 20
i8 . . 2300 9.07 13 23 1 35 42 20
i8 . . 2000 9.02 13 22 1 35 42 20
i8 . . 1800 9.04 13 23 1 35 42 20
i8 . . 1500 9.05 13 23 1 35 42 20
i8 . . 2500 9.07 13 22 1 35 42 20
i8 . . 3000 9.09 13 22 1 35 42 20
i8 . . 3500 10.00 13 23 1 35 42 20
i8 . . 4500 10.05 13 22 1 35 42 20
|