/* Parameter für verschiedene Werkstoffe */

[stratum0-wiki.git] / Gesellschaftsspiel-Replikator%2FConnect_V1.mw

diff --git a/Gesellschaftsspiel-Replikator%2FConnect_V1.mw b/Gesellschaftsspiel-Replikator%2FConnect_V1.mw
index da5e7e6..a41c771 100644 (file)
--- a/Gesellschaftsspiel-Replikator%2FConnect_V1.mw
+++ b/Gesellschaftsspiel-Replikator%2FConnect_V1.mw
@@ -14,8 +14,9 @@ RadiusB=Kante*2/4;
 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
@@ -38,13 +39,91 @@ Kachelnummer=93;
 //     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
@@ -56,23 +135,17 @@ Kachelnummer=93;
 //     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()
@@ -86,12 +159,50 @@ if (Kachelnummer==61)
 //     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
@@ -280,5 +391,4 @@ module CreateStraight(myLane, myColor)
     color(myColor)   cube([Kante,Strichdicke*2, Hoehe], center=true);
 
 };
-
 </pre>