From 2149b2c2457a819e12337e1aa089fbd2a2181299 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Tue, 16 Jul 2024 10:29:33 +0200
Subject: [PATCH] Fix: InheritHeight Aufruf nur durch Kreisel/Eckrad, sonst
 SetHeightOnConnect

---
 MAIN_SSG.rdx | 473 ++++++++++++++++++++++-----------------------------
 1 file changed, 206 insertions(+), 267 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 95d57cf..54f287f 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-07-10T12:09:11" LanguageVersion="2014.1.3.680" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-07-16T10:21:16" 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">
@@ -466,7 +466,7 @@
 					<FIELD Id="RDK:1014048" Name="handler" Type="string" />
 					<FIELD Id="RDK:1014049" Name="params" Type="Editor2DParameterTypeList" />
 				</TYPE>
-				<TYPE Id="RDK:1014057" Name="Editor2DEventArgumentsType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:1014057" Name="Editor2DEventArgumentsType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:1014051" Name="class" Type="string" />
 					<FIELD Id="RDK:1014052" Name="handler" Type="Editor2DEventHandlerType" />
@@ -828,12 +828,12 @@
 					<FIELD Id="RDK:18946347" Name="toSetParameters" Type="SEExportParamType[]" />
 				</TYPE>
 			</GROUP>
-			<TYPE Id="RDK:1007393" Name="Point2D" Expanded="True" SubType="structure" HasArrayType="True">
+			<TYPE Id="RDK:1007393" Name="Point2D" SubType="structure" HasArrayType="True">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1007391" Name="X" Type="double" />
 				<FIELD Id="RDK:1007392" Name="Y" Type="double" />
 			</TYPE>
-			<TYPE Id="RDK:1007741" Name="SSY_Shapes" Expanded="True" SubType="structure" HasArrayType="True">
+			<TYPE Id="RDK:1007741" Name="SSY_Shapes" SubType="structure" HasArrayType="True">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1007735" Name="name" Type="string" />
 				<FIELD Id="RDK:1007736" Name="ShapeID" Type="string" />
@@ -9524,6 +9524,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:20607518" CaseType="1">
 							<EXP />
+							<EXIT_PROCESS Id="RDK:20683219" DesignTimeRemark="Es wird die Höhe nur von zusammenhängenden Kreiseln oder Eckrädern vererbt. Von allen anderen Elementen nicht." ExitStatus="0" />
 						</CASEGROUP>
 					</SELECTCASE>
 					<CALLFUNCTION Id="RDK:1280616" DesignTimeTip="old input value: ExecOnValues(parent_links, &quot;StrAfter(Me, &quot;&quot;;&quot;&quot;)&quot;, &quot;&quot;)">
@@ -13299,7 +13300,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</SET>
 						<CALLFUNCTION Id="RDK:20670304">
 							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$CreatePrototype_Foerder]]></EXP>
+								<EXP><![CDATA[$C$CreatePrototype_Foerderer]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
 								<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
@@ -14487,18 +14488,42 @@ me.x
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family]]></EXP>
 					<CASEGROUP Id="RDK:1576707" CaseType="0">
 						<EXP><![CDATA[$C$Kreisel]]></EXP>
-						<CALLFUNCTION Id="RDK:19927916" DesignTimeNotes="20231005 -1-">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$InheritHeight]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
+						<IFTHENELSE Id="RDK:20683220">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kreisel"]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Eckrad"]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:20683221" SubType="Then">
+								<CALLFUNCTION Id="RDK:19927916" DesignTimeNotes="20231005 -1-">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$InheritHeight]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+							<GROUP Id="RDK:20683222" SubType="Else">
+								<CALLFUNCTION Id="RDK:20683231">
+									<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>
+						</IFTHENELSE>
 						<GROUP Id="RDK:304141" Name="Kreisel Operations" SubType="Generic" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Kreisel&quot;&#xD;&#xA;ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Kreisel&quot;">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$(ShapeList["id="+Param.Input[0].shapeID].Rotationsklasse="Rotationsobjekt")  Or 
@@ -14653,104 +14678,6 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</GROUP>
-						<GROUP Id="RDK:1002232" Name="InheritHeight" SubType="Generic" Suppressed="True">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$Count(ListDiff(NewListStr("Gefaellestrecke", "Kreisel"),NewListStr(ShapeList["id="+Param.Input[0].shapeID].family, ShapeList["id="+Param.Input[1].shapeID].family)))=0]]></EXP>
-							</VALUECONDITION>
-							<IFTHENELSE Id="RDK:1003282">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel"]]></EXP>
-								</VALUECONDITION>
-								<GROUP Id="RDK:1003283" SubType="Then">
-									<SET Id="RDK:1003270" VarRef="Shape_Kreisel">
-										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<SET Id="RDK:1003296" VarRef="Shape_Gefaellestrecke">
-										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-								</GROUP>
-								<GROUP Id="RDK:1003284" SubType="Else">
-									<SET Id="RDK:1003298" VarRef="Shape_Kreisel">
-										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<SET Id="RDK:1003300" VarRef="Shape_Gefaellestrecke">
-										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-								</GROUP>
-							</IFTHENELSE>
-							<COMMENTS Id="RDK:1158774" DesignTimeRemark="Annahme cp1: Gefällestrecke Connection Point (graphisch) oben" DesignTimeNotes="20230928 -1-" />
-							<COMMENTS Id="RDK:1158776" DesignTimeRemark="Annahme cp2: Gefällestrecke Connection Point (graphisch) unten" DesignTimeNotes="20230928 -1-" />
-							<GROUP Id="RDK:1163027" Name="To Gefällestrecke cp1 (top point)" SubType="Generic" DesignTimeNotes="20230928 -1-">
-								<VALUECONDITION Value="true" Oper="OR">
-									<EXP><![CDATA[$=$Param.Input[0].connectionPointID = "cp1" AND Param.Input[0].shapeID = Shape_Gefaellestrecke.id]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Param.Input[1].connectionPointID = "cp1" AND Param.Input[1].shapeID = Shape_Gefaellestrecke.id]]></EXP>
-								</VALUECONDITION>
-								<SET Id="RDK:1158798" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheOben">
-									<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-							<GROUP Id="RDK:1163049" Name="To Gefällestrecke cp2 (bottom point)" SubType="Generic" DesignTimeNotes="20230928 -1-">
-								<VALUECONDITION Value="true" Oper="OR">
-									<EXP><![CDATA[$=$Param.Input[0].connectionPointID = "cp2" AND Param.Input[0].shapeID = Shape_Gefaellestrecke.id]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Param.Input[1].connectionPointID = "cp2" AND Param.Input[1].shapeID = Shape_Gefaellestrecke.id]]></EXP>
-								</VALUECONDITION>
-								<SET Id="RDK:1158803" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheUnten">
-									<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-							<COMMENTS Id="RDK:1155597" DesignTimeRemark="Hier wird immer zuerst die Höhe oben gesetzt egal welcher der Punkte zum verbinden genommen wird. Ok?" DesignTimeNotes="20230928 -1-" />
-							<IFTHENELSE Id="RDK:1004841" Suppressed="True" DesignTimeNotes="20230928 -1-&#xD;&#xA;suppressed">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ShapeList["id="+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheOben=""]]></EXP>
-								</VALUECONDITION>
-								<GROUP Id="RDK:1004842" SubType="Then">
-									<SET Id="RDK:1003301" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheOben">
-										<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-								</GROUP>
-								<GROUP Id="RDK:1004843" SubType="Else">
-									<SET Id="RDK:1004849" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheUnten">
-										<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-								</GROUP>
-							</IFTHENELSE>
-						</GROUP>
-						<CALLFUNCTION Id="RDK:1698068" Suppressed="True">
-							<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>
-						<CALLFUNCTION Id="RDK:19474698" Suppressed="True">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:1576710" CaseType="0">
 						<EXP><![CDATA[$C$Eckrad]]></EXP>
@@ -14758,141 +14685,167 @@ me.x
 							<EXP><![CDATA[$=$Shape_Prototype.EckradDefinition.Drehung]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SELECTCASE Id="RDK:1578960">
-							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family]]></EXP>
-							<CASEGROUP Id="RDK:1578962" CaseType="0">
-								<EXP><![CDATA[$C$Kreisel]]></EXP>
-								<SET Id="RDK:1578958" VarRef="Shape_Prototype.EckradDefinition.Drehung">
-									<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].KreiselDefinition.Drehung*(-1)]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</CASEGROUP>
-							<CASEGROUP Id="RDK:1578964" CaseType="0">
-								<EXP><![CDATA[$C$Eckrad]]></EXP>
-								<SET Id="RDK:1578966" VarRef="Shape_Prototype.EckradDefinition.Drehung">
-									<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].EckradDefinition.Drehung*(-1)]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</CASEGROUP>
-						</SELECTCASE>
-						<GROUP Id="RDK:1578972" Name="Group" SubType="Generic">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$Shape_Prototype.rotation=""]]></EXP>
+						<IFTHENELSE Id="RDK:20683251">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kreisel"]]></EXP>
 							</VALUECONDITION>
-							<SET Id="RDK:1578971" VarRef="Shape_Prototype.rotation">
-								<EXP><![CDATA[$C$0]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-						</GROUP>
-						<CALLFUNCTION Id="RDK:1578976">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$CreatePrototype_Eckrad]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-						<CALLFUNCTION Id="RDK:1578978">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-						<IFTHENELSE Id="RDK:1579006">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$OriginalRatation<>Shape_Prototype.EckradDefinition.Drehung]]></EXP>
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Eckrad"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:1579003" SubType="Then">
-								<GROUP Id="RDK:1579001" Name="Find Children" SubType="Generic">
-									<SET Id="RDK:1578995" VarRef="LinkedShapeIDs">
-										<EXP><![CDATA[$C$NOTHING]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<FOREACHLOOP Id="RDK:1578999" ItemVarRef="Link">
-										<PAR Name="ArrayValueExp">
-											<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
-										</PAR>
-										<PAR Name="ExitCondExp">
-											<EXP><![CDATA[$V$]]></EXP>
-										</PAR>
-										<SET Id="RDK:1578996" VarRef="Link">
-											<EXP><![CDATA[$=$StrAfter(Link, ";")]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<GROUP Id="RDK:1578998" Name="Group" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$Not (Link=Param.Input[1].shapeID)]]></EXP>
-											</VALUECONDITION>
-											<LIST_ADD Id="RDK:1578997" ListRef="LinkedShapeIDs">
-												<PAR Name="VALUE_TO_ADD">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="POS_TO_ADD" />
-											</LIST_ADD>
-										</GROUP>
-									</FOREACHLOOP>
-									<CALLFUNCTION Id="RDK:1579000">
-										<PAR Name="FuncName">
-											<EXP><![CDATA[$C$CollectLinkedShapes]]></EXP>
-										</PAR>
-										<PAR Name="InputExp">
-											<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-										</PAR>
-										<PAR Name="ResultRef">
-											<EXP><![CDATA[$V$]]></EXP>
-										</PAR>
-										<PAR Name="Options" />
-									</CALLFUNCTION>
-								</GROUP>
-								<CALLFUNCTION Id="RDK:1579002">
+							<GROUP Id="RDK:20683248" SubType="Then">
+								<CALLFUNCTION Id="RDK:20683247" DesignTimeNotes="20231005 -1-">
 									<PAR Name="FuncName">
-										<EXP><![CDATA[$C$Inherit Children rotation]]></EXP>
+										<EXP><![CDATA[$C$InheritHeight]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
 									</PAR>
-									<PAR Name="InputExp" />
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
 							</GROUP>
-							<GROUP Id="RDK:1579005" SubType="Else">
-								<COMMENTS Id="RDK:1579004" DesignTimeRemark="No children rotation needed" />
+							<GROUP Id="RDK:20683250" SubType="Else">
+								<CALLFUNCTION Id="RDK:20683249">
+									<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>
 						</IFTHENELSE>
-						<CALLFUNCTION Id="RDK:1592919">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$AddWeiche]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-						<CALLFUNCTION Id="RDK:20494432">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$InheritHeight]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
+						<GROUP Id="RDK:20683267" Name="Eckrad Operations" SubType="Generic">
+							<SELECTCASE Id="RDK:1578960">
+								<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family]]></EXP>
+								<CASEGROUP Id="RDK:1578962" CaseType="0">
+									<EXP><![CDATA[$C$Kreisel]]></EXP>
+									<SET Id="RDK:1578958" VarRef="Shape_Prototype.EckradDefinition.Drehung">
+										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].KreiselDefinition.Drehung*(-1)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</CASEGROUP>
+								<CASEGROUP Id="RDK:1578964" CaseType="0">
+									<EXP><![CDATA[$C$Eckrad]]></EXP>
+									<SET Id="RDK:1578966" VarRef="Shape_Prototype.EckradDefinition.Drehung">
+										<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].EckradDefinition.Drehung*(-1)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</CASEGROUP>
+							</SELECTCASE>
+							<GROUP Id="RDK:1578972" Name="Group" SubType="Generic">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Shape_Prototype.rotation=""]]></EXP>
+								</VALUECONDITION>
+								<SET Id="RDK:1578971" VarRef="Shape_Prototype.rotation">
+									<EXP><![CDATA[$C$0]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</GROUP>
+							<CALLFUNCTION Id="RDK:1578976">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$CreatePrototype_Eckrad]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<CALLFUNCTION Id="RDK:1578978">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<IFTHENELSE Id="RDK:1579006">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$OriginalRatation<>Shape_Prototype.EckradDefinition.Drehung]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:1579003" SubType="Then">
+									<GROUP Id="RDK:1579001" Name="Find Children" SubType="Generic">
+										<SET Id="RDK:1578995" VarRef="LinkedShapeIDs">
+											<EXP><![CDATA[$C$NOTHING]]></EXP>
+											<PAR Name="AdvancedOptions" />
+										</SET>
+										<FOREACHLOOP Id="RDK:1578999" ItemVarRef="Link">
+											<PAR Name="ArrayValueExp">
+												<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
+											</PAR>
+											<PAR Name="ExitCondExp">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<SET Id="RDK:1578996" VarRef="Link">
+												<EXP><![CDATA[$=$StrAfter(Link, ";")]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+											<GROUP Id="RDK:1578998" Name="Group" SubType="Generic">
+												<VALUECONDITION Value="true">
+													<EXP><![CDATA[$=$Not (Link=Param.Input[1].shapeID)]]></EXP>
+												</VALUECONDITION>
+												<LIST_ADD Id="RDK:1578997" ListRef="LinkedShapeIDs">
+													<PAR Name="VALUE_TO_ADD">
+														<EXP><![CDATA[$=$Link]]></EXP>
+													</PAR>
+													<PAR Name="POS_TO_ADD" />
+												</LIST_ADD>
+											</GROUP>
+										</FOREACHLOOP>
+										<CALLFUNCTION Id="RDK:1579000">
+											<PAR Name="FuncName">
+												<EXP><![CDATA[$C$CollectLinkedShapes]]></EXP>
+											</PAR>
+											<PAR Name="InputExp">
+												<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
+											</PAR>
+											<PAR Name="ResultRef">
+												<EXP><![CDATA[$V$]]></EXP>
+											</PAR>
+											<PAR Name="Options" />
+										</CALLFUNCTION>
+									</GROUP>
+									<CALLFUNCTION Id="RDK:1579002">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$Inherit Children rotation]]></EXP>
+										</PAR>
+										<PAR Name="InputExp" />
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
+								</GROUP>
+								<GROUP Id="RDK:1579005" SubType="Else">
+									<COMMENTS Id="RDK:1579004" DesignTimeRemark="No children rotation needed" />
+								</GROUP>
+							</IFTHENELSE>
+							<CALLFUNCTION Id="RDK:1592919">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$AddWeiche]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:1606858" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
@@ -14964,32 +14917,6 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</IFTHENELSE>
-						<GROUP Id="RDK:20540423" Name="Update" SubType="Generic" Bookmarked="True">
-							<CALLFUNCTION Id="RDK:20540427">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreatePrototype_Gefaellestrecke]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<CALLFUNCTION Id="RDK:20540429">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-						</GROUP>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18732456" CaseType="0">
 						<EXP><![CDATA[$C$Strecke]]></EXP>
@@ -15054,6 +14981,18 @@ me.x
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
+								<CALLFUNCTION Id="RDK:20673034" DesignTimeNotes="20231005 -1-">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$InheritHeight]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
 								<CALLFUNCTION Id="RDK:18221763">
 									<PAR Name="FuncName">
 										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
@@ -17489,7 +17428,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="Options" />
 						</CALLFUNCTION>
 						<COMMENTS Id="RDK:19937420" DesignTimeRemark="Höhe des Shapes der Gefällestrecke erst setzen, wenn beide Anschlusspunkte definiert wurden" />
-						<CALLFUNCTION Id="RDK:19937393">
+						<CALLFUNCTION Id="RDK:19937393" Suppressed="True">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$Check_is_defined]]></EXP>
 							</PAR>
@@ -17501,7 +17440,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
-						<IFTHENELSE Id="RDK:19937405">
+						<IFTHENELSE Id="RDK:19937405" Suppressed="True">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$(isDefined= True)]]></EXP>
 							</VALUECONDITION>
@@ -18287,7 +18226,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 						<IFTHENELSE Id="RDK:19603003">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$(ShapeList[shapeList_idx].GefaelleDefinition.LH_fits = True)]]></EXP>
+								<EXP><![CDATA[$=$(ShapeList["id="+shapeId].GefaelleDefinition.LH_fits = True)]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19603000" SubType="Then">
 								<CALLFUNCTION Id="RDK:19602999">
@@ -24924,4 +24863,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
+</PROCESS>
\ No newline at end of file