source: branch/egtra-gdiplus/Classes/System/Drawing/TextureBrush.ab

'Classes/System/Drawing/TextureBrush.ab

#require <gdiplusflat.ab>
#require <System/Drawing/Brush.ab>
#require <System/Drawing/Image.ab>
#require <System/Drawing/Rectangle.ab>
#require <System/Drawing/RectangleF.ab>
#require <System/Drawing/Imaging/ImageAttributes.ab>
#require <System/Drawing/Drawing2D/misc.ab>

Namespace System
Namespace Drawing

Class TextureBrush
    Inherits Brush
Public
    Sub TextureBrush(image As Image, wrapMode = Drawing2D.WrapMode.Tile As Drawing2D.WrapMode)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTexture(image.NativeImage, wrapMode, texture)
        SetNativeBrush(texture)
    End Sub

    Sub TextureBrush(image As Image, wrapMode As Drawing2D.WrapMode, dstRect As /*Const*/ RectangeF)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTexture2(image.NativeImage, wrapMode, dstRect.X, dstRect.Y, dstRect.Width, dstRect.Height, texture)
        SetNativeBrush(texture)
    End Sub

    Sub TextureBrush(image As Image, dstRect As /*Const*/ RectangeF, imageAttributes = Nothing As /*Const*/ Imaging.ImageAttributes)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTextureIA(image.nativeImage, Imaging.ImageAttributes.Native(imageAttributes), dstRect.X, dstRect.Y, dstRect.Width, dstRect.Height, texture)
        SetNativeBrush(texture)
    End Sub

    Sub TextureBrush(image As Image, dstRect As /*Const*/ Rectange, imageAttributes = Nothing As /*Const*/ Imaging.ImageAttributes)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTextureIAI(image.nativeImage, Imaging.ImageAttributes.Native(imageAttributes), dstRect.X, dstRect.Y, dstRect.Width, dstRect.Height, texture)
        SetNativeBrush(texture)
    End Sub

    Sub TextureBrush(image As Image, wrapMode As Drawing2D.WrapMode, dstRect As /*Const*/ Rectange)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTexture2I(image.NativeImage, wrapMode, dstRect.X, dstRect.Y, dstRect.Width, dstRect.Height, texture)
        SetNativeBrush(texture)
    End Sub

    Sub TextureBrush(image As Image, wrapMode As Drawing2D.WrapMode, dstX As Single, dstY As Single, dstWidth As Single, dstHeight As Single)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTexture2(image.nativeImage, wrapMode, dstX, dstY, dstWidth, dstHeight, texture)
        SetNativeBrush(texture)
    End Sub

    Sub TextureBrush(image As Image, wrapMode As Drawing2D.WrapMode, dstX As Long, dstY As Long, dstWidth As Long, dstHeight As Long)
        Dim texture = 0 As *GpTexture
        lastResult = GdiPlus.DllExports.GdipCreateTexture2I(image.nativeImage, wrapMode, dstX, dstY, dstWidth, dstHeight, texture)
        SetNativeBrush(texture)
    End Sub

    Function Transform(matrix As /*Const*/ Drawing2D.Matrix) As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipSetTextureTransform(nativeBrush As *GpTexture, matrix.NativeMatrix))
    End Function

    Const Function Transform() As Drawing2D.Matrix
        Transform = New Drawing2D.Matrix
        SetStatus(GdiPlus.DllExports.GdipGetTextureTransform(nativeBrush As *GpTexture, Transform.NativeMatrix))
    End Function

    Function ResetTransform() As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipResetTextureTransform(nativeBrush As *GpTexture))
    End Function

    Function MultiplyTransform(matrix As /*Const*/ Drawing2D.Matrix, order = Drawing2D.MatrixOrder.Prepend As Drawing2D.MatrixOrder) As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipMultiplyTextureTransform(nativeBrush As *GpTexture, matrix.NativeMatrix, order))
    End Function

    Function TranslateTransform(dx As Single, dy As Single, order = Drawing2D.MatrixOrder.Prepend As Drawing2D.MatrixOrder) As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipTranslateTextureTransform(nativeBrush As *GpTexture, dx, dy, order))
    End Function

    Function ScaleTransform(sx As Single, sy As Single, order = Drawing2D.MatrixOrder.Prepend As Drawing2D.MatrixOrder) As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipScaleTextureTransform(nativeBrush As *GpTexture, sx, sy, order))
    End Function

    Function RotateTransform(angle As Single, order = Drawing2D.MatrixOrder.Prepend As Drawing2D.MatrixOrder) As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipRotateTextureTransform(nativeBrush As *GpTexture, angle, order))
    End Function

    Function WrapMode(wrapMode As Drawing2D.WrapMode) As Gdiplus.Status
        return SetStatus(GdiPlus.DllExports.GdipSetTextureWrapMode(nativeBrush As *GpTexture, wrapMode))
    End Function

    Const Function WrapMode() As Drawing2D.WrapMode
        SetStatus(GdiPlus.DllExports.GdipGetTextureWrapMode(nativeBrush As *GpTexture, WrapMode)
    End Function

    Const Function Image() As Image
        Dim image As *GpImage
        SetStatus(GdiPlus.DllExports.GdipGetTextureImage(nativeBrush As *GpTexture, image))

        Image = New Image(image, lastResult)
        If Object.ReferenceEquals(Image, Nothing) Then
            GdiPlus.DllExports.GdipDisposeImage(image)
        End If
    End Function

'protected:
    Sub TextureBrush()
    End Sub
End Class

End Namespace 'Drawing
End Namespace 'System