''
'' This code is part of Document Solutions for Imaging demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports System.Collections.Generic
Imports System.Linq
Imports System.Numerics
Imports GrapeCity.Documents.Drawing
Imports GrapeCity.Documents.Text
Imports GrapeCity.Documents.Imaging

'' This sample demonstrates how to find and show pixels with clipped shadows.
'' This sample is identical to ShowLoClippingJpeg but uses a TIFF image
'' rather than a JPEG created from the same source photo.
Public Class ShowLoClippingTiff
    Function GenerateImage(
        ByVal pixelSize As Size,
        ByVal dpi As Single,
        ByVal opaque As Boolean,
        Optional ByVal sampleParams As String() = Nothing) As GcBitmap

        Dim bmp = New GcBitmap(pixelSize.Width, pixelSize.Height, opaque, dpi, dpi)
        Using bmpSrc = New GcBitmap(Path.Combine("Resources", "ImagesBis", "clivia.tiff"))
            '' BitBlt requires the opacity of both images to be the same:
            bmpSrc.Opaque = opaque
            '' Render source image onto the target bitmap
            '' (generally we might want to resize the source image first,
            '' but in this case we just know that the source image has
            '' the same size as the target, so skip this step):
            bmp.BitBlt(bmpSrc, 0, 0)

            Using g = bmp.CreateGraphics()
                For i = 0 To bmp.PixelWidth - 1
                    For j = 0 To bmp.PixelHeight - 1
                        '' If all of the colors are 0x00, we change the pixel's color to magenta:
                        If (bmp(i, j) And &HFFFFFF) = 0 Then
                            bmp(i, j) = &HFFFF00FFUI
                        End If
                    Next
                Next
                '' Draw the original image in the bottom right corner for reference:
                Dim rc = New RectangleF(0, 0, pixelSize.Width / 4, pixelSize.Height / 4)
                g.DrawImage(bmpSrc, rc, Nothing, ImageAlign.StretchImage)
                g.DrawRectangle(rc, Color.LightGray)
            End Using
        End Using
        Return bmp
    End Function
End Class