Sounds to me like a job for beziers...
You'll find a little VB application after my signature.
--
Bob Powell [MVP]
Visual C#, System.Drawing
Find great Windows Forms articles in Windows Forms Tips and Tricks
http://www.bobpowell.net/tipstricks.htm
Answer those GDI+ questions with the GDI+ FAQ
http://www.bobpowell.net/faqmain.htm
All new articles provide code in C# and VB.NET.
Subscribe to the RSS feeds provided and never miss a new article.
Imports System.Drawing. Drawing2D
Public Class Form1
Inherits System.Windows. Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeCompo nent()
'Add any initialization after the InitializeCompo nent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents NumericUpDown1 As System.Windows. Forms.NumericUp Down
Friend WithEvents Label1 As System.Windows. Forms.Label
Friend WithEvents Label2 As System.Windows. Forms.Label
Friend WithEvents NumericUpDown2 As System.Windows. Forms.NumericUp Down
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub InitializeCompo nent()
Me.NumericUpDow n1 = New System.Windows. Forms.NumericUp Down
Me.Label1 = New System.Windows. Forms.Label
Me.Label2 = New System.Windows. Forms.Label
Me.NumericUpDow n2 = New System.Windows. Forms.NumericUp Down
CType(Me.Numeri cUpDown1,
System.Componen tModel.ISupport Initialize).Beg inInit()
CType(Me.Numeri cUpDown2,
System.Componen tModel.ISupport Initialize).Beg inInit()
Me.SuspendLayou t()
'
'NumericUpDown1
'
Me.NumericUpDow n1.Location = New System.Drawing. Point(72, 16)
Me.NumericUpDow n1.Maximum = New Decimal(New Integer() {10, 0, 0, 0})
Me.NumericUpDow n1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NumericUpDow n1.Name = "NumericUpDown1 "
Me.NumericUpDow n1.Size = New System.Drawing. Size(72, 20)
Me.NumericUpDow n1.TabIndex = 0
Me.NumericUpDow n1.Value = New Decimal(New Integer() {3, 0, 0, 0})
'
'Label1
'
Me.Label1.Locat ion = New System.Drawing. Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing. Size(40, 23)
Me.Label1.TabIn dex = 1
Me.Label1.Text = "Lines"
'
'Label2
'
Me.Label2.Locat ion = New System.Drawing. Point(8, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing. Size(56, 23)
Me.Label2.TabIn dex = 2
Me.Label2.Text = "Degrees"
'
'NumericUpDown2
'
Me.NumericUpDow n2.Location = New System.Drawing. Point(72, 48)
Me.NumericUpDow n2.Maximum = New Decimal(New Integer() {90, 0, 0, 0})
Me.NumericUpDow n2.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NumericUpDow n2.Name = "NumericUpDown2 "
Me.NumericUpDow n2.Size = New System.Drawing. Size(72, 20)
Me.NumericUpDow n2.TabIndex = 0
Me.NumericUpDow n2.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'Form1
'
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.ClientSize = New System.Drawing. Size(448, 382)
Me.Controls.Add (Me.Label2)
Me.Controls.Add (Me.Label1)
Me.Controls.Add (Me.NumericUpDo wn1)
Me.Controls.Add (Me.NumericUpDo wn2)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.Numeri cUpDown1, System.Componen tModel.ISupport Initialize).End Init()
CType(Me.Numeri cUpDown2, System.Componen tModel.ISupport Initialize).End Init()
Me.ResumeLayout (False)
End Sub
#End Region
Protected Overrides Sub OnMouseMove(ByV al e As
System.Windows. Forms.MouseEven tArgs)
mouse = New Point(e.X, e.Y)
Invalidate()
End Sub
Dim mouse As Point
Protected Overrides Sub OnPaint(ByVal e As
System.Windows. Forms.PaintEven tArgs)
Dim n As Integer
Dim absoluteangle As Single = 0
For n = 0 To Me.NumericUpDow n1.Value - 1
Dim rotationangle As Single
If (n Mod 2 = 0) Then
rotationangle = absoluteangle
Else
rotationangle = -absoluteangle
End If
Dim firstPoint As PointF = New PointF(Me.Clien tRectangle.Widt h / 2, 20)
Dim lastpoint As PointF = New PointF(mouse.X, mouse.Y)
Dim vector As PointF = New PointF(lastpoin t.X - firstPoint.X, lastpoint.Y -
firstPoint.Y)
'get the hypotenuse...
Dim hypot As Single = CSng(Math.Sqrt( (vector.X * vector.X) + (vector.Y *
vector.Y)))
'create a point at the center of the hypotenuse...
Dim center As New PointF(firstPoi nt.X + (vector.X / 2), firstPoint.Y +
(vector.Y / 2))
'Create bezier control points
Dim cp1 As PointF() = New PointF() {center}
Dim cp2 As PointF() = New PointF() {center}
'rotate one point around the first position...
Dim mx As New Matrix
mx.RotateAt(rot ationangle, firstPoint)
mx.TransformPoi nts(cp1)
'rotate the other point around the last position...
mx = New Matrix
mx.RotateAt(-rotationangle, lastpoint)
mx.TransformPoi nts(cp2)
'draw a bezier
e.Graphics.Draw Bezier(Pens.Bla ck, firstPoint, cp1(0), cp2(0), lastpoint)
absoluteangle += Me.NumericUpDow n2.Value
Next
End Sub
End Class
"Carl Gilbert" <cn*@newsgroup. nospam> wrote in message
news:uz******** *****@TK2MSFTNG P10.phx.gbl...
Hi
I have a math kinda problem where I'm trying to split some lines when two
or more lines connect two shapes. The reason I am doing this is to make
it clear that there are multiple lines connecting the two shapes.
http://www.blackwaterbadgers.co.uk/image1.bmp
Image 1 shows how if you have a line between two shapes, the line is
straight. if you have more than one line, the lines will start
overlapping each other and essentially look like just the one line. What
I have done is to add a pivot to the centre of the line so the lines can
be given a curve as shown in Image 1.
The middle pivot is created when the line is straight so I know its
location. I also know the locations of either end of the line so from
this I can get the angle of the line. I also know the distance by which I
want to offset the middle pivot.
My plan is to run some code (most of this I have written) that looks to
see how many lines are going between the two shapes. If it is one line
then I will leave it alone. If it is more than one line, I want to
separate out the lines.
http://www.blackwaterbadgers.co.uk/image2.bmp
Based on Image 2
I know the location of the two red dots which give me oppA and adjA, from
this I can get the angle x. As I want the middle pivot to move at a right
angle to its origin, I know the angle of y.
hypB is the distance I want to move the pivot from its origin so from this
I can get oppB and adjB.
Based on the middle pivot, I can now use these measurements to offset the
middle pivot.
The only problem is, because I have used Math.Abs to ensure that I now
working with negative numbers, I now need to establish the direction in
which I want to offset the pivot. This isn't too much of a problem but I
am having trouble working out the distance by which to offset the pivot
based on the number of lines.
So my question is, how can I determine the offset direct and length based
on the number of lines?
Ideally, I would like to split the lines evenly so that if I had an odd
number of lines then the middle line would stay straight with the
remaining lines either side. If I have an even number of lines then the
lines would be split evenly.
A colleague suggested going through each line and offsetting each pivot in
the same direction and then moving all the pivots back to a more central
position but I'm sure it would be better to just work out the direction to
move each pivot and by how much.
Does anyone have any idea on how I could achieve this?
Regards, Carl Gilbert
