Private Sub ManipulatePixels
Dim Img As JavaObject
Dim ImageIO As JavaObject
ImageIO.InitializeStatic("javax.imageio.ImageIO")
Dim jFile As JavaObject
jFile.InitializeNewInstance("java.io.File",Array("FileNameHere"))
Img = ImageIO.RunMethod("read",Array(jFile))
Dim Width As Int = Img.RunMethod("getWidth",Null)
Dim Height As Int = Img.RunMethod("getHeight",Null)
Log($"Dimensions - ${Width} x ${Height}"$)
'Pixel Value
Dim P As Int = Img.RunMethod("getRGB",Array(10,10))
Dim A As Int = Bit.And(Bit.ShiftRight(P,24),0Xff)
Dim R As Int = Bit.And(Bit.ShiftRight(P,16),0Xff)
Dim G As Int = Bit.And(Bit.ShiftRight(P,8),0Xff)
Dim B As Int = Bit.And(P,0Xff)
Log(P)
Log(A)
Log(R)
Log(G)
Log(B)
'Nothing is done with this info
'New Values
A = 0XFF
R = 0xFF
G = 0XFF
B = 0XFF
P = Bit.Or(Bit.ShiftLeft(A,24),Bit.ShiftLeft(R,16))
P = Bit.Or(P,Bit.ShiftLeft(G,8))
P = Bit.Or(P,B)
Img.RunMethod("setRGB",Array(0,0,P))
jFile.InitializeNewInstance("java.io.File",Array("D:\Output.jpg"))
ImageIO.RunMethod("write",Array(Img,"jpg",jFile))
End Sub