I was playing around with InverseSpectrogram, and found the examples of the monkey and so on in the documentation. Most of the time it sounds spooky/eery/unworldly/spacey. So why not put the new James Webb space telescope image of the Pillars of Creation in there?
img=
;is=InverseSpectrogram[ImageResize[img,Scaled[0.2]]];au=Audio[is,SampleRate5000];
In[]:=
ClearAll[MakeFrame]MakeFrame[α_,img_Image]:=Module[{gr,x,y},{x,y}=ImageDimensions[img];gr=Graphics[{Thickness[0.008],White,Line[{{αx,0},{αx,y}}]},PlotRange->{{0,x},{0,y}},Background->None];ImageCompose[img,Rasterize[gr,"Image",RasterSize->{x,y},Background->None]]]duration=QuantityMagnitude[Duration[au],"Seconds"];vid=VideoGenerator[MakeFrame[#/duration,img]&,duration,FrameRate->30];comb=VideoCombine[{vid,au}]
Out[]=
In[]:=
SetDirectory[NotebookDirectory[]];Export["spacesound.mp4",comb]
Out[]=
spacesound.mp4
rule 30
rule 30
In[]:=
ClearAll[MakeFrame]MakeFrame[α_,img_Image]:=Module[{gr,x,y},{x,y}=ImageDimensions[img];gr=Graphics[{Thickness[0.008],White,Line[{{αx,0},{αx,y}}]},PlotRange->{{0,x},{0,y}},Background->None];ImageCompose[img,Rasterize[gr,"Image",RasterSize->{x,y},Background->None]]]img=Rasterize[ArrayPlot[CellularAutomaton[30,{{1},0},200],ImageSize->500]]au=Audio[InverseSpectrogram[CellularAutomaton[30,{{1},0},200]],SampleRate2048];duration=QuantityMagnitude[Duration[au],"Seconds"];vid=VideoGenerator[MakeFrame[#/duration,img]&,duration,FrameRate->30];comb=VideoCombine[{vid,au}]
Out[]=
Out[]=
In[]:=
SetDirectory[NotebookDirectory[]];Export["Rule30Tr.mp4",comb]
Out[]=
Rule30Tr.mp4
CITE THIS NOTEBOOK
CITE THIS NOTEBOOK
Sonify: NASA Webb Telescope Pillars of Creation & Cellular Automata Rule 30
by Sander Huisman
Wolfram Community, STAFF PICKS, October 24, 2022
https://community.wolfram.com/groups/-/m/t/2668103
by Sander Huisman
Wolfram Community, STAFF PICKS, October 24, 2022
https://community.wolfram.com/groups/-/m/t/2668103