In[]:=
ExampleData["Audio"]
Out[]=
{{Audio,Apollo11ReturnSafely},{Audio,Apollo11SmallStep},{Audio,BalloonPop},{Audio,Bee},{Audio,Bird},{Audio,BlackcapWarbler},{Audio,Cat},{Audio,Cello},{Audio,CelloScale},{Audio,ChurchBell},{Audio,Clapping},{Audio,CreakyDoor},{Audio,Crowd},{Audio,DogBark},{Audio,Drums},{Audio,FemaleVoice},{Audio,Flute},{Audio,FluteScale},{Audio,FogHorn},{Audio,IRMaesHowe},{Audio,IRRailwayTunnel},{Audio,IRSportsCenter},{Audio,IRStairway},{Audio,IRStAndrewsChurch},{Audio,IRStMarysChurch},{Audio,IRYorkMinsterChurch},{Audio,Laughing},{Audio,MaleVoice},{Audio,NoisyTalk},{Audio,Piano},{Audio,PianoScale},{Audio,PowerSupply},{Audio,Scream},{Audio,SubwayTrain},{Audio,Sword},{Audio,ThaiBells},{Audio,Walking},{Audio,Water},{Audio,Wind}}
In[]:=
audio=ExampleData[{"Audio","CelloScale"}];(*audio=SpeechSynthesize["Testing project number three."];*)volume=AudioLocalMeasurements[audio,"Loudness"]["Values"];volScaled=volume/Max[volume];crest=AudioLocalMeasurements[audio,"CrestFactor"]["Values"];crestScaled=crest/Max[crest];check=ListLinePlot[{volScaled,crestScaled}];curves[v_,c_]:={BezierCurve[{{0,0},{.5-c,.5},{0,1}}],BezierCurve[{{0,1},{.5,.5+v},{1,1}}],BezierCurve[{{1,1},{.5+c,.5},{1,0}}],BezierCurve[{{1,0},{.5,.5-v},{0,0}}]}frames=MapThread[Graphics[{DropShadowing[],EdgeForm[Directive[Black,Thick]],FaceForm[LightOrange],FilledCurve[curves[#1,#2]]},PlotRange->{{-.3,1.3},{-.3,1.3}}]&,{volScaled,crestScaled}];video=Quiet[SlideShowVideo[frames,DefaultDuration->Duration[audio]]];VideoCombine[{video,audio}]
Out[]=