From 0d8bd94f124f15d82a0de0800240a6932e62e917 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Mon, 17 Jun 2024 15:19:43 +0200
Subject: [PATCH] Reduzierung des Codes indem nicht verwendete globale
 Variablen entfernt oder lokal initialisiert werden

---
 MAIN_SSG.rdx | 1210 +-------------------------------------------------
 1 file changed, 24 insertions(+), 1186 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index fb746d9..dce15ff 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-17T14:39:57" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T15:16:41" 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" Expanded="True" SubType="structure" DesignTimeNotes="20231005 -1-">
+			<TYPE Id="RDK:1345483" Name="InheritHeightType" SubType="structure" DesignTimeNotes="20231005 -1-">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1345484" Name="ParentIndex" Type="integer" />
 				<FIELD Id="RDK:1345485" Name="NewHoehe" Type="double" />
@@ -847,13 +847,6 @@
 				<FIELD Id="RDK:1345489" Name="NewHoeheUnten" Type="double" />
 				<FIELD Id="RDK:1370529" Name="Text" Type="string" />
 			</TYPE>
-			<TYPE Id="RDK:1529401" Name="IndirectConnGefaellestreckeType" SubType="structure" HasArrayType="True" DesignTimeNotes="20231011 -1-">
-				<TYPE_VALUES />
-				<FIELD Id="RDK:1529402" Name="Id" Type="string" />
-				<FIELD Id="RDK:1529403" Name="Cp" Type="string" />
-				<FIELD Id="RDK:1529404" Name="ConnToId" Type="string" />
-				<FIELD Id="RDK:1539541" Name="NewHoehe" Type="string" />
-			</TYPE>
 		</GROUP>
 		<GROUP Id="RDK:0004" Name="Parameters" SubType="ParameterDefs" />
 		<GROUP Id="RDK:0005" Name="Global Variables" SubType="VarSet" IncludeDate="0">
@@ -863,14 +856,8 @@
 				<VAR Id="RDK:1007751" Name="PolyLineShapeList" Type="Editor2DShapeTypeList" />
 				<VAR Id="RDK:412307" Name="Shape_Prototype" Type="Editor2DShapeType" />
 				<VAR Id="RDK:260961" Name="LinkedShapeIDs" Type="string[]" />
-				<VAR Id="RDK:1276768" Name="KreiselGroupList" Type="string[]" DesignTimeNotes="20230928 -1-" />
-				<VAR Id="RDK:1486596" Name="RemovedGefaellestreckeList" Type="string[]" DesignTimeNotes="20231005 -1-" />
-				<VAR Id="RDK:1194866" Name="ConnectedGefaellestreckeList" Type="string[]" DesignTimeNotes="20230928 -1-" />
-				<VAR Id="RDK:1528236" Name="IndirectConnGefaellestreckeList" Type="IndirectConnGefaellestreckeType[]" DesignTimeNotes="20231011 -1-" />
 				<VAR Id="RDK:1544029" Name="IndirectConnKreiselList" Type="string[]" DesignTimeNotes="20231011 -1-" />
-				<VAR Id="RDK:1503346" Name="ConnGefaellestreckeIdList" Type="string[]" DesignTimeNotes="20230928 -1-" />
 				<VAR Id="RDK:1280575" Name="RemovedKreiselGroupList" Type="string[]" DesignTimeNotes="20231005 -1-" />
-				<VAR Id="RDK:1458661" Name="RemovedKreiselList" Type="string[]" DesignTimeNotes="20231005 -1-" />
 				<VAR Id="RDK:1345490" Name="InheritHeightData" Type="InheritHeightType" DesignTimeNotes="20231005 -1-" />
 				<VAR Id="RDK:9052" Name="ShapeItem" Type="Editor2DShapeType" />
 				<VAR Id="RDK:98465" Name="ShapeTotalLength" Type="double" />
@@ -1000,25 +987,11 @@
 			<VAR Id="RDK:1241416" Name="ExportSnapshot" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
 			<VAR Id="RDK:1621335" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1707743" Name="item_0" Type="Editor2DShapeType" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1707751" Name="item_1" Type="Editor2DShapeType" Suppressed="True" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1710591" Name="cp" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1711732" Name="cp_gfs" Type="string" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:1712885" Name="gefaellestrecke" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:18732365" Name="strecke" Type="Editor2DShapeType" />
 			<VAR Id="RDK:18115984" Name="foerderer" Type="Editor2DShapeType" />
-			<VAR Id="RDK:1732132" Name="label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:1759312" Name="cp_label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18295767" Name="L_s" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18777657" Name="HoeheOben" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18777660" Name="HoeheUnten" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18825603" Name="cpId" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:18826988" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<VAR Id="RDK:19440094" Name="item" Type="Editor2DShapeType" Suppressed="True" DesignTimeRemark="Generated by RD" />
-			<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" />
 			<VAR Id="RDK:19841636" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19841637" Name="shape_item" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
 			<VAR Id="RDK:19866002" Name="shapeList_idx" Type="string" DesignTimeRemark="Generated by RD" />
@@ -5269,6 +5242,8 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<VAR Id="RDK:1280556" Name="TempLink" Type="string" />
 							<VAR Id="RDK:1280547" Name="TempLinkList" Type="string[]" />
 							<VAR Id="RDK:1443209" Name="AddedKreiselList" Type="string[]" />
+							<VAR Id="RDK:19866047" Name="RemovedKreiselList" Type="string[]" DesignTimeNotes="20231005 -1-" />
+							<VAR Id="RDK:19866061" Name="RemovedGefaellestreckeList" Type="string[]" DesignTimeNotes="20231005 -1-" />
 						</GROUP>
 						<SET Id="RDK:1280516" VarRef="Param.Result">
 							<EXP><![CDATA[$C$NOTHING]]></EXP>
@@ -5289,12 +5264,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<PAR Name="ExitCondExp">
 									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<GROUP Id="RDK:1290698" Name="Debug" SubType="Generic" Suppressed="True">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$Kreisel = "shape_bf46f457-0fe9-10dc-948e-527caac18289"]]></EXP>
-									</VALUECONDITION>
-									<COMMENTS Id="RDK:1290697" />
-								</GROUP>
 								<GROUP Id="RDK:1442601" Name="Remove for Gefaellestrecke" SubType="Generic" DesignTimeNotes="20231005 -1-">
 									<VALUECONDITION Value="true">
 										<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
@@ -5391,12 +5360,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="ExitCondExp">
 										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
-									<GROUP Id="RDK:1291778" Name="Debug" SubType="Generic" Suppressed="True">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$TempLink = "shape_87055166-b35d-c935-5bc6-efe821c00749"]]></EXP>
-										</VALUECONDITION>
-										<COMMENTS Id="RDK:1291777" />
-									</GROUP>
 									<GROUP Id="RDK:1280595" Name="Only for Kreisel" SubType="Generic">
 										<VALUECONDITION Value="true">
 											<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family = "Kreisel"]]></EXP>
@@ -5459,12 +5422,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<REMOVE_ADD Id="RDK:1280615" ListRef="KreiselList" Value="$=$Kreisel">
 									<EXP />
 								</REMOVE_ADD>
-								<LIST_ADD Id="RDK:1454406" Suppressed="True" ListRef="RemovedKreiselList">
-									<PAR Name="VALUE_TO_ADD">
-										<EXP><![CDATA[$=$Kreisel]]></EXP>
-									</PAR>
-									<PAR Name="POS_TO_ADD" />
-								</LIST_ADD>
 							</FOREACHLOOP>
 						</WHILELOOP>
 					</FUNCTION>
@@ -7988,112 +7945,9 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						<EXP><![CDATA[$=$Count(Shape_Prototype.links) = 0]]></EXP>
 					</VALUECONDITION>
 					<GROUP Id="RDK:1143994" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-						<VAR Id="RDK:1143995" Name="TempIndex" Type="integer">
-							<SET Id="RDK:1143999" VarRef="Me" DesignTimeNotes="20231005 -1-&#xD;&#xA;Because IndexOfByFieldValue(ShapeList, &quot;id&quot;, Shape_Prototype.id) result in -1 even if e.g. Shape_Prototype.id = ShapeList[1].id is True??">
-								<EXP><![CDATA[$=$Param.Input.ParentIndex]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-						</VAR>
-						<VAR Id="RDK:1200177" Name="TempLinksList" Type="string[]" />
-						<VAR Id="RDK:1228202" Name="HeightAllreadySetList" Type="string[]" />
-						<VAR Id="RDK:1228762" Name="TempLinkedShapeIDs" Type="string[]" />
-						<VAR Id="RDK:1229831" Name="TempLink" Type="string" />
 						<VAR Id="RDK:1528242" Name="TempKreisel" Type="string" />
-						<VAR Id="RDK:19642364" Name="VAR_TEMPLIST_DEBUG" Type="string" />
-						<VAR Id="RDK:19642368" Name="VAR_ALREADY_SET_DEBUG" Type="string" />
-						<VAR Id="RDK:1544010" Name="TempGefaellestrecke" Type="IndirectConnGefaellestreckeType" />
-					</GROUP>
-					<SET Id="RDK:1188989" VarRef="ShapeList[TempIndex].text" Suppressed="True">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1491494" VarRef="ConnectedGefaellestreckeList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1503352" VarRef="ConnGefaellestreckeIdList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1453331" VarRef="RemovedKreiselList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1486597" VarRef="RemovedGefaellestreckeList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:1528804" VarRef="IndirectConnGefaellestreckeList">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<GROUP Id="RDK:1128703" Name="Find Children" SubType="Generic" Suppressed="True">
-						<SET Id="RDK:1128698" VarRef="LinkedShapeIDs">
-							<EXP><![CDATA[$C$NOTHING]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<FOREACHLOOP Id="RDK:1128701" ItemVarRef="Link">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<SET Id="RDK:1128699" VarRef="Link">
-								<EXP><![CDATA[$=$StrAfter(Link, ";")]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<LIST_ADD Id="RDK:1128700" ListRef="LinkedShapeIDs">
-								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$Link]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
-						</FOREACHLOOP>
-						<CALLFUNCTION Id="RDK:1128702">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$CollectLinkedShapesByTempLink]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-					</GROUP>
-					<GROUP Id="RDK:1194828" Name="Set ConnectedGefaellestreckeList" SubType="Generic" Suppressed="True" DesignTimeNotes="Collect all Gefällestrecke that are connected to this Element (Kreisel)">
-						<FOREACHLOOP Id="RDK:1194838" ItemVarRef="Link">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1194842" Name="Group" SubType="Generic">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ListStrContains(ShapeList["id=" + Link].links, "*;" + Shape_Prototype.id)]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Gefaellestrecke"]]></EXP>
-								</VALUECONDITION>
-								<LIST_ADD Id="RDK:1194870" ListRef="ConnectedGefaellestreckeList">
-									<PAR Name="VALUE_TO_ADD">
-										<EXP><![CDATA[$=$Link]]></EXP>
-									</PAR>
-									<PAR Name="POS_TO_ADD" />
-								</LIST_ADD>
-								<SET Id="RDK:1503348" VarRef="ConnGefaellestreckeIdList">
-									<EXP><![CDATA[$=$ListJoin(ConnGefaellestreckeIdList, ShapeList["id="+ Link].links, "(DISTINCT)")]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</GROUP>
-						</FOREACHLOOP>
-						<SET Id="RDK:1504426" VarRef="ConnGefaellestreckeIdList">
-							<EXP><![CDATA[$=$ExecOnValues(ConnGefaellestreckeIdList, "StrAfter(Me, "";"")", "")]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
+						<VAR Id="RDK:19795588" Name="TempKreiselLink" Type="string" />
+						<VAR Id="RDK:19866065" Name="KreiselGroupList" Type="string[]" DesignTimeNotes="20230928 -1-" />
 					</GROUP>
 					<CALLFUNCTION Id="RDK:1280616">
 						<PAR Name="FuncName">
@@ -8107,1029 +7961,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
-					<CALLFUNCTION Id="RDK:1458675" Suppressed="True">
-						<PAR Name="FuncName">
-							<EXP><![CDATA[$C$CollectKreiselGroup]]></EXP>
-						</PAR>
-						<PAR Name="InputExp">
-							<EXP><![CDATA[$=$RemovedKreiselList]]></EXP>
-						</PAR>
-						<PAR Name="ResultRef">
-							<EXP><![CDATA[$V$RemovedKreiselGroupList]]></EXP>
-						</PAR>
-						<PAR Name="Options" />
-					</CALLFUNCTION>
-					<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>
-						<FOREACHLOOP Id="RDK:1528238" ItemVarRef="TempKreisel">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$KreiselGroupList]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1528246" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-								<VAR Id="RDK:1528247" Name="TempKreiselLink" Type="string" />
-								<VAR Id="RDK:1529406" Name="TempIndirectConn" Type="IndirectConnGefaellestreckeType" />
-								<VAR Id="RDK:1538963" Name="TempNewHoehe" Type="string" />
-							</GROUP>
-							<FOREACHLOOP Id="RDK:1528244" ItemVarRef="TempKreiselLink">
-								<PAR Name="ArrayValueExp">
-									<EXP><![CDATA[$=$ShapeList["id=" + TempKreisel].Links]]></EXP>
-								</PAR>
-								<PAR Name="ExitCondExp">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<GROUP Id="RDK:1528248" Name="Group" SubType="Generic">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempKreiselLink, ";")].family = "Gefaellestrecke"]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$StrAfter(TempKreiselLink, ";") = Shape_Prototype.id]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), StrAfter(TempKreiselLink, ";"))]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:1538965" Name="Linked to Gefällestrecke (Shape_Prototype) cp1 (top point)" SubType="Generic">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp1;" + TempKreisel)]]></EXP>
-										</VALUECONDITION>
-										<COMMENTS Id="RDK:18115979" Suppressed="True" DesignTimeRemark="TODO: Überprüfen ob HoeheOben oder HoeheUnten" />
-										<SET Id="RDK:1538964" VarRef="TempNewHoehe">
-											<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<GROUP Id="RDK:1539536" Name="Linked to Gefällestrecke (Shape_Prototype) cp2 (top point)" SubType="Generic">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp2;" + TempKreisel)]]></EXP>
-										</VALUECONDITION>
-										<SET Id="RDK:1539535" VarRef="TempNewHoehe">
-											<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</GROUP>
-									<SET_STRUCT Id="RDK:1529407" VarRef="TempIndirectConn" ClearAll="True" ListRef="IndirectConnGefaellestreckeList">
-										<PAR Name="Id">
-											<EXP><![CDATA[$=$StrAfter(TempKreiselLink, ";")]]></EXP>
-										</PAR>
-										<PAR Name="Cp">
-											<EXP><![CDATA[$=$StrBefore(ListStrFilter(ShapeList["id=" + StrAfter(TempKreiselLink, ";")].links, "*" + TempKreisel)[0], ";")]]></EXP>
-										</PAR>
-										<PAR Name="ConnToId">
-											<EXP><![CDATA[$=$TempKreisel]]></EXP>
-										</PAR>
-										<PAR Name="NewHoehe">
-											<EXP><![CDATA[$=$TempNewHoehe]]></EXP>
-										</PAR>
-									</SET_STRUCT>
-								</GROUP>
-							</FOREACHLOOP>
-						</FOREACHLOOP>
-					</GROUP>
-					<GROUP Id="RDK:1543998" Name="Set IndirectConnKreiselList" SubType="Generic" Suppressed="True">
-						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
-						</VALUECONDITION>
-						<FOREACHLOOP Id="RDK:1544007" ItemVarRef="TempGefaellestrecke">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$IndirectConnGefaellestreckeList]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1544013" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
-								<VAR Id="RDK:1544015" Name="TempGefaellestreckeLink" Type="string" />
-							</GROUP>
-							<FOREACHLOOP Id="RDK:1544011" ItemVarRef="TempGefaellestreckeLink">
-								<PAR Name="ArrayValueExp">
-									<EXP><![CDATA[$=$ShapeList["id=" + TempGefaellestrecke.Id].Links]]></EXP>
-								</PAR>
-								<PAR Name="ExitCondExp">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<GROUP Id="RDK:1544016" Name="Group" SubType="Generic">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempGefaellestreckeLink, ";")].family = "Kreisel"]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempGefaellestreckeLink, ";")].id = TempGefaellestrecke.ConnToId]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(IndirectConnKreiselList, StrAfter(TempGefaellestreckeLink, ";"))]]></EXP>
-									</VALUECONDITION>
-									<LIST_ADD Id="RDK:1545155" ListRef="IndirectConnKreiselList">
-										<PAR Name="VALUE_TO_ADD">
-											<EXP><![CDATA[$=$StrAfter(TempGefaellestreckeLink, ";")]]></EXP>
-										</PAR>
-										<PAR Name="POS_TO_ADD" />
-									</LIST_ADD>
-								</GROUP>
-							</FOREACHLOOP>
-						</FOREACHLOOP>
-					</GROUP>
-					<FOREACHLOOP Id="RDK:1128707" Suppressed="True" ItemVarRef="Link">
-						<PAR Name="ArrayValueExp">
-							<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
-						</PAR>
-						<PAR Name="ExitCondExp">
-							<EXP><![CDATA[$V$]]></EXP>
-						</PAR>
-						<GROUP Id="RDK:1320613" Name="LocalVars" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:1320612" Name="LinkIndex" Type="integer">
-								<SET Id="RDK:1320611" VarRef="Me">
-									<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", Link)]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
-							<VAR Id="RDK:19600826" Name="UebergabeListe" Type="SSGParameter[]" />
-						</GROUP>
-						<GROUP Id="RDK:1194293" Name="Debug" SubType="Generic">
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$LinkIndex = 10]]></EXP>
-							</VALUECONDITION>
-							<COMMENTS Id="RDK:1194296" />
-						</GROUP>
-						<SET Id="RDK:1192175" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-							<EXP><![CDATA[$C$NOTHING]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<SET Id="RDK:18767982" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-							<EXP><![CDATA[$C$#f33256]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<CALLFUNCTION Id="RDK:19341161">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Link]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-						<GROUP Id="RDK:1176848" Name="Set NOT direct linked Shapes to GELB or NOTHING" SubType="Generic" DesignTimeRemark="except Kreisel Groups">
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$ListStrContains(Shape_Prototype.links, "*;" + Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Weiche"]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$Contains(RemovedKreiselGroupList, Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="false">
-								<EXP><![CDATA[$=$Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), Link)]]></EXP>
-							</VALUECONDITION>
-							<SELECTCASE Id="RDK:1311069">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family]]></EXP>
-								<CASEGROUP Id="RDK:1311063" CaseType="0">
-									<EXP><![CDATA[$C$Kreisel]]></EXP>
-									<IFTHENELSE Id="RDK:1311072">
-										<VALUECONDITION Value="true" Oper="OR">
-											<EXP><![CDATA[$=$ShapeList["id=" + Link].KreiselDefinition.Hoehe = Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-										</VALUECONDITION>
-										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$(Contains(KreiselGroupList, Link) AND Contains(RemovedKreiselGroupList, Link) AND Shape_Prototype.family = "Gefaellestrecke")
-OR
-Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
-										</VALUECONDITION>
-										<GROUP Id="RDK:1311073" SubType="Then">
-											<SET Id="RDK:1311085" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$NOTHING]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18767985" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$#f33256]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452308">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-										<GROUP Id="RDK:1311074" SubType="Else">
-											<GROUP Id="RDK:1325350" Name="Debug" SubType="Generic" Suppressed="True">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$LinkIndex = 5]]></EXP>
-												</VALUECONDITION>
-												<COMMENTS Id="RDK:1325355" />
-											</GROUP>
-											<SET Id="RDK:1176864" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$Gelb]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18767988" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$orange]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452310">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-									</IFTHENELSE>
-								</CASEGROUP>
-								<CASEGROUP Id="RDK:1311071" CaseType="0">
-									<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-									<GROUP Id="RDK:1325361" Name="Debug" SubType="Generic" Suppressed="True">
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$LinkIndex = 5]]></EXP>
-										</VALUECONDITION>
-										<COMMENTS Id="RDK:1325360" />
-									</GROUP>
-									<IFTHENELSE Id="RDK:1493114">
-										<VALUECONDITION Value="false">
-											<EXP><![CDATA[$=$Contains(ConnectedGefaellestreckeList, Link)]]></EXP>
-										</VALUECONDITION>
-										<VALUECONDITION Value="true">
-											<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, Link)]]></EXP>
-										</VALUECONDITION>
-										<GROUP Id="RDK:1493115" SubType="Then">
-											<SET Id="RDK:1493141" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$NOTHING]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18767991" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$#f33256]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452312">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-										<GROUP Id="RDK:1493116" SubType="Else">
-											<GROUP Id="RDK:1488270" Name="If was not removed before" SubType="Generic">
-												<VALUECONDITION Value="false">
-													<EXP><![CDATA[$=$Contains(RemovedGefaellestreckeList, Link)]]></EXP>
-												</VALUECONDITION>
-												<SET Id="RDK:1311107" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-													<EXP><![CDATA[$C$^ Gelb]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18767994" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$orange]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:19642369" VarRef="VAR_TEMPLIST_DEBUG">
-													<EXP><![CDATA[$=$Link]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<CALLFUNCTION Id="RDK:19341159">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<SET_STRUCT Id="RDK:19651848" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$ShapeId]]></EXP>
-													</PAR>
-													<PAR Name="Str">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="Dbl" />
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<SET_STRUCT Id="RDK:19651850" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$ShapeId]]></EXP>
-													</PAR>
-													<PAR Name="Str">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="Dbl" />
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<CALLFUNCTION Id="RDK:19651844" Suppressed="True">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-											</GROUP>
-										</GROUP>
-									</IFTHENELSE>
-								</CASEGROUP>
-								<CASEGROUP Id="RDK:1311064" CaseType="1">
-									<EXP />
-								</CASEGROUP>
-							</SELECTCASE>
-							<LIST_ADD Id="RDK:1228221" ListRef="HeightAllreadySetList">
-								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$Link]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
-							<GROUP Id="RDK:1229829" Name="Find Children" SubType="Generic">
-								<FOREACHLOOP Id="RDK:1229827" ItemVarRef="TempLink">
-									<PAR Name="ArrayValueExp">
-										<EXP><![CDATA[$=$ShapeList["id=" + Link].links]]></EXP>
-									</PAR>
-									<PAR Name="ExitCondExp">
-										<EXP><![CDATA[$V$]]></EXP>
-									</PAR>
-									<SET Id="RDK:1229825" VarRef="TempLink">
-										<EXP><![CDATA[$=$StrAfter(TempLink, ";")]]></EXP>
-										<PAR Name="AdvancedOptions" />
-									</SET>
-									<LIST_ADD Id="RDK:1229826" ListRef="TempLinkedShapeIDs">
-										<PAR Name="VALUE_TO_ADD">
-											<EXP><![CDATA[$=$TempLink]]></EXP>
-										</PAR>
-										<PAR Name="POS_TO_ADD" />
-									</LIST_ADD>
-								</FOREACHLOOP>
-							</GROUP>
-							<CALLFUNCTION Id="RDK:1228760">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CollectLinkedShapesByTempLink]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$TempLinkedShapeIDs]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<FOREACHLOOP Id="RDK:1227666" ItemVarRef="TempLink">
-								<PAR Name="ArrayValueExp">
-									<EXP><![CDATA[$=$TempLinkedShapeIDs]]></EXP>
-								</PAR>
-								<PAR Name="ExitCondExp">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<GROUP Id="RDK:1385983" Name="Debug" SubType="Generic" Suppressed="True">
-									<VALUECONDITION Value="true">
-										<EXP><![CDATA[$=$TempLink = "shape_9ce528b3-a2c9-6954-2139-5c489bb174b1"]]></EXP>
-									</VALUECONDITION>
-									<COMMENTS Id="RDK:1385982" />
-								</GROUP>
-								<GROUP Id="RDK:1228226" Name="Group" SubType="Generic">
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(HeightAllreadySetList, TempLink)]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Weiche"]]></EXP>
-									</VALUECONDITION>
-									<VALUECONDITION Value="false">
-										<EXP><![CDATA[$=$Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), TempLink)]]></EXP>
-									</VALUECONDITION>
-									<GROUP Id="RDK:1320603" Name="LocalVars" SubType="VarSet" IncludeDate="0">
-										<VAR Id="RDK:1320604" Name="TempLinkIndex" Type="integer">
-											<SET Id="RDK:1320605" VarRef="Me">
-												<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", TempLink)]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-										</VAR>
-									</GROUP>
-									<SELECTCASE Id="RDK:1311127">
-										<EXP><![CDATA[$=$ShapeList["id=" + TempLink].family]]></EXP>
-										<CASEGROUP Id="RDK:1311123" CaseType="0">
-											<EXP><![CDATA[$C$Kreisel]]></EXP>
-											<IFTHENELSE Id="RDK:1311122">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$ShapeList["id=" + TempLink].KreiselDefinition.Hoehe = Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-												</VALUECONDITION>
-												<GROUP Id="RDK:1311119" SubType="Then">
-													<GROUP Id="RDK:1325379" Name="Debug" SubType="Generic" Suppressed="True">
-														<VALUECONDITION Value="true">
-															<EXP><![CDATA[$=$TempLink = "shape_4aced58c-467f-7c5d-7449-16432bcf344a"]]></EXP>
-														</VALUECONDITION>
-														<COMMENTS Id="RDK:1325378" />
-													</GROUP>
-													<SET Id="RDK:1311118" VarRef="ShapeList[TempLinkIndex].text" Suppressed="True">
-														<EXP><![CDATA[$C$NOTHING]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<SET Id="RDK:18767997" VarRef="ShapeList[TempLinkIndex].lineColor" Suppressed="True">
-														<EXP><![CDATA[$C$#f33256]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<CALLFUNCTION Id="RDK:19452314">
-														<PAR Name="FuncName">
-															<EXP><![CDATA[$C$SetStatus_False]]></EXP>
-														</PAR>
-														<PAR Name="InputExp">
-															<EXP><![CDATA[$=$Link]]></EXP>
-														</PAR>
-														<PAR Name="ResultRef">
-															<EXP><![CDATA[$V$]]></EXP>
-														</PAR>
-														<PAR Name="Options" />
-													</CALLFUNCTION>
-												</GROUP>
-												<GROUP Id="RDK:1311121" SubType="Else">
-													<GROUP Id="RDK:1325369" Name="Debug" SubType="Generic" Suppressed="True">
-														<VALUECONDITION Value="true">
-															<EXP><![CDATA[$=$TempLink = "shape_4aced58c-467f-7c5d-7449-16432bcf344a"]]></EXP>
-														</VALUECONDITION>
-														<COMMENTS Id="RDK:1325368" />
-													</GROUP>
-													<SET Id="RDK:1311120" VarRef="ShapeList[TempLinkIndex].text" Suppressed="True">
-														<EXP><![CDATA[$C$Gelb]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<SET Id="RDK:18768000" VarRef="ShapeList[TempLinkIndex].lineColor" Suppressed="True">
-														<EXP><![CDATA[$C$orange]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-													<CALLFUNCTION Id="RDK:19357385">
-														<PAR Name="FuncName">
-															<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-														</PAR>
-														<PAR Name="InputExp">
-															<EXP><![CDATA[$=$Link]]></EXP>
-														</PAR>
-														<PAR Name="ResultRef">
-															<EXP><![CDATA[$V$]]></EXP>
-														</PAR>
-														<PAR Name="Options" />
-													</CALLFUNCTION>
-												</GROUP>
-											</IFTHENELSE>
-										</CASEGROUP>
-										<CASEGROUP Id="RDK:1311125" CaseType="0">
-											<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-											<SET Id="RDK:1227670" VarRef="ShapeList[TempLinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$^ Gelb]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768003" VarRef="ShapeList[TempLinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$orange]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:19642371" VarRef="VAR_ALREADY_SET_DEBUG">
-												<EXP><![CDATA[$=$Link]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452294">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</CASEGROUP>
-										<CASEGROUP Id="RDK:1311126" CaseType="1">
-											<EXP />
-										</CASEGROUP>
-									</SELECTCASE>
-									<LIST_ADD Id="RDK:1228223" ListRef="HeightAllreadySetList">
-										<PAR Name="VALUE_TO_ADD">
-											<EXP><![CDATA[$=$TempLink]]></EXP>
-										</PAR>
-										<PAR Name="POS_TO_ADD" />
-									</LIST_ADD>
-								</GROUP>
-							</FOREACHLOOP>
-						</GROUP>
-						<GROUP Id="RDK:1176831" Name="Set direct linked Shapes to GRAU" SubType="Generic" DesignTimeRemark="except Kreisel Groups">
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ListStrContains(Shape_Prototype.links, "*;" + Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true" Oper="OR">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Kreisel" AND NOT Contains(RemovedKreiselGroupList, Link)]]></EXP>
-							</VALUECONDITION>
-							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Gefaellestrecke" AND Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), Link)]]></EXP>
-							</VALUECONDITION>
-							<GROUP Id="RDK:1263574" Name="Group" SubType="Generic">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Contains(HeightAllreadySetList, Link)]]></EXP>
-								</VALUECONDITION>
-								<VALUECONDITION Value="false">
-									<EXP><![CDATA[$=$ListStrContains(KreiselGroupList, Link)]]></EXP>
-								</VALUECONDITION>
-								<EXIT_PROCESS Id="RDK:1263580" BreakType="2" ExitStatus="0" />
-							</GROUP>
-							<SET Id="RDK:1200178" VarRef="TempLinksList">
-								<EXP><![CDATA[$=$ShapeList["id=" + Link].links]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:1200182" VarRef="TempLinksList">
-								<EXP><![CDATA[$=$ExecOnValues(TempLinksList, "StrAfter(Me, "";"")", "")]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<GROUP Id="RDK:1194879" Name="Group" SubType="Generic" DesignTimeNotes="Only if there is no link to any Gefällestrecke that is connected to this Element">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Count(ListMatch(ConnectedGefaellestreckeList, TempLinksList, "")) = 0]]></EXP>
-								</VALUECONDITION>
-								<SELECTCASE Id="RDK:1128708">
-									<EXP><![CDATA[$=$ShapeList["id=" + Link].family]]></EXP>
-									<CASEGROUP Id="RDK:1128709" CaseType="0">
-										<EXP><![CDATA[$C$Kreisel]]></EXP>
-										<SELECTCASE Id="RDK:1350828" DesignTimeNotes="20231005 -1-">
-											<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-											<CASEGROUP Id="RDK:1350829" CaseType="0">
-												<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-												<IFTHENELSE Id="RDK:1473130">
-													<VALUECONDITION Value="true" Oper="OR">
-														<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp1;" + Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
-													</VALUECONDITION>
-													<VALUECONDITION Value="true">
-														<EXP><![CDATA[$=$ListStrContains(KreiselGroupList, Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
-													</VALUECONDITION>
-													<GROUP Id="RDK:1473131" SubType="Then">
-														<GROUP Id="RDK:1350831" Name="If HoeheOben changed &amp; Linked to cp1 (top point) AND is in KreiselGroup" SubType="Generic">
-															<SET Id="RDK:1437618" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-																<EXP><![CDATA[$C$Grau]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:18768006" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-																<EXP><![CDATA[$C$gray]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:1350847" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
-																<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<COMMENTS Id="RDK:19600831" DesignTimeRemark="Bitte Rücksprache: Technisch ist es nicht zu empfehlen, die Höhe des Kreisel nach der Gefällestreckenhöhe zu setzen. Beim Verbinden von Kreisel und Gefällestrecke soll immer die Höhe des Kreisel an die Gefällestrecke übergeben werden." />
-															<SET_STRUCT Id="RDK:19600833" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-																<PAR Name="Key">
-																	<EXP><![CDATA[$C$ShapeId]]></EXP>
-																</PAR>
-																<PAR Name="Str">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="Dbl" />
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<SET_STRUCT Id="RDK:19600835" 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.NewHoeheOben]]></EXP>
-																</PAR>
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<CALLFUNCTION Id="RDK:19600837">
-																<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>
-															<CALLFUNCTION Id="RDK:19452296">
-																<PAR Name="FuncName">
-																	<EXP><![CDATA[$C$SetStatus]]></EXP>
-																</PAR>
-																<PAR Name="InputExp">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="ResultRef">
-																	<EXP><![CDATA[$V$]]></EXP>
-																</PAR>
-																<PAR Name="Options" />
-															</CALLFUNCTION>
-														</GROUP>
-													</GROUP>
-													<GROUP Id="RDK:1473132" SubType="Else">
-														<GROUP Id="RDK:1350853" Name="If HoeheUnten changed &amp; Linked to cp2 (bottom point) AND is in KreiselGroup" SubType="Generic">
-															<VALUECONDITION Value="true" Oper="OR">
-																<EXP><![CDATA[$=$Contains(Shape_Prototype.links, "cp2;" + Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
-															</VALUECONDITION>
-															<VALUECONDITION Value="true">
-																<EXP><![CDATA[$=$ListStrContains(KreiselGroupList, Link) AND ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
-															</VALUECONDITION>
-															<SET Id="RDK:1437620" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-																<EXP><![CDATA[$C$Grau]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:18768009" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-																<EXP><![CDATA[$C$gray]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<SET Id="RDK:1350852" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
-																<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-																<PAR Name="AdvancedOptions" />
-															</SET>
-															<COMMENTS Id="RDK:19602881" DesignTimeRemark="Bitte Rücksprache: Technisch ist es nicht zu empfehlen, die Höhe des Kreisel nach der Gefällestreckenhöhe zu setzen. Beim Verbinden von Kreisel und Gefällestrecke soll immer die Höhe des Kreisel an die Gefällestrecke übergeben werden." />
-															<SET_STRUCT Id="RDK:19602879" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-																<PAR Name="Key">
-																	<EXP><![CDATA[$C$ShapeId]]></EXP>
-																</PAR>
-																<PAR Name="Str">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="Dbl" />
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<SET_STRUCT Id="RDK:19602877" 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.NewHoeheUnten]]></EXP>
-																</PAR>
-																<PAR Name="Int" />
-																<PAR Name="Boo" />
-															</SET_STRUCT>
-															<CALLFUNCTION Id="RDK:19602875">
-																<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>
-															<CALLFUNCTION Id="RDK:19452298">
-																<PAR Name="FuncName">
-																	<EXP><![CDATA[$C$SetStatus]]></EXP>
-																</PAR>
-																<PAR Name="InputExp">
-																	<EXP><![CDATA[$=$Link]]></EXP>
-																</PAR>
-																<PAR Name="ResultRef">
-																	<EXP><![CDATA[$V$]]></EXP>
-																</PAR>
-																<PAR Name="Options" />
-															</CALLFUNCTION>
-														</GROUP>
-													</GROUP>
-												</IFTHENELSE>
-											</CASEGROUP>
-											<CASEGROUP Id="RDK:1350830" CaseType="1">
-												<EXP />
-												<SET Id="RDK:1131873" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-													<EXP><![CDATA[$C$Grau]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18768012" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$gray]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:1128711" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
-													<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET_STRUCT Id="RDK:19600828" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-													<PAR Name="Key">
-														<EXP><![CDATA[$C$ShapeId]]></EXP>
-													</PAR>
-													<PAR Name="Str">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="Dbl" />
-													<PAR Name="Int" />
-													<PAR Name="Boo" />
-												</SET_STRUCT>
-												<SET_STRUCT Id="RDK:19600830" 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:19600824">
-													<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>
-												<CALLFUNCTION Id="RDK:19452300">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-											</CASEGROUP>
-										</SELECTCASE>
-										<LIST_ADD Id="RDK:1228215" ListRef="HeightAllreadySetList">
-											<PAR Name="VALUE_TO_ADD">
-												<EXP><![CDATA[$=$Link]]></EXP>
-											</PAR>
-											<PAR Name="POS_TO_ADD" />
-										</LIST_ADD>
-									</CASEGROUP>
-									<CASEGROUP Id="RDK:1155596" CaseType="0">
-										<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-										<COMMENTS Id="RDK:1168393" DesignTimeRemark="Annahme cp1: Gefällestrecke Connection Point (graphisch) oben" DesignTimeNotes="20230928 -1-" />
-										<COMMENTS Id="RDK:1168395" DesignTimeRemark="Annahme cp2: Gefällestrecke Connection Point (graphisch) unten" DesignTimeNotes="20230928 -1-" />
-										<SET Id="RDK:1192171" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-											<EXP><![CDATA[$C$^]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-										<GROUP Id="RDK:1168367" Name="Linked to Gefällestrecke cp1 (top point)" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$Contains(ShapeList["id=" + Link].links, "cp1;" + Shape_Prototype.id)]]></EXP>
-											</VALUECONDITION>
-											<SET Id="RDK:1171571" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-												<EXP><![CDATA[$C$^ Grau]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768015" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$gray]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452302">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-											<SELECTCASE Id="RDK:1366798" DesignTimeNotes="20231005 -1-">
-												<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-												<CASEGROUP Id="RDK:1366800" CaseType="0">
-													<EXP><![CDATA[$C$Kreisel]]></EXP>
-													<SET Id="RDK:1366806" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-														<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-												<CASEGROUP Id="RDK:1366804" CaseType="1">
-													<EXP />
-													<SET Id="RDK:1168391" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-														<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-											</SELECTCASE>
-											<LIST_ADD Id="RDK:1228217" ListRef="HeightAllreadySetList">
-												<PAR Name="VALUE_TO_ADD">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="POS_TO_ADD" />
-											</LIST_ADD>
-										</GROUP>
-										<GROUP Id="RDK:1168407" Name="Linked to Gefällestrecke cp2 (bottom point)" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$Contains(ShapeList["id=" + Link].links, "cp2;" + Shape_Prototype.id)]]></EXP>
-											</VALUECONDITION>
-											<SET Id="RDK:1172099" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-												<EXP><![CDATA[$C$^ Grau]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768018" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$gray]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19452316">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-											<SELECTCASE Id="RDK:1366808" DesignTimeNotes="20231005 -1-">
-												<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-												<CASEGROUP Id="RDK:1366810" CaseType="0">
-													<EXP><![CDATA[$C$Kreisel]]></EXP>
-													<SET Id="RDK:1366814" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-														<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-												<CASEGROUP Id="RDK:1366812" CaseType="1">
-													<EXP />
-													<SET Id="RDK:1168415" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-														<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
-														<PAR Name="AdvancedOptions" />
-													</SET>
-												</CASEGROUP>
-											</SELECTCASE>
-											<LIST_ADD Id="RDK:1228219" ListRef="HeightAllreadySetList">
-												<PAR Name="VALUE_TO_ADD">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="POS_TO_ADD" />
-											</LIST_ADD>
-										</GROUP>
-										<GROUP Id="RDK:1529388" Name="Is Indirect Connected Gefaellestrecke" SubType="Generic">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$ShapeList["id=" + Link].family = "Gefaellestrecke" AND Contains(StrArrayFromListOfStructs(IndirectConnGefaellestreckeList, "Id"), Link)]]></EXP>
-											</VALUECONDITION>
-											<GROUP Id="RDK:1530016" Name="Linked to Gefällestrecke cp1 (top point)" SubType="Generic">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "cp") = "cp1"]]></EXP>
-												</VALUECONDITION>
-												<SET Id="RDK:1532298" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-													<EXP><![CDATA[$C$^ Grau]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18768021" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$gray]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<CALLFUNCTION Id="RDK:19452304">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<SET Id="RDK:1530046" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "NewHoehe")]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-											<GROUP Id="RDK:1530032" Name="Linked to Gefällestrecke cp1 (top point)" SubType="Generic">
-												<VALUECONDITION Value="true">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "cp") = "cp2"]]></EXP>
-												</VALUECONDITION>
-												<SET Id="RDK:1532296" VarRef="ShapeList[&quot;id=&quot; + Link].text" Suppressed="True">
-													<EXP><![CDATA[$C$^ Grau]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<SET Id="RDK:18768024" VarRef="ShapeList[&quot;id=&quot; + Link].lineColor" Suppressed="True">
-													<EXP><![CDATA[$C$gray]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-												<CALLFUNCTION Id="RDK:19452306">
-													<PAR Name="FuncName">
-														<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
-													</PAR>
-													<PAR Name="InputExp">
-														<EXP><![CDATA[$=$Link]]></EXP>
-													</PAR>
-													<PAR Name="ResultRef">
-														<EXP><![CDATA[$V$]]></EXP>
-													</PAR>
-													<PAR Name="Options" />
-												</CALLFUNCTION>
-												<SET Id="RDK:1530042" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-													<EXP><![CDATA[$=$FieldValue(FilterByFieldValue(IndirectConnGefaellestreckeList, "Id", Link, false)[0], "NewHoehe")]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-										</GROUP>
-										<COMMENTS Id="RDK:1156147" DesignTimeRemark="Momentan nicht möglich wenn h0 und H1 schon einen Wert haben, da unbekannt ist welcher Wert dann geändert werden soll." DesignTimeNotes="20230928 -1-" />
-										<IFTHENELSE Id="RDK:1155598" Suppressed="True" DesignTimeNotes="20230928 -1-&#xD;&#xA;suppressed">
-											<VALUECONDITION Value="true">
-												<EXP><![CDATA[$=$ShapeList["id=" + Link].GefaelleDefinition.HoeheOben=""]]></EXP>
-											</VALUECONDITION>
-											<GROUP Id="RDK:1155599" SubType="Then">
-												<SET Id="RDK:1155612" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheOben">
-													<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-											<GROUP Id="RDK:1155600" SubType="Else">
-												<SET Id="RDK:1155614" VarRef="ShapeList[&quot;id=&quot; + Link].GefaelleDefinition.HoeheUnten">
-													<EXP><![CDATA[$=$Shape_Prototype.KreiselDefinition.Hoehe]]></EXP>
-													<PAR Name="AdvancedOptions" />
-												</SET>
-											</GROUP>
-										</IFTHENELSE>
-									</CASEGROUP>
-									<CASEGROUP Id="RDK:1128710" CaseType="1">
-										<EXP />
-									</CASEGROUP>
-								</SELECTCASE>
-								<EXIT_PROCESS Id="RDK:1194301" Suppressed="True" BreakType="2" ExitStatus="0" />
-							</GROUP>
-						</GROUP>
-					</FOREACHLOOP>
-					<GROUP Id="RDK:1502770" Name="Set RemovedKreiselGroupList to GELB" SubType="Generic" Suppressed="True">
-						<FOREACHLOOP Id="RDK:1502776" ItemVarRef="Link">
-							<PAR Name="ArrayValueExp">
-								<EXP><![CDATA[$=$RemovedKreiselGroupList]]></EXP>
-							</PAR>
-							<PAR Name="ExitCondExp">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<GROUP Id="RDK:1503356" Name="Group" SubType="Generic">
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$Contains(ConnGefaellestreckeIdList, Link)]]></EXP>
-								</VALUECONDITION>
-								<GROUP Id="RDK:1502783" Name="LocalVars" SubType="VarSet" IncludeDate="0">
-									<VAR Id="RDK:1502782" Name="LinkIndex" Type="integer">
-										<SET Id="RDK:1502781" VarRef="Me">
-											<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", Link)]]></EXP>
-											<PAR Name="AdvancedOptions" />
-										</SET>
-									</VAR>
-								</GROUP>
-								<SELECTCASE Id="RDK:1516129">
-									<EXP><![CDATA[$=$ShapeList[LinkIndex].family]]></EXP>
-									<CASEGROUP Id="RDK:1516131" CaseType="0">
-										<EXP><![CDATA[$C$Kreisel]]></EXP>
-										<GROUP Id="RDK:1516152" Name="Group" SubType="Generic">
-											<VALUECONDITION Value="false">
-												<EXP><![CDATA[$=$ShapeList[LinkIndex].KreiselDefinition.Hoehe = InheritHeightData.NewHoehe]]></EXP>
-											</VALUECONDITION>
-											<SET Id="RDK:1502785" VarRef="ShapeList[LinkIndex].text" Suppressed="True">
-												<EXP><![CDATA[$C$Gelb]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<SET Id="RDK:18768027" VarRef="ShapeList[LinkIndex].lineColor" Suppressed="True">
-												<EXP><![CDATA[$C$orange]]></EXP>
-												<PAR Name="AdvancedOptions" />
-											</SET>
-											<CALLFUNCTION Id="RDK:19360766">
-												<PAR Name="FuncName">
-													<EXP><![CDATA[$C$SetStatus_Undef]]></EXP>
-												</PAR>
-												<PAR Name="InputExp">
-													<EXP><![CDATA[$=$Link]]></EXP>
-												</PAR>
-												<PAR Name="ResultRef">
-													<EXP><![CDATA[$V$]]></EXP>
-												</PAR>
-												<PAR Name="Options" />
-											</CALLFUNCTION>
-										</GROUP>
-									</CASEGROUP>
-								</SELECTCASE>
-							</GROUP>
-						</FOREACHLOOP>
-					</GROUP>
 					<GROUP Id="RDK:19787372" Name="Set KreiselHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
 						<FOREACHLOOP Id="RDK:19787371" ItemVarRef="TempKreiselLink">
 							<PAR Name="ArrayValueExp">
@@ -9199,9 +8030,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 								<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>
@@ -9275,10 +8103,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							</FOREACHLOOP>
 						</FOREACHLOOP>
 					</GROUP>
-					<SET Id="RDK:18768030" VarRef="ShapeList[TempIndex].lineColor" Suppressed="True">
-						<EXP><![CDATA[$C$#f33256]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
 					<GROUP Id="RDK:19839574" Name="Set DirectConnHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
 						<FOREACHLOOP Id="RDK:19841614" ItemVarRef="Link">
 							<PAR Name="ArrayValueExp">
@@ -9352,10 +8176,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 							</IFTHENELSE>
 						</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>
 			</FUNCTION>
 			<GROUP Id="RDK:314269" Name="MUI" SubType="FunctionSet" IncludeDate="0">
@@ -12804,6 +11624,15 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></EXP>
 											</PAR>
+											<PAR Name="id" />
+											<PAR Name="x_S" />
+											<PAR Name="x" />
+											<PAR Name="y" />
+											<PAR Name="z" />
+											<PAR Name="direction" />
+											<PAR Name="linkClass" />
+											<PAR Name="label" />
+											<PAR Name="aktiv" />
 										</EXEC_ON_VALUES>
 									</GROUP>
 									<GROUP Id="RDK:607197" Name="Spannstation" SubType="Generic">
@@ -12821,6 +11650,15 @@ ShapeTotalLength
 me.x
 ))-(Shape_Prototype.KreiselDefinition.Durchmesser/2)]]></EXP>
 											</PAR>
+											<PAR Name="id" />
+											<PAR Name="x_M" />
+											<PAR Name="x" />
+											<PAR Name="y" />
+											<PAR Name="z" />
+											<PAR Name="direction" />
+											<PAR Name="linkClass" />
+											<PAR Name="label" />
+											<PAR Name="aktiv" />
 										</EXEC_ON_VALUES>
 									</GROUP>
 								</GROUP>