aber selbst festgelegte Bereiche ignoriert.
Viel Spaß
Code:
Code: Alles auswählen
EnableExplicit
;------------------------------------------------------------------
;Author Mijikai
;ImageGrayscaleForms()
;------------------------------------------------------------------
;Supports all intenal image formats (24/32 bits inverted or not)
;Converts a image to grayscale while ignoring all forms/areas
;defined in the callback (use color $FFFFFFFF)
;------------------------------------------------------------------
UseJPEGImageDecoder()
UsePNGImageEncoder()
Global image.i
Global image_test.i
Procedure.i ImageGrayscaleForms(Image.i,*Callback,*Parameter)
Structure COLOR_STRUCT_556785
StructureUnion
rgba.a[4]
code.l
EndStructureUnion
EndStructure
Protected width.i
Protected height.i
Protected copy.i
Protected stencil.i
Protected *buffer
Protected pitch.i
Protected depth.i
Protected px.i
Protected py.i
Protected offset.i
Protected *mask.Ascii
Protected color.COLOR_STRUCT_556785
Protected rgb.i
Protected flip.i
Protected gray.i
If *Callback And IsImage(Image)
width = ImageWidth(Image)
height = ImageHeight(Image)
copy = CopyImage(Image,#PB_Any)
If IsImage(copy)
stencil = CreateImage(#PB_Any,width,height,32)
If IsImage(stencil)
If CallFunctionFast(*Callback,stencil,*Parameter)
If StartDrawing(ImageOutput(stencil))
Select DrawingBufferPixelFormat()
Case #PB_PixelFormat_24Bits_RGB
rgb = #True
Case #PB_PixelFormat_24Bits_RGB|#PB_PixelFormat_ReversedY
rgb = #True
flip = #True
Case #PB_PixelFormat_32Bits_RGB
rgb = #True
Case #PB_PixelFormat_32Bits_RGB|#PB_PixelFormat_ReversedY
rgb = #True
flip = #True
Case #PB_PixelFormat_24Bits_BGR|#PB_PixelFormat_ReversedY
flip = #True
Case #PB_PixelFormat_32Bits_BGR|#PB_PixelFormat_ReversedY
flip = #True
EndSelect
*buffer = DrawingBuffer()
pitch = DrawingBufferPitch()
depth = OutputDepth()
StopDrawing()
If depth = 32
If StartDrawing(ImageOutput(copy))
width - 1
height - 1
If rgb
If flip
For py = 0 To height
offset = *buffer + ((height - py) * Pitch)
For px = 0 To width
*mask = offset + (px * 4)
If Not *mask\a
color\code = Point(px,py)
gray = color\rgba[0] * 0.2126 + color\rgba[1] * 0.7152 + color\rgba[2] * 0.0722
color\rgba[0] = gray
color\rgba[1] = gray
color\rgba[2] = gray
Plot(px,py,color\code)
EndIf
Next
Next
Else
For py = 0 To height
offset = *buffer + (py * Pitch)
For px = 0 To width
*mask = offset + (px * 4)
If Not *mask\a
color\code = Point(px,py)
gray = color\rgba[0] * 0.2126 + color\rgba[1] * 0.7152 + color\rgba[2] * 0.0722
color\rgba[0] = gray
color\rgba[1] = gray
color\rgba[2] = gray
Plot(px,py,color\code)
EndIf
Next
Next
EndIf
Else
If flip
For py = 0 To height
offset = *buffer + ((height - py) * Pitch)
For px = 0 To width
*mask = offset + (px * 4)
If Not *mask\a
color\code = Point(px,py)
gray = color\rgba[0] * 0.0722 + color\rgba[1] * 0.7152 + color\rgba[2] * 0.2126
color\rgba[0] = gray
color\rgba[1] = gray
color\rgba[2] = gray
Plot(px,py,color\code)
EndIf
Next
Next
Else
For py = 0 To height
offset = *buffer + (py * Pitch)
For px = 0 To width
*mask = offset + (px * 4)
If Not *mask\a
color\code = Point(px,py)
gray = color\rgba[0] * 0.0722 + color\rgba[1] * 0.7152 + color\rgba[2] * 0.2126
color\rgba[0] = gray
color\rgba[1] = gray
color\rgba[2] = gray
Plot(px,py,color\code)
EndIf
Next
Next
EndIf
EndIf
StopDrawing()
FreeImage(stencil)
ProcedureReturn copy
EndIf
EndIf
EndIf
EndIf
FreeImage(stencil)
EndIf
FreeImage(copy)
EndIf
EndIf
ProcedureReturn #Null
EndProcedure
Procedure.i ImageCallback(Image.i,*Parameter)
If StartDrawing(ImageOutput(image))
DrawText(10,10,"Hallo!",$FFFFFFFF)
Ellipse(200,200,80,80,$FFFFFFFF)
StopDrawing()
ProcedureReturn #True
EndIf
ProcedureReturn #False
EndProcedure
image = LoadImage(#PB_Any,"test.jpg")
image_test = ImageGrayscaleForms(image,@ImageCallback(),#Null)
If image_test
Debug "Image created!"
Debug "Save: " + Str(SaveImage(image_test,"test_image.bmp"))
Else
Debug "Something went wrong!"
EndIf
End