From 8a8b64588377978df97af275cce44ce47d0d730a Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 25 Jul 2024 18:51:30 +0200
Subject: [PATCH] =?UTF-8?q?Pattern=20werden=20erzeugt.=20Verkn=C3=BCpfung?=
 =?UTF-8?q?=20und=20Cases=20f=C3=BCr=20gedrehte=20Elemente=20fehlen=20noch?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 443 ++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 297 insertions(+), 146 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 60d61f5..098be85 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="m.stangl [ENTW-NB08]" ModDate="2024-07-25T17:41:51" LanguageVersion="2014.1.3.680" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-07-25T18:50:49" LanguageVersion="2014.1.3.680" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -17,7 +17,7 @@
 					<FIELD Id="RDK:313476" Name="label" Type="string" />
 					<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:20734830" Name="SSGConnectionPointPairs" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:20734830" Name="SSGConnectionPointPairs" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:20734820" Name="idM" Type="string" DesignTimeRemark="id of point on the motor side" />
 					<FIELD Id="RDK:20734832" Name="idS" Type="string" DesignTimeRemark="id of point on the motor side" />
@@ -15708,6 +15708,7 @@ me.x
 				<GROUP Id="RDK:20733289" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:20734874" Name="cpId_1" Type="string" />
 					<VAR Id="RDK:20734876" Name="cpId_2" Type="string" />
+					<VAR Id="RDK:20741434" Name="orientierung" Type="string" />
 					<VAR Id="RDK:20734789" Name="CpointsKreisel1" Type="SSGConnectionPoint[]" />
 					<VAR Id="RDK:20734791" Name="CpointsKreisel2" Type="SSGConnectionPoint[]" />
 					<VAR Id="RDK:20738427" Name="idx1" Type="integer" />
@@ -15733,6 +15734,10 @@ me.x
 					<EXP><![CDATA[$=$Param.Input["key=cp2"].Str]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<SET Id="RDK:20741432" VarRef="orientierung">
+					<EXP><![CDATA[$=$Param.Input["key=orientierung"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
 				<COMMENTS Id="RDK:20734795" DesignTimeRemark="daraus die Connection points welche auf den jeweiligen Innenseiten der Kreisel liegen" />
 				<IFTHENELSE Id="RDK:20734763">
 					<VALUECONDITION Value="true">
@@ -15845,7 +15850,7 @@ me.x
 					<EXP><![CDATA[$=$CpointsKreisel1[0]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<FOREACHLOOP Id="RDK:20738451" ItemVarRef="SinglePoint" CountVarRef="cycleCounter1">
+				<FOREACHLOOP Id="RDK:20738451" ItemVarRef="SinglePoint">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$CpointsKreisel1]]></EXP>
 					</PAR>
@@ -15878,7 +15883,7 @@ me.x
 					<EXP><![CDATA[$=$CpointsKreisel2[0]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<FOREACHLOOP Id="RDK:20738452" ItemVarRef="SinglePoint" CountVarRef="cycleCounter2">
+				<FOREACHLOOP Id="RDK:20738452" ItemVarRef="SinglePoint">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$CpointsKreisel2]]></EXP>
 					</PAR>
@@ -15900,7 +15905,7 @@ me.x
 						<GROUP Id="RDK:20738523" SubType="Else">
 							<LIST_ADD Id="RDK:20738522" ListRef="distances2">
 								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$SinglePoint.x_S - FirstPoint2.x_S]]></EXP>
+									<EXP><![CDATA[$=$Abs(SinglePoint.x_S - FirstPoint2.x_S)]]></EXP>
 								</PAR>
 								<PAR Name="POS_TO_ADD" />
 							</LIST_ADD>
@@ -15911,31 +15916,111 @@ me.x
 				<GROUP Id="RDK:20738578" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:20734808" Name="cp_pairs" Type="SSGConnectionPointPairs[]" />
 					<VAR Id="RDK:20734846" Name="pair" Type="SSGConnectionPointPairs" />
+					<VAR Id="RDK:20738586" Name="P1" Type="SSGConnectionPoint" />
+					<VAR Id="RDK:20738588" Name="P2" Type="SSGConnectionPoint" />
+					<VAR Id="RDK:20738600" Name="d1" Type="double" />
+					<VAR Id="RDK:20738602" Name="d2" Type="double" />
+					<VAR Id="RDK:20741455" Name="dirX" Type="string" />
+					<VAR Id="RDK:20741457" Name="dirY" Type="string" />
 				</GROUP>
-				<FOREACHLOOP Id="RDK:20738412" ItemVarRef="SinglePoint" CountVarRef="cycleCounter1">
+				<IFTHENELSE Id="RDK:20741448">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$orientierung = 0]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:20741447" SubType="Then">
+						<SET Id="RDK:20741459" VarRef="dirX">
+							<EXP><![CDATA[$=$1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:20741464" VarRef="dirY">
+							<EXP><![CDATA[$=$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
+				<IFTHENELSE Id="RDK:20741478">
+					<VALUECONDITION Value="true" Oper="OR">
+						<EXP><![CDATA[$=$orientierung =90]]></EXP>
+					</VALUECONDITION>
+					<GROUP Id="RDK:20741477" SubType="Then">
+						<SET Id="RDK:20741475" VarRef="dirX">
+							<EXP><![CDATA[$=$0]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SET Id="RDK:20741476" VarRef="dirY">
+							<EXP><![CDATA[$=$1]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</GROUP>
+				</IFTHENELSE>
+				<FOREACHLOOP Id="RDK:20738412" ItemVarRef="P1" IndexVarRef="idx1">
 					<PAR Name="ArrayValueExp">
 						<EXP><![CDATA[$=$CpointsKreisel1]]></EXP>
 					</PAR>
 					<PAR Name="ExitCondExp">
 						<EXP><![CDATA[$V$]]></EXP>
 					</PAR>
-					<SET Id="RDK:20738423" VarRef="distances1[cycleCounter]">
-						<EXP><![CDATA[$=$CpointsKreisel1[cycleCounter1].xMorS1-SinglePoint.x_M ]]></EXP>
+					<IFTHENELSE Id="RDK:20738618" DesignTimeRemark="Die erste Distanz zu sich selbst ist immer 0">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$idx1 = 0]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20738630" SubType="Then">
+							<EXIT_PROCESS Id="RDK:20738635" BreakType="2" ExitStatus="0" />
+						</GROUP>
+					</IFTHENELSE>
+					<SET Id="RDK:20738423" VarRef="d1">
+						<EXP><![CDATA[$=$distances1[idx1]]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<FOREACHLOOP Id="RDK:20738429" ItemVarRef="SinglePoint" CountVarRef="cycleCounter2">
+					<FOREACHLOOP Id="RDK:20738429" ItemVarRef="P2" IndexVarRef="idx2">
 						<PAR Name="ArrayValueExp">
 							<EXP><![CDATA[$=$CpointsKreisel2]]></EXP>
 						</PAR>
 						<PAR Name="ExitCondExp">
 							<EXP><![CDATA[$V$]]></EXP>
 						</PAR>
-						<LIST_ADD Id="RDK:20738431" ListRef="cp_pairs">
-							<PAR Name="VALUE_TO_ADD">
-								<EXP><![CDATA[$=$pair]]></EXP>
-							</PAR>
-							<PAR Name="POS_TO_ADD" />
-						</LIST_ADD>
+						<IFTHENELSE Id="RDK:20738649" DesignTimeRemark="Die erste Distanz zu sich selbst ist immer 0">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$idx2 = 0]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:20738648" SubType="Then">
+								<EXIT_PROCESS Id="RDK:20738647" BreakType="2" ExitStatus="0" />
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:20738614" VarRef="d2">
+							<EXP><![CDATA[$=$distances2[idx2]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:20738594">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$d1 = d2]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:20738610" SubType="Then">
+								<SET_STRUCT Id="RDK:20738584" VarRef="pair" ClearAll="True">
+									<PAR Name="idM">
+										<EXP><![CDATA[$=$P1.id]]></EXP>
+									</PAR>
+									<PAR Name="idS">
+										<EXP><![CDATA[$=$P2.id]]></EXP>
+									</PAR>
+									<PAR Name="coord">
+										<EXP><![CDATA[$=$d1]]></EXP>
+									</PAR>
+									<PAR Name="direction_x">
+										<EXP><![CDATA[$C$dirX]]></EXP>
+									</PAR>
+									<PAR Name="direction_y">
+										<EXP><![CDATA[$C$dirY]]></EXP>
+									</PAR>
+								</SET_STRUCT>
+								<LIST_ADD Id="RDK:20738431" ListRef="cp_pairs">
+									<PAR Name="VALUE_TO_ADD">
+										<EXP><![CDATA[$=$pair]]></EXP>
+									</PAR>
+									<PAR Name="POS_TO_ADD" />
+								</LIST_ADD>
+							</GROUP>
+						</IFTHENELSE>
 					</FOREACHLOOP>
 				</FOREACHLOOP>
 				<SET Id="RDK:20734838" VarRef="Param.Result">
@@ -16099,6 +16184,7 @@ me.x
 					<GROUP Id="RDK:20689948" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:20689950" Name="shape_index" Type="string" />
 						<VAR Id="RDK:20733338" Name="newId" Type="string" />
+						<VAR Id="RDK:20741541" Name="orientierung" Type="string" />
 						<VAR Id="RDK:20689944" Name="shapeId_kreisel1" Type="string" />
 						<VAR Id="RDK:20689945" Name="shapeId_kreisel2" Type="string" />
 						<VAR Id="RDK:20689946" Name="shape_kreisel1" Type="Editor2DShapeType" />
@@ -16106,9 +16192,9 @@ me.x
 						<VAR Id="RDK:20725686" Name="cpId_1" Type="string" />
 						<VAR Id="RDK:20725688" Name="cpId_2" Type="string" />
 						<VAR Id="RDK:20725674" Name="UebergabeListe" Type="SSGParameter[]" />
-						<VAR Id="RDK:20733327" Name="Offsets" Type="SSGParameter[]" />
 						<VAR Id="RDK:20725709" Name="ResultListe" Type="string[]" />
 						<VAR Id="RDK:20734842" Name="cp_pairs" Type="SSGConnectionPointPairs[]" />
+						<VAR Id="RDK:20741506" Name="pair" Type="SSGConnectionPointPairs" />
 					</GROUP>
 					<CALLFUNCTION Id="RDK:20579087">
 						<PAR Name="FuncName">
@@ -16122,10 +16208,6 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
-					<SET Id="RDK:20579092" VarRef="Shape_Prototype">
-						<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
 					<COMMENTS Id="RDK:20689223" DesignTimeRemark="hole beide angebundenen Kreisel. Falls keine da sind, schluss" />
 					<IFTHENELSE Id="RDK:20719994">
 						<VALUECONDITION Value="true" Oper="OR">
@@ -16227,6 +16309,15 @@ me.x
 						<EXP><![CDATA[$=$ResultListe[0]]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
+					<COMMENTS Id="RDK:20741547" DesignTimeRemark="Ausrichtung der Kreisel mit übergeben" />
+					<SET Id="RDK:20741430" VarRef="Shape_Kreisel1">
+						<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1]]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:20741545" VarRef="orientierung">
+						<EXP><![CDATA[$=$Shape_Kreisel1.KreiselDefinition.OrientierungHV]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
 					<SET Id="RDK:20725731" VarRef="UebergabeListe">
 						<EXP><![CDATA[$C$NOTHING]]></EXP>
 						<PAR Name="AdvancedOptions" />
@@ -16275,6 +16366,17 @@ me.x
 						<PAR Name="Int" />
 						<PAR Name="Boo" />
 					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20741543" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$orientierung]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$orientierung]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
 					<CALLFUNCTION Id="RDK:20734805">
 						<PAR Name="FuncName">
 							<EXP><![CDATA[$C$FilterConnectionPointsToUse]]></EXP>
@@ -16287,134 +16389,183 @@ me.x
 						</PAR>
 						<PAR Name="Options" />
 					</CALLFUNCTION>
-					<SET Id="RDK:20733329" VarRef="Offsets">
-						<EXP><![CDATA[$C$NOTHING]]></EXP>
-						<PAR Name="AdvancedOptions" />
-					</SET>
-					<SET_STRUCT Id="RDK:20733331" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$x_offset]]></EXP>
+					<FOREACHLOOP Id="RDK:20741503" ItemVarRef="pair">
+						<PAR Name="ArrayValueExp">
+							<EXP><![CDATA[$=$cp_pairs]]></EXP>
 						</PAR>
-						<PAR Name="Str" />
-						<PAR Name="Dbl">
-							<EXP><![CDATA[$=$300]]></EXP>
+						<PAR Name="ExitCondExp">
+							<EXP><![CDATA[$V$]]></EXP>
 						</PAR>
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-					<SET_STRUCT Id="RDK:20733333" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
-						<PAR Name="Key">
-							<EXP><![CDATA[$C$y_offset]]></EXP>
-						</PAR>
-						<PAR Name="Str" />
-						<PAR Name="Dbl">
-							<EXP><![CDATA[$=$0]]></EXP>
-						</PAR>
-						<PAR Name="Int" />
-						<PAR Name="Boo" />
-					</SET_STRUCT>
-					<SELECTCASE Id="RDK:20579308">
-						<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
-						<CASEGROUP Id="RDK:20579229" CaseType="0">
-							<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-							<CALLFUNCTION Id="RDK:20722252">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$Offsets]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$newId]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<SET_STRUCT Id="RDK:20733335" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$newId]]></EXP>
-								</PAR>
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$newId]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<CALLFUNCTION Id="RDK:20733291">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-						</CASEGROUP>
-						<CASEGROUP Id="RDK:20579240" CaseType="0">
-							<EXP><![CDATA[$C$Foerderer]]></EXP>
-							<CALLFUNCTION Id="RDK:20725672">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$Offsets]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$newId]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<SET_STRUCT Id="RDK:20733342" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
-								<PAR Name="Key">
-									<EXP><![CDATA[$C$newId]]></EXP>
-								</PAR>
-								<PAR Name="Str">
-									<EXP><![CDATA[$=$newId]]></EXP>
-								</PAR>
-								<PAR Name="Dbl" />
-								<PAR Name="Int" />
-								<PAR Name="Boo" />
-							</SET_STRUCT>
-							<CALLFUNCTION Id="RDK:20733293">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-						</CASEGROUP>
-						<CASEGROUP Id="RDK:20579307" CaseType="1">
-							<EXP />
-							<ACTION_CALL Id="RDK:20579316" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
-								<PAR Name="RDLibraryName">
-									<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
-								</PAR>
-								<PAR Name="MsgText">
-									<EXP><![CDATA[$C$Mustern nur möglich für Förder und Gefällestrecke]]></EXP>
-								</PAR>
-								<PAR Name="MsgStyle">
-									<EXP><![CDATA[$C$-1]]></EXP>
-								</PAR>
-								<PAR Name="BtnLayout">
-									<EXP><![CDATA[$C$-1]]></EXP>
-								</PAR>
-								<PAR Name="MsgCaption" />
-								<PAR Name="BaloonType" />
-								<PAR Name="BtnPressed">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-							</ACTION_CALL>
-							<EXIT_PROCESS Id="RDK:20579318" BreakType="4" ExitStatus="0" />
-						</CASEGROUP>
-					</SELECTCASE>
+						<GROUP Id="RDK:20741504" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:20733327" Name="Offsets" Type="SSGParameter[]" />
+						</GROUP>
+						<SET Id="RDK:20733329" VarRef="Offsets">
+							<EXP><![CDATA[$C$NOTHING]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<IFTHENELSE Id="RDK:20741516">
+							<VALUECONDITION Value="true" Oper="OR">
+								<EXP><![CDATA[$=$orientierung = 0]]></EXP>
+							</VALUECONDITION>
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$orientierung = 180]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:20741515" SubType="Then">
+								<SET_STRUCT Id="RDK:20733331" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$x_offset]]></EXP>
+									</PAR>
+									<PAR Name="Str" />
+									<PAR Name="Dbl">
+										<EXP><![CDATA[$=$pair.coord]]></EXP>
+									</PAR>
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+								</SET_STRUCT>
+								<SET_STRUCT Id="RDK:20733333" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$y_offset]]></EXP>
+									</PAR>
+									<PAR Name="Str" />
+									<PAR Name="Dbl">
+										<EXP><![CDATA[$C$0]]></EXP>
+									</PAR>
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+								</SET_STRUCT>
+							</GROUP>
+							<GROUP Id="RDK:20741523" SubType="Else">
+								<SET_STRUCT Id="RDK:20741525" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$x_offset]]></EXP>
+									</PAR>
+									<PAR Name="Str" />
+									<PAR Name="Dbl">
+										<EXP><![CDATA[$C$0]]></EXP>
+									</PAR>
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+								</SET_STRUCT>
+								<SET_STRUCT Id="RDK:20741527" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$y_offset]]></EXP>
+									</PAR>
+									<PAR Name="Str" />
+									<PAR Name="Dbl">
+										<EXP><![CDATA[$=$pair.coord]]></EXP>
+									</PAR>
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+								</SET_STRUCT>
+							</GROUP>
+						</IFTHENELSE>
+						<SET Id="RDK:20579092" VarRef="Shape_Prototype">
+							<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<SELECTCASE Id="RDK:20579308">
+							<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
+							<CASEGROUP Id="RDK:20579229" CaseType="0">
+								<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
+								<CALLFUNCTION Id="RDK:20722252">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Offsets]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$newId]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<SET_STRUCT Id="RDK:20733335" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$newId]]></EXP>
+									</PAR>
+									<PAR Name="Str">
+										<EXP><![CDATA[$=$newId]]></EXP>
+									</PAR>
+									<PAR Name="Dbl" />
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+								</SET_STRUCT>
+								<CALLFUNCTION Id="RDK:20733291">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:20579240" CaseType="0">
+								<EXP><![CDATA[$C$Foerderer]]></EXP>
+								<CALLFUNCTION Id="RDK:20725672">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$Offsets]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$newId]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+								<SET_STRUCT Id="RDK:20733342" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+									<PAR Name="Key">
+										<EXP><![CDATA[$C$newId]]></EXP>
+									</PAR>
+									<PAR Name="Str">
+										<EXP><![CDATA[$=$newId]]></EXP>
+									</PAR>
+									<PAR Name="Dbl" />
+									<PAR Name="Int" />
+									<PAR Name="Boo" />
+								</SET_STRUCT>
+								<CALLFUNCTION Id="RDK:20733293">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</CASEGROUP>
+							<CASEGROUP Id="RDK:20579307" CaseType="1">
+								<EXP />
+								<ACTION_CALL Id="RDK:20579316" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
+									<PAR Name="RDLibraryName">
+										<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+									</PAR>
+									<PAR Name="MsgText">
+										<EXP><![CDATA[$C$Mustern nur möglich für Förder und Gefällestrecke]]></EXP>
+									</PAR>
+									<PAR Name="MsgStyle">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="BtnLayout">
+										<EXP><![CDATA[$C$-1]]></EXP>
+									</PAR>
+									<PAR Name="MsgCaption" />
+									<PAR Name="BaloonType" />
+									<PAR Name="BtnPressed">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+								</ACTION_CALL>
+								<EXIT_PROCESS Id="RDK:20579318" BreakType="4" ExitStatus="0" />
+							</CASEGROUP>
+						</SELECTCASE>
+					</FOREACHLOOP>
 				</FOREACHLOOP>
 			</FUNCTION>
 			<FUNCTION Id="RDK:1516909" Name="CSVExport" Bookmarked="True">