This sample shows how to use colored and uncolored tiling patterns.
C# :
using PDFMosaic;
using System.Drawing;
namespace Patterns
{
class Patterns
{
static void Main()
{
PDFDocument document = new PDFDocument();
document.Pages.Add(new PDFPage(PDFPaperFormat.A4));
PDFCanvas canvas = document.Pages[0].Canvas;
PDFColorRGB red = new PDFColorRGB(255, 0, 0);
PDFColorRGB green = new PDFColorRGB(0, 255, 0);
PDFColorRGB blue = new PDFColorRGB(0, 0, 255);
PDFSolidPen pen = new PDFSolidPen();
PDFColoredTilingBrush tillingbrush = new PDFColoredTilingBrush(50, 50);
PDFUncoloredTilingBrush untillingbrush = new PDFUncoloredTilingBrush(10, 10);
canvas = untillingbrush.Canvas;
canvas.DrawCircle(new PDFSolidPen(green), new PDFSolidBrush(blue), 5, 5, 4);
untillingbrush.Color = green;
canvas = tillingbrush.Canvas;
canvas.DrawEllipse(pen, untillingbrush, 0, 0, 49, 25);
canvas.RotateTransform(45);
canvas.DrawRectangle(new PDFSolidBrush(new PDFColorRGB(100, 100, 100)), 33, 5, 10, 20);
canvas = document.Pages[0].Canvas;
canvas.DrawRoundedRectangle(pen, tillingbrush, 100, 100, 200, 300, 30);
document.Save("Patterns.pdf", true);
}
}
}
VB.NET :
Imports PDFMosaic
Imports System.Drawing
Module Patterns
Sub Main()
Dim document As PDFDocument = New PDFDocument()
document.Pages.Add(New PDFPage(PDFPaperFormat.A4))
Dim canvas As PDFCanvas = document.Pages(0).Canvas
Dim red As PDFColorRGB = New PDFColorRGB(255, 0, 0)
Dim green As PDFColorRGB = New PDFColorRGB(0, 255, 0)
Dim blue As PDFColorRGB = New PDFColorRGB(0, 0, 255)
Dim pen As PDFSolidPen = New PDFSolidPen()
Dim tillingbrush As PDFColoredTilingBrush = New PDFColoredTilingBrush(50, 50)
Dim untillingbrush As PDFUncoloredTilingBrush = New PDFUncoloredTilingBrush(10, 10)
canvas = untillingbrush.Canvas
canvas.DrawCircle(New PDFSolidPen(green), New PDFSolidBrush(blue), 5, 5, 4)
untillingbrush.Color = green
canvas = tillingbrush.Canvas
canvas.DrawEllipse(pen, untillingbrush, 0, 0, 49, 25)
canvas.RotateTransform(45)
canvas.DrawRectangle(New PDFSolidBrush(New PDFColorRGB(100, 100, 100)), 33, 5, 10, 20)
canvas = document.Pages(0).Canvas
canvas.DrawRoundedRectangle(pen, tillingbrush, 100, 100, 200, 300, 30)
document.Save("Patterns.pdf", True)
End Sub
End Module