Ich bin gerade dabei einen Mandelbrot Generator zu programmieren. Um die berechnung der Punkte schneller zu machen werden dafür mehrere Threads (angepasst an cpu kernanzahl) erstellt.
Das funktioniert soweit.

Nun habe ich versucht auch das Zeichnen auf das AdCanvas mit mehreren Threads zu erledigen.
Das Problem ist: es kommen unvollständige biler herraus die lücken aufweisen.(siehe anhang)

Ich fühle mich mit dem thema multithreading noch nicht 100% sicher vorallem da wir das in der schule nur kurz angerissen haben.

Hier mein Code:


Aufteilen der Mandelbrotmenge in Streifen und erstellen der Threads

zusammenfalten · markieren

Delphi-Quellcode:

  for I := 0 to numberofparts - 1 do
  begin
    with TMMThreadDraw.create(true) do
    begin
      setdimensions(I * w, 0, min((I + 1) * w, length(data) - 1),
        length(data[0]) - 1, self, nil, nadcanvas);
      freeonterminate := true;
      resume;
    end;
    counter.waitforthreadsn(Cpucount);
  end;
  counter.waitforthreads;

Im thread selbst:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMMThreadDraw.execute;
var
  I, k: integer;
begin
  mm.counter.enter;
  inherited;
    for I := x1 to x2 do
    begin
      for k := y1 to y2 do
      begin
        adcanvas.PlotPixel(I, k, mm.data[I, k].getadcolor);
      end;
    end;
  mm.counter.leav;
end;

und schließlich der counter, der die threads mitzählt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TCounter.waitforthreads;
begin
  while threadson > 0 do
  begin
    sleep(10);
  end;
end;

procedure TCounter.waitforthreadsn(n: integer);
begin
  while threadson > n do
  begin
    sleep(10);
  end;
end;

Rein theoretisch müsste der Hauptthread ja warten bis alle unterthreads fertiggezeichnet haben und dann erst den addraw flippen.

Hi,

"PlotPixel" hierfür zu verwenden ist nicht gerade effektiv. Zudem solltest du nur aus dem Hauptthread heraus auf das Grafikinterface zugreifen, insbesondere TAdCanvas ist nicht threadsafe! Ich würde einen anderen Ansatz vorschlagen:

Du unterteilst den Bildschirm in gleichmäßige, möglichst quadratische Bereiche. Für jeden Bereich erstellst du ein TAdBitmap. Hierauf greift je 1 Thread mittels TAdBitmap.Pixels (schnell!) zu. In der Zeichenroutine lädst du die TAdBitmaps (synchronisiert!) in TAdImages und zeichnest diese. Dabei würde ich die Zeichenroutine nur selten ausführen - also mittels TAdPerformanceCounter.FPS auf maximal 10 oder 20 mal pro Sekunde beschränken.

Der Vorteil ist: Die TAdBitmaps sind komplett im Hauptspeicher, im Hauptthread findet synchronisiert der Zugriff auf die Hardware statt. Außerdem ist "PlotPixels" sowieso sehr langsam (vergleichbar mit TBitmap.Canvas.Pixels).

Hoffe das hilft dir,
Andreas

Hey,

danke für deine aufschlussreiche Antwort. Wahrscheinlich ist dein Ansatz der beste. Allerdings habe ich noch nicht herrausgefunden, wie ich ein TAdBitmap auf ein TAdImage packe. Leider ist auch die Andorra2d Website nicht benutzbar und in der Delphi Praxis finde ich dazu nichts.

Kannst du mir vllt kurz das passende Stichwort geben, nach dem ich suchen muss?

Vielen dank

Hi,

an der Unbenutzbarkeit der Andorra 2D Website arbeite ich gerade. Kann aber noch ein Weilchen dauern. Derweil lege ich dir diese Seite ans Herz:

http://andorracommons.sourceforge.ne...Draws.TAdImage

du kannst ein TAdBitmap ganz normal via

markieren

Delphi-Quellcode:

TAdImage.Texture.LoadFromGraphic(bmp);
TAdImage.Restore; //(nur bei Größenänderung nötig)

laden.

Hm ok das funktioniert jetzt ganz anständig.
Allerdings scheinen sich die Rot und Blau bytes vertauscht zu haben was ich nicht verstehe.(siehe anhang)

Gezeichnet wird einmal auf ein TAdCanvas mittels plotpixel (blau)(richtige farbe)
und einmal mittels Pixels auf ein TAdBitmap (rot) (falsche farbe)

Grün scheint grün zu bleiben.

Bitmaps nutzen üblicherweise das BGR-Format statt dem RGB-Format, deshalb sind hier wohl die Farbkomponenten vertauscht.
Btw: Wenn du mit Andorra wirklich schnell Fraktale zeichnen willst, würde ich dir empfehlen, einen Pixelshader zu schreiben

Ah gut zu wissen. Danke
Edit: Ja das zeichnen ist ja eigentlich nicht das langsame am Mandelbrot-Fraktal. Ich will halt nur nichts das zu lange dauert. Mit der aktuellen Methode bin ich sehr zufrieden.