Ogg Vorbisファイルのインポートとエキスポート 

Ogg Vorbisは，消費者のオーディオのストリーミング，保存，転送，再生に広く使われている不可逆的圧縮スキームであり，Web上でも使うことができる．

Ogg Vorbisファイルをインポートする．

In[1]:=

X Import["ExampleData/drums.ogg"]

Out[1]=

よりコンパクトに保存するためにOgg Vorbisにエキスポートする．

In[2]:=

X snd = ExampleData[{"Sound", "Apollo11PhoneCall"}]

Out[2]=

In[3]:=

X Grid[{# , Quantity[N@FileByteCount[Export["file." <> #, snd]]/2^10, "Kilobytes"]} & /@ {"wav", "ogg"}, Frame -> All, ItemStyle -> Directive[FontFamily -> "Verdana"], Dividers -> {{True, Thickness[2]}, Automatic}]

Out[3]=

Ogg Vorbisにエキスポートするときに異なる圧縮レベルを使うことができる．圧縮レベルが高いとファイルは小さくなるが，サウンドが変質する可能性がある．

In[4]:=

X t = Table[{l, N@FileByteCount[Export["file.ogg", snd, "CompressionLevel" -> l]]/ 2^10}, {l, 0, 1, .02}];

In[5]:=

X ListLinePlot[t, Frame -> True, FrameLabel -> {"Ogg Vorbis compression level", "kB"}, ImageSize -> 300, PlotRange -> All, PlotStyle -> AbsoluteThickness[3], LabelStyle -> Bold]

Out[5]=