PureBoard

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

Code: Alles auswählen

UseJPEGImageDecoder()
LoadImage(0, "example.jpg")

Procedure Diff(Z1, Z2)
  If(Z1 > Z2) : ProcedureReturn Z1-Z2 : Else : ProcedureReturn Z2-Z1 : EndIf
EndProcedure

#StartRed = 30 ; Startwert Rot
#StartGreen = 118 ; Startwert Grün
#StartBlue = 190 ; Startwert Blau
#MaxDifference = 170 ; Maximale Differenz von R & G & B zusammen
#StepX = 10 ; X-er Schritte
#StepY = 10 ; X-er Schritte

ST = GetTickCount_()
For i = 1 To 25
StartDrawing(ImageOutput(0))
  For x = 0 To ImageWidth(0) Step #StepX
    For y = 0 To ImageHeight(0) Step #StepY
      Color = Point(x, y)
      Difference = Diff(#StartRed, Red(Color)) + Diff(#StartGreen, Green(Color)) + Diff(#StartBlue, Blue(Color))
      If Difference < #MaxDifference
        Box(LX, LY, #StepX, #StepY, RGB(255,255,255)) 
      EndIf
      LX = X
      LY = Y
    Next y
  Next x
StopDrawing()
Next i
Debug "Zeit (25 Vorgänge): "+Str(GetTickCount_()-ST)
Debug "Durchschnittliche Zeit: "+Str((GetTickCount_()-ST)/25)

OpenWindow(0, 0, 0, 1024, 768, "Viewer")
ImageGadget(0, 0, 0, 1024, 768, ImageID(0))
Repeat : Delay(1) : Until WindowEvent() = #PB_Event_CloseWindow