Alphablend bei Farben

[Neutral General]

Hi,

Also ich will keine ganzen Bitmaps aufeinander blenden sondern nur zwei TColors... Also sowas in der Art wie:

function Alpha(C1,C2: TColor; Alpha: Byte): TColor; wobei C2 auf C1 geblendet werden soll mit dem "Alpha"-Wert.

Gibts sowas ?
Habs bisher so gemacht das ich zwei mini-Bitmaps übereinander geblendet habe mit den jeweiligen Farben und Alphawerten und dann

Result := Bitmap1.Canvas.Pixels[0,0]; Aber das ist -->ARSCH<-- langsam

Wäre über ne gute Lösung dankbar

Gruß
Neutral General

[elundril]

R1+R2/2
G1+G2/2
B1+B2/2

denk ich! hab ich mal auf einer seite gesehen.

lg el

[Neutral General]

Zitat von elundril:

R1+R2/2
G1+G2/2
B1+B2/2

denk ich! hab ich mal auf einer seite gesehen.

lg el

Und wie stellt man dabei die Transparenz ein ?

[Nicolai1234]

Zitat von Neutral General:

Zitat von elundril:

R1+R2/2
G1+G2/2
B1+B2/2

denk ich! hab ich mal auf einer seite gesehen.

lg el

Und wie stellt man dabei die Transparenz ein ?

(A*R1+(255-A)*R2)/255

Dann könntest du den Alphawert ganz normal von 0 bis 255 regeln...

[elundril]

SRY!!! habs falsch verstanden. aber das hab ich auch schon mal irgendwo gelesen!

lg el

[SirThornberry]

anstelle von
(255-A)
geht auch
not(A)

[Neutral General]

Zitat von SirThornberry:

anstelle von
(255-A)
geht auch
not(A)

Da bekomme ich falsche Farben...

[SirThornberry]

Dann ist dein A nicht vom Type Byte

[Neutral General]

Zitat von SirThornberry:

Dann ist dein A nicht vom Type Byte

ups

Delphi-Quellcode:

const
  COLOR_GROUND    = TColor($00004080);
  COLOR_GROUND_R  = Byte(COLOR_GROUND);
  COLOR_GROUND_G  = Byte(COLOR_GROUND shr 8);
  COLOR_GROUND_B  = Byte(COLOR_GROUND shr 16);

function TTile.GetAlphaColorValue(Current,Max: Word): TColor;
var p: Single;
    r,g,b: Byte;
    i: Byte;
begin
  p:= Current / Max;
  p:= p*255;
  i:= round(p);

  r:= GetRValue(FBColor);
  g:= GetGValue(FBColor);
  b:= GetBValue(FBColor);

  RGB((i*R+(not i)*COLOR_GROUND_R) div 255,
      (i*G+(not i)*COLOR_GROUND_G) div 255,
      (i*B+(not i)*COLOR_GROUND_B) div 255);
end;

So. Das ist im Moment meine Function. Die funktioniert auch, ABER das muss schneller!

Weil:

Delphi-Quellcode:

procedure TForm1.PaintMap;
var x,y: Integer;
    P: PRGBTriple;
begin
    for y:= 0 to High(FMap) do
    begin
      P := FBitmap.ScanLine[y];
      for x:= 0 to High(FMap[y]) do
      begin
        P^.rgbtRed   := GetRValue(FMap[y,x].Color); // Der Setter von Color ruft GetAlphaColorValue auf
        P^.rgbtGreen := GetGValue(FMap[y,x].Color);
        P^.rgbtBlue  := GetBValue(FMap[y,x].Color);
        inc(P);
      end;
    end;
    Image1.Picture.Bitmap.Assign(FBitmap);
end;

Und wenn ich so ein 1024*768 Bild male dann dauert das (fast) ne halbe Sekunde.. aber ich will das Bild mindestens jede halbe Sekunde malen *g*. Wie kann man das ganze am besten optimieren?

Gruß
Neutral General

[SirThornberry]

ich denke die meiste Zeit geht in der Zeile verloren:
Image1.Picture.Bitmap.Assign(FBitmap); hast du mal geprüft wie lange diese Funktion benötigt?