Rank: Member
Groups: Guest
Joined: 5/3/2007(UTC)
Posts: 2
|
Support, Hi I am currently work with a company that is evaluating Aurigma Graphics Mill 4.0 for use in manufacturing as the software that’s converts bitmaps to images our printers understand. The package would have to generate a 1bit/pixel bitonal CMYK tif image that consisted of four segments. The first 512 pixels would be the cyan channel of the original image the second 512 pixels would be the magenta channel, and so on. I have this working, what I am noticing however, is that the channel strengths of the CMYK profile are much different than what I am seeing in Adobe Photoshop. Do you have or could you provide any direction on this subject. Sample .Net code has been provided. Again any information you can provide on how to extract the highest quality CMYK channels from a bitmap would help out immensely. This is a wonderful product and very easy to use, I will be happy to recommend Graphics Mill as our imaging software if we can work with you on the proposed questions. Code: Dim b As New Aurigma.GraphicsMill.Bitmap("C:\someimage.jpg")
b.ColorManagement.ColorManagementEnabled = True
Dim profile As String
profile = "C:\EuroscaleCoated.icc"
'profile = "c:\ig_cmyk_profile.icm"
'profile = "c:\EuroscaleUncoated.icc"
'profile = "c:\Photoshop4DefaultCMYK.icc"
'profile = "c:\Photoshop5DefaultCMYK.icc"
'Assing output CMYK profile for conversion
b.ColorManagement.CmykColorProfile = New Aurigma.GraphicsMill.ColorProfile(profile)
'Convert to CMYK
b.ColorManagement.ConvertToContinuous( _
Aurigma.GraphicsMill.ColorSpace.Cmyk, False, b.IsExtended)
Dim cayan As Aurigma.GraphicsMill.Bitmap = b.Channels(ColorChannel.Cyan)
Dim magenta As Aurigma.GraphicsMill.Bitmap = b.Channels(ColorChannel.Magenta)
Dim yellow As Aurigma.GraphicsMill.Bitmap = b.Channels(ColorChannel.Yellow)
Dim black As Aurigma.GraphicsMill.Bitmap = b.Channels(ColorChannel.Black)
Dim bppConverter As New PixelFormatConverter
bppConverter.DestinationPixelFormat = PixelFormat.Format1bppIndexed
bppConverter.PaletteType = ColorPaletteType.Bicolor
bppConverter.PaletteEntryCount = 2
bppConverter.ColorManagementEnabled = True
bppConverter.CmykColorProfile = New Aurigma.GraphicsMill.ColorProfile(profile)
bppConverter.DitheringIntensity = 0.55
bppConverter.Dithering = DitheringType.Stucki
bppConverter.Unit = Unit.Pixel
bppConverter.ApplyTransform(cayan)
bppConverter.ApplyTransform(magenta)
bppConverter.ApplyTransform(yellow)
bppConverter.ApplyTransform(black)
Dim rotator As New RotateAndFlip(System.Drawing.RotateFlipType.Rotate270FlipNone)
rotator.ApplyTransform(cayan)
rotator.ApplyTransform(magenta)
rotator.ApplyTransform(yellow)
rotator.ApplyTransform(black)
Dim inverter As New Invert
inverter.Unit = Unit.Pixel
inverter.ApplyTransform(cayan)
inverter.ApplyTransform(magenta)
inverter.ApplyTransform(yellow)
inverter.ApplyTransform(black)
Dim enc As New TiffEncoderOptions(CompressionType.None)
enc.Quality = 100
Dim pal As ColorPalette
pal = New ColorPalette(ColorPaletteType.Bicolor, False)
Dim final As New Bitmap(2048, 1312, PixelFormat.Format1bppIndexed, pal)
Dim finalGraphics As Aurigma.GraphicsMill.Drawing.GdiGraphics = New Drawing.GdiGraphics(final)
finalGraphics.HorizontalResolution = 265
finalGraphics.VerticalResolution = 265
finalGraphics.Unit = Unit.Pixel
finalGraphics.DrawImage(cayan, New Rectangle(0, 0, 512, 1312), New Rectangle(0, 0, 512, 1089), CombineMode.Add, 1, InterpolationMode.HighQuality)
finalGraphics.DrawImage(magenta, New Rectangle(0, 512, 512, 1312), New Rectangle(0, 0, 512, 1089), CombineMode.Add, 1, InterpolationMode.HighQuality)
finalGraphics.DrawImage(yellow, New Rectangle(0, 1024, 512, 1312), New Rectangle(0, 0, 512, 1089), CombineMode.Add, 1, InterpolationMode.HighQuality)
finalGraphics.DrawImage(black, New Rectangle(0, 1536, 512, 1312), New Rectangle(0, 0, 512, 1089), CombineMode.Add, 1, InterpolationMode.HighQuality)
final.Save("c:\55Stucki.tif", enc)
Edited by user Tuesday, December 18, 2007 3:49:20 AM(UTC)
| Reason: Not specified
|