Of course, this approach is rather out-dated now. I posted it 4 years ago. The Wolfram Language advances at an incredible speed. Here is a newer version of this:

img = ExampleData[{"TestImage", "Mandrill"}]

Then you can run:

audio = InverseSpectrogram[img] // Audio

which gives you the audio signal. Then you simply calculate the Spectorgram:

Spectrogram[audio, Frame -> False, AspectRatio -> 1, PlotRange -> All, ColorFunction -> "Rainbow"]

Cheers,

Marco

Is there any way to get the Spectrogram function to display the Y axis (frequency) on a logarithmic scale? Some examples of images embedded in audio files, e.g. from Aphex Twin's Windowlicker single, display properly such a spectrogram.

Thanks!

Christopher

Also reminds me of:

https://en.wikipedia.org/wiki/11B-X-1371

where there was also codes hidden in the music...

Dear Vitaliy,

thanks a lot for that hint! That website will be very, very useful for posts about the new computational audio features. That will facilitate future posts greatly. Thanks for sharing.

Cheers,

Marco

Neat idea, Marco! By the way, there is a nice sharing service for for audio snippets with no account registration. I have uploaded your attachments there.

• Final Message: https://clyp.it/aw2sc100
• Pure Wolfram: https://clyp.it/xnucnmtc
• Secret Sound: https://clyp.it/dxzq2doi