(abs-env
(let ((env1 (pwlv 1 0.9 1 1 0 2 0))
(env2 (pwev 1 1 1 2 0.01)))
(mult
(sum 0.7
(mult -0.3 env1
(stretch-abs 2.0 (hzosc 19.6 *saw-table*))))
env2
(stretch-abs 2.0
(sim
(mult (db-to-linear -22) (hzosc 1250))
(mult (db-to-linear -15) (hzosc 3290))
(mult (db-to-linear -26) (hzosc 5890))
(mult (db-to-linear -23) (hzosc 9000))
(mult (db-to-linear -20) (hzosc 12500)))))))
steve wrote:A simplified approximation, based on the peaks in the spectrum of the "Telephone Bell Ring 2.mp3" file:
- Code: Select all
(abs-env
(let ((env1 (pwlv 1 0.9 1 1 0 2 0))
(env2 (pwev 1 1 1 2 0.01)))
(mult
(sum 0.7
(mult -0.3 env1
(stretch-abs 2.0 (hzosc 19.6 *saw-table*))))
env2
(stretch-abs 2.0
(sim
(mult (db-to-linear -22) (hzosc 1250))
(mult (db-to-linear -15) (hzosc 3290))
(mult (db-to-linear -26) (hzosc 5890))
(mult (db-to-linear -23) (hzosc 9000))
(mult (db-to-linear -20) (hzosc 12500)))))))
Users browsing this forum: No registered users and 4 guests