Bluescreen-Programm

[MasterDG]

Hallo!

Ich versuche gerade ein Bluescreen-Programm zu schreiben was eine einfache Vorschau machen soll. Wie ich das Bild von der Kamera bekomme hab ich in nem anderen Thread schon gefragt. Das ist auch nicht das große Problem. Was mir momentan Probleme bereitet ist die Geschwindigkeit mit der das Bild verarbeitet wird. Ich möchte nur die blauen Teile aus dem Bild entfernen und das ganze auf ein anderes Bild legen.

Meine ersten Versuche habe ich mit Graphics32 gemacht, allerdings kein gutes Ergebnis bekommen. Wenn ich nur die Farbwerte beispielsweise in ein String schreibe dann dauert das schon so lange dass ich kein flüssiges Bild mehr bekomme. Ich habe auch keine Idee wie ich das jetzt beschleunigen könnte.

Wie könnte man sonst noch das gleiche machen wie ich das will? Kann man evt. die Verarbeitung durch Graphics32 so optimieren dass ich eine flüssige Vorschau bekomme?

Also es geht mir nicht darum den Film als avi oder so zu exportieren sondern ich will eine reine Vorschau sodass man vorher schon mal sehn kann wie der Film am Ende in etwa aussehen könnte.

Für alle die nicht wissen was Bluescreen ist: Bluescreen/Bluebox

Gruß
MasterDG

[Khabarakh]

Was ich nicht verstehe, ist, warum du die blauen Pixel in einen String schreiben willst :gruebel: . Ich würde das ganze so angehen: Du hast für jeden Frame zwei Bitmaps, das Kamerabild und den Hintergrund. Nun iterierst du durch die Pixel des Kamerabilds (z.B. per TBitmap32.Bits), wenn die Farbe innerhalb einer gewissen Grenze liegt, fügst du stattdessen das Pixel des Hintergrunds ein.

[Chris1986]

Hi, wie groß ist denn dein Vorschaubild?
Rechnest du es vor dem Keyen auf 1/2 oder 1/4 der PAL-Auflösung runter, oder arbeitest du mit der vollen Auflösung?

Gruß
Christian

[MasterDG]

Hallo!
@Khabarakh: Das mit dem String war nur en Test weil ich noch keine richtige Funktion hatte und einfach mal testen wollte wie schnell das Auslesen der Farben und das schreiben von Variablen bei mehreren tausend Aktionen ist und ob das geeignet ist um eine flüssige Vorschau anzuzeigen und nicht nur en paar Bilder alle paar Sekunden.

Du hast die Funktion TBitmap32.Bits erwähnt, bisher habe ich immer nur mit TBitmap.Pixel gearbeitet. So wie ich das jetzt in der Hilfe gelesen habe macht das das gleiche speichert jedoch die Werte einmalig in ein Array. Wie sieht das mit der Schnelligkeit aus? Was ist die schnellste Methode?

@Chris1986: Ich werde warscheinlich mit einer Auflösung von 320x240 arbeiten. Wenn es von der Schnelligkeit stimmt, dann werd ich auch evt. 640x480 nehmen, was ich aber für eher unwarscheinlich halte weil doch sehr viel Rechenleistung gebraucht wird.

Grüße
MasterDG

[Delphi-Freak]

Hi!

Schneller ist sicher TBitmap32.Bits. Habemal einen Überblendeffekt in Laufzeit gemacht (mit voller Bildschirmauflösung -> 1280x1024), das hat mit Graphics32 und TBitmap32.Bits ziemlich gut funktioniert.

LG

Edit: Wie machst du das eigenlich mit der Farbgrenze - das würde mich interessieren - bzw. baust du auch Anti-Aliasing ein (für Objekt (Mensch) <-> Hintergrund)?

[tn249]

Wenn für dich DX kein Overkill ist, ich weiß nicht ob du das für den Rest deines Programms eventuell benutzen kannst wären aus DirectDraw die Funktionen BltFast bzw Blt interessant. Beide Funktioinen sind ziemlich flott vorallem BltFast. Beide bieten einen Colokey an, allerdings nur für einen Wert. Blt kann zusätzlich Strecken usw

Ich weiß nicht was es für Implementierungen für die Delphilanguage gibt (wahrscheinlich geht es auch mit DelphiX), aber wollte das nurmal als option in den Raum geworfen haben.

MfG
tn249

[MasterDG]

An DirectX wollte ich mich noch nicht so ranwagen weil ich denke dass das doch schwer ist. Stimmt das. Wenn es relativ einfach wäre dann wäre es eine Alternative. Was bringt das von der Geschwindigkeit? Sehr viel, oder doch eher wenig sodass es sich nicht lohnt?

@Delphi-Freak: Ich hab schon mal sowas ähnliches gemacht. Da habe ich es so gemacht solange Rot und Grün unter bestimmten Werten bleiben und Blau über einem bestimmten Wert bleibt dann ist es die richtige Farbe. Welche Werte dann benutzt werden können muss man schauen.

Gruß
MasterDG

[Khabarakh]

Ja, Bits sollte das schnellste sein, weil man damit direkt auf den Bitmapinhalt zugreifen kann, ohne irgendwelche Funktionen dazwischen.

Zu DirectX:
Ich denke nicht, dass es GR32 in Sachen Geschwindigkeit schlagen kann. Man muss sich mal ansehen, wieviel Mühe die Jungs in das Projekt gesteckt haben: Ein Großteil in Assembler, MMX-Support usw.
Und ein ColorKey reicht wahrscheinlich nicht :zwinker: .

[MasterDG]

Hallo!
Mit Bits habe ich leider leichte Verständniss Probleme. Bits gibt ja PColor32Array zurück. Aber wie kann ich damit arbeiten? Ich hab gedacht dass das einfach alle Pixel in ein Index schreibt und man mit dem Index den TColor32 Wert zurückbekommt. Ist aber anscheind nicht so.

Kann mir einer sagen wie das funktioniert? :gruebel:

Was ist eigendlich bei den Vorgängen die ich machen muss das das am längsten dauert? Das auslesen der Farbwerte? Das setzen der Pixel in der Vorschau?

Ich habe auch in der Hilfe gelesen dass es eine schnellere Methode gibt als Canvas, jedoch habe ich nur setpixelT gefunden. Allerdings hab ich es noch nicht geschafft ein Pixel einzufärben... :(

Grüße
MasterDG

[Delphi-Freak]

Habe das gerade in meinem Dateienchaos :wink: gefunden:

Delphi-Quellcode:

maxP := ViewImage.Bitmap.Width * ViewImage.Bitmap.Height - 1;
Pdst := @ViewImage.Bitmap.Bits[0];
Psrc1 := @oldImage.Bits[0];
Psrc2 := @newImage.Bits[0];
for i := 0 to maxP do begin
   Pdst^ := ((((Psrc1^ and $00FF0000) shr 16) * (255 - blendfact)) shl 8 + (((Psrc2^ and $00FF0000) shr 16) * (blendfact)) shl 8) and $00FF0000
      or ((((Psrc1^ and $0000FF00) shr 8 ) * (255 - blendfact)) shl 0 + (((Psrc2^ and $0000FF00) shr 8 ) * (blendfact)) shl 0) and $0000FF00
      or ((((Psrc1^ and $000000FF) shr 0 ) * (255 - blendfact)) shr 8 + (((Psrc2^ and $000000FF) shr 0 ) * (blendfact)) shr 8) and $000000FF;
   Inc(Pdst);
   Inc(Psrc1);
   Inc(Psrc2);
end;

Pdst, Psrc1 und Psrc2 sind vom Typ PColor32; maxP vom Typ Cardinal (schneller als Integer)
ViewImage, oldImage, newImage sind TBitmap32s

Hoffe, das ist etwas hilfreich...


LG, Gerhard


Edit: Achja, der Code war zum Überblenden von oldImage auf newImage; das Bild wird eben immer in ViewImage ausgegeben. blendfact geht von 0 bis 255.