From 814eb08d472749ee749379a5117ea4339e385034 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Mon, 17 Jun 2024 10:25:05 +0200
Subject: [PATCH] SetHeightOnConnect allgemein formuliert; Neue FUnktion zum
 holen der Verbundenen Connectionpoints zweier Shapes

---
 MAIN_SSG.rdx | 774 ++++++++++++++++++++++++++++++---------------------
 1 file changed, 452 insertions(+), 322 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index db00a50..909fffd 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-12T16:46:27" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T10:16:25" 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">
@@ -8685,18 +8685,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 																<EXP><![CDATA[$C$gray]]></EXP>
 																<PAR Name="AdvancedOptions" />
 															</SET>
-															<CALLFUNCTION Id="RDK:19452296">
-																<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:1350847" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
 																<EXP><![CDATA[$=$Param.Input.NewHoeheOben]]></EXP>
 																<PAR Name="AdvancedOptions" />
@@ -8736,6 +8724,18 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 																</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">
@@ -8754,18 +8754,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 																<EXP><![CDATA[$C$gray]]></EXP>
 																<PAR Name="AdvancedOptions" />
 															</SET>
-															<CALLFUNCTION Id="RDK:19452298">
-																<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:1350852" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
 																<EXP><![CDATA[$=$Param.Input.NewHoeheUnten]]></EXP>
 																<PAR Name="AdvancedOptions" />
@@ -8805,6 +8793,18 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 																</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>
@@ -8819,18 +8819,6 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 													<EXP><![CDATA[$C$gray]]></EXP>
 													<PAR Name="AdvancedOptions" />
 												</SET>
-												<CALLFUNCTION Id="RDK:19452300">
-													<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:1128711" VarRef="ShapeList[&quot;id=&quot; + Link].KreiselDefinition.Hoehe" Suppressed="True">
 													<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
 													<PAR Name="AdvancedOptions" />
@@ -8869,6 +8857,18 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
 													</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">
@@ -13607,7 +13607,7 @@ me.x
 								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+								<EXP><![CDATA[$V$]]></EXP>
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
@@ -13769,9 +13769,12 @@ me.x
 					<CASEGROUP Id="RDK:1606858" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 						<IFTHENELSE Id="RDK:18827017">
-							<VALUECONDITION Value="true">
+							<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:18827016" SubType="Then">
 								<CALLFUNCTION Id="RDK:18827004">
 									<PAR Name="FuncName">
@@ -13827,7 +13830,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13849,7 +13852,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13868,7 +13871,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13878,9 +13881,12 @@ me.x
 					<CASEGROUP Id="RDK:18221764" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
 						<IFTHENELSE Id="RDK:18895373">
-							<VALUECONDITION Value="true">
+							<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:18895372" SubType="Then">
 								<CALLFUNCTION Id="RDK:18221762" Suppressed="True">
 									<PAR Name="FuncName">
@@ -13921,7 +13927,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -13982,7 +13988,7 @@ me.x
 										<EXP><![CDATA[$=$Param.Input]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
-										<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
+										<EXP><![CDATA[$V$]]></EXP>
 									</PAR>
 									<PAR Name="Options" />
 								</CALLFUNCTION>
@@ -15660,7 +15666,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 						<IFTHENELSE Id="RDK:19595387">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$label="Oben"]]></EXP>
+								<EXP><![CDATA[$=$label="cp1"]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19595384" SubType="Then">
 								<SET Id="RDK:19595383" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheOben">
@@ -15692,7 +15698,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
 						<IFTHENELSE Id="RDK:19595403">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$label="H_1"]]></EXP>
+								<EXP><![CDATA[$=$label="cp1"]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19595400" SubType="Then">
 								<SET Id="RDK:19595399" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_1">
@@ -16055,49 +16061,91 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19710790" Name="GetCpsOfConnectedShapes" InputTypeName="SSGParameter[]" ResultTypeName="string[]">
+				<GROUP Id="RDK:19710792" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19710794" Name="cps_verbunden" Type="string[]" />
+					<VAR Id="RDK:19710802" Name="item_0" Type="Editor2DShapeType" />
+					<VAR Id="RDK:19710804" Name="item_1" Type="Editor2DShapeType" />
+					<VAR Id="RDK:1772345" Name="cpId_0" Type="string" />
+					<VAR Id="RDK:19664800" Name="cpId_1" Type="string" />
+				</GROUP>
+				<SET Id="RDK:19718915" VarRef="item_0">
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_0"].Str]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:19718917" VarRef="item_1">
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_1"].Str]]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<COMMENTS Id="RDK:19664796" DesignTimeRemark="Hole Connectionpoint IDs der beiden items, die jeweils an das andere item verbunden sind" />
+				<SET Id="RDK:19664801" VarRef="cpId_0" DesignTimeRemark="ConnectionPoint ID des item_0 bei dem die ShapeId des item_1 in ShapeItem.links vorkommt =&gt; Entspricht der CP ID des item_0, an dessen CP das item_1 angebunden ist">
+					<EXP><![CDATA[$=$StrBefore(ShapeList["id="+item_0.id].links[ListStrIndexOf(ShapeList["id="+item_0.id].links, "*"+item_1.id)], ";")]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:19664803" VarRef="cpId_1" DesignTimeRemark="ConnectionPoint ID des item_1 bei dem die ShapeId des item_0 in ShapeItem.links vorkommt =&gt; Entspricht der CP ID des item_1, an dessen CP das item_0 angebunden ist:" DesignTimeTip="Beispiel .links eines Kreisel mit zwei angebundenen Gefällestrecken: LIST { &quot;ncp2M_G;shape_d685b745-a229-d5db-795e-fcfaac2c10e2&quot;, &quot;ncp2S_G;shape_6ce19f2b-f68a-bb8d-48fc-330f219e39ff&quot; }">
+					<EXP><![CDATA[$=$StrBefore(ShapeList["id="+item_1.id].links[ListStrIndexOf(ShapeList["id="+item_1.id].links, "*"+item_0.id)], ";")]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<LIST_ADD Id="RDK:19664806" ListRef="cps_verbunden">
+					<PAR Name="VALUE_TO_ADD">
+						<EXP><![CDATA[$=$cpId_0]]></EXP>
+					</PAR>
+					<PAR Name="POS_TO_ADD" />
+				</LIST_ADD>
+				<LIST_ADD Id="RDK:19664808" ListRef="cps_verbunden">
+					<PAR Name="VALUE_TO_ADD">
+						<EXP><![CDATA[$=$cpId_1]]></EXP>
+					</PAR>
+					<PAR Name="POS_TO_ADD" />
+				</LIST_ADD>
+				<SET Id="RDK:19710800" VarRef="Param.Result">
+					<EXP><![CDATA[$=$cps_verbunden]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+			</FUNCTION>
 			<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="SSGParameter[]" ResultTypeName="SSGParameter[]">
 				<GROUP Id="RDK:1772339" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:1772341" Name="item_0" Type="Editor2DShapeType" />
 					<VAR Id="RDK:1772343" Name="item_1" Type="Editor2DShapeType" />
-					<VAR Id="RDK:1772345" Name="cpId" Type="string" />
-					<VAR Id="RDK:1772347" Name="cp_kreiselpartner" Type="SSGConnectionPoint" />
+					<VAR Id="RDK:1772347" Name="cp_kreiselpartner" Type="Editor2DConnectionPointType" />
 					<VAR Id="RDK:1772349" Name="kreiselhoehe" Type="double" />
 					<VAR Id="RDK:19493734" Name="zielhoehe" Type="double" />
 					<VAR Id="RDK:1782656" Name="jsonValues" Type="string" />
 					<VAR Id="RDK:1783805" Name="UebergabeListe" Type="SSGParameter[]" />
-					<VAR Id="RDK:18374136" Name="RueckgabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:19664798" Name="cps_verbunden" Type="string[]" />
+					<VAR Id="RDK:19682385" Name="cp_0" Type="structure" />
 				</GROUP>
-				<SET Id="RDK:18396528" VarRef="Param.Result">
-					<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
-					<PAR Name="AdvancedOptions" />
-				</SET>
-				<SET Id="RDK:1707740" VarRef="item_0">
+				<SET Id="RDK:19710796" VarRef="item_0">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_0"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<SET Id="RDK:1707750" VarRef="item_1">
+				<SET Id="RDK:19710798" VarRef="item_1">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_1"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<CALLFUNCTION Id="RDK:19710799">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$Param.Input]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$cps_verbunden]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 				<GROUP Id="RDK:1698060" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
 					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$(ShapeList["id="+Param.Input[0].shapeID].family="Kreisel" and ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke") or
-(ShapeList["id="+Param.Input[1].shapeID].family="Kreisel" and ShapeList["id="+Param.Input[0].shapeID].family="Gefaellestrecke") ]]></EXP>
+						<EXP><![CDATA[$=$(item_0.family="Kreisel" and item_1.family="Gefaellestrecke") or
+(item_1.family="Kreisel" and item_0.family="Gefaellestrecke") ]]></EXP>
 					</VALUECONDITION>
 					<IFTHENELSE Id="RDK:1773568">
 						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel"]]></EXP>
+							<EXP><![CDATA[$=$item_0.family="Kreisel"]]></EXP>
 						</VALUECONDITION>
 						<GROUP Id="RDK:1773561" SubType="Then">
 							<COMMENTS Id="RDK:1773558" DesignTimeRemark="//Gefällestrecke Index == 1" />
-							<SET Id="RDK:1802719" VarRef="cpId">
-								<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:1802721" VarRef="kreiselhoehe">
-								<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
 							<SET_STRUCT Id="RDK:1802729" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
@@ -16115,21 +16163,17 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Str" />
 								<PAR Name="Dbl">
-									<EXP><![CDATA[$=$kreiselhoehe]]></EXP>
+									<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET Id="RDK:18792296" VarRef="cp_kreiselpartner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
-								<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
 							<SET_STRUCT Id="RDK:18792298" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Label]]></EXP>
 								</PAR>
 								<PAR Name="Str">
-									<EXP><![CDATA[$=$cp_kreiselpartner.label]]></EXP>
+									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
 								</PAR>
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
@@ -16147,39 +16191,21 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Options" />
 							</CALLFUNCTION>
-							<SET_STRUCT Id="RDK:18374138" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$ShapeId]]></EXP>
+							<CALLFUNCTION Id="RDK:19751382">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
 								</PAR>
-								<PAR Name="Str">
+								<PAR Name="InputExp">
 									<EXP><![CDATA[$=$item_1.id]]></EXP>
 								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:18374142" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
 						</GROUP>
 						<GROUP Id="RDK:1773567" SubType="Else">
 							<COMMENTS Id="RDK:1773562" DesignTimeRemark="//Gefällestrecke Index == 0" />
-							<SET Id="RDK:1773563" VarRef="cpId">
-								<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:1773564" VarRef="kreiselhoehe">
-								<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
 							<SET_STRUCT Id="RDK:18792320" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
@@ -16197,21 +16223,17 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Str" />
 								<PAR Name="Dbl">
-									<EXP><![CDATA[$=$kreiselhoehe]]></EXP>
+									<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET Id="RDK:18792309" VarRef="cp_kreiselpartner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
-								<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[0].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
 							<SET_STRUCT Id="RDK:18792310" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Label]]></EXP>
 								</PAR>
 								<PAR Name="Str">
-									<EXP><![CDATA[$=$cp_kreiselpartner.label]]></EXP>
+									<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
 								</PAR>
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
@@ -16229,51 +16251,33 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Options" />
 							</CALLFUNCTION>
-							<SET_STRUCT Id="RDK:18374140" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$ShapeId]]></EXP>
+							<CALLFUNCTION Id="RDK:19751384">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
 								</PAR>
-								<PAR Name="Str">
+								<PAR Name="InputExp">
 									<EXP><![CDATA[$=$item_0.id]]></EXP>
 								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:18374144" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
 						</GROUP>
 					</IFTHENELSE>
 				</GROUP>
 				<GROUP Id="RDK:19545806" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
 					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$(ShapeList["id="+Param.Input[0].shapeID].family="Kreisel" and ShapeList["id="+Param.Input[1].shapeID].family="Foerderer") or
-(ShapeList["id="+Param.Input[1].shapeID].family="Kreisel" and ShapeList["id="+Param.Input[0].shapeID].family="Foerderer")]]></EXP>
+						<EXP><![CDATA[$=$(item_0.family="Kreisel" and item_1.family="Foerderer") or
+(item_1.family="Kreisel" and item_0.family="Foerderer")]]></EXP>
 					</VALUECONDITION>
 					<IFTHENELSE Id="RDK:19545805">
 						<VALUECONDITION Value="true">
-							<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel"]]></EXP>
+							<EXP><![CDATA[$=$item_0.family="Kreisel"]]></EXP>
 						</VALUECONDITION>
 						<GROUP Id="RDK:19545787" SubType="Then">
 							<COMMENTS Id="RDK:19545771" DesignTimeRemark="//Förderer Index == 1" />
-							<SET Id="RDK:19545772" VarRef="cpId">
-								<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:19545773" VarRef="kreiselhoehe">
-								<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET_STRUCT Id="RDK:19545774" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<SET_STRUCT Id="RDK:19690505" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
 								</PAR>
@@ -16284,27 +16288,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:19545775" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<SET_STRUCT Id="RDK:19690507" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Hoehe]]></EXP>
 								</PAR>
 								<PAR Name="Str" />
 								<PAR Name="Dbl">
-									<EXP><![CDATA[$=$kreiselhoehe]]></EXP>
+									<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET Id="RDK:19545776" VarRef="cp_kreiselpartner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
-								<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET_STRUCT Id="RDK:19545777" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<SET_STRUCT Id="RDK:19690509" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Label]]></EXP>
 								</PAR>
 								<PAR Name="Str">
-									<EXP><![CDATA[$=$cp_kreiselpartner.label]]></EXP>
+									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
 								</PAR>
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
@@ -16322,40 +16322,22 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Options" />
 							</CALLFUNCTION>
-							<SET_STRUCT Id="RDK:19545785" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$ShapeId]]></EXP>
+							<CALLFUNCTION Id="RDK:19751388">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
 								</PAR>
-								<PAR Name="Str">
+								<PAR Name="InputExp">
 									<EXP><![CDATA[$=$item_1.id]]></EXP>
 								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:19545786" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
 								</PAR>
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$item_0.KreiselDefinition.Hoehe]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
 						</GROUP>
 						<GROUP Id="RDK:19545804" SubType="Else">
 							<COMMENTS Id="RDK:19545788" DesignTimeRemark="//Förderer Index == 0" />
-							<SET Id="RDK:19545789" VarRef="cpId">
-								<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET Id="RDK:19545790" VarRef="kreiselhoehe">
-								<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET_STRUCT Id="RDK:19545791" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<SET_STRUCT Id="RDK:19690503" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
 								</PAR>
@@ -16366,27 +16348,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:19545792" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<SET_STRUCT Id="RDK:19690501" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Hoehe]]></EXP>
 								</PAR>
 								<PAR Name="Str" />
 								<PAR Name="Dbl">
-									<EXP><![CDATA[$=$kreiselhoehe]]></EXP>
+									<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET Id="RDK:19545793" VarRef="cp_kreiselpartner" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
-								<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[0].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
-							<SET_STRUCT Id="RDK:19545794" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+							<SET_STRUCT Id="RDK:19690499" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Label]]></EXP>
 								</PAR>
 								<PAR Name="Str">
-									<EXP><![CDATA[$=$cp_kreiselpartner.label]]></EXP>
+									<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
 								</PAR>
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
@@ -16404,7 +16382,137 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Options" />
 							</CALLFUNCTION>
-							<SET_STRUCT Id="RDK:19545802" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
+							<CALLFUNCTION Id="RDK:19751386">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+					</IFTHENELSE>
+				</GROUP>
+				<GROUP Id="RDK:19493690" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$item_0.family="Kreisel" and item_1.family="Kreisel"]]></EXP>
+					</VALUECONDITION>
+					<COMMENTS Id="RDK:19493720" DesignTimeRemark="Kreisel-Kreisel" />
+					<SET Id="RDK:19493737" VarRef="ShapeList[&quot;id=&quot;+item_0.id].KreiselDefinition.Hoehe">
+						<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</GROUP>
+				<GROUP Id="RDK:19503898" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$item_0.family="Kreisel" and item_1.family="Eckrad"]]></EXP>
+					</VALUECONDITION>
+					<COMMENTS Id="RDK:19503893" DesignTimeRemark="Kreisel-Eckrad" />
+					<SET Id="RDK:19503895" VarRef="ShapeList[&quot;id=&quot;+item_0.id].KreiselDefinition.Hoehe">
+						<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</GROUP>
+				<GROUP Id="RDK:19503918" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$item_0.family="Eckrad" and item_1.family="Kreisel"]]></EXP>
+					</VALUECONDITION>
+					<COMMENTS Id="RDK:19503913" DesignTimeRemark="Eckrad-Kreisel" />
+					<SET Id="RDK:19503915" VarRef="ShapeList[&quot;id=&quot;+item_0.id].EckradDefinition.Hoehe">
+						<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</GROUP>
+				<GROUP Id="RDK:19510033" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$item_0.family="Eckrad" and item_1.family="Eckrad"]]></EXP>
+					</VALUECONDITION>
+					<COMMENTS Id="RDK:19510028" DesignTimeRemark="Eckrad-Eckrad" />
+					<SET Id="RDK:19510029" VarRef="zielhoehe">
+						<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:19510030" VarRef="ShapeList[&quot;id=&quot;+item_0.id].EckradDefinition.Hoehe">
+						<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</GROUP>
+				<GROUP Id="RDK:19762259" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+					<VALUECONDITION Value="true">
+						<EXP><![CDATA[$=$(item_0.family="Eckrad" and item_1.family="Gefaellestrecke") or
+(item_1.family="Eckrad" and item_0.family="Gefaellestrecke") ]]></EXP>
+					</VALUECONDITION>
+					<IFTHENELSE Id="RDK:19762258">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$item_0.family="Eckrad"]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:19762250" SubType="Then">
+							<COMMENTS Id="RDK:19762244" DesignTimeRemark="//Gefällestrecke Index == 1" />
+							<SET_STRUCT Id="RDK:19762245" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762246" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_0.EckradDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762247" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:19762248">
+								<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:19762249">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+						<GROUP Id="RDK:19762257" SubType="Else">
+							<COMMENTS Id="RDK:19762251" DesignTimeRemark="//Gefällestrecke Index == 0" />
+							<SET_STRUCT Id="RDK:19762252" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$ShapeId]]></EXP>
 								</PAR>
@@ -16415,163 +16523,185 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
-							<SET_STRUCT Id="RDK:19545803" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
+							<SET_STRUCT Id="RDK:19762253" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
 									<EXP><![CDATA[$C$Hoehe]]></EXP>
 								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762254" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
 								<PAR Name="Str">
-									<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
+									<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
 								</PAR>
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
 							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:19762255">
+								<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:19762256">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
 						</GROUP>
 					</IFTHENELSE>
 				</GROUP>
-				<GROUP Id="RDK:19493690" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
+				<GROUP Id="RDK:19762301" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
 					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel" and ShapeList["id="+Param.Input[1].shapeID].family="Kreisel"]]></EXP>
+						<EXP><![CDATA[$=$(item_0.family="Eckrad" and item_1.family="Foerderer") or
+(item_1.family="Eckrad" and item_0.family="Foerderer")]]></EXP>
 					</VALUECONDITION>
-					<COMMENTS Id="RDK:19493720" DesignTimeRemark="Kreisel-Kreisel" />
-					<SET Id="RDK:19493728" VarRef="zielhoehe">
-						<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:19493737" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].KreiselDefinition.Hoehe">
-						<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET_STRUCT Id="RDK:19493739" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$ShapeId]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$item_0.id]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-					<SET_STRUCT Id="RDK:19493741" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$Hoehe]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-				</GROUP>
-				<GROUP Id="RDK:19503898" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
-					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel" and ShapeList["id="+Param.Input[1].shapeID].family="Eckrad"]]></EXP>
-					</VALUECONDITION>
-					<COMMENTS Id="RDK:19503893" DesignTimeRemark="Kreisel-Eckrad" />
-					<SET Id="RDK:19503894" VarRef="zielhoehe">
-						<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:19503895" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].KreiselDefinition.Hoehe">
-						<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET_STRUCT Id="RDK:19503896" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$ShapeId]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$item_0.id]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-					<SET_STRUCT Id="RDK:19503897" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$Hoehe]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-				</GROUP>
-				<GROUP Id="RDK:19503918" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
-					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Eckrad" and ShapeList["id="+Param.Input[1].shapeID].family="Kreisel"]]></EXP>
-					</VALUECONDITION>
-					<COMMENTS Id="RDK:19503913" DesignTimeRemark="Eckrad-Kreisel" />
-					<SET Id="RDK:19503914" VarRef="zielhoehe">
-						<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:19503915" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].EckradDefinition.Hoehe">
-						<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET_STRUCT Id="RDK:19503916" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$ShapeId]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$item_0.id]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-					<SET_STRUCT Id="RDK:19503917" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$Hoehe]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-				</GROUP>
-				<GROUP Id="RDK:19510033" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">
-					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Eckrad" and ShapeList["id="+Param.Input[1].shapeID].family="Eckrad"]]></EXP>
-					</VALUECONDITION>
-					<COMMENTS Id="RDK:19510028" DesignTimeRemark="Eckrad-Eckrad" />
-					<SET Id="RDK:19510029" VarRef="zielhoehe">
-						<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET Id="RDK:19510030" VarRef="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].EckradDefinition.Hoehe">
-						<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET_STRUCT Id="RDK:19510031" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$ShapeId]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$item_0.id]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-					<SET_STRUCT Id="RDK:19510032" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$Hoehe]]></EXP>
-						</PAR>
-						<PAR Name="Str">
-							<EXP><![CDATA[$=$zielhoehe]]></EXP>
-						</PAR>
-						<PAR Name="Dbl" />
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
+					<IFTHENELSE Id="RDK:19762300">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$item_0.family="Eckrad"]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:19762292" SubType="Then">
+							<COMMENTS Id="RDK:19762286" DesignTimeRemark="//Förderer Index == 1" />
+							<SET_STRUCT Id="RDK:19762287" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762288" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_0.EckradDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762289" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:19762290">
+								<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:19762291">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_1.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+						<GROUP Id="RDK:19762299" SubType="Else">
+							<COMMENTS Id="RDK:19762293" DesignTimeRemark="//Förderer Index == 0" />
+							<SET_STRUCT Id="RDK:19762294" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$ShapeId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762295" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Str" />
+								<PAR Name="Dbl">
+									<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+								</PAR>
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<SET_STRUCT Id="RDK:19762296" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$Label]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:19762297">
+								<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:19762298">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$SetStatus]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$item_0.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
+					</IFTHENELSE>
 				</GROUP>
 			</FUNCTION>
 			<FUNCTION Id="RDK:19287453" Name="SetColorOfShape" InputTypeName="SSGParameter[]" ResultTypeName="boolean">