From: Lulu <Lulu@stratum0.org/mediawiki/>
Date: Thu, 23 Jan 2014 11:07:49 +0000 (+0000)
Subject: Seite angelegt: Anlegespiel Connect
X-Git-Url: https://git.rohieb.name/stratum0-wiki.git/commitdiff_plain/d06f24a2bc99213400d0ff1917b3ed687d961475

Seite angelegt: Anlegespiel Connect
---

diff --git a/Gesellschaftsspiel-Replikator%2FConnect_V1.mw b/Gesellschaftsspiel-Replikator%2FConnect_V1.mw
new file mode 100644
index 000000000..e1992179e
--- /dev/null
+++ b/Gesellschaftsspiel-Replikator%2FConnect_V1.mw
@@ -0,0 +1,104 @@
+<pre>
+
+
+// Rivers, Roads and Rails / Contact
+// 2014-01-23 V1
+// by Stratum 0
+// License: WTF
+
+$fn=20;
+Kante=100;
+Hoehe=4;
+Kerbe=2;
+RadiusA=Kante/4;
+RadiusB=Kante*2/4;
+RadiusC=Kante*3/4;
+Strichdicke=8;
+Kachelnummer=5;
+
+if (Kachelnummer==1) 
+{
+    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");
+    }
+};
+
+
+if (Kachelnummer==2) 
+{
+    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");
+    }
+};
+
+if (Kachelnummer==3) 
+{
+    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");
+    }
+};
+
+
+if (Kachelnummer==4) 
+{
+    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");
+    }
+};
+
+
+if (Kachelnummer==5) 
+{
+        translate ([-Kante/4,Kante/4,Hoehe-Kerbe]) CreateEnd(RadiusC,"blue");
+    difference()
+    {
+        CreateTile("white");
+        translate ([-Kante/2,-Kante/2,Hoehe-Kerbe]) CreateArch(RadiusA,"red");
+        translate ([-Kante/2,-Kante/2,Hoehe-Kerbe]) CreateArch(RadiusB,"black");
+       
+    }
+};
+
+
+
+
+module CreateTile(myColor)
+{
+     // Basisdomino erstellen
+    color(myColor)     cube([Kante, Kante, Hoehe], center=true);
+}; // End Module
+
+
+module CreateArch(myRadius, myColor)
+{
+    difference () // Innenkreis vom Außenkreis abziehen.
+    {
+      color (myColor) 
+        cylinder(Hoehe, myRadius+Strichdicke, myRadius+Strichdicke, center=true, $fn=60);
+        cylinder(Hoehe, myRadius-Strichdicke, myRadius-Strichdicke, center=true, $fn=60);
+    }  
+};
+
+module CreateEnd(myLane, myColor)
+{
+    color(myColor)   cube([Kante/2,Strichdicke*2, Hoehe], center=true);
+                    
+};
+
+</pre>