Vintage telephone sound effect according to S. Oksanen and V. Vlimki,
"Digital Modeling of the Vintage Telephone Sound", 
in Proc. ICMC2011, Huddersfield, UK, Jul. 31 - Aug. 5, 2011

Files in this package:
-readme.txt, this file
-vintage.m, main function
-param_peak_boost.m, sub function written by Henri Penttinen
-envel.m, sub function written by Matti Karjalainen

Usage: 
out = vintage(in,type,a,wn,rn,play) 

in    = input data vector, fs 44.1 kHz
type  = filter type, (1,2)
a     = nonlinearity coefficient, [0...1]
wn    = white noise variance, [0...1]
wr    = rugged noise variance, [0...1]
play  = sound output, (1 = sound, 0 = no sound)
out   = output data vector

Example use case:
out = vintage(in,1,0.2,0.1,0.1,1)

Author: Sami Oksanen
Last modified: Aug. 10, 2011
Version: 1.0, first release

License info:
This work is licensed under a Creative Commons
Attribution-NonCommercial-ShareAlike 3.0 Unported License.