Farbe aus einem Pixel bekommen.

[himitsu]

Zitat:

form1.Canvas

Ich hab es nicht umsonst gesagt.
minimiere mal die Form oder schiebe mal kurz eine andere Form über deine Form drüber ... Ergebnis: das Bild ist weg.
Ja, unter Windows 7 kann man Glück haben, daß der Desktop Window Manager eine Kopie der Daten vorhält, aber das ist nicht die Regel und diese Daten/Kopieen können auch schnell mal weg sein.

Zum Bearbeiten intern ein TBitmap und zum Anzeigen dann z.B. ein TImage.

Zitat von turboPASCAL:

Ja, mit Scanline. Dazu musst du aber ein TBitmap nutzen.

Und du mußt aufpassen welches Format das Bitmap besitzt, da man direkt auf die internen Daten zugreift, welche sich ja je nach PixelFormat unterscheidet.

PS:

Delphi-Quellcode:

var
  bild1, bild2: TBitmap;
  farbe1, farbe2  : record 
    color : tcolor;
    b, g, r : byte;
  end;

bild1 := TBitmap.Create;
try
  bild2 := TBitmap.Create;
  try
    // bild1.canvas füllen
    // bild2.canvas füllen
    for x := ... do
      for y := ... do
      begin
        farbe1.color := bild1.Canvas.Pixel[x, y];
        farbe2.color := bild2.Canvas.Pixel[x, y];
        // farbe1.r, .b und .g mit farbe2 verrechnen
        // Ergebnis in farbe1
        bild1.Canvas.Pixel[x, y] := farbe1.color;
      end
    Image1.Canvas.CopyRect(Image1.ClientRect, bild1.Canvas, Image1.ClientRect);
  finally
    bild2.Free;
  end;
finally
  bild1.Free;
end;

und dann läßt es sich immernoch auf ScanLine umstellen.

Zitat:

for y:= -40 to 135 DO

das -40 ist wohl total falsch, denn ein Bitmap hat keine negativen Pixel (sei froh, daß bei dir keine Bereichsprüfung aktiv ist)

[torro]

Zitat von himitsu:

Zitat:

for y:= -40 to 135 DO

das -40 ist wohl total falsch, denn ein Bitmap hat keine negativen Pixel (sei froh, daß bei dir keine Bereichsprüfung aktiv ist)

Ne, ist es nicht. Wie gesagt erzeuge ich auf dem Canvas zwei Würfel. Die Würfel werden auf Basis von Vektoren errechnet und der aktuellen Blickwinkel entsprechend gezeichnet. Dazu habe ich u.a. das Koordinatensystem in die Mitte des Forms legen müssen. Deswegen kommt der Wert -40 zustande. -40 ist eine der Koordinaten auf denen der Würfel gezeichnet wird.

Ich werde jetzt erstmal probieren eure Vorschläge umzusetzen

[turboPASCAL]

Du versuchst jetzt aber nicht irgend ein 3D
Dings zu bauen ? Dann würde ich eher zu
OpenGL raten.

[Bummi]

Für einen Anaglyphen muß er ja nicht auf OpenGL zrückgreifen....
Ich hatte vor einiger Zeit den Anhang schon mal gepostet, finde ihn aber nicht mehr, daher nochmals, vielleicht kannst Du es ja brauchen.
Der schnellste Zugriff für Deinen Fall wäre IMHO der unter Button4Click über FastPixel.
Zwei gleich große Bitmaps und beim Kombinieren jeweils 2 Bytes in ein Word addieren, shr 1 und in das Byte des Zielbitmaps (zurück)schreiben.

[Memnarch]

@turboPascal: Och warum nich? Mal selbst nen bisschen 3d Basics zu machen schadet nicht, wen man mal mit OpenGL&Co arbeiten möchte. Ich hab mal nen kleinen Softwareratserizer in Delphi geschrieben.

Projectthread im Externen Forum(3dsg-Hobbyschmiede)

MFG
Memnarch

[torro]

Zitat von turboPASCAL:

Du versuchst jetzt aber nicht irgend ein 3D
Dings zu bauen ? Dann würde ich eher zu
OpenGL raten.

Doch, tue ich. Die Mathematik dahinter ist ja recht simpel.

[rollstuhlfahrer]

Hast du den Code eigentlich mal durchlaufen lassen und dir das Ergebnis angeschaut? - Alles was < 0 ist, gibt es gar nicht (es wird nicht gezeichnet, also gleich wieder verworfen). Du kannst aber dann deine TImages gerne nach x=-40 verschieben. Denen macht das nix.

Bernhard

[torro]

Ja habe ich. und ich weis dass es die Koordinate -40 gibt.