From 61a5ef00c6d8416e01fdb93334f382e103b3b644 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 29 Oct 2024 19:04:38 +0100
Subject: [PATCH] =?UTF-8?q?setHeight=20Funktion=20modifiziert=20um=20auch?=
 =?UTF-8?q?=20die=20Z-Koordinate=20richtig=20zu=20bef=C3=BCllen.=20Dabei?=
 =?UTF-8?q?=20Angabe=20von=20'label'=20nicht=20f=C3=BCr=20Eckrad=20und=20K?=
 =?UTF-8?q?reisel=20n=C3=B6tig.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 306 ++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 227 insertions(+), 79 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index a6025e7..ea89854 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-10-28T17:03:14" LanguageVersion="2014.1.3.699" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-29T15:41:51" LanguageVersion="2014.1.3.699" />
 	<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">
@@ -21572,12 +21572,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</VAR>
-					<VAR Id="RDK:19595237" Name="label" Type="string">
-						<SET Id="RDK:19595243" VarRef="Me">
-							<EXP><![CDATA[$=$Param.Input["key=Label"].Str]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-					</VAR>
 					<VAR Id="RDK:19595238" Name="hoehe" Type="double">
 						<SET Id="RDK:19595245" VarRef="Me">
 							<EXP><![CDATA[$=$Param.Input["key=Hoehe"].Dbl]]></EXP>
@@ -21590,7 +21584,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</VAR>
-					<VAR Id="RDK:19937383" Name="isDefined" Type="boolean" />
 				</GROUP>
 				<SELECTCASE Id="RDK:19595360">
 					<EXP><![CDATA[$=$shape_item.family]]></EXP>
@@ -21604,27 +21597,51 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							<EXP><![CDATA[$=$hoehe]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
+						<EXIT_PROCESS Id="RDK:21920414" BreakType="4" ExitStatus="0" />
 					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595362" CaseType="0">
+					<CASEGROUP Id="RDK:19595375" CaseType="0">
+						<EXP><![CDATA[$C$Eckrad]]></EXP>
+						<SET Id="RDK:19943522" VarRef="ShapeList[&quot;id=&quot;+shapeId].EckradDefinition.Hoehe">
+							<EXP><![CDATA[$=$hoehe]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:21911259" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+							<EXP><![CDATA[$=$hoehe]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<EXIT_PROCESS Id="RDK:21920416" BreakType="4" ExitStatus="0" />
+					</CASEGROUP>
+				</SELECTCASE>
+				<GROUP Id="RDK:21920412" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:21920406" Name="label" Type="string">
+						<SET Id="RDK:21920405" VarRef="Me">
+							<EXP><![CDATA[$=$Param.Input["key=Label"].Str]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+				</GROUP>
+				<SELECTCASE Id="RDK:21920392">
+					<EXP><![CDATA[$=$shape_item.family]]></EXP>
+					<CASEGROUP Id="RDK:21920357" CaseType="0">
 						<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-						<IFTHENELSE Id="RDK:19595387">
+						<IFTHENELSE Id="RDK:21920355">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$label="cp1"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:19595384" SubType="Then">
-								<SET Id="RDK:19595383" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheOben">
+							<GROUP Id="RDK:21920352" SubType="Then">
+								<SET Id="RDK:21920351" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheOben">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
-							<GROUP Id="RDK:19595386" SubType="Else">
-								<SET Id="RDK:19595385" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheUnten">
+							<GROUP Id="RDK:21920354" SubType="Else">
+								<SET Id="RDK:21920353" VarRef="ShapeList[&quot;id=&quot;+shapeId].GefaelleDefinition.HoeheUnten">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<CALLFUNCTION Id="RDK:19595391">
+						<CALLFUNCTION Id="RDK:21920356">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
 							</PAR>
@@ -21636,31 +21653,31 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
+						<SET Id="RDK:21921154" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId].GefaelleDefinition.HoeheOben/2 + ShapeList["id="+shapeId].GefaelleDefinition.HoeheUnten/2]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
 					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595364" CaseType="0">
+					<CASEGROUP Id="RDK:21920366" CaseType="0">
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
-						<IFTHENELSE Id="RDK:19595403">
+						<IFTHENELSE Id="RDK:21920362">
 							<VALUECONDITION Value="true">
 								<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">
+							<GROUP Id="RDK:21920359" SubType="Then">
+								<SET Id="RDK:21920358" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_1">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
-							<GROUP Id="RDK:19595402" SubType="Else">
-								<SET Id="RDK:19595401" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_0">
+							<GROUP Id="RDK:21920361" SubType="Else">
+								<SET Id="RDK:21920360" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.H_0">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-						<SET Id="RDK:19595407" VarRef="Shape_Prototype" Suppressed="True">
-							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
-							<PAR Name="AdvancedOptions" />
-						</SET>
-						<CALLFUNCTION Id="RDK:19595409" Suppressed="True">
+						<CALLFUNCTION Id="RDK:21920364" Suppressed="True">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$Calculate Foerderer]]></EXP>
 							</PAR>
@@ -21670,84 +21687,85 @@ ShapeList["id="+Param.Input[1].shapeID].name
 							</PAR>
 							<PAR Name="Options" />
 						</CALLFUNCTION>
-						<SET Id="RDK:19943514" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+						<SET Id="RDK:21920365" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
 							<EXP><![CDATA[$=$ShapeList["id="+shapeId].FoerdererDefinition.H_1/2 + ShapeList["id="+shapeId].FoerdererDefinition.H_0/2]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595347" CaseType="0">
+					<CASEGROUP Id="RDK:21920375" CaseType="0">
 						<EXP><![CDATA[$C$Kurve]]></EXP>
-						<IFTHENELSE Id="RDK:21615573" DesignTimeRemark="Hier kommen wir vom Ende der Kurve, bzw. setzen die Höhe des Endes">
+						<IFTHENELSE Id="RDK:21920373" DesignTimeRemark="Hier kommen wir vom Ende der Kurve, bzw. setzen die Höhe des Endes">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$label="cp2"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:21615570" SubType="Then">
-								<SET Id="RDK:21615569" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Ende">
+							<GROUP Id="RDK:21920369" SubType="Then">
+								<SET Id="RDK:21920367" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Ende">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:21733729" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Anfang">
+								<SET Id="RDK:21920368" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Anfang">
 									<EXP><![CDATA[$=$hoehe + KurveData_defaults.Delta_h]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
-							<GROUP Id="RDK:21615572" SubType="Else">
-								<SET Id="RDK:21733737" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Anfang">
+							<GROUP Id="RDK:21920372" SubType="Else">
+								<SET Id="RDK:21920370" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Anfang">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:21615571" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Ende">
+								<SET Id="RDK:21920371" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_Ende">
 									<EXP><![CDATA[$=$hoehe - KurveData_defaults.Delta_h]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
+						<SET Id="RDK:21920374" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveDefinition.H_Anfang/2 + ShapeList["id="+shapeId].KurveDefinition.H_Ende/2]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
 					</CASEGROUP>
-					<CASEGROUP Id="RDK:21692400" CaseType="0">
+					<CASEGROUP Id="RDK:21920384" CaseType="0">
 						<EXP><![CDATA[$C$KurveFoerderer]]></EXP>
-						<IFTHENELSE Id="RDK:21692399">
+						<IFTHENELSE Id="RDK:21920382">
 							<VALUECONDITION Value="true">
 								<EXP><![CDATA[$=$label="cp1"]]></EXP>
 							</VALUECONDITION>
-							<GROUP Id="RDK:21692391" SubType="Then">
-								<SET Id="RDK:21692385" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Ende">
+							<GROUP Id="RDK:21920378" SubType="Then">
+								<SET Id="RDK:21920376" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Ende">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:21733741" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Anfang">
+								<SET Id="RDK:21920377" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Anfang">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
-							<GROUP Id="RDK:21692398" SubType="Else">
-								<SET Id="RDK:21692392" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Anfang">
+							<GROUP Id="RDK:21920381" SubType="Else">
+								<SET Id="RDK:21920379" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Anfang">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
-								<SET Id="RDK:21733743" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Ende">
+								<SET Id="RDK:21920380" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveFoerdererDefinition.H_Ende">
 									<EXP><![CDATA[$=$hoehe]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</GROUP>
 						</IFTHENELSE>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:21615555" CaseType="0">
-						<EXP><![CDATA[$C$Weiche]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595348" CaseType="0">
-						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595349" CaseType="0">
-						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
-					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595375" CaseType="0">
-						<EXP><![CDATA[$C$Eckrad]]></EXP>
-						<SET Id="RDK:19943522" VarRef="ShapeList[&quot;id=&quot;+shapeId].EckradDefinition.Hoehe">
-							<EXP><![CDATA[$=$hoehe]]></EXP>
+						<SET Id="RDK:21920383" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveFoerdererDefinition.H_Anfang/2 + ShapeList["id="+shapeId].KurveFoerdererDefinition.H_Ende/2]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</CASEGROUP>
-					<CASEGROUP Id="RDK:19595359" CaseType="1">
+					<CASEGROUP Id="RDK:21920385" CaseType="0">
+						<EXP><![CDATA[$C$Weiche]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:21920386" CaseType="0">
+						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:21920387" CaseType="0">
+						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
+					</CASEGROUP>
+					<CASEGROUP Id="RDK:21920391" CaseType="1">
 						<EXP />
 					</CASEGROUP>
 				</SELECTCASE>
@@ -22102,7 +22120,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<VAR Id="RDK:19866005" Name="shapeList_idx_1" Type="integer" />
 					<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:19664798" Name="cps_verbunden" Type="string[]" />
@@ -22133,6 +22150,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$=$(item_0.family="Kreisel" and item_1.family="Gefaellestrecke") or
 (item_1.family="Kreisel" and item_0.family="Gefaellestrecke") ]]></EXP>
 					</VALUECONDITION>
+					<COMMENTS Id="RDK:21921140" DesignTimeRemark="Kreisel-Gefaellestrecke" />
 					<IFTHENELSE Id="RDK:1773568">
 						<VALUECONDITION Value="true">
 							<EXP><![CDATA[$=$item_0.family="Kreisel"]]></EXP>
@@ -22266,6 +22284,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<EXP><![CDATA[$=$(item_0.family="Kreisel" and item_1.family="Foerderer") or
 (item_1.family="Kreisel" and item_0.family="Foerderer")]]></EXP>
 					</VALUECONDITION>
+					<COMMENTS Id="RDK:21921150" DesignTimeRemark="Kreisel-Foerderer" />
 					<IFTHENELSE Id="RDK:19545805">
 						<VALUECONDITION Value="true">
 							<EXP><![CDATA[$=$item_0.family="Kreisel"]]></EXP>
@@ -22293,6 +22312,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
 							</SET_STRUCT>
 							<SET_STRUCT Id="RDK:19690509" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
@@ -22400,50 +22420,175 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<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>
+					<SET_STRUCT Id="RDK:21911253" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$ShapeId]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<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:21911243" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<PAR Name="Str" />
+						<PAR Name="Dbl">
+							<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<CALLFUNCTION Id="RDK:21911251">
+						<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>
 				</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>
+					<SET_STRUCT Id="RDK:21911241" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$ShapeId]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<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:21911247" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<PAR Name="Str" />
+						<PAR Name="Dbl">
+							<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<CALLFUNCTION Id="RDK:21911245">
+						<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>
 				</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>
+					<SET_STRUCT Id="RDK:21911235" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$ShapeId]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<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:21911237" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<PAR Name="Str" />
+						<PAR Name="Dbl">
+							<EXP><![CDATA[$=$item_1.KreiselDefinition.Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<CALLFUNCTION Id="RDK:21911239">
+						<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>
 				</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>
+					<SET_STRUCT Id="RDK:21911229" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$ShapeId]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<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:21911231" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="StrArr" />
+						<PAR Name="Str" />
+						<PAR Name="Dbl">
+							<EXP><![CDATA[$=$item_1.EckradDefinition.Hoehe]]></EXP>
+						</PAR>
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<CALLFUNCTION Id="RDK:21911233">
+						<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>
 				</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>
+					<COMMENTS Id="RDK:21921126" DesignTimeRemark="Eckrad-Gefaellestrecke" />
 					<IFTHENELSE Id="RDK:19762258">
 						<VALUECONDITION Value="true">
 							<EXP><![CDATA[$=$item_0.family="Eckrad"]]></EXP>
@@ -22460,6 +22605,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<PAR Name="Dbl" />
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
 							</SET_STRUCT>
 							<SET_STRUCT Id="RDK:19762246" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
@@ -22471,6 +22617,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								</PAR>
 								<PAR Name="Int" />
 								<PAR Name="Boo" />
+								<PAR Name="StrArr" />
 							</SET_STRUCT>
 							<SET_STRUCT Id="RDK:19762247" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
 								<PAR Name="Key">
@@ -22575,6 +22722,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 						<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:21921132" DesignTimeRemark="Eckrad-Foerderer" />
 					<IFTHENELSE Id="RDK:19762300">
 						<VALUECONDITION Value="true">
 							<EXP><![CDATA[$=$item_0.family="Eckrad"]]></EXP>