Not a question I would ask.
Just processing a single image seems quick enough for me.
Code: Select all
UseJPEGImageDecoder()
Global SourceImage.i,DisplayImage.i
Global FileName.s
Global PRed.i,PGreen.i,PBlue.i
OpenWindow(0,0,0,1600,560, "ImageCopyCols")
CreateImage(1,800,560)
ImageGadget(0, 0, 0,800, 560,0)
ImageGadget(1, 800, 0,800, 560,0)
Filename = OpenFileRequester("Select Image","*.*","*.*",1)
SourceImage = LoadImage(#PB_Any,Filename)
DisplayImage = CopyImage(SourceImage,#PB_Any)
StartDrawing(ImageOutput(DisplayImage))
For y=0 To ImageHeight(DisplayImage) - 1
For x=0 To ImageWidth(DisplayImage) - 1
f=Point(x,y)
;Process F here
;Increase red to maximum
PRed = 255
PGreen = Green(f)
PBlue = Blue(f)
f = RGB(PRed,Pgreen,PBlue)
Plot(x,y,f)
Next x
Next y
StopDrawing()
SetGadgetState(0,ImageID(SourceImage))
SetGadgetState(1,ImageID(DisplayImage))
Repeat
windowevent=WaitWindowEvent()
Until windowevent=#PB_Event_CloseWindow