; the "Tarantella"  (spider dance)

; Example using the pdclip opcode to distort
; a waveform, creating an approximation of an
; accordian sound.

; by Anthony Kozar
; http://www.anthonykozar.net

; (this file looks best with a tab size of 4)
 
<CsoundSynthesizer>
<CsOptions>

</CsOptions>
<CsInstruments>
sr      = 44100
kr      = 4410
ksmps   = 10
nchnls  = 1


; basic accordian attempt
instr 2

	idur		= p3
	islur		= p4						; slurring parameter for Scot scores
	ifreq		= cpspch(p5)
	iamp		= p6
	ifn			= p7
	idummy		= p8						; dummy p8 for compatibility with instr 1
	ibipolar    = 1.0
	
	kenv		linseg		0, .10, 1.0, idur - .15, 1.0, .05, 0
	aosc		oscil		1.0, ifreq, ifn
	
;	kmod		expseg		0.00001, 0.1, 1.0, idur-0.2, 1.0, 0.1, 0.00001
	kmod		oscil		0.1, 3.0, 1
	aout		pdclip		aosc, 0.73+kmod, 0.0, ibipolar
	
				out			kenv*aout*iamp		
endin

; "french" accordian attempt
instr 1

	idur		= p3
	islur		= p4						; slurring parameter for Scot scores
	ifreq		= cpspch(p5)
	iamp		= p6 * 0.5
	ifn			= p7
	idetuneraw	= (p8 != 0 ? p8 : 3)		; specify detune as an integer (default is 3),
	idetune		= 1.0 + 0.001*idetuneraw	; 2-10 sounds good to me
	ibipolar    = 1.0
	
	kenv		linseg		0, .10, 1.0, idur - .15, 1.0, .05, 0
	aosc		oscil		1.0, ifreq, ifn, rnd(1)
	aosc2		oscil		1.0, ifreq*idetune, ifn, rnd(1)
	
;	kmod		expseg		0.00001, 0.1, 1.0, idur-0.2, 1.0, 0.1, 0.00001
	kmod		oscil		0.1, 3.0, 1, rnd(1)
	aout		pdclip		aosc, 0.73+kmod, 0.0, ibipolar
	aout2		pdclip		aosc2, 0.73+kmod, 0.0, ibipolar
	
				out			iamp*kenv*(aout+aout2)
endin

</CsInstruments>
<CsScore>
; This score was generated with Scot.
; Email me for the original input file.

f1 0 16384 10 1
f2 0 16384 10 1 .5 .3333 .25 .2
f3 0 16384 10 1 .5 .3333 .25 .5
f4 0 16384 10 1 .5 .3333 .25 .5 .2 .5 .1 .1 .1 .1

i1.01 1.5 1 0 8.09 8000 3 3
i1.01 2.5 0.5 0 8.09 8000 3 3
i1.01 3 1 0 8.04 8000 3 3
i1.01 4 0.5 0 8.04 8000 3 3
i1.01 4.5 1 0 8.09 8000 3 3
i1.01 5.5 0.5 0 8.09 8000 3 3
i1.01 6 1.5 0 8.04 8000 3 3
i1.01 7.5 1 0 8.04 8000 3 3
i1.01 8.5 0.5 0 8.04 8000 3 3
i1.01 9 1 0 8.05 8000 3 3
i1.01 10 0.5 0 8.05 8000 3 3
i1.01 10.5 0.5 0 8.05 8000 3 3
i1.01 11 0.5 0 8.07 8000 3 3
i1.01 11.5 0.5 0 8.05 8000 3 3
i1.01 12 3 0 8.04 8000 3 3
t0 60 0 200
f0 15
s
i1.01 1.5 1 0 8.09 8000 3 3
i1.02 1.5 1 0 8.04 8000 3 3
i1.03 1.5 1 0 8.00 8000 3 3
i1.01 2.5 0.5 0 8.09 8000 3 3
i1.02 2.5 0.5 0 8.04 8000 3 3
i1.03 2.5 0.5 0 8.00 8000 3 3
i1.01 3 1 0 8.04 8000 3 3
i1.02 3 1 0 8.00 8000 3 3
i1.03 3 1 0 7.09 8000 3 3
i1.01 4 0.5 0 8.04 8000 3 3
i1.02 4 0.5 0 8.00 8000 3 3
i1.03 4 0.5 0 7.09 8000 3 3
i1.01 4.5 1 0 8.09 8000 3 3
i1.02 4.5 1 0 8.04 8000 3 3
i1.03 4.5 1 0 8.00 8000 3 3
i1.01 5.5 0.5 0 8.09 8000 3 3
i1.02 5.5 0.5 0 8.04 8000 3 3
i1.03 5.5 0.5 0 8.00 8000 3 3
i1.01 6 1.5 0 8.04 8000 3 3
i1.02 6 1.5 0 8.00 8000 3 3
i1.03 6 1.5 0 7.09 8000 3 3
i1.01 7.5 1 0 8.04 8000 3 3
i1.02 7.5 1 0 8.00 8000 3 3
i1.01 8.5 0.5 0 8.04 8000 3 3
i1.02 8.5 0.5 0 8.00 8000 3 3
i1.01 9 1 0 8.05 8000 3 3
i1.02 9 1 0 8.02 8000 3 3
i1.01 10 0.5 0 8.05 8000 3 3
i1.02 10 0.5 0 8.02 8000 3 3
i1.01 10.5 0.5 0 8.05 8000 3 3
i1.02 10.5 0.5 0 8.02 8000 3 3
i1.01 11 0.5 0 8.07 8000 3 3
i1.02 11 0.5 0 8.04 8000 3 3
i1.01 11.5 0.5 0 8.05 8000 3 3
i1.02 11.5 0.5 0 8.02 8000 3 3
i1.01 12 1.5 0 8.04 8000 3 3
i1.02 12 1.5 0 8.00 8000 3 3
i1.01 14.5 0.5 0 8.04 8000 3 3
i1.02 14.5 0.5 0 8.00 8000 3 3
i1.01 15 1 0 8.04 8000 3 3
i1.02 15 1 0 8.00 8000 3 3
i1.01 16 0.5 0 8.02 8000 3 3
i1.02 16 0.5 0 7.11 8000 3 3
i1.01 16.5 1 0 8.02 8000 3 3
i1.02 16.5 1 0 7.11 8000 3 3
i1.01 17.5 0.5 0 8.02 8000 3 3
i1.02 17.5 0.5 0 7.11 8000 3 3
i1.01 18 1 0 8.02 8000 3 3
i1.02 18 1 0 7.11 8000 3 3
i1.01 19 0.5 0 8.00 8000 3 3
i1.02 19 0.5 0 7.09 8000 3 3
i1.01 19.5 1 0 8.00 8000 3 3
i1.02 19.5 1 0 7.09 8000 3 3
i1.01 20.5 0.5 0 8.00 8000 3 3
i1.02 20.5 0.5 0 7.09 8000 3 3
i1.01 21 1 0 8.00 8000 3 3
i1.02 21 1 0 7.08 8000 3 3
i1.01 22 0.5 0 7.11 8000 3 3
i1.02 22 0.5 0 7.08 8000 3 3
i1.02 22.5 0.5 0 7.11 8000 3 3
i1.02 23 0.5 0 8.00 8000 3 3
i1.02 23.5 0.5 0 7.11 8000 3 3
i1.03 22.5 1.5 0 7.08 8000 3 3
i1.01 24 1.5 0 7.09 8000 3 3
i1.01 25.5 1 0 7.09 8000 3 3
i1.01 26.5 0.5 0 7.11 8000 3 3
i1.01 27 0.5 0 8.00 8000 3 3
i1.01 27.5 0.5 0 7.11 8000 3 3
i1.01 28 0.5 0 8.00 8000 3 3
i1.01 28.5 0.5 0 8.02 8000 3 3
i1.01 29 0.5 0 8.00 8000 3 3
i1.01 29.5 0.5 0 7.11 8000 3 3
i1.01 30 0.5 0 8.00 8000 3 3
i1.01 30.5 0.5 0 7.11 8000 3 3
i1.01 31 0.5 0 8.00 8000 3 3
i1.01 31.5 0.5 0 8.02 8000 3 3
i1.01 32 0.5 0 8.00 8000 3 3
i1.01 32.5 0.5 0 7.11 8000 3 3
i1.01 33 0.5 0 8.00 8000 3 3
i1.01 33.5 0.5 0 7.11 8000 3 3
i1.01 34 0.5 0 7.09 8000 3 3
i1.01 34.5 0.5 0 7.08 8000 3 3
i1.01 35 0.5 0 7.09 8000 3 3
i1.01 35.5 0.5 0 7.11 8000 3 3
i1.01 36 1.5 0 7.09 8000 3 3
i1.01 37.5 1 0 7.09 8000 3 3
i1.01 38.5 0.5 0 7.11 8000 3 3
i1.01 39 0.5 0 8.00 8000 3 3
i1.01 39.5 0.5 0 7.11 8000 3 3
i1.01 40 0.5 0 8.00 8000 3 3
i1.01 40.5 0.5 0 8.02 8000 3 3
i1.01 41 0.5 0 8.00 8000 3 3
i1.01 41.5 0.5 0 8.02 8000 3 3
i1.01 42 0.5 0 8.04 8000 3 3
i1.01 42.5 0.5 0 8.02 8000 3 3
i1.01 43 0.5 0 8.04 8000 3 3
i1.01 43.5 0.5 0 8.05 8000 3 3
i1.01 44 0.5 0 8.04 8000 3 3
i1.01 44.5 0.5 0 8.02 8000 3 3
i1.01 45 0.5 0 8.00 8000 3 3
i1.01 45.5 0.5 0 7.11 8000 3 3
i1.01 46 0.5 0 7.09 8000 3 3
i1.01 46.5 0.5 0 7.08 8000 3 3
i1.01 47 0.5 0 7.09 8000 3 3
i1.01 47.5 0.5 0 7.11 8000 3 3
i1.01 48 1 0 7.09 8000 3 3
i1.01 49.5 4.5 0 7.09 8000 3 3
i1.02 49.75 4.25 0 8.00 8000 3 3
i1.03 50 4 0 7.04 8000 3 3
i1.04 50.25 3.75 0 8.09 8000 3 3
t0 60 0 200
f0 54
s
e

</CsScore>
</CsoundSynthesizer>