From 0946a088a1580c064876398c55f4b9d459454657 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Wed, 31 Jul 2024 12:00:24 +0200
Subject: [PATCH] =?UTF-8?q?alle=20weitere=20Orientierungsabh=C3=A4ngige=20?=
 =?UTF-8?q?F=C3=A4lle=20zur=20Erzeugung=20der=20Musterpattern=20hinzu=20ge?=
 =?UTF-8?q?baut?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 188 +++++++++++++++++++++++++++++----------------------
 1 file changed, 108 insertions(+), 80 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index d414519..c27856b 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,6 +1,6 @@
 <?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-29T16:33:43" LanguageVersion="2014.1.3.680" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-07-31T11:48:48" 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">
@@ -17,13 +17,13 @@
 					<FIELD Id="RDK:313476" Name="label" Type="string" />
 					<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:20734830" Name="SSGConnectionPointPairs" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:20734830" Name="SSGConnectionPointPairs" Expanded="True" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<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" />
+					<FIELD Id="RDK:20734834" Name="direction_x" Type="double" 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="double" DesignTimeRemark="1 if direction posititve y-axis, -1 if is negative y-axis, 0 if it is in x-direction" />
 				</TYPE>
 				<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
 					<TYPE_VALUES />
@@ -677,7 +677,7 @@
 					<FIELD Id="RDK:529846" Name="Parent" Type="string" DesignTimeRemark="Reference to parent element" />
 					<FIELD Id="RDK:529847" Name="Data" Type="variant" DesignTimeRemark="Data payload for the event" />
 				</TYPE>
-				<TYPE Id="RDK:529853" Name="MUIDragDropElementType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:529853" Name="MUIDragDropElementType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:529849" Name="source" Type="string" DesignTimeRemark="MUIControl Id" />
 					<FIELD Id="RDK:529850" Name="parent" Type="string" DesignTimeRemark="Parent key column value" />
@@ -15793,28 +15793,6 @@ me.x
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<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["id="+cpId_1].direction = 180]]></EXP>
-					</VALUECONDITION>
-					<GROUP Id="RDK:20734859" SubType="Then">
-						<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>
 				<SET Id="RDK:20734932" VarRef="idx1" Bookmarked="True">
 					<EXP><![CDATA[$=$IndexOfByFieldValue(CpointsKreisel1, "id", cpId_1)]]></EXP>
 					<PAR Name="AdvancedOptions" />
@@ -15823,28 +15801,12 @@ me.x
 					<EXP><![CDATA[$=$IndexOfByFieldValue(CpointsKreisel2, "id", cpId_2)]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<COMMENTS Id="RDK:20734902" Suppressed="True" DesignTimeRemark="Schneide die Listen ab, ausgehend von den beiden verbundenen Connection Points" />
-				<SET Id="RDK:20734942" VarRef="CpointsKreisel1" Suppressed="True">
-					<EXP><![CDATA[$=$ListCrop(CpointsKreisel1, 0, idx1)]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
-				<SET Id="RDK:20734944" VarRef="CpointsKreisel2" Suppressed="True">
-					<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:20738568" Name="distance" Type="double" />
+					<VAR Id="RDK:20772459" Name="distances1" Type="double[]" />
 					<VAR Id="RDK:20738569" Name="distances2" Type="double[]" />
 					<VAR Id="RDK:20734850" Name="SinglePoint" Type="SSGConnectionPoint" />
 				</GROUP>
@@ -15864,22 +15826,35 @@ me.x
 							<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[$=$(SinglePoint.x_M - FirstPoint1.x_M)*-1]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
+							<SET Id="RDK:20772463" VarRef="distance">
+								<EXP><![CDATA[$=$SinglePoint.x_M - FirstPoint1.x_M]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 						</GROUP>
 						<GROUP Id="RDK:20738470" SubType="Else">
-							<LIST_ADD Id="RDK:20738510" ListRef="distances1">
-								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$(SinglePoint.x_S - FirstPoint1.x_S)*-1]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
+							<SET Id="RDK:20772465" VarRef="distance">
+								<EXP><![CDATA[$=$SinglePoint.x_S - FirstPoint1.x_S]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 						</GROUP>
 					</IFTHENELSE>
+					<IFTHENELSE Id="RDK:20772479">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$orientierung = 270]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20772489" SubType="Then">
+							<SET Id="RDK:20772485" VarRef="distance">
+								<EXP><![CDATA[$=$distance * -1]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+					</IFTHENELSE>
+					<LIST_ADD Id="RDK:20738508" ListRef="distances1">
+						<PAR Name="VALUE_TO_ADD">
+							<EXP><![CDATA[$=$distance]]></EXP>
+						</PAR>
+						<PAR Name="POS_TO_ADD" />
+					</LIST_ADD>
 				</FOREACHLOOP>
 				<SET Id="RDK:20738441" VarRef="FirstPoint2">
 					<EXP><![CDATA[$=$CpointsKreisel2[idx2]]]></EXP>
@@ -15897,22 +15872,41 @@ me.x
 							<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[$=$(SinglePoint.x_M - FirstPoint2.x_M)*+1]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
+							<SET Id="RDK:20772469" VarRef="distance">
+								<EXP><![CDATA[$=$SinglePoint.x_M - FirstPoint2.x_M]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 						</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)*+1]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
+							<SET Id="RDK:20772467" VarRef="distance">
+								<EXP><![CDATA[$=$SinglePoint.x_S - FirstPoint2.x_S]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
 						</GROUP>
 					</IFTHENELSE>
+					<IFTHENELSE Id="RDK:20772542">
+						<VALUECONDITION Value="true" Oper="OR">
+							<EXP><![CDATA[$=$orientierung = 0]]></EXP>
+						</VALUECONDITION>
+						<VALUECONDITION Value="true" Oper="OR">
+							<EXP><![CDATA[$=$orientierung = 90]]></EXP>
+						</VALUECONDITION>
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$orientierung = 180]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20772541" SubType="Then">
+							<SET Id="RDK:20772540" VarRef="distance">
+								<EXP><![CDATA[$=$distance * -1]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+					</IFTHENELSE>
+					<LIST_ADD Id="RDK:20772473" ListRef="distances2">
+						<PAR Name="VALUE_TO_ADD">
+							<EXP><![CDATA[$=$distance]]></EXP>
+						</PAR>
+						<PAR Name="POS_TO_ADD" />
+					</LIST_ADD>
 				</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">
@@ -15924,6 +15918,8 @@ me.x
 					<VAR Id="RDK:20738602" Name="d2" Type="double" />
 					<VAR Id="RDK:20741455" Name="dirX" Type="string" />
 					<VAR Id="RDK:20741457" Name="dirY" Type="string" />
+					<VAR Id="RDK:20772419" Name="i1" Type="integer" />
+					<VAR Id="RDK:20772417" Name="i2" Type="integer" />
 				</GROUP>
 				<IFTHENELSE Id="RDK:20741448">
 					<VALUECONDITION Value="true" Oper="OR">
@@ -15955,7 +15951,37 @@ me.x
 						</SET>
 					</GROUP>
 				</IFTHENELSE>
-				<FOREACHLOOP Id="RDK:20738412" ItemVarRef="P1" IndexVarRef="idx1">
+				<IFTHENELSE Id="RDK:20749820">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$orientierung =180]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:20749819" SubType="Then">
+						<SET Id="RDK:20749817" VarRef="dirX">
+							<EXP><![CDATA[$=$1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:20749818" VarRef="dirY">
+							<EXP><![CDATA[$=$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
+				<IFTHENELSE Id="RDK:20749842">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$orientierung = 270]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:20749841" SubType="Then">
+						<SET Id="RDK:20749839" VarRef="dirX">
+							<EXP><![CDATA[$=$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:20749840" VarRef="dirY">
+							<EXP><![CDATA[$=$1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
+				<FOREACHLOOP Id="RDK:20738412" ItemVarRef="P1" IndexVarRef="i1">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$CpointsKreisel1]]></EXP>
 					</PAR>
@@ -15963,7 +15989,7 @@ me.x
 						<EXP><![CDATA[$V$]]></EXP>
 					</PAR>
 					<SET Id="RDK:20738423" VarRef="d1">
-						<EXP><![CDATA[$=$distances1[idx1]]]></EXP>
+						<EXP><![CDATA[$=$distances1[i1]]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
 					<IFTHENELSE Id="RDK:20741582" DesignTimeRemark="Der Connection Point ist schon verbunden">
@@ -15974,7 +16000,7 @@ me.x
 							<EXIT_PROCESS Id="RDK:20741580" BreakType="2" ExitStatus="0" />
 						</GROUP>
 					</IFTHENELSE>
-					<FOREACHLOOP Id="RDK:20738429" ItemVarRef="P2" IndexVarRef="idx2">
+					<FOREACHLOOP Id="RDK:20738429" ItemVarRef="P2" IndexVarRef="i2">
 						<PAR Name="ArrayValueExp">
 							<EXP><![CDATA[$=$CpointsKreisel2]]></EXP>
 						</PAR>
@@ -15982,7 +16008,7 @@ me.x
 							<EXP><![CDATA[$V$]]></EXP>
 						</PAR>
 						<SET Id="RDK:20738614" VarRef="d2">
-							<EXP><![CDATA[$=$distances2[idx2]]]></EXP>
+							<EXP><![CDATA[$=$distances2[i2]]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 						<IFTHENELSE Id="RDK:20741600" DesignTimeRemark="Der Connection Point ist ja schon verbunden.">
@@ -16009,10 +16035,10 @@ me.x
 										<EXP><![CDATA[$=$d1]]></EXP>
 									</PAR>
 									<PAR Name="direction_x">
-										<EXP><![CDATA[$C$dirX]]></EXP>
+										<EXP><![CDATA[$=$dirX]]></EXP>
 									</PAR>
 									<PAR Name="direction_y">
-										<EXP><![CDATA[$C$dirY]]></EXP>
+										<EXP><![CDATA[$=$dirY]]></EXP>
 									</PAR>
 								</SET_STRUCT>
 								<LIST_ADD Id="RDK:20738431" ListRef="cp_pairs">
@@ -16419,7 +16445,7 @@ me.x
 									</PAR>
 									<PAR Name="Str" />
 									<PAR Name="Dbl">
-										<EXP><![CDATA[$=$pair.coord]]></EXP>
+										<EXP><![CDATA[$=$pair.coord * pair.direction_x]]></EXP>
 									</PAR>
 									<PAR Name="Int" />
 									<PAR Name="Boo" />
@@ -16430,9 +16456,11 @@ me.x
 									</PAR>
 									<PAR Name="Str" />
 									<PAR Name="Dbl">
-										<EXP><![CDATA[$C$0]]></EXP>
+										<EXP><![CDATA[$=$pair.coord * pair.direction_y]]></EXP>
+									</PAR>
+									<PAR Name="Int">
+										<EXP><![CDATA[$=$]]></EXP>
 									</PAR>
-									<PAR Name="Int" />
 									<PAR Name="Boo" />
 								</SET_STRUCT>
 							</GROUP>
@@ -16443,7 +16471,7 @@ me.x
 									</PAR>
 									<PAR Name="Str" />
 									<PAR Name="Dbl">
-										<EXP><![CDATA[$C$0]]></EXP>
+										<EXP><![CDATA[$=$pair.coord * pair.direction_x]]></EXP>
 									</PAR>
 									<PAR Name="Int" />
 									<PAR Name="Boo" />
@@ -16454,7 +16482,7 @@ me.x
 									</PAR>
 									<PAR Name="Str" />
 									<PAR Name="Dbl">
-										<EXP><![CDATA[$=$pair.coord]]></EXP>
+										<EXP><![CDATA[$=$pair.coord * pair.direction_y]]></EXP>
 									</PAR>
 									<PAR Name="Int" />
 									<PAR Name="Boo" />