From 8d6c844bc4cde4a53ebe95c07d1dfd8d61928de9 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Mon, 17 Jun 2024 11:46:50 +0200
Subject: [PATCH] =?UTF-8?q?Vereinfachung=20Algorithmus=20inherit=20Height,?=
 =?UTF-8?q?=20sodass=20die=20H=C3=B6hen=20der=20angebundenen=20SSG=5FShape?=
 =?UTF-8?q?s=20neu=20gesetzt=20werden?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 139 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 131 insertions(+), 8 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index f726f82..8442131 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="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T10:30:02" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T11:44:40" LanguageVersion="2014.1.3.674" />
 	<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">
@@ -839,7 +839,7 @@
 				<FIELD Id="RDK:1007739" Name="Withdraw_Start" Type="double" />
 				<FIELD Id="RDK:1007740" Name="Withdraw_End" Type="double" />
 			</TYPE>
-			<TYPE Id="RDK:1345483" Name="InheritHeightType" SubType="structure" DesignTimeNotes="20231005 -1-">
+			<TYPE Id="RDK:1345483" Name="InheritHeightType" Expanded="True" SubType="structure" DesignTimeNotes="20231005 -1-">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1345484" Name="ParentIndex" Type="integer" />
 				<FIELD Id="RDK:1345485" Name="NewHoehe" Type="double" />
@@ -1018,6 +1018,7 @@
 			<VAR Id="RDK:19440102" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19603024" Name="isDefined" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19632171" Name="shapeList_idx" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:19798335" Name="TempKreiselLink" Type="string" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -8115,7 +8116,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
-					<GROUP Id="RDK:1528230" Name="Set IndirectConnGefaellestreckeList" SubType="Generic" DesignTimeNotes="20231011 -1-">
+					<GROUP Id="RDK:1528230" Name="Set IndirectConnGefaellestreckeList" SubType="Generic" Suppressed="True" DesignTimeNotes="20231011 -1-">
 						<VALUECONDITION Value="true">
 							<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
 						</VALUECONDITION>
@@ -9126,14 +9127,136 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							</GROUP>
 						</FOREACHLOOP>
 					</GROUP>
-					<SET Id="RDK:1134513" VarRef="ShapeList[TempIndex].text" Suppressed="True">
-						<EXP><![CDATA[$=$Param.Input.Text + Lf() + "Höhe vererbt"]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
+					<GROUP Id="RDK:19787372" Name="Set KreiselHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
+						<FOREACHLOOP Id="RDK:19787371" ItemVarRef="TempKreiselLink">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$KreiselGroupList]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<GROUP Id="RDK:19787362" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
+								<VAR Id="RDK:19787415" Name="UebergabeListe" Type="SSGParameter[]" />
+								<VAR Id="RDK:19790136" Name="shape_item" Type="Editor2DShapeType" />
+							</GROUP>
+							<SET_STRUCT Id="RDK:19795624" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$TempKreiselLink]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19795626" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:19795628">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetHeight]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</FOREACHLOOP>
+					</GROUP>
+					<GROUP Id="RDK:19795603" Name="Set IndirectConnHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
+						<FOREACHLOOP Id="RDK:19795602" ItemVarRef="TempKreisel">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$KreiselGroupList]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<GROUP Id="RDK:19795593" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
+								<VAR Id="RDK:19795588" Name="TempKreiselLink" Type="string" />
+								<VAR Id="RDK:19795589" Name="TempIndirectConn" Type="IndirectConnGefaellestreckeType" />
+								<VAR Id="RDK:19795590" Name="TempNewHoehe" Type="string" />
+								<VAR Id="RDK:19795591" Name="UebergabeListe" Type="SSGParameter[]" />
+								<VAR Id="RDK:19795592" Name="shape_item" Type="Editor2DShapeType" />
+							</GROUP>
+							<FOREACHLOOP Id="RDK:19795601" ItemVarRef="TempKreiselLink">
+								<PAR Name="ArrayValueExp">
+									<EXP><![CDATA[$=$ShapeList["id=" + TempKreisel].Links]]></EXP>
+								</PAR>
+								<PAR Name="ExitCondExp">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<SET Id="RDK:19795594" VarRef="shape_item">
+									<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempKreiselLink, ";")]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+								<IFTHENELSE Id="RDK:19795600">
+									<VALUECONDITION Value="true" Oper="OR">
+										<EXP><![CDATA[$=$shape_item.family = "Gefaellestrecke"]]></EXP>
+									</VALUECONDITION>
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$shape_item.family = "Foerderer"]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:19795598" SubType="Then">
+										<SET_STRUCT Id="RDK:19795595" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+											<PAR Name="Key">
+												<EXP><![CDATA[$C$shapeId_0]]></EXP>
+											</PAR>
+											<PAR Name="Str">
+												<EXP><![CDATA[$=$TempKreisel]]></EXP>
+											</PAR>
+											<PAR Name="Dbl" />
+											<PAR Name="Int" />
+											<PAR Name="Boo" />
+										</SET_STRUCT>
+										<SET_STRUCT Id="RDK:19795596" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+											<PAR Name="Key">
+												<EXP><![CDATA[$C$shapeId_1]]></EXP>
+											</PAR>
+											<PAR Name="Str">
+												<EXP><![CDATA[$=$shape_item.id]]></EXP>
+											</PAR>
+											<PAR Name="Dbl" />
+											<PAR Name="Int" />
+											<PAR Name="Boo" />
+										</SET_STRUCT>
+										<CALLFUNCTION Id="RDK:19795597">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
+											</PAR>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+											</PAR>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+									</GROUP>
+									<GROUP Id="RDK:19795599" SubType="Else" />
+								</IFTHENELSE>
+							</FOREACHLOOP>
+						</FOREACHLOOP>
+					</GROUP>
 					<SET Id="RDK:18768030" VarRef="ShapeList[TempIndex].lineColor" Suppressed="True">
 						<EXP><![CDATA[$C$#f33256]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
+					<SET Id="RDK:1134513" VarRef="ShapeList[TempIndex].text" Suppressed="True">
+						<EXP><![CDATA[$=$Param.Input.Text + Lf() + "Höhe vererbt"]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
 				</GROUP>
 			</FUNCTION>
 			<GROUP Id="RDK:314269" Name="MUI" SubType="FunctionSet" IncludeDate="0">
@@ -9405,7 +9528,7 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 									<EXP><![CDATA[$=$TempText]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:18768039" VarRef="ShapeList[InheritHeightData.ParentIndex].lineColor">
+								<SET Id="RDK:18768039" VarRef="ShapeList[InheritHeightData.ParentIndex].lineColor" Suppressed="True">
 									<EXP><![CDATA[$=$TempColor]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>