// open an image file
Var path as string = "/Library/Desktop Pictures/Galaxy.jpg"
Var f as FolderItem = GetFolderItem(path, FolderItem.PathTypeNative)
Var c As New CGImageSourceMBS(f)

// properties for first image
Var p as Dictionary = c.PropertiesAtIndex(0)
Var w as Integer = p.Value(c.kCGImagePropertyPixelWidth)
Var h as Integer = p.Value(c.kCGImagePropertyPixelHeight)

// show size
MsgBox str(w)+" x "+str(h)

// Change rotation in an image file

// files
Var dpath as folderitem  = SpecialFolder.Desktop.Child("test.jpg")
Var opath as folderitem  = dpath.parent.Child("output.jpg")

// open source
Var imageSource as new cgimagesourcembs(dpath)

// read image
Var img as cgimagembs = imageSource.createimageatindex(0)

// global properties
Var globalprop as dictionary = imageSource.properties
// per image properties
Var p as Dictionary = imageSource.PropertiesAtIndex(0)

Var imageDest as new CGImageDestinationMBS(opath,"public.jpeg",1)

'const orientation = 1 // top left
const orientation = 3 // bottom right

// set globals
imageDest.SetProperties(globalprop)

// now set new orientation
p.value(imageDest.kCGImageDestinationOrientation) = orientation
p.value(imageDest.kCGImageDestinationMergeMetadata) = true

// change tiff dictionary, if present
Var dTIFF as Dictionary = p.lookup(imageSource.kCGImagePropertyTIFFDictionary, nil)
if dTIFF <> nil then
  dTIFF.value(imageSource.kCGImagePropertyTIFFOrientation) = orientation
end if

// change iptc dictionary, if present
Var dIPTC as Dictionary = p.lookup(imageSource.kCGImagePropertyIPTCDictionary, nil)
if dIPTC <> nil then
  dIPTC.value(imageSource.kCGImagePropertyIPTCImageOrientation) = orientation
end if

// write out image
imageDest.AddImage(img,p)
call imageDest.Finalize

// Change rotation in an image file

// files
Var dpath as folderitem  = SpecialFolder.Desktop.Child("test.jpg")
Var opath as folderitem  = dpath.parent.Child("output.jpg")

// open source
Var imageSource as new cgimagesourcembs(dpath)

// read image
Var img as cgimagembs = imageSource.createimageatindex(0)

// global properties
Var globalprop as dictionary = imageSource.properties
// per image properties
Var p as Dictionary = imageSource.PropertiesAtIndex(0)

Var imageDest as new CGImageDestinationMBS(opath,"public.jpeg",1)

'const orientation = 1 // top left
const orientation = 3 // bottom right

// set globals
imageDest.SetProperties(globalprop)

// now set new orientation
p.value(imageDest.kCGImageDestinationOrientation) = orientation
p.value(imageDest.kCGImageDestinationMergeMetadata) = true

// change tiff dictionary, if present
Var dTIFF as Dictionary = p.lookup(imageSource.kCGImagePropertyTIFFDictionary, nil)
if dTIFF <> nil then
  dTIFF.value(imageSource.kCGImagePropertyTIFFOrientation) = orientation
end if

// change iptc dictionary, if present
Var dIPTC as Dictionary = p.lookup(imageSource.kCGImagePropertyIPTCDictionary, nil)
if dIPTC <> nil then
  dIPTC.value(imageSource.kCGImagePropertyIPTCImageOrientation) = orientation
end if

// write out image
imageDest.AddImage(img,p)
call imageDest.Finalize