Curved Text

Private Sub RunTest()
		Dim text As String = "THE FIRST ENGLISH SETTLEMENT IN CONNECTICUT"

		Const centerX As Integer = 300
		Const centerY As Integer = 300
		Const radius As Integer = 200

		'Create Bitmap object
		Dim bitmap As New Aurigma.GraphicsMill.Bitmap( _
		   2 * centerX, _
		   2 * centerY, _
		   Aurigma.GraphicsMill.PixelFormat.Format24bppRgb)

		'Fill background
		Dim g As Aurigma.GraphicsMill.Drawing.GdiGraphics = bitmap.GetGdiGraphics()
		g.FillRectangle( _
		   New Aurigma.GraphicsMill.Drawing.SolidBrush(Aurigma.GraphicsMill.RgbColor.White), _
		   0, _
		   0, _
		   bitmap.Width, _
		   bitmap.Height)

		'Adjust font settings
        Dim font As new Aurigma.GraphicsMill.Drawing.Font("Tahoma", 37, false, false)
		font.VerticalAlignment = Aurigma.GraphicsMill.Drawing.VerticalAlignment.Baseline
		font.HorizontalAlignment = Aurigma.GraphicsMill.Drawing.HorizontalAlignment.Center

		'Get characters positions & text dimensions
		Dim positions As Single() = font.GetCharacterPositions(text, 0)
		Dim textSize As SizeF = font.MeasureString(text)

		'Draw ellipse
		g.DrawEllipse( _
		   New Aurigma.GraphicsMill.Drawing.Pen(Aurigma.GraphicsMill.RgbColor.Black, 1), _
		   centerX - radius, _
		   centerY - radius, _
		   radius * 2, _
		   radius * 2)
		Dim brush As New Aurigma.GraphicsMill.Drawing.SolidBrush(Aurigma.GraphicsMill.RgbColor.Black)

		'Calculating basic params
		Dim textAngle As Double = textSize.Width / radius
		Dim startAngle As Double = Math.PI - (Math.PI - textAngle) / 2

		'Draw character by character
		For i As Integer = 0 To text.Length - 1

			Dim charWidth As Single
			If (i < text.Length - 1) Then
				charWidth = positions(i + 1) - positions(i)
			Else
				charWidth = textSize.Width - positions(i) - 1
			End If

			'Compute angle to which rotate current character. Rotation will be
			'performed relative to the middle of the bottom side of the character.
			Dim angle As Double = startAngle - _
			  (positions(i) + charWidth / 2.0F) * textAngle / textSize.Width

			'Compute the x and y coordinate of the bottom/top* middle* of the character
			Dim x As Single = CType(centerX + radius * Math.Cos(angle), Single)
			Dim y As Single = CType(centerY - radius * Math.Sin(angle), Single)

			'Convert angle from radians to degrees
			dim degAngle As Single = CType(90 - angle / Math.PI * 180.0, Single)

			Dim rotateMatrix As New System.Drawing.Drawing2D.Matrix()
			rotateMatrix.RotateAt(degAngle, New System.Drawing.PointF(x, y))

			g.Transform = rotateMatrix
			g.DrawString(text(i).ToString(), font, brush, x, y)
		Next

		bitmap.Save("c:\\temp\\roundTextTmp.bmp")
	End Sub