Фрагмент множества Мандельброта с анимация

Впервые я прочитал о фракталах больше 40 лет назад, классе в пятом-шестом, в журнале «Техника — молодежи». Помню, там была изображена снежинка Коха. Слово «фрактал» происходит от латинского «дробный», так как у этих математических фигур дробная размерность.
«Облака — не сферы, горы — не конусы, береговые линии — не окружности, древесная кора не гладкая, молния распространяется не по прямой» — писал Бенуа Мандельброт — первооткрыватель самого известного фрактала, названного в его честь — множества Мандельброта.

Фрагмент множества Мандельброта для примера

Изобразить его стало возможно только после появления компьютеров. Без расчетов его форму не узнать никак, а расчетов требуется намного больше, чем возможно выполнить вручную. Поэтому изображения множества Мандельброта — это показатель высокого уровня цивилизации. Археологи не находят этих картин в прошлом Земли, значит, у древних народов не было такого уровня развития.

Фрагмент множества Мандельброта для примера

Существует много программ для построения фракталов, я тоже написал такую программу. И так сложилось, что написал ее на языке ассемблера. Поэтому она работает быстро и занимает очень мало места на диске. И она бесплатна!

flat assembler 1.73.32 for Windows
flatassembler.net/download.php
Tomasz Grysztar!

Кроме FASM.EXE нужно INCLUDE.
И три файла:

Mandelbrot.asm
params.bmp
Mandelbrot.ico

После того как Mandelbrot.exe не просто фрагмент множества Мандельброта а анимация или мультипликация — технические приёмы создания иллюзии движущихся изображений до 60 кадров в секунду. Смотрим на картинка!

Фрагмент множества Мандельброта с анимация

600 × 600 pixels, file size: 69.85 MB, MIME type: image/gif, looped, 255 frames.
upload.wikimedia.org/wikipedia/commons/1/1e/Mandelbrot_Set_Color_Cycling_Animation_600px.gif

Еще мне кажется что объёмный а не плоский мир! Иллюзия? Вы тоже видите?

Однако приступим!

format PE GUI 4.0 include 'include\win32a.inc' entry start   section '.code' code readable executable start:           invoke  GetModuleHandle,0         mov     [clsHInstance],eax         invoke  LoadIcon,eax,9955         mov     [clsHIcon],eax         invoke  LoadCursor,0,IDC_HAND         mov     [clsHCursor],eax         invoke  RegisterClass,clsStyle          invoke  CreateWindowEx,0,splclassname,spltitlename,WS_VISIBLE+WS_POPUP,100,70,1600,900,0,0,[clsHInstance],0         mov     [newhwnd],eax          invoke  GetDC,[newhwnd]         mov     [MyDC],eax         invoke  CreateDIBSection,[MyDC],bhead,0,tut,0,0         mov     [HBitmap],eax          mov     esi,bhead+1064         mov     edi,[tut]         mov     ecx,1440000         repe    movsb          invoke  CreateCompatibleDC,[MyDC]         mov     [CoDC],eax         invoke  SelectObject,[CoDC],[HBitmap]         mov     [OBitmap],eax          invoke  CreateThread,0,0,Thr1Proc,0,0,Thr1ID         mov     [t1hndl],eax  

Здесь окно изначально отображается и всплывающее. 1600 и 900. И 1 440 000 байт фрагмент множества Мандельброта неподвижный.

Фрагмент множества Мандельброта для примера

msg_loop:         invoke  GetMessage,msHWND,0,0,0         or      eax,eax jz end_loop         invoke  DispatchMessage,msHWND jmp msg_loop end_loop:         invoke  SelectObject,[CoDC],[OBitmap]         invoke  DeleteObject,[HBitmap]         invoke  DeleteDC,[CoDC]         invoke  ReleaseDC,[newhwnd],[MyDC]         invoke  CloseHandle,[t1hndl]         invoke  ExitProcess,0  

Здесь ExitProcess — предпочтительный метод завершения процесса. Эта функция обеспечивает чистое отключение процесса.

Фрагмент множества Мандельброта для примера

proc WndProc, hwnd,wmsg,wparam,lparam         push    ebx esi edi         cmp     [wmsg],WM_DESTROY je wmdestroy         cmp     [wmsg],WM_KEYDOWN je  wmdestroy         cmp     [wmsg],WM_NCHITTEST jne nonchi         invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]         cmp     eax,1 jne finish         mov     eax,2 jmp finish nonchi:         invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam] jmp finish   wmdestroy:         invoke  PostQuitMessage,0         xor     eax,eax finish:         pop     edi esi ebx         ret endp  

Здесь WM_NCHITTEST — всякий раз, когда происходит событие от нажатия кнопки мыши. Посмотрите! И WM_DESTROY для выход.

Фрагмент множества Мандельброта для примера

proc Thr1Proc,Paramx align 16 again:         std         mov     esi,bhead+40         add     esi,1016         mov     edi,esi         lodsd         mov     ecx,254         repe    movsd         stosd         cld         invoke  SetDIBColorTable,[CoDC],0,256,bhead+40         invoke  DwmFlush         invoke  BitBlt,[MyDC],0,0,1600,900,[CoDC],0,0,SRCCOPY jmp again endp  

Значимая часть! Анимация — сменяющих друг друга с большой частотой до 60 кадров в секунду! Это DwmFlush! И BitBlt для 1600 х 900. Кстати только несколько процентов всего! Несмотря на 60 кадров в секунду.

Фрагмент множества Мандельброта для примера

section '.idata' import data readable writeable    library kernel,'KERNEL32.DLL',\           user,'USER32.DLL',\           gdi,'GDI32.DLL',\           dwmapi,'DWMAPI.DLL'      import kernel,\       GetModuleHandle,'GetModuleHandleA',\       CreateThread,'CreateThread',\       CloseHandle,'CloseHandle',\       ExitProcess,'ExitProcess'    import user,\       RegisterClass,'RegisterClassA',\       CreateWindowEx,'CreateWindowExA',\       DefWindowProc,'DefWindowProcA',\       GetMessage,'GetMessageA',\       DispatchMessage,'DispatchMessageA',\       LoadCursor,'LoadCursorA',\       LoadIcon,'LoadIconA',\       GetDC,'GetDC',\       ReleaseDC,'ReleaseDC',\       PostQuitMessage,'PostQuitMessage'    import gdi,\       CreateDIBSection,'CreateDIBSection',\       CreateCompatibleDC,'CreateCompatibleDC',\       SelectObject,'SelectObject',\       DeleteObject,'DeleteObject',\       DeleteDC,'DeleteDC',\       SetDIBColorTable,'SetDIBColorTable',\       BitBlt,'BitBlt'           import dwmapi,\       DwmFlush,'DwmFlush'  

Все! Это import kernel, user, gdi и dwmapi.

Фрагмент множества Мандельброта для примера

section '.data' data readable writeable  clsStyle            dd    0 clsLpfnWndProc      dd    WndProc clsCbClsExtra       dd    0 clsCbWndExtra       dd    0 clsHInstance        dd    ? clsHIcon            dd    ? clsHCursor          dd    ? clsHbrBackground    dd    COLOR_BTNFACE+1 clsLpszMenuName     dd    0 clsLpszClassName    dd    splclassname   spltitlename        db    'Mandelbrot',0 splclassname        db    'ekjgddirkul2',0   bhead               file  'params.bmp':0eh   Thr1ID              rd    1 t1hndl              rd    1  newhwnd             rd    1 tut                 rd    1                      HBitmap             rd    1 OBitmap             rd    1 MyDC                rd    1 CoDC                rd    1   msHWND              rd    1 msMESSAGE           rd    1 msWPARAM            rd    1 msLPARAM            rd    1 msTIME              rd    1 msPT                rd    2  

Это много dd и file params.bmp.

section '.rsrc' resource data readable  directory RT_ICON,splico,RT_GROUP_ICON,splgroup resource splico,8855,0,ico0 resource splgroup,9955,0,grp0 icon grp0,ico0,'Mandelbrot.ico'  

Здесь Mandelbrot.ico иконка 256 x 256.

Собираем.

Готово! Файл Mandelbrot.exe готов. Если Far, то видим так:

Вот так выполнили Mandelbrot.exe:

Но конечно вы не видите анимация 60 кадров в секунду! Сделайте сами.

И последнее. У меня три статьи:

ЦВЕТА белиссимо
Забытый порт 3c0, или видят ли камеры иллюзии
Фрагмент множества Мандельброта с анимация

Можете ли вы английский язык? Что бы распространять в Великобритания, Северная Америка, Австралия? Не я. Вы. Я больше года назад перенес инсульт. И вряли что могу. Я почти не ходячий! И скоро вероятно умру. А статьи может бы не знаю… Но я слышал что Creative Commons — некоммерческая организация, которая создала бесплатные для использования свободные публичные лицензии…

Я знаю Wikimedia Commons Aokoroko, где много моих фрагмент множества Мандельброта.

А вот нашел! Намного большие!

splushka.narod.ru/SplMandelbrot.zip

СОСТАВ КОМПЛЕКТА

В этот комплект входит исходный текст программы и компилятор FASM,
нужный для того, чтобы из исходного текста создать приложение.

Это действие исключительно простое — нужно перетащить мышкой
значок файла SplMandelbrot.asm на значок FASM так, чтобы
произошло действие «Открыть с помощью».

В результате в папке немедленно появится приложение SplMandelbrot.

ОПИСАНИЕ ПРОГРАММЫ

Приложение SplMandelbrot рисует во весь экран участок множества Мандельброта и показывает анимацию.

Направление движения анимации можно менять стрелочными клавишами
клавиатуры компьютера.

Две разные палитры раскраски можно выбирать клавишами F6 и F7.

Пять разных заранее выбранных интересных мест множества Мандельброта
можно выбирать клавишами F1, F2, F3, F4, F5.

Клик левой кнопкой мыши приближает (увеличивает) изображение в 2 раза,
клик правой кнопкой мыши — отдаляет (уменьшает) изображение в 2 раза.

Информацию о понравившемся изображении можно сохранить на будущее в файл
клавишей End и потом загрузить из файла клавишей Ins.

Чтобы выйти, нужно нажать клавишу Esc.

Приложение SplMandelbrot можно также использовать как экранную заставку.
Чтобы это сделать, нужно в Проводнике в верхнем меню «Вид» поставить галочку
«Расширения имен файлов», а затем переименовать файл SplMandelbrot.exe
в SplMandelbrot.scr — когда появится предупреждение «Вы действительно хотите это сделать»,
выбрать «Да». После этого тип файла станет не «Приложение», а «Заставка».

Если теперь кликнуть по этому файлу правой кнопкой мыши, то в меню
будет пункт «Установить».

Во время работы экранной заставки будут действовать все клавиши,
которые перечислены выше, чтобы выйти из полноэкранной заставки,
нужно будет нажать клавишу Esc.

И наконец Mandelbrot.exe просто один файл!!!
splushka.narod.ru/Mandelbrot.zip