AnnTransformer Class

Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms

Public Sub AnnTransformer_AnnTransformer()
   ' set up a new unit converter with 96 DPI
   Dim converter As AnnUnitConverter = New AnnUnitConverter(96, 96)
   ' set up a new matrix, scale it by 2,2 around the origin
   Dim transform As Matrix = New Matrix()
   transform.Scale(2, 2)

   ' set up the AnnTransformer
   Dim transformer As AnnTransformer = New AnnTransformer(converter, transform)

   ' declare a new AnnPoint at 4, 5 inches
   ' transform it to physical coordinate using the transformer and show it in pixels
   ' then transform it back to its original logical coordinates
   Console.WriteLine("Point{0}--------", Environment.NewLine)

   Dim pt1 As AnnPoint = New AnnPoint(4, 5, AnnUnit.Inch)
   PrintOut(converter, "  Original: ", pt1)

   Dim pt2 As AnnPoint = transformer.PointToPhysical(pt1)
   PrintOut(converter, "  Physical: ", pt2)

   Dim pt3 As AnnPoint = transformer.PointToLogical(pt2)
   PrintOut(converter, "  Logical : ", pt3)

   ' declare an array of AnnPoints, do the same
   Console.WriteLine("Points{0}--------", Environment.NewLine)

   Dim pts1() As AnnPoint = _
{ _
   New AnnPoint(4, 5, AnnUnit.Inch), _
   New AnnPoint(5.2F, 3, AnnUnit.Inch), _
   New AnnPoint(2, 7.83F, AnnUnit.Inch) _
}


   PrintOut(converter, "  Original: ", pts1)

   Dim pts2 As AnnPoint() = transformer.PointToPhysical(pts1)
   PrintOut(converter, "  Physical: ", pts2)

   Dim pts3 As AnnPoint() = transformer.PointToLogical(pts2)
   PrintOut(converter, "  Logical : ", pts3)

   ' declare a rectangle, do the same
   Console.WriteLine("Rectangle{0}--------", Environment.NewLine)

   Dim rc1 As AnnRectangle = New AnnRectangle(2, 3, 4, 1, AnnUnit.Inch)
   PrintOut(converter, "  Original: ", rc1)

   Dim rc2 As AnnRectangle = transformer.RectangleToPhysical(rc1)
   PrintOut(converter, "  Physical: ", rc2)

   Dim rc3 As AnnRectangle = transformer.RectangleToLogical(rc2)
   PrintOut(converter, "  Logical : ", rc3)

   ' declare a length, do the same
   Console.WriteLine("Length{0}--------", Environment.NewLine)

   Dim l1 As AnnLength = New AnnLength(10.5F, AnnUnit.Inch)
   PrintOut(converter, "  Original: ", l1)

   Dim l2 As AnnLength = transformer.LengthToPhysical(l1)
   PrintOut(converter, "  Physical: ", l2)

   Dim l3 As AnnLength = transformer.LengthToLogical(l2)
   PrintOut(converter, "  Logical : ", l3)

   transform.Dispose()
End Sub

Private Sub PrintOut(ByVal converter As AnnUnitConverter, ByVal text As String, ByVal pt As AnnPoint)
   Console.WriteLine("{0}{1}({2})", text, pt.ConvertTo(converter, AnnUnit.Inch), pt.ConvertTo(converter, AnnUnit.Pixel))
End Sub

Private Sub PrintOut(ByVal converter As AnnUnitConverter, ByVal text As String, ByVal pts As AnnPoint())
   Console.WriteLine(text)

   Dim i As Integer = 0
   Do While i < pts.Length
      Console.WriteLine("    {0}. {1}({2})", i, pts(i).ConvertTo(converter, AnnUnit.Inch), pts(i).ConvertTo(converter, AnnUnit.Pixel))
      i += 1
   Loop
End Sub

Private Sub PrintOut(ByVal converter As AnnUnitConverter, ByVal text As String, ByVal rc As AnnRectangle)
   Console.WriteLine("{0}{1}({2})", text, rc.ConvertTo(converter, AnnUnit.Inch), rc.ConvertTo(converter, AnnUnit.Pixel))
End Sub

Private Sub PrintOut(ByVal converter As AnnUnitConverter, ByVal text As String, ByVal ln As AnnLength)
   Console.WriteLine("{0}{1}({2})", text, New AnnLength(ln.Converted(converter, AnnUnit.Inch), AnnUnit.Inch), New AnnLength(ln.Converted(converter, AnnUnit.Pixel), AnnUnit.Pixel))
End Sub