Click the graphic to play the sound.
[{_,_},_,f_]:=If[>,If[<t<,Sin[] Sin[f t],0],0]
Play[Evaluate[N[Sin[] [{,},,]]],{t,0,2},PlayRange->All]
[{
_,
_},
_,f_]:=If[
] 
] 
,
},
,
]]],{t,0,2},PlayRange->All]
