From 032bba44b86bd62cd6ca230b61d5833214a0ede9 Mon Sep 17 00:00:00 2001 From: Anton Date: Mon, 25 Jan 2021 16:34:15 +0100 Subject: [PATCH] Original rect points calculated correctly --- Wardrobe/GUI.vb | 30 ++++++++++++++++++++++-------- 1 file changed, 22 insertions(+), 8 deletions(-) diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb index ac3a7f8..1786e68 100644 --- a/Wardrobe/GUI.vb +++ b/Wardrobe/GUI.vb @@ -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