Мандельброта с анимации gif и сделанные fasm, Delphi, ffmpeg

У нас есть много программ для рисования множество Мандельброта. Но сделать гиф с анимации — такового нет. Значит сделаем! )

Это гиф!
https://commons.wikimedia.org/wiki/File:Mandelbrot_Set_Color_Cycling_Animation_600px_3.gif
600 × 600 пкс, размер файла: 58,54 МБ, MIME-тип: image/gif, закольцованный

Но сначала нужно один статичный файл множество Мандельброта. Какой? 600 × 600? Не совсем. 600 на 8 — 4800! Потому что 256 цветов с 4800 × 4800 мы переведем 16121856 цветов с 600 × 600.

Сделали статичный 4800 × 4800? Хорошо. Мы начинаем )

Первый этап. Нужно сделать анимацию. Я делаю flat assembler
flatassembler.net/download.php
Tomasz Grysztar
Нужно asm

format PE GUI 4.0 include '..\include\win32a.inc'  invoke      CreateFile,fnam,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0 mov         [hfna],eax invoke      ReadFile,[hfna],buf,600*8*600*8+1078,hows,0 invoke      CloseHandle,[hfna]  zikl: mov         esi,pale mov         edi,esi lodsd        mov         ecx,254 repe        movsd stosd  mov         eax,[coun] mov         ebx,10 mov         esi,coun-6 decod:       xor         edx,edx div         ebx add         dl,'0' mov         [esi],dl dec         esi cmp         eax,0 jne         decod  invoke      CreateFile,gnam,GENERIC_WRITE,0,0,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,0 mov         [hgna],eax invoke      WriteFile,[hgna],buf,600*8*600*8+1078,hows,0 invoke      CloseHandle,[hgna] inc         [coun] cmp         [coun],255 jb          zikl  invoke      ExitProcess,0  data import   library kernel,'KERNEL32.DLL'   import kernel,\          CreateFile,'CreateFileA',\          ReadFile,'ReadFile',\          WriteFile,'WriteFile',\          CloseHandle,'CloseHandle',\          ExitProcess,'ExitProcess' end data  fnam        db      'params6.bmp',0 gnam        db      'pal000.bmp',0 coun        dd      0 align 1024 buf         rb      54 pale        rd      256             rb      600*8*600*8 hfna        rd      1 hgna        rd      1 hows        rd      1 

Имеется ввиду params6.bmp — один статичный файл множество Мандельброта. Получилось много-много файлов начиная с pal000.bmp заканчивая pal254.bmp. 256 цветов. 4800 на 4800 пиксели. Анимация через палитру! Только цветами!

https://commons.wikimedia.org/wiki/File:Mandelbrot_Set_Color_Cycling_Animation_600px.gif

Второй этап.
Теперь надо уменьшить 4800 на 4800 в 8 раз — 600 на 600 и увеличить 256 цветов в 16121856. Потому что 256 * 256 * 256 равно 16121856.
Чем? Конечно Delphi )
Embarcadero Delphi for Win32 compiler version 36.0
Нужно только ЧЕТЫРЕ ФАЙЛА!

DCC32.EXE
rlink32.dll
SysInit.dcu
System.dcu

Здесь видно 256 цветов на картинке слева и 16121856 цветов справа.

Нужно pas

{$APPTYPE CONSOLE} var fnam:string;     f,g:file;     b:array[0..12]of longint=(19778,0,54,40,0,0,$180001,0,0,2834,2834,0,0);     p:array[0..255]of array[0..3]of byte;     s:array[0..4915190]of byte;     c:array[0..2]of longint;     r:array[0..76790]of array[0..2]of byte;     x,y,m,n:longint;  begin   fnam:=paramstr(1);   assign(f,fnam);   reset(f,1);   delete(fnam,pos('.',fnam),4);   assign(g,fnam+'-AA8x8.bmp');   rewrite(g,1);   blockwrite(g,b,2);   seek(f,18);   blockread(f,b[4],8);   b[4]:=b[4] shr 3;   b[5]:=b[5] shr 3;   b[8]:=b[4]*b[5]*3;   b[0]:=b[8]+54;   blockwrite(g,b,52);   seek(f,54);   blockread(f,p,1024);   for y:=b[5]-1 downto 0 do   begin     blockread(f,s,b[4] shl 6);     for x:=0 to b[4]-1 do for n:=0 to 2 do     begin       c[n]:=0;       for m:=0 to 63 do c[n]:=c[n]+p[s[x shl 3+(m shr 3)*b[4] shl 3+m and 7]][n];       r[x][n]:=c[n] shr 6     end;     blockwrite(g,r,b[4]*3);     write(y:30,chr(13))   end;   close(f);   close(g) end. 

Получится SplAA8x8.exe
И нужно каждый файл SplAA8x8.exe проделать с pal000.bmp чтобы получилось pal000-AA8x8.bmp, pal001.bmp чтобы получилось pal001-AA8x8.bmp и так далее до pal254-AA8x8.bmp.

Если это долго то можете взять
disk.yandex.ru/d/X1k5M9nrEWYHVQ
он делает cmd
SplAA8x8.exe pal000.bmp
SplAA8x8.exe pal001.bmp
и так далее до
SplAA8x8.exe pal254.bmp
Это Notepad++

https://commons.wikimedia.org/wiki/File:Mandelbrot_Set_Color_Cycling_Animation_600px_2.gif

Третий этап.
Это последнее. ffmpeg. Нужно ffmpeg.org/download.html то есть www.gyan.dev/ffmpeg/builds/ffmpeg-git-full.7z
Мы делаем gif!!!

ffmpeg -i pal%%3d-AA8x8.bmp «Mandelbrot Set Color Cycling Animation 600px 3.gif»

Все с pal000-AA8x8.bmp до pal254-AA8x8.bmp получается gif. Готово!
Как вы видите эти файлы в commons.wikimedia.org имеется многих категориях:

Color cycling fractals
Mandelbrot set animations
Animated GIF files between 50 MP and 100 MP
Fractal art
Near-copies of the Mandelbrot set within itself
Animated GIF files
Seamless animations
Misiurewicz point

и даже статьи!

ru.wikipedia.org/wiki/%D0%9C%D0%BD%D0%BE%D0%B6%D0%B5%D1%81%D1%82%D0%B2%D0%BE_%D0%9C%D0%B0%D0%BD%D0%B4%D0%B5%D0%BB%D1%8C%D0%B1%D1%80%D0%BE%D1%82%D0%B0
fa.wikipedia.org/wiki/%D9%85%D8%AC%D9%85%D9%88%D8%B9%D9%87_%D9%85%D9%86%D8%AF%D9%84%D8%A8%D8%B1%D9%88
hy.wikipedia.org/wiki/%D5%96%D6%80%D5%A1%D5%AF%D5%BF%D5%A1%D5%AC
uk.wikipedia.org/wiki/%D0%9C%D0%BD%D0%BE%D0%B6%D0%B8%D0%BD%D0%B0_%D0%9C%D0%B0%D0%BD%D0%B4%D0%B5%D0%BB%D1%8C%D0%B1%D1%80%D0%BE%D1%82%D0%B0

Два года назад я перенес инсульт. Нога и рука двигаются мало. Первая группы инвалидности. Купить продукты помогает соцработник. Но я могу писать статьи на Хабр!