fraktal mandelbrota - powiekszanie

[ranma1988]

Witam
piszę mały programik rysujący fraktal mandelbrota Czy może mi ktoś powiedzieć:

jak wygenerować kolejne "kroki" / "obrazy"?
aby uzyskać taki efekt: ?

oto obliczanie skalowanie punktu dla pary (x,y) gdzie x=1....600, y=1...800

Kod: Zaznacz cały

c.Re:= (x-x_max/2)*skala + s;
c.Im:= (y-y_max/2)*skala + s;

program iteruje dla i=1....100

Kod: Zaznacz cały

tmp:=x;
x := c.Re + x*x - y*y;
y := c.Im + tmp*y + y*tmp

i sprawdza czy sqrt(x*x+y*y) > 2


proszę o pomoc bo jedyne co udało mi się zrobić to "powiekszenie" - dokładniej skalowanie tego samego obrazu.


(mam nadzieje że post w dobrym dziale)