Bitmap spiegeln

[Moyyer]

Hallo Alle Zusammen

Hat jemand eine Idee, wie ich ein Bitmap spiegeln kann?
(senkrecht und Waagerecht in der Mitte und diagonal)
Das Bild ist ein Quader also gleiche seitenlängen.
Hab keine Ahnung. Help me, please

MFG Moyyer

[Wolverine]

Ist das 3D oder 2D??? Arbeitest du mit OpenGL oder DirectX???

[Moyyer]

Ist nur 2D. Wie in der Schule.

[GSE]

Hi,

Horizontal:

Delphi-Quellcode:

Procedure MirrorHorizontal(var Picture: TBitmap);
var  BMP: TBitmap;
     i,j: integer;
begin
 BMP := TBitmap.Create;
 BMP.Assign(Picture);
 for i := BMP.Height-1 downto 0 do
  for j := BMP.Width-1 downto 0 do
   Picture.canvas.Pixels[Picture.Width-j, i] := BMP.canvas.Pixels[j, i];
 BMP.free;
end;

und Vertikal:

Delphi-Quellcode:

Procedure MirrorVertical(var Picture: TBitmap);
var  BMP: TBitmap;
     i,j: integer;
begin
BMP := TBitmap.Create; 
BMP.Assign(Picture);
for i := 0 to BMP.Height-1 do
  for j := 0 to BMP.Width-1 do
   Picture.canvas.Pixels[j, BMP.Height-i-1] := BMP.canvas.Pixels[j, i];
BMP.free;
end;

Sollte funktionieren hab´s jetzt aber nicht nochmal getestet, hab´s aus´m Kopf geschrieben da ich grad kein Delphi da hab!

mfg
GSE

[Wolverine]

Hm, ich schau mal ob ich was finde. Aber schau mal ob Dir evtl. das hier weiterhilft. Es gibt immer noch Google ^^

[Moyyer]

er schreibt mir, das er einen zeigertyp erwartet, bei der zeile
GetPixel(Picture, Picture.Width-j, i)^ := GetPixel(BMP, j, i)^; was ist falsch?

[GSE]

Sorry, hab da was vermehrt:
hab meine Codes dementsprechend geändert. (Die Eigenschaft hieß "Pixels" und nicht "GetPixel")

mfg
GSE

[Moyyer]

Danke

[Robert Marquardt]

Autsch, das wird langsam.
Besser mit der ScanLine arbeiten.

[Jens Schumann]

Hallo,
hier findet man bestimmt eine Lösung
http://homepages.borland.com/efg2lab/index.html