192 lines
7.7 KiB
VB.net
192 lines
7.7 KiB
VB.net
Public Class GUI_Drawing_Panel
|
|
Private Shared pCon1(3) As Decimal 'pCon(0) = pixel X, pCon(2) = SW X, etc.
|
|
Private Shared pCon2(3) As Decimal
|
|
Private Shared pCon3(3) As Decimal
|
|
Private Shared pCon4(3) As Decimal
|
|
|
|
Private Shared containerL, containerW, containerMidX, containerMidY As Integer
|
|
Private Shared drawL As Integer = 1
|
|
Private Shared drawW As Integer = 1
|
|
|
|
Private Shared DirSymbolPoints As New Dictionary(Of String, Decimal())
|
|
|
|
Private Shared ArrowSymbolPoints As New Dictionary(Of String, Decimal())
|
|
|
|
Private Shared drawAspect, gratingAspect As Decimal
|
|
Private Shared scaleDiff As Decimal = 1
|
|
|
|
Public Shared pointsOrder As New List(Of String)
|
|
Public Shared points As New Dictionary(Of String, Decimal())
|
|
|
|
Private Shared gratingMaxW As Decimal = 1000
|
|
Private Shared gratingMaxL As Decimal = 1000
|
|
|
|
Private Shared pointsFunc As New Dictionary(Of String, Boolean)
|
|
|
|
Public Shared Sub Load_DrawingPanel()
|
|
Get_DrawboxParameters()
|
|
Set_ContainerPointsX()
|
|
Set_ContainerPointsY()
|
|
|
|
Create_DirSymbolPoints()
|
|
Create_ArrowSymbolPoints()
|
|
Update_GratingPoints()
|
|
Create_StartPoints()
|
|
End Sub
|
|
|
|
' --- Retrive parameters for the drawing box ---
|
|
Private Shared Sub Get_DrawboxParameters()
|
|
containerL = GUI.containerPanel.Size.Width
|
|
containerW = GUI.containerPanel.Size.Height
|
|
|
|
containerMidX = containerL / 2
|
|
containerMidY = containerW / 2
|
|
|
|
drawL = containerL - 80
|
|
drawW = containerW - 80
|
|
|
|
drawAspect = drawL / drawW
|
|
End Sub
|
|
|
|
' --- Set containers points X-values ---
|
|
Private Shared Sub Set_ContainerPointsX()
|
|
pCon1(0) = containerMidX - drawL / 2
|
|
pCon2(0) = containerMidX + drawL / 2
|
|
pCon3(0) = containerMidX + drawL / 2
|
|
pCon4(0) = containerMidX - drawL / 2
|
|
End Sub
|
|
|
|
' --- Set containers points Y-values ---
|
|
Private Shared Sub Set_ContainerPointsY()
|
|
pCon1(1) = containerMidY - drawW / 2
|
|
pCon2(1) = containerMidY - drawW / 2
|
|
pCon3(1) = containerMidY + drawW / 2
|
|
pCon4(1) = containerMidY + drawW / 2
|
|
End Sub
|
|
|
|
|
|
' --- Create points for grating direction symbol ---
|
|
Private Shared Sub Create_DirSymbolPoints()
|
|
DirSymbolPoints.Add("p1", {-30 + containerMidX, -2 + containerMidY})
|
|
DirSymbolPoints.Add("p2", {20 + containerMidX, -2 + containerMidY})
|
|
DirSymbolPoints.Add("p3", {12 + containerMidX, -10 + containerMidY})
|
|
DirSymbolPoints.Add("p4", {15 + containerMidX, -13 + containerMidY})
|
|
DirSymbolPoints.Add("p5", {30 + containerMidX, 2 + containerMidY})
|
|
DirSymbolPoints.Add("p6", {-20 + containerMidX, 2 + containerMidY})
|
|
DirSymbolPoints.Add("p7", {-12 + containerMidX, 10 + containerMidY})
|
|
DirSymbolPoints.Add("p8", {-15 + containerMidX, 13 + containerMidY})
|
|
DirSymbolPoints.Add("p9", {-30 + containerMidX, -2 + containerMidY})
|
|
End Sub
|
|
|
|
' --- Create points for arrow symbol ---
|
|
Private Shared Sub Create_ArrowSymbolPoints()
|
|
Dim offset As Integer = 20
|
|
ArrowSymbolPoints.Add("p1", {offset, containerW - offset})
|
|
ArrowSymbolPoints.Add("p2", {offset, containerW - offset - 40})
|
|
ArrowSymbolPoints.Add("p3", {offset - 5, containerW - offset - 35})
|
|
ArrowSymbolPoints.Add("p4", {offset, containerW - offset - 40})
|
|
ArrowSymbolPoints.Add("p5", {offset + 5, containerW - offset - 35})
|
|
ArrowSymbolPoints.Add("p6", {offset, containerW - offset - 40})
|
|
ArrowSymbolPoints.Add("p7", {offset, containerW - offset})
|
|
ArrowSymbolPoints.Add("p8", {offset + 40, containerW - offset})
|
|
ArrowSymbolPoints.Add("p9", {offset + 35, containerW - offset - 5})
|
|
ArrowSymbolPoints.Add("p10", {offset + 40, containerW - offset})
|
|
ArrowSymbolPoints.Add("p11", {offset + 35, containerW - offset + 5})
|
|
End Sub
|
|
|
|
' --- Updates all the gratings points ---
|
|
Private Shared Sub Update_GratingPoints()
|
|
gratingAspect = gratingMaxL / gratingMaxW
|
|
|
|
If gratingAspect > drawAspect Then
|
|
'Change draw height
|
|
scaleDiff = gratingMaxL / drawL
|
|
|
|
pCon1(1) = containerMidY - gratingMaxW / (scaleDiff * 2)
|
|
pCon2(1) = containerMidY - gratingMaxW / (scaleDiff * 2)
|
|
pCon3(1) = containerMidY + gratingMaxW / (scaleDiff * 2)
|
|
pCon4(1) = containerMidY + gratingMaxW / (scaleDiff * 2)
|
|
|
|
Set_ContainerPointsX()
|
|
Else
|
|
'Change draw width
|
|
scaleDiff = gratingMaxW / drawW
|
|
|
|
pCon1(0) = containerMidX - gratingMaxL / (scaleDiff * 2)
|
|
pCon2(0) = containerMidX + gratingMaxL / (scaleDiff * 2)
|
|
pCon3(0) = containerMidX + gratingMaxL / (scaleDiff * 2)
|
|
pCon4(0) = containerMidX - gratingMaxL / (scaleDiff * 2)
|
|
|
|
Set_ContainerPointsY()
|
|
End If
|
|
|
|
'Redraw grating
|
|
GUI.Refresh()
|
|
|
|
'SW X-values
|
|
pCon1(2) = (-gratingMaxL / 2) / 1000
|
|
pCon2(2) = (gratingMaxL / 2) / 1000
|
|
pCon3(2) = (gratingMaxL / 2) / 1000
|
|
pCon4(2) = (-gratingMaxL / 2) / 1000
|
|
|
|
'SW Y-values
|
|
pCon1(3) = (gratingMaxW / 2) / 1000
|
|
pCon2(3) = (gratingMaxW / 2) / 1000
|
|
pCon3(3) = (-gratingMaxW / 2) / 1000
|
|
pCon4(3) = (-gratingMaxW / 2) / 1000
|
|
End Sub
|
|
|
|
' --- Sets the start points for the grating ---
|
|
Private Shared Sub Create_StartPoints()
|
|
For i = 1 To 4
|
|
points.Add("p" & i, CallByName(GUI, "pCon" & i, vbGet))
|
|
pointsFunc.Add("p" & i, True)
|
|
pointsOrder.Add("p" & i)
|
|
Next
|
|
End Sub
|
|
|
|
' --- Draw all the lines for the container and grating ---
|
|
Public Shared Sub DrawingPanel_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs)
|
|
' Draw outer grating (red)
|
|
Dim penCon As Pen = New Pen(Color.DarkRed, 1)
|
|
penCon.DashPattern = {4, 8}
|
|
e.Graphics.DrawLine(penCon, CInt(pCon1(0)), CInt(pCon1(1)), CInt(pCon2(0)), CInt(pCon2(1)))
|
|
e.Graphics.DrawLine(penCon, CInt(pCon2(0)), CInt(pCon2(1)), CInt(pCon3(0)), CInt(pCon3(1)))
|
|
e.Graphics.DrawLine(penCon, CInt(pCon3(0)), CInt(pCon3(1)), CInt(pCon4(0)), CInt(pCon4(1)))
|
|
e.Graphics.DrawLine(penCon, CInt(pCon4(0)), CInt(pCon4(1)), CInt(pCon1(0)), CInt(pCon1(1)))
|
|
|
|
' Draw grating direction symbol
|
|
Dim symPen As Pen = New Pen(Color.Black, 1)
|
|
For i = 1 To DirSymbolPoints.Count - 1
|
|
e.Graphics.DrawLine(symPen, DirSymbolPoints("p" & i)(0), DirSymbolPoints("p" & i)(1), DirSymbolPoints("p" & i + 1)(0), DirSymbolPoints("p" & i + 1)(1))
|
|
Next
|
|
|
|
' Draw arrow symbol
|
|
For i = 1 To ArrowSymbolPoints.Count - 1
|
|
e.Graphics.DrawLine(symPen, ArrowSymbolPoints("p" & i)(0), ArrowSymbolPoints("p" & i)(1), ArrowSymbolPoints("p" & i + 1)(0), ArrowSymbolPoints("p" & i + 1)(1))
|
|
Next
|
|
e.Graphics.TranslateTransform(20, containerW - 20)
|
|
e.Graphics.DrawString("Length", New Font("Microsoft Sans Serif", 8), Brushes.Black, New Point(45, -7))
|
|
e.Graphics.RotateTransform(-90)
|
|
e.Graphics.DrawString("Width", New Font("Microsoft Sans Serif", 8), Brushes.Black, New Point(45, -4))
|
|
e.Graphics.RotateTransform(90)
|
|
e.Graphics.TranslateTransform(-20, -containerW + 20)
|
|
|
|
' Draw actual grating (black)
|
|
Dim pen As Pen = New Pen(Color.Black, 2)
|
|
For i = 0 To pointsOrder.Count - 1
|
|
Dim pTemp1() As Decimal
|
|
Dim pTemp2() As Decimal
|
|
|
|
pTemp1 = points(pointsOrder(i))
|
|
Try
|
|
pTemp2 = points(pointsOrder(i + 1))
|
|
Catch ex As Exception
|
|
pTemp2 = points(pointsOrder(0))
|
|
End Try
|
|
|
|
e.Graphics.DrawLine(pen, CInt(pTemp1(0)), CInt(pTemp1(1)), CInt(pTemp2(0)), CInt(pTemp2(1)))
|
|
Next
|
|
End Sub
|
|
End Class
|