+Kreisdicke=Strichdicke*1.5;
+Kachelnummer=27;
+
+// Es fehlen noch die Teile, wo eine Farbe endet und eine andere beginnt.
+
+// 1 rot: Leer schwarz: Leer blau: kleine Kurve Normalteil
+// 2 rot: Leer schwarz: Leer blau: Große Kurve Normalteil
+// 3 rot: Leer schwarz: Leer blau: Geradeaus Normalteil
+// 4 rot: Leer schwarz: Leer blau: Endet Normalteil
+// 5 rot: Leer schwarz: Kurve gen rot blau: Leer Normalteil
+// 6 rot: Leer schwarz: Kurve gen rot blau: kleine Kurve Gabel
+// 7 rot: Leer schwarz: Kurve gen rot blau: Große Kurve Normalteil
+// 8 rot: Leer schwarz: Kurve gen rot blau: Geradeaus Weiche
+// 9 rot: Leer schwarz: Kurve gen rot blau: Endet Normalteil
+// 10 rot: Leer schwarz: Kurve gen blau blau: Leer Normalteil
+// 11 rot: Leer schwarz: Kurve gen blau blau: kleine Kurve Normalteil
+// 15 rot: Leer schwarz: Geradeaus blau: Leer Normalteil
+// 16 rot: Leer schwarz: Geradeaus blau: kleine Kurve Weiche
+// 18 rot: Leer schwarz: Geradeaus blau: Geradeaus Normalteil
+// 19 rot: Leer schwarz: Geradeaus blau: Endet Normalteil
+// 20 rot: Leer schwarz: Endet blau: Leer Normalteil
+// 21 rot: Leer schwarz: Endet blau: kleine Kurve Normalteil
+// 23 rot: Leer schwarz: Endet blau: Geradeaus Normalteil
+// 25 rot: kleine Kurve schwarz: Leer blau: Leer Normalteil
+// 26 rot: kleine Kurve schwarz: Leer blau: kleine Kurve Weiche
+// 27 rot: kleine Kurve schwarz: Leer blau: Große Kurve Normalteil
+if (Kachelnummer==27)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusC,"blue");
+ }
+};
+// 28 rot: kleine Kurve schwarz: Leer blau: Geradeaus Weiche
+if (Kachelnummer==28)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([0,-RadiusA,Hoehe-Kerbe]) CreateStraight(RadiusA,"blue");
+ }
+};
+// 29 rot: kleine Kurve schwarz: Leer blau: Endet Normalteil
+if (Kachelnummer==29)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([-RadiusA,-RadiusA,Hoehe-Kerbe]) CreateEnd(RadiusA,"blue");
+ }
+};
+// 30 rot: kleine Kurve schwarz: Kurve gen rot blau: Leer Normalteil
+if (Kachelnummer==30)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusB,"black");
+ }
+};
+// 31 rot: kleine Kurve schwarz: Kurve gen rot blau: kleine Kurve Gabel
+if (Kachelnummer==31)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusB,"black");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"blue");
+ }
+};
+// 32 rot: kleine Kurve schwarz: Kurve gen rot blau: Große Kurve Normalteil
+