Рисование множества Опции

[valerianka97]

Программа рисует довольно-таки интересное множество Жюлиа

uses GraphABC; 
 
function f(z : Complex) : Complex := z * z + (0.1, 0.1);
function g(z : Complex) : Complex := z * z + (-2, 0);
 
const iter = 50;
       max  = 16;
var x, y, n : Integer;
    mx, my  : Integer;
    z : Complex;
begin
Randomize;
Mx := windowwidth div 2;
My := windowheight div 2;
for y := -my to my do
for x := -mx to mx do 
 begin
  n := 0;
  z := (x * 0.005, y * 0.005);
  while (z.Magnitude < max) and (n < iter) do 
   begin
    z := f(z) * g(z);
    Inc(n);
   end;
  if n < iter then  SetPixel(mx + x,my + y,RGB(2*(16 - n mod 16),12*(16 - n mod 16),28*(16 - n mod 16)))
   else SetPixel(mx + x,my + y,RGB(5*(16 - n mod 16),30*(16 - n mod 16),70*(16 - n mod 16)));
  end;
 end.

Объясните пожалуйста смысл данных строк и констант iter и max, не могу ответить на вопрос "как рисуется это множество"

if n < iter then  SetPixel(mx + x,my + y,RGB(2*(16 - n mod 16),12*(16 - n mod 16),28*(16 - n mod 16)))
   else SetPixel(mx + x,my + y,RGB(5*(16 - n mod 16),30*(16 - n mod 16),70*(16 - n mod 16)));