RadiusC=Kante*3/4;
Strichdicke=8;
Kreisdicke=Strichdicke*1.5;
-Kachelnummer=93;
+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
// 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
+
+
+if (Kachelnummer==32)
+{
+ 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(RadiusC,"blue");
+ }
+};
// 33 rot: kleine Kurve schwarz: Kurve gen rot blau: Geradeaus Weiche
+if (Kachelnummer==33)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusB,"black");
+ translate ([0,-RadiusA,Hoehe-Kerbe]) CreateStraight(RadiusA,"blue");
+ }
+};
// 34 rot: kleine Kurve schwarz: Kurve gen rot blau: Endet Normalteil
+if (Kachelnummer==34)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+ translate ([-RadiusB,RadiusB,Hoehe-Kerbe]) CreateArch(RadiusB,"black");
+ translate ([-RadiusA,-RadiusA,Hoehe-Kerbe]) CreateEnd(RadiusA,"blue");
+ }
+};
// 35 rot: kleine Kurve schwarz: Kurve gen blau blau: Leer Gabel
// 36 rot: kleine Kurve schwarz: Kurve gen blau blau: kleine Kurve Gabel
// 39 rot: kleine Kurve schwarz: Kurve gen blau blau: Endet Gabel
// 48 rot: kleine Kurve schwarz: Endet blau: Geradeaus Weiche
// 49 rot: kleine Kurve schwarz: Endet blau: Endet Normalteil
// 50 rot: Große Kurve schwarz: Leer blau: Leer Normalteil
-// 51 rot: Große Kurve schwarz: Leer blau: kleine Kurve Normalteil
-// 60 rot: Große Kurve schwarz: Kurve gen blau blau: Leer Normalteil
-// 61 rot: Große Kurve schwarz: Kurve gen blau blau: kleine Kurve Normalteil
-
-
-
-if (Kachelnummer==32)
+if (Kachelnummer==50)
{
difference()
{
CreateTile("white");
- translate ([Kante/2,Kante/2,0]) CreateArch(RadiusA,"red");
- translate ([Kante/2,Kante/2,0]) CreateArch(RadiusB,"black");
- translate ([Kante/2,Kante/2,0]) CreateArch(RadiusC,"blue");
+ translate ([RadiusA*2,RadiusA*2,Hoehe-Kerbe]) CreateArch(RadiusC,"red");
}
};
-
+// 51 rot: Große Kurve schwarz: Leer blau: kleine Kurve Normalteil
+// 60 rot: Große Kurve schwarz: Kurve gen blau blau: Leer Normalteil
+// 61 rot: Große Kurve schwarz: Kurve gen blau blau: kleine Kurve Normalteil
if (Kachelnummer==61)
{
difference()
// 71 rot: Große Kurve schwarz: Endet blau: kleine Kurve Normalteil
// 75 rot: Geradeaus schwarz: Leer blau: Leer Normalteil
// 76 rot: Geradeaus schwarz: Leer blau: kleine Kurve Weiche
+if (Kachelnummer==76)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([0,RadiusA,Hoehe-Kerbe]) CreateStraight(RadiusA,"red");
+ translate ([-Kante/2,-Kante/2,Hoehe-Kerbe]) CreateArch(RadiusA,"blue");
+ }
+};
// 78 rot: Geradeaus schwarz: Leer blau: Geradeaus Normalteil
// 79 rot: Geradeaus schwarz: Leer blau: Endet Normalteil
// 86 rot: Geradeaus schwarz: Kurve gen blau blau: kleine Kurve Weiche
+if (Kachelnummer==86)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([0,RadiusA,Hoehe-Kerbe]) CreateStraight(RadiusA,"red");
+ translate ([-RadiusB,-RadiusB,Hoehe-Kerbe]) CreateArch(RadiusB,"black");
+ translate ([-Kante/2,-Kante/2,Hoehe-Kerbe]) CreateArch(RadiusA,"blue");
+ }
+};
// 90 rot: Geradeaus schwarz: Geradeaus blau: Leer Normalteil
+if (Kachelnummer==90)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([0,RadiusA,Hoehe-Kerbe]) CreateStraight(RadiusA,"red");
+ translate ([0,0,Hoehe-Kerbe]) CreateStraight(RadiusA,"black");
+ }
+};
+
// 91 rot: Geradeaus schwarz: Geradeaus blau: kleine Kurve Weiche
-// 92 rot: Geradeaus schwarz: Geradeaus blau: Große Kurve Normalteil
+if (Kachelnummer==91)
+{
+ difference()
+ {
+ CreateTile("white");
+ translate ([0,RadiusA,Hoehe-Kerbe]) CreateStraight(RadiusA,"red");
+ translate ([0,0,Hoehe-Kerbe]) CreateStraight(RadiusA,"black");
+ translate ([-Kante/2,-Kante/2,Hoehe-Kerbe]) CreateArch(RadiusA,"blue");
+ }
+};
// 93 rot: Geradeaus schwarz: Geradeaus blau: Geradeaus Normalteil
color(myColor) cube([Kante,Strichdicke*2, Hoehe], center=true);
};
-
</pre>