Perhaps I won’t need these tones myself. Nevertheless it’s an interesting task, so I gave it a try too.
I’ve been playing with some recursive code (loops get boring over time).
I only wanted to contribute some code for the sorting out of the text input but ended up with nearly the whole plug-in.
There is in principle only the plug-in header missing.
However, there are some things I am not certain about.
Are there any other inputs besides the text box for the number desired (e.g the volume)?
Have the durations to be varied, as described above, or are the precise values satisfactory?
I fancy, it would be nice when the durations would be varied such that the sine tones end with a full cycle, in order to avoid clicks. Please test the snippet:
;; A test input:
(setf input "01 234 567 89")
;; the recursive function
(defun number-to-tone (num-stream &aux low-high dur)
(setf current (pop num-stream))
(unless current (return-from number-to-tone s))
(setf dur (if (equal current #>) 0.1 0.068))
(setf low-high
(case current
(#> '(1100 1700)); KP
(#< '(1500 1700)); ST
(#1 '(700 900))
(#2 '(700 1100))
(#3 '(900 1100))
(#4 '(700 1300))
(#5 '(900 1300))
(#6 '(1100 1300))
(#7 '(700 1500))
(#8 '(900 1500))
(#9 '(1100 1500))
(#\0 '(1300 1500))
(t nil)))
(seq (number-to-tone num-stream)
(if low-high
(sim (osc (hz-to-step (first low-high)) dur)
(osc (hz-to-step (second low-high)) dur)
(s-rest 0.136))
(s-rest 0))))
;;; Start of the main program
(setf *sr* *sound-srate*)
; initialize s to 0 length
(setf s (s-rest 0))
; String to chars
(setf numbers
(cons #< ; append st
(reverse (cons #> ; append kp
(get-output-stream-list
(make-string-input-stream input))))))
; Return sound
(abs-env (mult 0.4 (number-to-tone numbers)))