Welcome Guest! You need to login or register to make posts.

Notification

Icon
Error

Options
Go to last post Go to first unread
CGLock  
#1 Posted : Thursday, May 3, 2007 8:47:22 AM(UTC)
CGLock

Rank: Member

Groups: Member
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

Alex Kon  
#2 Posted : Thursday, May 3, 2007 9:23:04 PM(UTC)
Alex Kon

Rank: Advanced Member

Groups: Administration
Joined: 1/31/2005(UTC)
Posts: 458

Was thanked: 5 time(s) in 5 post(s)
Hello,

We have answered by email.
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.