From 43d648e91281aabaaae0120101073a0f717a1e67 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 25 Jul 2024 17:50:00 +0200
Subject: [PATCH] =?UTF-8?q?FilterConnectionPointsToUse=20weiter=20implemen?=
 =?UTF-8?q?tiert,=20um=20die=20zu=20verkn=C3=BCpfenden=20Punktpaare=20zu?=
 =?UTF-8?q?=20erhalten?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 220 +++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 162 insertions(+), 58 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index bd0874e..60d61f5 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
-	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-07-24T18:19:59" LanguageVersion="2014.1.3.680" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-07-25T17:41:51" LanguageVersion="2014.1.3.680" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
-				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:609117" Name="id" Type="string" />
 					<FIELD Id="RDK:313462" Name="x_M" Type="double" />
@@ -19,10 +19,9 @@
 				</TYPE>
 				<TYPE Id="RDK:20734830" Name="SSGConnectionPointPairs" Expanded="True" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
-					<FIELD Id="RDK:20734820" Name="idM" Type="string" DesignTimeRemark="ids of points on the motor side" />
-					<FIELD Id="RDK:20734821" Name="coordM" Type="double" DesignTimeRemark="coordinates on the motor side" />
-					<FIELD Id="RDK:20734832" Name="idS" Type="string" />
-					<FIELD Id="RDK:20734822" Name="coordS" Type="double" DesignTimeRemark="coordinates on the spannstation side" />
+					<FIELD Id="RDK:20734820" Name="idM" Type="string" DesignTimeRemark="id of point on the motor side" />
+					<FIELD Id="RDK:20734832" Name="idS" Type="string" DesignTimeRemark="id of point on the motor side" />
+					<FIELD Id="RDK:20734821" Name="coord" Type="double" DesignTimeRemark="coordinate, either x or y" />
 					<FIELD Id="RDK:20734834" Name="direction_x" Type="bool" DesignTimeRemark="1 if direction posititve x-axis, -1 if is negative x-axis, 0 if it is in y-direction" />
 					<FIELD Id="RDK:20734836" Name="direction_y" Type="bool" DesignTimeRemark="1 if direction posititve y-axis, -1 if is negative y-axis, 0 if it is in x-direction" />
 				</TYPE>
@@ -998,6 +997,7 @@
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 			<VAR Id="RDK:20734839" Name="cp_pairs" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:20734853" Name="idx" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:20738442" Name="xMorS1" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -15704,19 +15704,26 @@ me.x
 					<PAR Name="AdvancedOptions" />
 				</SET>
 			</FUNCTION>
-			<FUNCTION Id="RDK:20733273" Name="FilterConnectionPointsToUse" InputTypeName="SSGParameter[]" Options="(TYPEFUNCTION)">
+			<FUNCTION Id="RDK:20733273" Name="FilterConnectionPointsToUse" InputTypeName="SSGParameter[]" ResultTypeName="SSGConnectionPointPairs[]" Options="(TYPEFUNCTION)">
 				<GROUP Id="RDK:20733289" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-					<VAR Id="RDK:20733283" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:20734874" Name="cpId_1" Type="string" />
 					<VAR Id="RDK:20734876" Name="cpId_2" Type="string" />
 					<VAR Id="RDK:20734789" Name="CpointsKreisel1" Type="SSGConnectionPoint[]" />
 					<VAR Id="RDK:20734791" Name="CpointsKreisel2" Type="SSGConnectionPoint[]" />
-					<VAR Id="RDK:20734850" Name="SinglePoint" Type="SSGConnectionPoint" />
-					<VAR Id="RDK:20734793" Name="streckenSeite" Type="string" />
-					<VAR Id="RDK:20734855" Name="idx" Type="integer" />
-					<VAR Id="RDK:20734870" Name="distances1" Type="double[]" />
-					<VAR Id="RDK:20734808" Name="cp_pairs" Type="SSGConnectionPointPairs[]" />
-					<VAR Id="RDK:20734846" Name="pair" Type="SSGConnectionPointPairs" />
+					<VAR Id="RDK:20738427" Name="idx1" Type="integer" />
+					<VAR Id="RDK:20734930" Name="idx2" Type="integer" />
+					<VAR Id="RDK:20734704" Name="xMorS1" Type="string">
+						<SET Id="RDK:20734712" VarRef="me">
+							<EXP><![CDATA[$C$x_S]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:20738371" Name="xMorS2" Type="string">
+						<SET Id="RDK:20738370" VarRef="me">
+							<EXP><![CDATA[$C$x_S]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
 				</GROUP>
 				<SET Id="RDK:20729865" VarRef="cpId_1">
 					<EXP><![CDATA[$=$Param.Input["key=cp1"].Str]]></EXP>
@@ -15736,8 +15743,8 @@ me.x
 							<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1].KreiselDefinition.M_Strecke]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:20734759" VarRef="streckenSeite">
-							<EXP><![CDATA[$C$M]]></EXP>
+						<SET Id="RDK:20734759" VarRef="xMorS1">
+							<EXP><![CDATA[$C$x_M]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</GROUP>
@@ -15757,8 +15764,8 @@ me.x
 							<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1].KreiselDefinition.M_Strecke]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:20734777" VarRef="streckenSeite">
-							<EXP><![CDATA[$C$M]]></EXP>
+						<SET Id="RDK:20734777" VarRef="xMorS2">
+							<EXP><![CDATA[$C$x_M]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</GROUP>
@@ -15778,45 +15785,159 @@ me.x
 					<EXP><![CDATA[$=$StrBefore(Param.Input["key=cp2"].Str, "_G")]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<COMMENTS Id="RDK:20734896" DesignTimeRemark="Drehe die Liste um, die verkehrt herum liegt da die Zählung der Gegenseite in die Andere Richtung geht. " />
+				<COMMENTS Id="RDK:20734896" DesignTimeRemark="Drehe eine der Listen nach Ausrichtung um, die verkehrt herum liegt da die Zählung der Gegenseite in die Andere Richtung geht. " />
 				<IFTHENELSE Id="RDK:20734858">
 					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$CpointsKreisel1[cpId_1].direction = 0]]></EXP>
+						<EXP><![CDATA[$=$CpointsKreisel1["id="+cpId_1].direction = 180]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:20734859" SubType="Then">
-						<SET Id="RDK:20734892" VarRef="CpointsKreisel2">
+						<SET Id="RDK:20734892" VarRef="CpointsKreisel1">
+							<EXP><![CDATA[$=$ListReverse(CpointsKreisel1)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
+				<IFTHENELSE Id="RDK:20734923">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$CpointsKreisel2["id="+cpId_2].direction = 180]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:20734922" SubType="Then">
+						<SET Id="RDK:20734921" VarRef="CpointsKreisel2">
 							<EXP><![CDATA[$=$ListReverse(CpointsKreisel2)]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</GROUP>
 				</IFTHENELSE>
-				<CALLFUNCTION Id="RDK:20734852" Suppressed="True">
-					<PAR Name="FuncName">
-						<EXP><![CDATA[$C$IndexOf]]></EXP>
-					</PAR>
-					<PAR Name="InputExp">
-						<EXP><![CDATA[$=$CpointsKreisel1, cpk1]]></EXP>
-					</PAR>
-					<PAR Name="ResultRef">
-						<EXP><![CDATA[$V$idx]]></EXP>
-					</PAR>
-					<PAR Name="Options" />
-				</CALLFUNCTION>
-				<COMMENTS Id="RDK:20734902" DesignTimeRemark="Drehe die Liste um, die verkehrt herum liegt da die Zählung der Gegenseite in die Andere Richtung geht. " />
-				<FOREACHLOOP Id="RDK:20734848" ItemVarRef="SinglePoint">
+				<SET Id="RDK:20734932" VarRef="idx1" Bookmarked="True">
+					<EXP><![CDATA[$=$IndexOfByFieldValue(CpointsKreisel1, "id", cpId_1)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20734934" VarRef="idx2" Bookmarked="True">
+					<EXP><![CDATA[$=$IndexOfByFieldValue(CpointsKreisel2, "id", cpId_2)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<COMMENTS Id="RDK:20734902" DesignTimeRemark="Schneide die Listen ab, ausgehend von den beiden verbundenen Connection Points" />
+				<SET Id="RDK:20734942" VarRef="CpointsKreisel1">
+					<EXP><![CDATA[$=$ListCrop(CpointsKreisel1, 0, idx1)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20734944" VarRef="CpointsKreisel2">
+					<EXP><![CDATA[$=$ListCrop(CpointsKreisel2, 0, idx2)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20734946" VarRef="CpointsKreisel1">
+					<EXP><![CDATA[$=$ListReverse(CpointsKreisel1)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20734948" VarRef="CpointsKreisel2">
+					<EXP><![CDATA[$=$ListReverse(CpointsKreisel2)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<COMMENTS Id="RDK:20738532" DesignTimeRemark="Stelle die Entfernung jedes Punktes vom ersten Angebundenen fest" />
+				<GROUP Id="RDK:20738576" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:20738561" Name="FirstPoint1" Type="SSGConnectionPoint" />
+					<VAR Id="RDK:20738562" Name="FirstPoint2" Type="SSGConnectionPoint" />
+					<VAR Id="RDK:20738568" Name="distances1" Type="double[]" />
+					<VAR Id="RDK:20738569" Name="distances2" Type="double[]" />
+					<VAR Id="RDK:20734850" Name="SinglePoint" Type="SSGConnectionPoint" />
+				</GROUP>
+				<SET Id="RDK:20738416" VarRef="FirstPoint1">
+					<EXP><![CDATA[$=$CpointsKreisel1[0]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<FOREACHLOOP Id="RDK:20738451" ItemVarRef="SinglePoint" CountVarRef="cycleCounter1">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$CpointsKreisel1]]></EXP>
 					</PAR>
 					<PAR Name="ExitCondExp">
 						<EXP><![CDATA[$V$]]></EXP>
 					</PAR>
+					<IFTHENELSE Id="RDK:20738458">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$xMorS1 = "x_M"]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20738468" SubType="Then">
+							<LIST_ADD Id="RDK:20738508" ListRef="distances1">
+								<PAR Name="VALUE_TO_ADD">
+									<EXP><![CDATA[$=$Abs(SinglePoint.x_M - FirstPoint1.x_M)]]></EXP>
+								</PAR>
+								<PAR Name="POS_TO_ADD" />
+							</LIST_ADD>
+						</GROUP>
+						<GROUP Id="RDK:20738470" SubType="Else">
+							<LIST_ADD Id="RDK:20738510" ListRef="distances1">
+								<PAR Name="VALUE_TO_ADD">
+									<EXP><![CDATA[$=$Abs(SinglePoint.x_S - FirstPoint1.x_S)]]></EXP>
+								</PAR>
+								<PAR Name="POS_TO_ADD" />
+							</LIST_ADD>
+						</GROUP>
+					</IFTHENELSE>
 				</FOREACHLOOP>
-				<LIST_ADD Id="RDK:20734844" ListRef="cp_pairs">
-					<PAR Name="VALUE_TO_ADD">
-						<EXP><![CDATA[$=$pair]]></EXP>
+				<SET Id="RDK:20738441" VarRef="FirstPoint2">
+					<EXP><![CDATA[$=$CpointsKreisel2[0]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<FOREACHLOOP Id="RDK:20738452" ItemVarRef="SinglePoint" CountVarRef="cycleCounter2">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$CpointsKreisel2]]></EXP>
 					</PAR>
-					<PAR Name="POS_TO_ADD" />
-				</LIST_ADD>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<IFTHENELSE Id="RDK:20738524">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$xMorS2 = "x_M"]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20738521" SubType="Then">
+							<LIST_ADD Id="RDK:20738520" ListRef="distances2">
+								<PAR Name="VALUE_TO_ADD">
+									<EXP><![CDATA[$=$Abs(SinglePoint.x_M - FirstPoint2.x_M)]]></EXP>
+								</PAR>
+								<PAR Name="POS_TO_ADD" />
+							</LIST_ADD>
+						</GROUP>
+						<GROUP Id="RDK:20738523" SubType="Else">
+							<LIST_ADD Id="RDK:20738522" ListRef="distances2">
+								<PAR Name="VALUE_TO_ADD">
+									<EXP><![CDATA[$=$SinglePoint.x_S - FirstPoint2.x_S]]></EXP>
+								</PAR>
+								<PAR Name="POS_TO_ADD" />
+							</LIST_ADD>
+						</GROUP>
+					</IFTHENELSE>
+				</FOREACHLOOP>
+				<COMMENTS Id="RDK:20734950" DesignTimeRemark="Jetzt laufe durch beide Listen von vorne nach hinten, und merke die Punktepaare die beide äquidistant zu den Ursprungspunkten sind" />
+				<GROUP Id="RDK:20738578" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:20734808" Name="cp_pairs" Type="SSGConnectionPointPairs[]" />
+					<VAR Id="RDK:20734846" Name="pair" Type="SSGConnectionPointPairs" />
+				</GROUP>
+				<FOREACHLOOP Id="RDK:20738412" ItemVarRef="SinglePoint" CountVarRef="cycleCounter1">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$CpointsKreisel1]]></EXP>
+					</PAR>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<SET Id="RDK:20738423" VarRef="distances1[cycleCounter]">
+						<EXP><![CDATA[$=$CpointsKreisel1[cycleCounter1].xMorS1-SinglePoint.x_M ]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<FOREACHLOOP Id="RDK:20738429" ItemVarRef="SinglePoint" CountVarRef="cycleCounter2">
+						<PAR Name="ArrayValueExp">
+							<EXP><![CDATA[$=$CpointsKreisel2]]></EXP>
+						</PAR>
+						<PAR Name="ExitCondExp">
+							<EXP><![CDATA[$V$]]></EXP>
+						</PAR>
+						<LIST_ADD Id="RDK:20738431" ListRef="cp_pairs">
+							<PAR Name="VALUE_TO_ADD">
+								<EXP><![CDATA[$=$pair]]></EXP>
+							</PAR>
+							<PAR Name="POS_TO_ADD" />
+						</LIST_ADD>
+					</FOREACHLOOP>
+				</FOREACHLOOP>
 				<SET Id="RDK:20734838" VarRef="Param.Result">
 					<EXP><![CDATA[$=$cp_pairs
 ]]></EXP>
@@ -15967,12 +16088,6 @@ me.x
 						</SET>
 					</VAR>
 					<VAR Id="RDK:20579049" Name="shapeId" Type="string" />
-					<VAR Id="RDK:20734704" Name="streckenSeite" Type="string">
-						<SET Id="RDK:20734712" VarRef="me">
-							<EXP><![CDATA[$C$S]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
 				</GROUP>
 				<FOREACHLOOP Id="RDK:20579072" ItemVarRef="shapeId">
 					<PAR Name="ArrayValueExp">
@@ -16198,17 +16313,6 @@ me.x
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
 					</SET_STRUCT>
-					<SET_STRUCT Id="RDK:20734714" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$streckenSeite]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$streckenSeite]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
 					<SELECTCASE Id="RDK:20579308">
 						<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
 						<CASEGROUP Id="RDK:20579229" CaseType="0">
@@ -16230,7 +16334,7 @@ me.x
 									<EXP><![CDATA[$C$newId]]></EXP>
 								</PAR>
 								<PAR Name="Str">
-									<EXP><![CDATA[$=$NewId]]></EXP>
+									<EXP><![CDATA[$=$newId]]></EXP>
 								</PAR>
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />