Example: /MacBase/ConvertToSRGB

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/MacBase/ConvertToSRGB


Required plugins for this example: MBS MacBase Plugin, MBS Main Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacBase/ConvertToSRGB

This example is the version from Thu, 29th Mar 2017.

Project "ConvertToSRGB.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open() const NSColorRenderingDefault = 0 const NSColorRenderingAbsoluteColorimetric = 1 const NSColorRenderingRelativeColorimetric = 2 const NSColorRenderingPerceptual = 3 const NSColorRenderingSaturation = 4 // pick a file // e.g. CMYK tiff file dim f as FolderItem = GetOpenFolderItem("") if f = nil then quit end if // load picture dim n as new NSImageMBS(f) // get first representation dim reps() as NSImageRepMBS = n.representations // get as bitmap object dim v as Variant = reps(0) dim bitmap as NSBitmapImageRepMBS = v // get target color space Dim sRGBColorSpace as NSColorSpaceMBS = NSColorSpaceMBS.sRGBColorSpace // convert to SRGB dim NewBitmap as NSBitmapImageRepMBS = bitmap.bitmapImageRepByConvertingToColorSpace(sRGBColorSpace, NSColorRenderingDefault) dim NewImage as new NSImageMBS NewImage.addRepresentation NewBitmap // make JPEG dim JPEGData as string = NewImage.JPEGRepresentationWithCompressionFactor(0.9) // and save to file dim ff as FolderItem = GetFolderItem("RGBImage.jpg") dim b as BinaryStream = BinaryStream.Create(ff, true) b.Write JPEGData dim w as new PictureWindow W.Backdrop = NewImage.CopyPictureWithAlpha End EventHandler
End Class
Class PictureWindow Inherits Window
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

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


💬 Ask a question or report a problem