Táto téma bola „na pretrase“ už pekných pár rokov dozadu, ale podujal som sa na jej oprášenie
Pôvodca myšlienky nechať PP01 dopočítať Mandelbrotov fraktál je vlastne Dex, ktorý o tom v roku 2013 natočil a publikoval aj 3-5 minútové video https://www.youtube.com/watch?v=EoZ5WE2k3vA.
A pretože Roman Bórik mal už dávnejšie rozrobený emulátor PP01 trochu som do neho začiatkom roka drcol, či by s tým vedel pohnúť a oplatilo sa. Dnes si už môžete stiahnuť jeho alfa verziu na stránke http://pp01.borik.net/.
Včera som sa odhodlal preďatlovať do emulátora nasledovný program, ktorý je horko-ťažko čitateľný z videa [ EDIT: V treťom tisícročí je samozrejme všetko na internete, len to Google občas nevie nájsť. Dex ma upozornil, že nebolo treba lúštiť a odčítavať obrazovku, lebo program je v čitateľnej forme opublikovaný na https://sites.google.com/site/pp01color/programy-v-basicu ] :
10 SIZEX=256:SIZEY=256:MAXITER=256 15 SCALE 0,255,-127,128 20 FOR X=0 TO SIZEX 30 XI=X/200-2 40 FOR Y=0 TO SIZEY/2:YI=Y/200:XC=0:YC=0 50 FOR I=1 TO MAXITER 60 IF XC*XC+YC*YC>4 THEN GOTO 90 70 XT=XI+XC*XC-YC*YC:YC=YI+2*XC*YC:XC=XT 80 NEXT I 90 IF I>MAXITER THEN LET I=0 100 INK I-8*(I\8):PENUP:PLOT X,Y:PENUP:PLOT X,-Y 110 NEXT Y 120 NEXT X 199 STOP
A dnes sa už môžete kochať výsledkom vygenerovaným týmto kódom:
No nie je to nádhera?
/ikon
Protože mám PP01 mrtvolné, ale článeček mě navnadil na fraktály, udělal jsem minimální zásah do kódu, abych jej mohl pustit alespoň na Atárku. Pokud je to moc mimo téma, tak tento koment prosím smažte a přijměte omluvu. Jinak tohle je ten lehounce modifikovaný kód pro Atari Basic:
10 SIZEX=160:SIZEY=96:MAXITER=256
15 GR.23:PLUSY=SIZEY/2:COL=4
20 FOR X=0 TO SIZEX
30 XI=X/200-2
40 FOR Y=0 TO SIZEY/2:YI=Y/200:XC=0:YC=0
50 FOR I=1 TO MAXITER
60 IF XC*XC+YC*YC>4 THEN GOTO 90
70 XT=XI+XC*XC-YC*YC:YC=YI+2*XC*YC:XC=XT
80 NEXT I
90 IF I>MAXITER THEN LET I=0
100 COLOR I-COL*INT(I/COL):PLOT X,PLUSY+Y-1:PLOT X,PLUSY-Y
110 NEXT Y
120 NEXT X
Určite je to k téme a komentár sem patrí. Nebránime sa iným platformám, obzvlášť ak sú osembitové.