// 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

// first open file and read data in blob
SVG_File  = FolderItem.ShowOpenFileDialog("")
If SVG_File = Nil Then Return

dim stream as BinaryStream = BinaryStream.Open(SVG_File)
dim data as string = stream.Read(stream.Length)
dim blob as new GMBlobMBS(data)

// 400 width and 400 height
Dim geo As New GMGeometryMBS(400, 400, 0, 0)

// pass type here to have GraphicsMagick know it since there is no file name in blob:
dim g as New GMImageMBS(blob, geo, "svg")

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

dim g as new GMGeometryMBS(600,600)
dim c as new GMColorRGBMBS(1.0,0.0,0.0) // red
dim image as new GMImageMBS(g, c)

const TrueColorType=6

// Ensure that there are no other references to this image.
image.modifyImage
// Set the image type to TrueColor DirectClass representation.
image.type=TrueColorType

Backdrop=image.CopyPicture(0,0,600,600)

dim data as new memoryblock(2048*2048) // your data
dim image as new GMImageMBS(2048, 2048, "I", GMImageMBS.StorageTypeCharPixel, data)

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

image.contrast(10)

Backdrop=image.CopyPicture

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

dim m(8) as Double

m(0) = 0.25
m(1) = 0
m(2) = 0.25

m(3) = 0
m(4) = 0
m(5) = 0

m(6) = 0.25
m(7) = 0
m(8) = 0.25

g.convolve 3, m

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.Rectangle(250, 250, 100, 100)

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(0,0,250,250)

Dim f As FolderItem = SpecialFolder.Desktop.Child("test.png")
Dim g As New GMImageMBS(f)

// get image with mask
Dim p As picture = g.CopyPicture
p.mask = g.CopyPictureMask

window1.Backdrop = p

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

image.crop GMGeometryMBS.Make(100,200)

Backdrop=image.CopyPicture

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

image.cycleColormap(5)

image.type = image.TrueColorType

Backdrop=image.CopyPicture

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

image.despeckle

Backdrop=image.CopyPicture

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

image.edge

Backdrop=image.CopyPicture