mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Original rect points calculated correctly

This commit is contained in:
Anton 2021-01-25 16:34:15 +01:00
parent 93470dc486
commit 032bba44b8
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Wardrobe/GUI.vb
View File

@ -96,15 +96,29 @@ Public Class GUI
pointTable.Columns.Add("X", GetType(Double))
pointTable.Columns.Add("Y", GetType(Double))
For i = 0 To 3
pointTable.Rows.Add()
Dim tempPX, tempPY As Double
tempPX = (CallByName(Me, "p" & i + 1 & "X", vbGet) + boxMidX) * pDiff / 1000
tempPY = (CallByName(Me, "p" & i + 1 & "Y", vbGet) + boxMidY) * pDiff / 1000
'For i = 0 To 3
' pointTable.Rows.Add()
' Dim tempPX, tempPY As Double
' tempPX = (boxMidX - CallByName(Me, "p" & i + 1 & "X", vbGet)) * pDiff / 1000
' tempPY = (boxMidY - CallByName(Me, "p" & i + 1 & "Y", vbGet)) * pDiff / 1000
' pointTable.Rows(i)("X") = tempPX
' pointTable.Rows(i)("Y") = tempPY
'Next
pointTable.Rows.Add()
pointTable.Rows(0)("X") = -(boxMidX - p1X) * pDiff / 1000
pointTable.Rows(0)("Y") = (boxMidY - p1Y) * pDiff / 1000
pointTable.Rows.Add()
pointTable.Rows(1)("X") = (p2X - boxMidX) * pDiff / 1000
pointTable.Rows(1)("Y") = (boxMidY - p2Y) * pDiff / 1000
pointTable.Rows.Add()
pointTable.Rows(2)("X") = (p3X - boxMidX) * pDiff / 1000
pointTable.Rows(2)("Y") = -(p3Y - boxMidY) * pDiff / 1000
pointTable.Rows.Add()
pointTable.Rows(3)("X") = -(boxMidX - p4X) * pDiff / 1000
pointTable.Rows(3)("Y") = -(p4Y - boxMidY) * pDiff / 1000
pointTable.Rows(i)("X") = tempPX
pointTable.Rows(i)("Y") = tempPY
Next
Return pointTable
End Function