AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Problem bei Supersampling (Verkleinern einer TBitmap)
Thema durchsuchen
Ansicht
Themen-Optionen

Problem bei Supersampling (Verkleinern einer TBitmap)

Ein Thema von hellboyPS · begonnen am 28. Dez 2009 · letzter Beitrag vom 29. Dez 2009
 
hellboyPS

Registriert seit: 28. Dez 2009
5 Beiträge
 
#4

Re: Problem bei Supersampling (Verkleinern einer TBitmap)

  Alt 28. Dez 2009, 16:18
Hallo und danke für die Antworten.
Das mit ScanLine werde ich mal umsetzen, nichts desto trotz funktioniert die Prozedur jedoch nicht so wie man sich das vorstellt. Auch bei Graphics32 werd ich mich reinarbeiten, hört sich vielversprechend an. Die Mandelbrotmenge wird eben ganz simpel erzeugt und dann gefärbt. Der Quellcode hierzu sieht ungefähr so aus:

Delphi-Quellcode:
for x := 0 to bitmap.width do
begin
 for y := 0 to bitmap.height do
 begin
  re := (x/bitmap.width)*zoom+movex; // mit Startwerten zoom = 4, move = -2
  im := (y/bitmap.height)*zoom+movey;
  rez := 0;
  imz := 0;
  a := true;
  it := 0;
  for i := 0 to iterations do
  begin
   if a then
   begin
    rezold := rez;
    rez := rez*rez-imz*imz+re;
    imz := 2*rezold*imz+im;
    if rez*rez+imz*imz > 4 then
    begin
     a := false;
     it := i;
    end;
   end;
  end;
  col := (rez*rez+imz*imz)/4*colchangevar*10
  if a then
   bitmap.canvas.Pixels[x,y] := clBlack
  else
   bitmap.canvas.Pixels[x,y] := round(col+256*col+256*256+col);
 end;
end;
Das Verkleinern mit Delphiinternen Funktionen geht auch wirklich schnell nur führt es nicht zu gewünschten Ergebnis, ich bräuchte also etwas, das in dieser Form das Bild verkleinert.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz