dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.negate

Backdrop=image.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.normalize

Backdrop=image.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.oilPaint

Backdrop=image.CopyPicture

dim f as FolderItem = SpecialFolder.Desktop.Child("test.jpg")

// try with Constructor (same as read)
dim t1 as Double = Microseconds
dim g1 as new GMImageMBS(f)

// now just ping
dim t2 as Double = Microseconds
dim g2 as new GMImageMBS
g2.ping(f)

// or read
dim t3 as Double = Microseconds
dim g3 as new GMImageMBS
g3.read(f)

dim t4 as Double = Microseconds

// show speeds
MsgBox str(T4-t3)+" µs for read"+EndOfLine+_
  str(T3-t2)+" µs for ping"+EndOfLine+_
  str(T2-t1)+" µs for Constructor"

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)
dim c as new GMColorMBS("red")

for x as Integer = 240 to 260
  image.pixelColor(x,250)=c
next

for y as Integer = 240 to 260
  image.pixelColor(250,y)=c
next

Backdrop=image.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.quantize

image.type = image.TrueColorType
Backdrop=image.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.quantizeColors = 10
image.quantize

image.type = image.TrueColorType
Backdrop=image.CopyPicture

// load a picture
dim f as FolderItem = SpecialFolder.Desktop.Child("test.png")
dim pic as Picture = Picture.Open(f)

const GrayColorSpace = 2

Dim Converter As New GMImageMBS(Pic)

// quantize with dither
Converter.type = GMImageMBS.BilevelType
Converter.quantizeColorSpace = GrayColorSpace
Converter.quantizeColors = 2
Converter.quantizeDither = True
Converter.quantize

// convert back to Xojo
Converter.type = GMImageMBS.TrueColorType
Backdrop = Converter.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.quantizeColors = 10
image.quantizeDither = true
image.quantize

image.type = image.TrueColorType
Backdrop=image.CopyPicture

dim f as FolderItem = SpecialFolder.Desktop.Child("test.jpg")
dim g as new GMImageMBS(f)

const AddQuantumOp = 1
const ThresholdQuantumOp = 10

g.quantumOperator( g.AllChannels, AddQuantumOp, 100)

// show
me.Backdrop = g.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.raiseImage

Backdrop=image.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.raiseImage(GMGeometryMBS.Make(5,8))

Backdrop=image.CopyPicture

dim p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.randomThreshold(GMGeometryMBS.make("50x200"))

image.type = image.TrueColorType
Backdrop=image.CopyPicture

// get some image data (e.g. from blob in database)
dim logo as Picture = LogoMBS(500)
dim jpegData as string = PictureToJPEGStringMBS(logo, 80)

// new image
Dim mp as new GMImageMBS
dim blob as new GMBlobMBS(jpegData)

// read data from blob into this image object
mp.Read blob

// sometimes you need to explicit convert to RGB/RGBA
'mp.type = mp.TrueColorMatteType
Backdrop=mp.CombinePictureWithMask