-d ; suppress displays
sr = 44100
kr = 4410
ksmps = 10
nchnls = 2
instr 1
kamp = p4
iWaveTable = p5
iWindowFn = p6
iBaseFrq = p7
iDensStart = p8
iDensEnd = p9
iGrainDurStart = p10
iGrainDurEnd = p11
insnd = iWaveTable
ibasfrq = 44100 / ftlen(insnd) ; Use original sample rate of insnd file
ibasfrq = iBaseFrq
; p fields
; amp, waveTable, windowTable, basFrq, densStart, densEnd, grainDurStart, grainDurEnd
;kamp expseg 220, p3/2, 600, p3/2, 220
kpitch line ibasfrq, p3, ibasfrq * .8
kdens line iDensStart, p3, iDensEnd
;kaoff line 0, p3, 5000
kaoff = 0
kpoff line iBaseFrq, p3, iBaseFrq* .5
kgdur line iGrainDurStart, p3, iGrainDurEnd
imaxgdur = .5
ar grain kamp, kpitch, kdens, kaoff, kpoff, kgdur, insnd, iWindowFn, imaxgdur
; Basic envelope
aenv linseg 0, 0.01, 1, p3 - 0.05, 1, 0.04, 0, 1, 0
; Output, no reverb
; TODO: add panning :-)
outs aenv*ar, aenv*ar
endin
f1 0 512 10 1 ; sine wave
f5 0 512 20 2 ; hanning window
f100 0 32768 1 "/tmp/tmp2oAQIc/which.wav" 0 0 0
f101 0 32768 1 "/tmp/tmp2oAQIc/their.wav" 0 0 0
f102 0 32768 1 "/tmp/tmp2oAQIc/adequate.wav" 0 0 0
f103 0 32768 1 "/tmp/tmp2oAQIc/terms.wav" 0 0 0
f104 0 32768 1 "/tmp/tmp2oAQIc/together.wav" 0 0 0
f105 0 32768 1 "/tmp/tmp2oAQIc/as.wav" 0 0 0
f106 0 32768 1 "/tmp/tmp2oAQIc/new.wav" 0 0 0
f107 0 32768 1 "/tmp/tmp2oAQIc/global.wav" 0 0 0
f108 0 32768 1 "/tmp/tmp2oAQIc/not.wav" 0 0 0
f109 0 32768 1 "/tmp/tmp2oAQIc/his.wav" 0 0 0
f110 0 32768 1 "/tmp/tmp2oAQIc/affairs.wav" 0 0 0
f111 0 32768 1 "/tmp/tmp2oAQIc/poison.wav" 0 0 0
f112 0 32768 1 "/tmp/tmp2oAQIc/and.wav" 0 0 0
f113 0 32768 1 "/tmp/tmp2oAQIc/assemblage.wav" 0 0 0
f114 0 32768 1 "/tmp/tmp2oAQIc/thousand.wav" 0 0 0
f115 0 32768 1 "/tmp/tmp2oAQIc/be.wav" 0 0 0
f116 0 32768 1 "/tmp/tmp2oAQIc/about.wav" 0 0 0
f117 0 32768 1 "/tmp/tmp2oAQIc/sagepub.wav" 0 0 0
f118 0 32768 1 "/tmp/tmp2oAQIc/implies.wav" 0 0 0
f119 0 32768 1 "/tmp/tmp2oAQIc/out.wav" 0 0 0
f120 0 32768 1 "/tmp/tmp2oAQIc/it.wav" 0 0 0
f121 0 32768 1 "/tmp/tmp2oAQIc/knife.wav" 0 0 0
f122 0 32768 1 "/tmp/tmp2oAQIc/univ.wav" 0 0 0
f123 0 32768 1 "/tmp/tmp2oAQIc/would.wav" 0 0 0
f124 0 32768 1 "/tmp/tmp2oAQIc/28.wav" 0 0 0
f125 0 32768 1 "/tmp/tmp2oAQIc/society.wav" 0 0 0
f126 0 32768 1 "/tmp/tmp2oAQIc/state.wav" 0 0 0
f127 0 32768 1 "/tmp/tmp2oAQIc/trent.wav" 0 0 0
f128 0 32768 1 "/tmp/tmp2oAQIc/march.wav" 0 0 0
f129 0 32768 1 "/tmp/tmp2oAQIc/connection.wav" 0 0 0
f130 0 32768 1 "/tmp/tmp2oAQIc/on.wav" 0 0 0
f131 0 32768 1 "/tmp/tmp2oAQIc/into.wav" 0 0 0
f132 0 32768 1 "/tmp/tmp2oAQIc/common.wav" 0 0 0
f133 0 32768 1 "/tmp/tmp2oAQIc/2010.wav" 0 0 0
f134 0 32768 1 "//tcs.wav" 0 0 0
f135 0 32768 1 "/tmp/tmp2oAQIc/has.wav" 0 0 0
f136 0 32768 1 "/tmp/tmp2oAQIc/with.wav" 0 0 0
f137 0 32768 1 "/tmp/tmp2oAQIc/remains.wav" 0 0 0
f138 0 32768 1 "/tmp/tmp2oAQIc/becoming.wav" 0 0 0
f139 0 32768 1 "/tmp/tmp2oAQIc/concepts.wav" 0 0 0
f140 0 32768 1 "/tmp/tmp2oAQIc/english.wav" 0 0 0
f141 0 32768 1 "/tmp/tmp2oAQIc/states.wav" 0 0 0
f142 0 32768 1 "/tmp/tmp2oAQIc/nottingham.wav" 0 0 0
f143 0 32768 1 "/tmp/tmp2oAQIc/can.wav" 0 0 0
f144 0 32768 1 "/tmp/tmp2oAQIc/knowledge.wav" 0 0 0
f145 0 32768 1 "/tmp/tmp2oAQIc/in.wav" 0 0 0
f146 0 32768 1 "/tmp/tmp2oAQIc/john.wav" 0 0 0
f147 0 32768 1 "/tmp/tmp2oAQIc/too.wav" 0 0 0
f148 0 32768 1 "/tmp/tmp2oAQIc/phillips.wav" 0 0 0
f149 0 32768 1 "/tmp/tmp2oAQIc/unity.wav" 0 0 0
f150 0 32768 1 "/tmp/tmp2oAQIc/sense.wav" 0 0 0
f151 0 32768 1 "/tmp/tmp2oAQIc/by.wav" 0 0 0
f152 0 32768 1 "/tmp/tmp2oAQIc/nor.wav" 0 0 0
f153 0 32768 1 "/tmp/tmp2oAQIc/language.wav" 0 0 0
f154 0 32768 1 "/tmp/tmp2oAQIc/concept.wav" 0 0 0
f155 0 32768 1 "/tmp/tmp2oAQIc/enunciation.wav" 0 0 0
f156 0 32768 1 "/tmp/tmp2oAQIc/two.wav" 0 0 0
f157 0 32768 1 "/tmp/tmp2oAQIc/downloaded.wav" 0 0 0
f158 0 32768 1 "/tmp/tmp2oAQIc/arrangement.wav" 0 0 0
f159 0 32768 1 "/tmp/tmp2oAQIc/more.wav" 0 0 0
f160 0 32768 1 "/tmp/tmp2oAQIc/term.wav" 0 0 0
f161 0 32768 1 "/tmp/tmp2oAQIc/first.wav" 0 0 0
f162 0 32768 1 "/tmp/tmp2oAQIc/translation.wav" 0 0 0
f163 0 32768 1 "/tmp/tmp2oAQIc/found.wav" 0 0 0
f164 0 32768 1 "/tmp/tmp2oAQIc/appears.wav" 0 0 0
f165 0 32768 1 "/tmp/tmp2oAQIc/spinoza.wav" 0 0 0
f166 0 32768 1 "/tmp/tmp2oAQIc/literature.wav" 0 0 0
f167 0 32768 1 "/tmp/tmp2oAQIc/its.wav" 0 0 0
f168 0 32768 1 "/tmp/tmp2oAQIc/flesh.wav" 0 0 0
f169 0 32768 1 "/tmp/tmp2oAQIc/what.wav" 0 0 0
f170 0 32768 1 "/tmp/tmp2oAQIc/social.wav" 0 0 0
f171 0 32768 1 "/tmp/tmp2oAQIc/agence-.wav" 0 0 0
f172 0 32768 1 "/tmp/tmp2oAQIc/fixtures.wav" 0 0 0
f173 0 32768 1 "/tmp/tmp2oAQIc/deleuze.wav" 0 0 0
f174 0 32768 1 "/tmp/tmp2oAQIc/com.wav" 0 0 0
f175 0 32768 1 "/tmp/tmp2oAQIc/at.wav" 0 0 0
f176 0 32768 1 "/tmp/tmp2oAQIc/works.wav" 0 0 0
f177 0 32768 1 "/tmp/tmp2oAQIc/plateaus.wav" 0 0 0
f178 0 32768 1 "/tmp/tmp2oAQIc/notion.wav" 0 0 0
f179 0 32768 1 "/tmp/tmp2oAQIc/parts.wav" 0 0 0
f180 0 32768 1 "/tmp/tmp2oAQIc/all.wav" 0 0 0
f181 0 32768 1 "/tmp/tmp2oAQIc/or.wav" 0 0 0
f182 0 32768 1 "/tmp/tmp2oAQIc/philosophical.wav" 0 0 0
f183 0 32768 1 "/tmp/tmp2oAQIc/published.wav" 0 0 0
f184 0 32768 1 "/tmp/tmp2oAQIc/french.wav" 0 0 0
f185 0 32768 1 "/tmp/tmp2oAQIc/for.wav" 0 0 0
f186 0 32768 1 "/tmp/tmp2oAQIc/statement.wav" 0 0 0
f187 0 32768 1 "/tmp/tmp2oAQIc/something.wav" 0 0 0
f188 0 32768 1 "/tmp/tmp2oAQIc/both.wav" 0 0 0
f189 0 32768 1 "/tmp/tmp2oAQIc/word.wav" 0 0 0
f190 0 32768 1 "/tmp/tmp2oAQIc/philosophy.wav" 0 0 0
f191 0 32768 1 "/tmp/tmp2oAQIc/who.wav" 0 0 0
f192 0 32768 1 "/tmp/tmp2oAQIc/rise.wav" 0 0 0
f193 0 32768 1 "/tmp/tmp2oAQIc/from.wav" 0 0 0
f194 0 32768 1 "/tmp/tmp2oAQIc/to.wav" 0 0 0
f195 0 32768 1 "/tmp/tmp2oAQIc/she.wav" 0 0 0
f196 0 32768 1 "/tmp/tmp2oAQIc/http.wav" 0 0 0
f197 0 32768 1 "/tmp/tmp2oAQIc/when.wav" 0 0 0
f198 0 32768 1 "/tmp/tmp2oAQIc/level.wav" 0 0 0
f199 0 32768 1 "/tmp/tmp2oAQIc/them.wav" 0 0 0
f200 0 32768 1 "/tmp/tmp2oAQIc/109.wav" 0 0 0
f201 0 32768 1 "/tmp/tmp2oAQIc/other.wav" 0 0 0
f202 0 32768 1 "/tmp/tmp2oAQIc/event.wav" 0 0 0
f203 0 32768 1 "/tmp/tmp2oAQIc/university.wav" 0 0 0
f204 0 32768 1 "/tmp/tmp2oAQIc/10.wav" 0 0 0
f205 0 32768 1 "/tmp/tmp2oAQIc/things.wav" 0 0 0
f206 0 32768 1 "/tmp/tmp2oAQIc/london.wav" 0 0 0
f207 0 32768 1 "/tmp/tmp2oAQIc/culture.wav" 0 0 0
f208 0 32768 1 "/tmp/tmp2oAQIc/senses.wav" 0 0 0
f209 0 32768 1 "/tmp/tmp2oAQIc/an.wav" 0 0 0
f210 0 32768 1 "/tmp/tmp2oAQIc/divide.wav" 0 0 0
f211 0 32768 1 "/tmp/tmp2oAQIc/that.wav" 0 0 0
f212 0 32768 1 "/tmp/tmp2oAQIc/of.wav" 0 0 0
f213 0 32768 1 "/tmp/tmp2oAQIc/guattari.wav" 0 0 0
f214 0 32768 1 "/tmp/tmp2oAQIc/the.wav" 0 0 0
f215 0 32768 1 "/tmp/tmp2oAQIc/are.wav" 0 0 0
f216 0 32768 1 "/tmp/tmp2oAQIc/version.wav" 0 0 0
f217 0 32768 1 "/tmp/tmp2oAQIc/this.wav" 0 0 0
f218 0 32768 1 "/tmp/tmp2oAQIc/ideas.wav" 0 0 0
f219 0 32768 1 "/tmp/tmp2oAQIc/regarded.wav" 0 0 0
f220 0 32768 1 "//www.wav" 0 0 0
f221 0 32768 1 "/tmp/tmp2oAQIc/keep.wav" 0 0 0
f222 0 32768 1 "/tmp/tmp2oAQIc/larger.wav" 0 0 0
f223 0 32768 1 "/tmp/tmp2oAQIc/specific.wav" 0 0 0
f224 0 32768 1 "/tmp/tmp2oAQIc/body.wav" 0 0 0
f225 0 32768 1 "/tmp/tmp2oAQIc/they.wav" 0 0 0
f226 0 32768 1 "/tmp/tmp2oAQIc/have.wav" 0 0 0
f227 0 32768 1 "/tmp/tmp2oAQIc/further.wav" 0 0 0
f228 0 32768 1 "/tmp/tmp2oAQIc/brings.wav" 0 0 0
f229 0 32768 1 "/tmp/tmp2oAQIc/but.wav" 0 0 0
f230 0 32768 1 "/tmp/tmp2oAQIc/use.wav" 0 0 0
f231 0 32768 1 "/tmp/tmp2oAQIc/agencement.wav" 0 0 0
f232 0 32768 1 "/tmp/tmp2oAQIc/desig-.wav" 0 0 0
f233 0 32768 1 "/tmp/tmp2oAQIc/is.wav" 0 0 0
f234 0 32768 1 "/tmp/tmp2oAQIc/used.wav" 0 0 0
f235 0 32768 1 "/tmp/tmp2oAQIc/connections.wav" 0 0 0
f236 0 32768 1 "/tmp/tmp2oAQIc/these.wav" 0 0 0
f237 0 32768 1 "/tmp/tmp2oAQIc/fixing.wav" 0 0 0
f238 0 32768 1 "/tmp/tmp2oAQIc/form.wav" 0 0 0
f239 0 32768 1 "/tmp/tmp2oAQIc/neither.wav" 0 0 0
f240 0 32768 1 "/tmp/tmp2oAQIc/one.wav" 0 0 0
f241 0 32768 1 "/tmp/tmp2oAQIc/itself.wav" 0 0 0
f242 0 32768 1 "/tmp/tmp2oAQIc/ment.wav" 0 0 0
f243 0 32768 1 "/tmp/tmp2oAQIc/108.wav" 0 0 0
f244 0 32768 1 "/tmp/tmp2oAQIc/then.wav" 0 0 0
f245 0 32768 1 "/tmp/tmp2oAQIc/cornell.wav" 0 0 0
f246 0 32768 1 "/tmp/tmp2oAQIc/bodies.wav" 0 0 0
f247 0 32768 1 "/tmp/tmp2oAQIc/might.wav" 0 0 0
f248 0 32768 1 "/tmp/tmp2oAQIc/objects.wav" 0 0 0
f249 0 32768 1 "/tmp/tmp2oAQIc/theory.wav" 0 0 0