Ich kann mit der AViFil32 Lib die Bilder aus einem Video auslesen. Das Problem ist aber, das ich diese Bilder wieder zu einem Video zusammenfügen müsste (mit Codecs und Ton). Hat jemand da auch einen Ansatz, wie das gehen könnte?
------------------------------------------------------------------------------------
2. Habe den Ansatz etwas umgeschrieben, damit jedes Pixel berücksichtigt wird. Gibts es Ideen, wie ich den Code noch beschläunigen kann, damit er schneller arbeitet?
Code: Alles auswählen
StartTime = ElapsedMilliseconds() ; ermittelt den aktuellen Wert
UseJPEGImageDecoder()
UseJPEGImageEncoder()
UsePNGImageDecoder()
UsePNGImageEncoder()
; höhe/breite des Bildes
img = CatchImage(#PB_Any, ?image)
INS = CatchImage(#PB_Any, ?insert)
imgH = ImageHeight(img)
imgW = ImageWidth(img)
insH = ImageHeight(INS)
INSW = ImageWidth(INS)
ins_out = ImageOutput(INS)
Dim insColors(INSW,insH) ; farbenarray für insert erstellen
StartDrawing(ins_out)
For x=0 To INSW
For y=0 To insH
insColors(x,y)=Point(x,y);farbwerte im array speichern
Next
Next
StopDrawing()
img_out = ImageOutput(img)
StartDrawing(img_out)
For x=0 To imgW
For y=0 To imgH
c=Point(x,y) ; farbe des punktes holen und in c (color) speichern
If Blue(c)>90 And Green(c)<100 And Red(c)<50
Plot(x,y,insColors(x,y)) ; auf das image mit bluebox plotten
EndIf
Next
Next
SaveImage(img, "C:\Users\Joel\Desktop\IMAGE__.BMP" , #PB_ImagePlugin_BMP)
ElapsedTime = ElapsedMilliseconds()-StartTime
Debug ElapsedTime
StopDrawing()
End
DataSection
image: IncludeBinary "image.jpg"
insert: IncludeBinary "insert.jpg"
EndDataSection
Ok, man könnte es in komplett in einen Framebuffer bzw. einen Screen kopieren (mit SDL vielleicht), man müsste nur das richtige Pixelformat verwenden.
