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

// get pointer to some pixels to write
dim x as ptr = g.getPixels(0, 0, 100, 100)

// draw a red line to the pixel buffer
dim o as Integer
for i as Integer = 0 to 99
  o = 100 * i + i
  x.UInt32(o * 4) = &hFFFF0000
next

// write back
g.syncPixels

// show
me.Backdrop = g.CopyPicture

dim g as new GMGeometryMBS(500,500)
dim c as new GMColorRGBMBS("white") // white
dim image as new GMImageMBS(g, c)

image.strokeColor = new GMColorRGBMBS("red") // Outline color
image.fillColor = new GMColorRGBMBS("green") // Fill color
image.strokeWidth = 5

dim draw as GMGraphicsMBS = image.Graphics

// Draw a circle
draw.Circle(250, 250, 120, 150)

Backdrop=image.CopyPicture

Dim p As Picture = LogoMBS(500)
Dim g As New GMImageMBS(p)
msgbox g.Hash

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

image.implode(0.3)

Backdrop=image.CopyPicture

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

image.level(0, 127.0)

Backdrop=image.CopyPicture

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

image.levelChannel(image.BlueChannel, 0, 127.0)

Backdrop=image.CopyPicture

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

image.magnify

Backdrop=image.CopyPicture

// some picture we want to map colors
dim pic as Picture = LogoMBS(500)

// build a picture with palette
dim backgroundColor as new GMColorMBS(255,255,255) // white
dim size as new GMGeometryMBS(10,10)

dim i as new GMImageMBS(pic)
dim x as new GMImageMBS(size, backgroundColor)

x.pixelColor(0,0) = new GMColorMBS(0  ,0  ,0  ) // black
x.pixelColor(0,1) = new GMColorMBS(255,0  ,0  ) // red
x.pixelColor(0,2) = new GMColorMBS(0  ,255,0  ) // green
x.pixelColor(0,3) = new GMColorMBS(0  ,0  ,255) // blue
x.pixelColor(0,4) = new GMColorMBS(255,255,0  ) // yellow
x.pixelColor(0,5) = new GMColorMBS(0  ,255,255) // cyan
x.pixelColor(0,6) = new GMColorMBS(255,0  ,255) // magenta

// do the map
i.map(x, false)

// convert result from palette picture to bitmap picture
i.type = i.TrueColorType

// and copy picture to backdrop
Backdrop = i.CopyPicture

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

image.medianFilter(10)

Backdrop=image.CopyPicture

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

image.minify

Backdrop=image.CopyPicture

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

image.type = image.TrueColorType

// brightness 150%
image.modulate(150,100,100)
backdrop = image.CopyPicture

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

image.motionBlur(30,10,90)

Backdrop=image.CopyPicture

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