Рисунок

[Nurtas]

Как нарисовать орнамент в паскале? у меня не получается погоите плз

[Nurtas]

Паскаль Авс

[Danko]

Что именно не получается?

[Mad_Cat]

uses Utils,GraphABC;

const
  n=255;
  max=10;

var
  z,z1,c: complex;
  i,ix,iy: integer;
// z=z^2+c
begin
  cls;
  SetWindowCaption('Фракталы: поле из одуванчиков');
  SetWindowSize(400,300);
  c:=(0.6,0.9);
  for ix:=0 to WindowWidth-1 do
  for iy:=0 to WindowHeight-1 do
  begin
    z:=0.015*(ix-200,iy-140);
    for i:=1 to n do
    begin
      z1:=0.5*z*z+c;
      if abs(z1)>max then break;
      z:=z1;
    end;
    if i>=n then SetPixel(ix,iy,clRed)
      else SetPixel(ix,iy,RGB(255,255-i,255-i));
  end;
  writeln('Время расчета = ',Milliseconds/1000,' с');
end.

[Nurtas]

http://i055.radikal.ru/1105/46/af6067944e72.jpg

[Nurtas]

Вот такие орнаменты не получается нарисовать, помогите пожалуйста