Delfská veštírna trochu jinak

1.7.2010 00:44 | Přečteno: 1880× | Jen tak | poslední úprava: 1.7.2010 12:50

Inspirován zápisem o pořádně napěchované skříni s disketama sem se rozhodl napsat prográmek, co by simuloval cosi podobného. Kdo už takovou sbírku disket vlastní a nic emulovat nepotřebuje, dál číst nemusí .

Myšlenka je jednoduchá. Místo všech kombinací 1,44 MB disket budeme mít prográmek, co dokáže vykreslit 8x8 pixelů velký monochromatický piktogram (tedy aspoň na architekturách, kde je long long int 64bitů). Proč zrovna 8x8? Jednak proto, že se mi to dobře programovalo a taky proto, že na vstupu může být stále celkem zapamatovatelné a vymyslitelné číslo.

Ano číslo, další podstatná věc, která v odkazovaném blogu zazněla. Každá informace se dá převést na číslo a chtěl jsem, aby s ním prográmek umožnil pracovat.

Tak co to vlastně umí: Program může mít jeden volitelný parametr a to právě to číslo, ze kterého vykreslí piktogram. Jinak kdykoliv je možné v programu zmáčknout klávesu [mezerník] co spustí promítání náhodných piktogramů v intervalu jedna sekunda, znovu stisknutím [mezerníku] se to pauzne. Číslo vygenerovaných piktogramů se vypisuje do konsole, i do titulku okna.

Protože některé piktogramy mohou invertovaně působit odlišně, klávesa [I] spustí (a vypne) střídání inverze.

Cože to vlastně může dokázat vykreslit? No máme 18446744073709551615 18446744073709551616 kombinací (větší čísla nezadávat ;)). To je celkem slušné. 8x8 fonty existují, taky jsem objevil jakýsi pixelart (akorát barevný). Takže nějaké "poselství" by mělo být možné tímto věštícím nástrojem přijmout .

Náhodné generování pomocí rand() použité v programu ve funkci [mezerník] má bohužel nevýhodu v tom, že je RAND_MAX podstatně menší než LONG LONG INT. Řeším to škálováním, ale tím jsem spoustu kombinací vyřadil . Lepší by to bylo propojit s /dev/random, nebo /dev/urandom, ale to už se mi (zatím) nechtělo.

Po krátkém testování mi to pár hezkých obrázků vyrobilo, tak je přikládám. Zdroják hodím do prvního komentáře jako přílohu. Přeložit to jde snad všude kde je gcc a nainstalovaná i devel verze sdl (obvykle balíček sdllib-dev). Nemělo by to jakkoliv poškodit počítač ani data . Překládat takhle:

gcc -o main main.c `pkg-config --cflags --libs sdl`

Jinak proč? No potřeba po dlouhé době provětrat znalosti SDL a C. Jsem prasič, takže kód je šílený . A jinak, kdyby tam někdo zahlédl odpověď na otázku života, vesmíru a vůbec a podobně, poslat screen (a nebo projít všechny možné kombinace a poslat ty nejhezčí pixelarty ;)).

Update: pod prvním komentářem najdete soubor vestirna.c, což je vylepšená verze, která čte z /dev/urandom (kdo chce /dev/random, ať změní ve zdrojáku - dík FAtbluNTovi) a navíc opravuje chybku se čtením vstupu (nečetlo správně nejvyšší řády, teď to po zadání maxima - 18446744073709551615 - vykreslí bílou obrazovku.        

Obrázky

Komentáře

[Václav HFechs Švirga]

Příloha:

• main.c (3243 bytů)

zdrojak

[Václav HFechs Švirga]

Příloha:

• main.c (3207 bytů)

Je tam chyba, hned to spadne. Tohle by mohlo fungovat :).

[Václav HFechs Švirga]

Příloha:

• vestirna.c (3593 bytů)

Tak dalsi bugfix, atof kterou jsem pouzil pro cteni vstupu nebyla schopna nacist unsigned long long int. Napsal jsem si atoull. Tahle verze cte z /dev/urandom.

[Mrkva]

Co takhle jednoduché strings /dev/urandom a hledat smysl v tom? :)

[Václav HFechs Švirga]

Promiň, ale já v tom pořád vidím jenom čaj . Tady vidím občas hezké obrázky. Prostě mozek v těch pixelech je s trochou fantazie schopný cosi vyčíst, k něčemu si to přiřadit. Což u hromady nesourodých ascii znaků moc nejde . Kdyby se na to poštval třeba ještě slovník, bylo by to lepší. Ale to by zas nebyl ono (samozřejmě, v obou případech jde pouze o srandu, ale u toho mého programu myslím že člověk vydrží o pár sekund dýl a to se vyplatí ;P).

[Václav HFechs Švirga]

Příloha:

• vsichni_zemreme.png (10328 bytů)

Teď mi třeba vypadl tenhle obrazek, celkem slusny pixelart (nebo temne proroctvi?) . Urcite tam vidim vic nez v hromade caje :).

[Mrkva]

No nevim, u me to porad vykresluje jen bile okno :)

[Václav HFechs Švirga]

Musis zmacknout mezernik, vzdyt to v blogu pisu .

[Mrkva]

Oprava: tvoje verze mi funguje. Nefungovala mi ta verze, co brala data z urandom.

[Václav HFechs Švirga]

Příloha:

• main-od-FAtbluNT.c (3256 bytů)

Tak ta mi jde, ale musel jsem na zacatku mainu z

  
if(!Init())
{
  SDL_Quit();
  return 1;
}

udelat

Init();

Proc netusim, predtim to slo. Je to nejaky rozbity . Tady jsem to vylepsil na /dev/random (musi se hybat myskou, jinak dojdou nahodna cisla). Viz priloha.

[FAtbluNT]

Příloha:

• main.c (3285 bytů)

Kdo je vetsi prase? Pridal jsem tam to cteni z urandom

[FAtbluNT]

Příloha:

• main.c (3285 bytů)

sorry cetlo to jenom 7 bajtu takhle je to spravne

[Václav HFechs Švirga]

Cool, funguje .

Kdyby to nekdo zkousel a neslo mu to, zrusit testovaci podminku kolem Init() na zacatku mainu. Nevim proc, ale aspon mi neprojde . Pak to jde.

[Michal Wirth]

jen takovej rejp ... ten pocet kombinaci mate spatne, melo by to byt sude cislo to co tam mate, je IMHO cislo "posledni" kombinace s indexaci od nuly, ale jako pocet vsech kombinaci to nazvat nejde

[Václav HFechs Švirga]

Jo, máš pravdu.

[Allah Akbar]

A verzia pre konzolu nebude?

[FAtbluNT]

Příloha:

• main_cli.c (1054 bytů)

tady je

[Václav HFechs Švirga]

Příloha:

• 159728-main_cli-13623.c (1101 bytů)

To aby jsme pomalu zalozili git . Jinak nejak mi to nebezelo, mam divny asi prekladac (na desktopu mam jeste ubuntu, gcc version 4.3.3 (Ubuntu 4.3.3-5ubuntu4) ;)). Kupodivu se size nechovalo jako globalni, musel sem ho udelat staticke (proc fakt netusim). A doplnil jsem nejake hlavickove soubory.

[Jendа]

Příloha:

• vestirna.sh (161 bytů)

Textová implementace v bashi.

[Václav HFechs Švirga]

Pekne, ale chybi tu cislo jako jednoznacky identifikator obrazku. Ale to by asi napsat v bashi nebyla zadna sranda. Jeste cekam implementaci v awk, brainfucku a cobolu ;P.

[Michal Fecko]

ja sa nehram

+--------+
|  |
||
||
||
||
||
||
||
+--------+
10

[xsubway]

pěkné :)

[Dadam]

Dobrý Tak mě napadlo, že rand vrací 32bitové čísla, že? Vygeneruj si čísla dvě a vynásob?

[Jendа]

Nebude pak rozložení nerovnoměrné? (většina takto vygenerovaných čísel bude ve středu intervalu, jako když házíš dvěma platónskými tělesy) A taky přijdeš o prvočísla.

[Václav HFechs Švirga]

Jo, na to jsem tak nejak myslel. Stejne tak kdyz hazes dvemi kostkami a delas soucet, gausova krivka se tomu tusim nadava. Ale cteni z /dev/urandom (/dev/random) to resi (nekde v diskuzi).

[Václav HFechs Švirga]

tohle mam odzkousene

[Kvakor]

Stejne tak kdyz hazes dvemi kostkami a delas soucet, gausova krivka se tomu tusim nadava.

Přesně takto se gaussovské rozdělení dělá. Pokud si to ještě dobře pamatuju, tak na použitelnou verzi stačí posčítat dvanác normalizovaných hodnot (tj. z intervalo 0,1) a odečíst šestku, pro nenormalizované funkce (jako je rand()) je třeba samozřejmě odečíst šestinásobek RAND_MAX a výsledek touto hodnotou ještě podělit (nebo s ním počítat jako s číslem s pevnou řádovou čárkou).

[JVid]

Funkční řešení je vygenerovat dvě čísla, jedno posunout o 32b doleva a pak je vyXORovat. Při sčítání nebo násobení to samozřejmě fungovat nebude, resp. ne tak, jak by člověk chtěl.

[Václav HFechs Švirga]

Jo, to by asi šlo.

[Grunt]

A nebylo by lepší cpát nějakou náhodnou entropii spíš do frekvencí? U toho je spíš šance, že si mozek něco domyslí.

[Václav HFechs Švirga]

Příloha:

• soumernost.png (10154 bytů)

A jak by sis to představoval? Na výstupu zvuk / fraktál?

Mě by se líbilo nechat to takto náhodně generovat obrazce a kdyby mi nějaký něco připomínal (třeba nějaké zborcené písmeno A, to jsem už občas v tom smetí zahlédl), zastavit to a hledat podobné obrazce k tomu nalezenému (nějaké metoda postupného výběru). Jenže jak to realizovat...

Jinak i z toho mého občas vypadne něco trošku zajímavého. Tady je třeba osově souměrný obrazec, který má druhou část barevně invertovanou.

[Vskutečnosti Saýc]

No, mohl bys udelat inverzni diskretni kosinovou transformaci, treba by z toho lezlo neco zajimaveho :)

[Grunt]

Ne. Prostě náhodný šum (jaký třeba vyleze z dd if=/dev/urandom of=/dev/fb0) převést zpět z frekvenční domény do časové. Takže třeba pomocí ImageMagicku (nemám nainstalovanou HDR verzi, takže nemůžu ověřit správnost):convert -size 512x512 rgb:/dev/urandom -size 512x512 rgb:/dev/urandom -ift show:. Jen by se musela nějak normalizovat amplitudová složka aby se výsledek vešel do rozsahu. A klidně by na to šlo použít to pole 8x8. By z toho sice vylezl jen rozmazaný maglajz, ale i tak je větší šance, že v něm mozek uvidí něco víc než v takovém políčku pixelů 8x8.