Задачка с Barry Martin fractal

 

Давненько у меня в папке валялся исходник martin.bas, найденный на одном ресурсе. Я попробовал перевести код на PureBasic и не получил результат.

Вчера снова вернулся к задаче и снова облом. Скомпилировал программу в QB64, скормил IDA5 и обалдел от мракобесного кода. Вечером в BasinC набрал исходный текст - снова нет картинки. Заменил константу PI на оригинальное 3.14

Набрал программу на PicoCalc - нет картинки. Оставил решение задачи на утро и стал надоедать Google своими запросами. Нашел алгоритм, он называется sinusoidal Barry Martin fractal. Набрал программу по аналогии исходника - облом. Сегодня утром написал код на Flat Asseembler - еще хуже

Ёмаё, это мой компьютер и почему он не желает выполнять команды? Стал думать и поменял константу PI на короткое число - зашевелилось. На PureBasic вышло нечто:

Переписал код на ассемблере, немного оптимизнул:

Сразу вспомнилась фраза одного коллеги по СберБанку: "А не дурак ли я?". Если решил задачу, значит не дурак xD

Файлы здесь. Хорошо бы разобраться с разновидностями фракталов.