|
Click the graphic to play the sound.
Touch Tones ImplementationTouchToneArray=Flatten[Outer[List,{697,770,852,941},{1209,1336,1477}],1]; TouchToneFunction[n_, t_] := (Sin[2  #1 t]+Sin[2 #2 t])& @@ TouchToneArray n PlayTouchTone[phonenumber_List] :=Play[Evaluate[Plus @@ MapIndexed[If[First[#2]/5 - 0.2 < t < First[#2]/5 -0.1, Evaluate[TouchToneFunction[#1, t]], 0]&, phonenumber/.(0 -> 11)], {t, 0, Length[phonenumber]/5}]] PlayTouchTone[{1, 2, 1, 7, 3, 9, 8, 0, 7, 0, 0}];
|
