#saw tooth
f0 = 200
n = 20
do ("Create Sound from formula..." , "s" , "Mono" , 0, 1, 44100 , "0")
for k from 1 to n
do ("Formula..." , "self + (-1)^(k -1) / k * sin(2*pi*(k*f0)*x)")
endfor




#complex tone
#demo value:
#a1:1,1,1
#a2:1,0.1,0.5
#a3:1,0.01,0.25

form Get coefficients
real a1 1
real a2 1
real a3 1

endform

do ("Create Sound from formula..." , "mixture" , "Mono" , 0, 1, 44100 ,
... "1/ 3*a1*sin(2*pi*100*x) +1/ 3*a2*sin(2*pi*200*x) +1/ 3*a3*sin(2*pi*400*x)")



#random sound, run in succession a few times will generate different sounds
f0 = 200
n = 20
do ("Create Sound from formula..." , "random" , "Mono" , 0, 1, 44100 , "0")
for k from 1 to n
ak = randomUniform (-0.9 , 0.9) / k
do ("Formula..." , "self + ak * sin(2*pi*k*f0*x)")
endfor




#phase shift
f0 = 150
do ("Create Sound from formula..." , "sines" , "Mono" , 0, 1, 44100 , "0")
for k to 5
phase = randomUniform (-pi/2, pi/2)
do ("Formula..." , "self + sin(2*pi*k*f0*x + phase)")
endfor
do ("Scale peak..." , 0.99)
# avoid clicks at start and end
do ("Fade in..." , 1, 0, 0.005 , "no")
do ("Fade out..." , 1, 1, -0.005 , "no")
do ("Play")





#sweep 500-1500
f1 = 500
f2 = 1500
t1 = 0
t2 = 1
a = (f2 - f1) / (t2 -t1)
b = f1 - a * t1
do ("Create Sound from formula..." , "sweep" , 1, t1 , t2 , 44100 ,
... "0.99*sin(pi*a*x ^2 + 2*pi*b*x)")





#block
f0 = 200
n = 20
do ("Create Sound from formula..." , "b" , "Mono" , 0, 1, 44100 , "0")
for k from 1 to n
do ("Formula..." , "self + sin(2*pi*((2*k - 1)*f0)*x) / (2*k - 1)")
endfor




#concatenate pure tone with phase connection
p1=0

f [1]=880
f [2]=881
f [3]=884

t=0.01


for i to 3

do ("Create Sound from formula..." , "sweep" , 1, 0 , t , 44100,"sin(2*pi*f[i]*x+p1)")
p1 = (2*pi*f[i]*t + p1) mod (2*pi)
printline p1 is 'p1'

t+=0.01
endfor




#alternative
p1=0
f1=880
do ("Create Sound from formula..." , "sweep" , 1, 0 , 0.01 , 44100,"sin(2*pi*f1*x +p1)")
p1 = (2*pi*f1*0.01 + p1) mod (2*pi)
printline p1 is 'p1'

f2=881
do ("Create Sound from formula..." , "sweep" , 1, 0 , 0.01 , 44100,"sin(2*pi*f2*x +p1)")
p1 = (2*pi*f1*0.01 + p1) mod (2*pi)
printline p1 is 'p1'

f3=884
do ("Create Sound from formula..." , "sweep" , 1, 0 , 0.01 , 44100,"sin(2*pi*f3*x +p1)")
p1 = (2*pi*f1*0.01 + p1) mod (2*pi)
printline p1 is 'p1'