Xojo Conferences

Platforms to show: All Mac Windows Linux Cross-Platform

/Images/LCMS2/Convert Grayscale Tiff to SRGB JPEG
Required plugins for this example: MBS Images Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Images/LCMS2/Convert Grayscale Tiff to SRGB JPEG
This example is the version from Thu, 1st Feb 2017.
Project "Convert Grayscale Tiff to SRGB JPEG.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
EventHandler Sub Open() self.AutoQuit = true // quit app when done dim f as FolderItem = SpecialFolder.Desktop.Child("input.tif") dim o as FolderItem = SpecialFolder.Desktop.Child("output.jpg") if f.Exists then run f,o else break // Please put grayscale tiff on desktop end if End EventHandler
Sub Run(InputFile as FolderItem, OutputFile as FolderItem, outputQuality as integer = 90) // inputFile must be a TIFF image in gray mode. Other modes are not handled. //TiffPictureMBS is used to read TIFF files // LCMS2 is used to convert the image to the sRGB colour space // GMImageMBS is used to resize the image, and can be expanded to add borders, watermarks, etc // JPEGExporterMBS is used to save the JPEG, discarding the ICC profile to reduce file size dim i, rowBytes, pictureWidth, pictureHeight as Integer dim outputPicture as Picture dim convertProfile, sourceCMYK as Boolean dim rawPictureData, rawPictureRowData as MemoryBlock dim jpegExporter as JPEGExporterMBS dim tiffImporter as TiffPictureMBS dim ct as LCMS2TransformMBS dim sourceProfile, outputProfile as LCMS2ProfileMBS dim inputBitmap, outputBitmap as LCMS2BitmapMBS if inputFile = Nil then Return if not inputFile.Exists then Return if outputFile = Nil then Return convertProfile = True outputProfile = LCMS2ProfileMBS.CreateSRGBProfile // Use TiffPictureMBS to read the image tiffImporter = New TiffPictureMBS tiffImporter.YieldTicks = 1 if not tiffImporter.Open( inputFile ) then MsgBox( "Unable to open TIFF: "+inputFile.Name ) Return end if // Read the ICC profile from the image sourceProfile = LCMS2ProfileMBS.OpenProfileFromMemory( tiffImporter.GetColorProfile ) if sourceProfile = nil then // read in default profile dim f as FolderItem = SpecialFolder.Desktop.Child("Generic Gray Profile.icc") sourceProfile = LCMS2ProfileMBS.OpenProfileFromFile(f) if sourceProfile = nil then Break MsgBox "Please provide a default gray profile." return end if end if pictureWidth = tiffImporter.Width pictureHeight = tiffImporter.Height // We read the TIFF into a MemoryBlock so that we can convert it later rowBytes = tiffImporter.BytesPerRow rawPictureData = tiffImporter.Scanlines(0, pictureHeight) // Create gray input picture from the MemoryBlock inputBitmap = New LCMS2BitmapMBS( pictureWidth, pictureHeight, LCMS2MBS.kcmsSigGrayData, rowBytes, rawPictureData ) // Create RGB output image at same size outputBitmap = New LCMS2BitmapMBS( pictureWidth, pictureHeight, LCMS2MBS.kcmsSigRgbData ) // Transform the CMYK image to RGB ct = LCMS2TransformMBS.CreateTransform( sourceProfile, sourceProfile.FormatterForColorspace( 1 ), outputProfile, outputProfile.FormatterForColorspace( 1 ), LCMS2MBS.kINTENT_RELATIVE_COLORIMETRIC, LCMS2MBS.kcmsFLAGS_BLACKPOINTCOMPENSATION ) if ct.Transform( inputBitmap, outputBitmap ) then // ok else MsgBox( "Unable to convert color profile: "+inputFile.Name ) Return end if // Set up exporter jpegExporter = New JPEGExporterMBS jpegExporter.File = outputFile jpegExporter.ProfileData = outputProfile.SaveProfileToString jpegExporter.Quality = outputQuality jpegExporter.ExportRGB(outputBitmap.Data, outputBitmap.Width, outputBitmap.Height, outputBitmap.RowBytes) MsgBox "OK" End Sub
End Class
Class Window1 Inherits Window
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS Images Plugin.

MBS Xojo Plugins