Mega Code Archive
Scale Diamond
<![CDATA[
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class TranslateTransformScaleTransform
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
public class Form1
Inherits System.Windows.Forms.Form
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
DrawDiamond(e.Graphics)
e.Graphics.TranslateTransform(-125, -125, MatrixOrder.Append)
e.Graphics.ScaleTransform(2, 2, MatrixOrder.Append)
e.Graphics.TranslateTransform(125, 125, MatrixOrder.Append)
DrawDiamond(e.Graphics)
End Sub
Private Sub DrawDiamond(ByVal gr As Graphics)
Dim pts() As Point = { _
New Point(75, 125), _
New Point(125, 75), _
New Point(175, 125), _
New Point(125, 175) _
}
gr.DrawPolygon(Pens.Black, pts)
End Sub
Public Sub New()
MyBase.New()
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
End Sub
End Class
]]>