Реализация фрактальных объектов в Delphi

[Кос]

Ребят, если кому-то интересен такой вопрос: Реализация фрактального объекта "лист папоротника" в Delphi? как мне это сделать? Это возможно? У меня такая тема курсовой((((((

Если кто-то может помочь, вот есть файл, в нем описание алгоритмов и некоторые программы, но только в матлаб((((( http://soft.mail.ru/journal/pdfversions/48127.pdf

[Google2010]

procedure TForm1.Timer1Timer(Sender: TObject);
var r : double;
    y2, x2 : integer;
    z : integer;
begin
for z := 0 to 10000 do
begin
  r := random;
  a := 0;
  b := 0;
  c := 0;
  d := 0.16;
  f := 0;

  if r > 0.01 then
  begin
   a := 0.85;
   b := 0.04;
   c := -0.04;
   d := 0.85;
   f := 1.6;
  end;

  if r > 0.86 then
  begin
   a := 0.2;
   b := -0.26;
   c := 0.23;
   d := 0.22;
   f := 1.6;
  end;

  if r > 0.93 then
  begin
   a := -0.15;
   b := 0.28;
   c := 0.26;
   d := 0.24;
   f := 0.44;
  end;

  newx := (a * x) + (b * y);
  newy := (c * x) + (d * y) + f;
  x := newx;
  y := newy;
  y2 := 480-round((y+0.5)*45);
  if (y2 > 0) and (y2 < 480) then
  begin
    x2 := round((x+4.5) * 64);
    if (x2 > 0) and (x2 < 640) then
    begin
      pic[x2,y2] := pic[x2,y2]+1;
    end;
  end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
go := false;
picture := TBitmap.Create;
picture.Width := form1.ClientWidth;
Picture.Height := form1.ClientHeight;
picture.PixelFormat := pf32Bit;
image1.picture.bitmap := picture;
randomize;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var scan : ^scanline;
    y,x : integer;
    col : integer;
begin
for y := 0 to 480 do
begin
  scan := image1.Picture.Bitmap.ScanLine[y];
  for x := 0 to 639 do
  begin
    col := pic[x,y];
    if col > 255 then col := 255;
    scan[x].r := col;
    scan[x].g := col;
    scan[x].b := col;
  end;
end;
image1.refresh;
application.ProcessMessages;
end;

[Кос]

Спасибо большое