Něco k poslechu pomocí gcc a aplay (diskuse)

[motyq]

lepsi jak gangnam style :D

[Aleš Kapica]

To je dobrá blbina. Zkusil jsem si změnit tu druhou osmičku na pětku. Výsledek mě fakt pobavil.

[Petr Tomášek]

Lepší mi přijde změnit první osmičku na sedmičku...

[Petr Tomášek]

Nebo:

echo "main(i){for(i=0;;i++)putchar(((i*(i>>4|i>>6|i>>7|i>>9)&46&i>>8))^(i&i>>13|i>>6|i>>17));}" | gcc -x c - && ./a.out | aplay

[Petr Tomášek]

A pak taky:

echo "main(i){for(i=0;;i++)putchar(((i*(i>>6|i>>7|i>>9)&46&i>>8))^(i&i>>13|i>>6|i>>17));}" | gcc -x c - && ./a.out | aplay

[pesspi]

Navrhujem vytvorit geneticky algoritmus ktory bude taketo skladby postovat na youtube a tie co dostanu najviac hlasov preziju a rozmnozia sa, tie zle zaniknu, postupne tak vznikne dokonala hudba.

[deafboy]

Niečo ako electric sheep?

[AsciiWolf]

echo "main(i){for(i=0;;i++)putchar(((i*(i>>1|i>>2|i>>3|i>>4)&46&i>>5))^(i&i>>6|i>>7|i>>8));}" | gcc -x c - && ./a.out | aplay

[Bedňa]

Som ti to upravil na Chikinki Hate TV, zmizlo to s YouTube, tak si to teraz púšťam v terminále

echo "main(i){for(i=0;;i++)putchar(((i*(i>>9|i>>3|i>>1)&46&i>>1))^(i&i>>6|i>>7|i>>8));}" | gcc -x c - && ./a.out | aplay

[l4m4]

Hej, to zní víc jako hudba, než co si pouští kolega v práci!

[Bedňa]

Tak to je radosť mať takého kolegu :)

[Grunt]

No některé vzorky co se objevují na internetu začínají být opravdu docela zajímavé a vzdáleně začínají připomínat hudbu:

i*5&(i>>7)|i*3&(i*4>>10)

((i&4096)?((i*(i^i%255)|(i>>4))>>1):(i>>3)|((i&8192)?i<<2:i))

Asi nám tu krystalizuje nový hudební styl: Procedurální techno. Mimochodem jediný který jsem schopný zahrát na klávesnici (i když se v tom pěkně nahouby hledají chyby).

[Grunt]

A tohle už je naprostý mental.

[AsciiWolf]

Wow!

[pc2005]

NOTYVOLE! :-O . To někdo vzal normální hudbu a prohnal to filtrem do týhle podoby ne?

[Grunt]

Ať jsem teda kompletní:

// mu6k 2011-10-10 http://www.youtube.com/watch?v=tCRPUv8V22o "Long-line Theory", Chaos Theory cover, optimized by ryg, p01 et al., JS-only

takže to asi nějak ladili až naladili Chaos Theory.

[cinqmars]

ne, naopak, prohnal to filtrem a zacal vydavat za vlastni hudbu :D

[_____]

To zní jak hudba z 64k intra Chaos Theory (YouTube Video, stránka na pouet.net) :)

[Grunt]

Možná protože je. Konkrétně Rude Awakening od Gargaje (linkoval jsem už i níže). Po 64k a 4k verzi se asi rozhodli fušovat do 256bytové verze nebo tak něco.

[Grunt]

A ještě dodám jednu zajímavost, kterou jsem naprosto zapomněl zmínit: Chaos Theory jde tak snadno přeportovat z toho důvodu, že ono to samo vlastně není nic jiného než skupina oscilátorů velmi podobná zde uváděnému. Viz. Pokud pominu ten syntetizační kód tak kód, který vyloženě mění melodii (tedy jakási obdoba MIDů či MODu) je ještě daleko menší.

[_____]

No ti demoscene kodéři jsou obecně šamani v šikovném vlisování efektních věcí do minima prostoru, textury a objekty generují přes matematické vzorečky, pak z toho vznikají 64k šílenosti typu Debris, Zoom 3 nebo Beyond; 1k šílenosti typu Untraceable (ty objekty ve videu nejspíš budou nějaký 3D Sierpinského trojúhelník, křivka a koberec) a když ti lidi náhodou začnout psát hru, tak z toho vznikne třeba 96k 3D akce kkrieger nebo 32k 3D závody el loco megabus. Jo a kdyby to někomu ještě nestačilo tak o demoscéně je na internetu i film Moleman 2: The art of algorithms.

[Rovano]

Sice mám trošku jiný vkus a líbí se mi často i druhá místa počínaje rokem 2000, kdy jsem na demoscénu natrefil, ale pěkné Tu je dokumentární film o počátcích od 80. let vejš. https://www.youtube.com/watch?v=iRkZcTg1JWU

[Rovano]

Pan Šmehlík již uvedl originální video. Link na YT je s možností CZ titulků.

[Petr Tomášek]

Dobrý techno, doufám, že v tom není zakódován nějakej jadernej exploit

[the.max]

to je dobrej haluzDD

[pepe_]

Nemá chybu !

[xvasek]

Zrovna nedávno jsem přemýšlel o projektu, který přehraje všechny binárky v systému a zjistí, která má nejlepší zvuk.

[Kvakor]

Zajímavé je i přehrávat souborové systémy nebo nekomprimované obrázky. To druhé je vlastně svým způsobem uměle udělaná synestézie

[Grunt]

No dnešní obrázky ve velkých rozlišeních nic moc. Sem tam si umím něco pustit a většinou je to jen šum. Ale staré obrázky zněly bohovsky.

[chrono]

Takéto niečo bolo "moderné" zhruba pred rokom (napr. Algorithmic symphonies from one line of code -- how and why?). :)

[chrono]

Inak v tom blogu je aj odkaz na web stránku, kde sa to dá vyskúšať priamo cez prehliadač (zvuk sa generuje pomocou javascriptu a prehráva pomocou html5 audia).

[Grunt]

No, ono kdo sleduje moje patičky, tak ví že tohle má své kořeny hodně dávno v minulosti. V tomhle jsou aspoň reálné data.

[Grunt]

A druhý článek je dle mého názoru mnohem zajímavější. Začalo to přesně kde jsem si myslel, že to začalo: demoscéna.

[miro]

Příloha:

• vzorek.ogg (84292 bytů)

Tak to je karaoke verze "Pásli ovce, Valaši". BTW - podařilo se to někomu nahrát - třeba do Audacity? (Externí mikrofon se samozřejmě nepočítá.) U mě se to jaksi divně zkriplí.

[horada]

Celkem bez problému:

Soubor->Import->Raw Data...
->Kódování: Unsigned 8 bit PCM
  Byte order Big-endian
  Channels: 1 kanál
  Počáteční posuv: 0
  Rozsah k načtení: 100%
->Rychlost vzorkování 8000

[miro]

Příloha:

• vzorek2.ogg (4953 bytů)

[horada]

Příloha:

• a.ogg (910158 bytů)

Mě to funguje dobře :( - to nastavení jsem udělal podle toho co mi vypíše aplay:

Playing raw data 'stdin' : Unsigned 8 bit, Rate 8000 Hz, Mono

[Grunt]

Musíš si nastavit, vzorkovací frekvenci na 8000Hz, 1 zvukový kanál, 8-bitů na vzorek, pak ti to bude fungovat. Ono je to v podstatě obyčejné PCM, takže stačí přidat hlavičku a máš z toho Wave formát:

echo "main(i){for(i=0;;i++)putchar(((i*(i>>8|i>>9)&46&i>>8))^(i&i>>13|i>>6));}" | gcc -x c - && ./a.out | ffmpeg -ar 8000 -ac 1 -f u8 -i - output.wav

Jinak já osobně preferuju větší rychlost hudby:

echo "main(i){for(i=0;;i++)putchar(((i*(i>>8|i>>9)&46&i>>8))^(i&i>>13|i>>6));}" | gcc -x c - && ./a.out | aplay -r 22050

[OSA]

Důrazně žádáme provozovatele tohoto webu o smazání zprávičky – obsahuje totiž část díla jednoho námi zastupovaného autora a nezaplatili jste nám autorské poplatky.

S pozdravem,
Vaše OSA

[j3nda]

+1

[pc2005]

Omyl, tahle hudba je patentovaný kus software a nebyly zaplaceny licenční poplatky.

S pozdravem,

Vaše BSA

[xkucf03]

Kéž by se tyhle dva pochybné spolky zničily navzájem a byl klid.

[pc2005]

+1

[Andy]

Moc pekny, jak dlouho to ma hrat? uz to posloucham asi 5 minut a konec zatim nikde ;)

[Petr Tomášek]

Dokud se z toho nezblázníš... :)

[Kvakor]

Protože v cyklu není podmínka, tak je horní mez opakování daná přetečením řídící proměnné cyklu, což je u 32 bitů a 8kHz 2^32/8000 s, tedy cca. šest a čtrt dne. Ale v praxi se to začne opakovat mnohem dříve, záleží na tom, jaké bity se ve výsledku použijí, například v příkladu je nejvyšší použitý bit 32-6=26, proto je horní mez 2^26/8000 s, tedy cca. za dvě hodiny a dvacet minut.

[David Watzke]

Tak to je odvaz, wow

[michi]

A komu se nechce gccovat a má ruby, může to zkusit stejně snadno:

echo "1.upto(1/0.0){|i| printf('%c',(((i*(i>>8|i>>9)&46&i>>8))^(i&i>>13|i>>6)));}" | ruby | aplay

[Grunt]

No jo. Procedurální tvorba dat. V tomhle případě zvuku. Ono procedurálně lze tvořit všelico. Videa (př:[1],[2],[3]), města nebo třeba celé hry. Ba dokonce se v tom soutěží. Já osobně zrovna přesvědčuju autora jednoho procedurální syntetizátoru aby ho uvolnil pod otevřenou licencí. Ne že by už žádné neexistovaly, ale zrovna jeho tvorba se mi docela líbí a nefunguje mi pod Linuxem (ale je možné stahovat, protože funguje pod Wine, jen vyžaduje trošku silnější mašinu). Jádro mi už poskytl. Tak snad jednou se mi to portnout podaří.

Ovšem tohle je asi opravdu nejmenší co znám. A asi i jediný, kde zdroják je menší než výsledná binárka. Jak to vlastně vzniklo? No ale přibližně takhle se profesionální elektronická hudba tvoří.

[Grunt]

celé hry

Teda ať moc nekřivdím. Ona se procedurální tvorba všeho možného samozřejmě používá ve hrách od samého zrodu…

Jinak se zdá, že si, ať je autorem kdokoliv, vypůjčil nějakou část z mého metalu. Určitě nějaký obdivovatel starých kazetových pásek.

[Kvakor]

Teda ať moc nekřivdím. Ona se procedurální tvorba všeho možného samozřejmě používá ve hrách od samého zrodu…

Nejen u her. Genetický kód to dělá stejně, hlavně tehdy, když výsledný tvar podobný fraktálu, například u listu kapradiny.

[Jendа]

Hustý.

[Jinan Dvoulaločný]

Soundcloud: Sorry! You need Flash to play this sound

WTF? Fuj, babo!

[Jendа]

Geiger:

while true; do if [ $(( $RANDOM % 1000 )) -eq 1 ]; then echo -n "%"; else echo -n "~"; fi; done | aplay -r 8000

[Josef Kufner]

nějak se mi to rozvrzalo

[multi]

Tak ted mi je jasne proc je vsude cimdal vice techna, linux s konzoli ma dneska skoto uz kazdej!

[j3nda]

tak jsem to nechal hrat zhruba den a neco:

$ echo "main(i){for(i=0;;i++)putchar(((i*(i>>8|i>>9)&46&i>>8))^(i&i>>13|i>>6));}" | gcc -x c - && ./a.out | aplay

Playing raw data 'stdin' : Unsigned 8 bit, Rate 8000 Hz, Mono
underrun!!! (at least 62807303,194 ms long)

a uala... underun!!! ~ takze ted to jede odznova - a asi je to impulz k poslechu neceho jineho :)

[pc2005]

Ale ten underrun nebude hláška z gcc, to bude aplaye ne? A ten to imho nezjistí, co mu leze za data.

[kkub]

skuste sudo cat /var/log/* | aplay

[mankind_boost]

co takhle cat /dev/urandom > /dev/dsp?

[Bedňa]

Sucharina, cat /dev/sda > /dev/dsp po bootloadery sa to rozbehne

[pesspi]

Kolega spominal ze ked robil na elektronkovych pocitacoch tak reprak pripojil priamo na hlavnu zbernicu a nechal to tak, veselo podriemkaval, a ked zrazu pocul taky charakteristicky opakujuci zvuk tak vedel ze sa program zacyklil a musel to restartnut.

[Bedňa]

To mal napojiť na relátko a mohol ďalej spať To boli určite krásne časy

[Dreit]

Sakra to je nářez!   Chvíli to znělo jako power metal, někde mezi kern.log a lpr.log  (spuštěno bez sudo)

[Jix0]

Je vubec nejaka moznost jak si vyse uvedene "algoritmy"(jestli to tak mohu spravne nazvat), prehrat na OSX? Mam Snow Leopard a aplay tady jaksi neni. Zkompilovat ze zdrojaku nepripada v uvahu kvuli odlisnosti platformy, tudiz ma otazka zni: Existuje nejaka varianta aplay pro OSX?

[Jix0]

Tak nakonec jsem to vyresil. Pouzil jsem sox ..ten pro OSX uz je

[pc2005]

To musí být sranda pustit to na platformě, kde je třeba int šestnáctibitovej . To bude znít jinak (byly tam nějaký >15 posuny).

[Johny]

Nemozem sa nepridat... echo "main(i){for(i=0;;i++)putchar(((i*(i>>2|i>>19)&146&i>>18))^(i&i>>11|i>>4));}" | gcc -x c - && ./a.out | aplay

[David Jaša]

Něco ve tříčtvrtečním rytmu by nebylo?