// this converts 32 bit PNG with alpha channel to BMP

dim f as FolderItem = SpecialFolder.Desktop.Child("test.png")
dim p as Picture = Picture.Open(f)

dim g as new GMImageMBS( new GMGeometryMBS(p.Width, p.Height), new GMColorGrayMBS(1.0))

g.type = g.TrueColorMatteType
g.matte = True
g.magick = "BMP"

g.SetPicture(p, 0, 0)
g.SetPictureMask(p.mask.invertMBS, 0, 0)

f = SpecialFolder.Desktop.Child("test.bmp")
g.write(f)

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.setPixels(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 p as Picture = LogoMBS(500)
dim image as new GMImageMBS(p)

image.sharpen

Backdrop=image.CopyPicture

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

image.shave(new GMGeometryMBS(200,200))

Backdrop=image.CopyPicture

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

image.shear(10,20)

Backdrop=image.CopyPicture

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

MsgBox image.signature

Backdrop=image.CopyPicture

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

image.solarize

Backdrop=image.CopyPicture

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

image.spread 5

Backdrop=image.CopyPicture

dim f as FolderItem = SpecialFolder.Desktop.Child("test.jpg")
dim g as new GMImageMBS(f)
dim stat as GMImageStatisticsMBS = g.statistics
dim gs as GMImageChannelStatisticsMBS = stat.blue

MsgBox "blue channel: "+str(gs.minimum)+"-"+str(Gs.maximum)+", mean "+str(gs.mean)

dim p as Picture = LogoMBS(500)
dim p1 as Picture = NewPicture(550,500,32)
dim p2 as Picture = NewPicture(550,500,32)

p1.Graphics.DrawPicture p, 0,0
p2.Graphics.DrawPicture p,50,0

dim image1 as new GMImageMBS(p1)
dim image2 as new GMImageMBS(p2)

image2.zoom(new GMGeometryMBS(100,100)) // scale down

// add watermark
image1.stegano(image2)

// now make a threshold so you see the difference
image1.threshold 254

image1.type = image1.TrueColorType
Backdrop=image1.CopyPicture

dim p as Picture = LogoMBS(500)
dim p1 as Picture = NewPicture(550,500,32)
dim p2 as Picture = NewPicture(550,500,32)

p1.Graphics.DrawPicture p, 0,0
p2.Graphics.DrawPicture p,50,0

dim image1 as new GMImageMBS(p1)
dim image2 as new GMImageMBS(p2)

image1.stereo(IMAGE2)

Backdrop=image1.CopyPicture

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

image.swirl 200

Backdrop=image.CopyPicture

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

image.threshold 127

// convert to RGB so CopyPicture works
image.type = image.TrueColorType
Backdrop=image.CopyPicture

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

// make thumbnail
dim geo as new GMGeometryMBS(100, 100)
g.thumbnail(geo)

// show
me.Backdrop = g.CopyPicture