Touch Tones

by Arun Chandra

TouchTone[{2, 1, 7, 3, 9, 8, 0, 7, 0, 0}]

Show[%]

TouchTone[Range[9]]

Show[%]

Implementation

TouchToneArray = Flatten[ 
	Outer[List, {697, 770, 852, 941}, {1209, 1336, 1477}], 1 ]

SetAttributes[TouchTone, Listable]

TouchTone[n_Integer /; 1 <= n <= 9] := 
				PlayTouchTone[TouchToneArray[[n]]]

TouchTone[0] := PlayTouchTone[TouchToneArray[[11]]]

PlayTouchTone[{f1_, f2_}] := Play[Sin[2 Pi f1 t] + Sin[2 Pi f2 t],
					{t, 0, .1}]