Seite erstellt: OpenSCAD für Blinden-Domino-Stein

diff --git a/Gesellschaftsspiel-Replikator%2FDomino_V1.mw b/Gesellschaftsspiel-Replikator%2FDomino_V1.mw
new file mode 100644 (file)
index 0000000..185d671
--- /dev/null
+++ b/Gesellschaftsspiel-Replikator%2FDomino_V1.mw
@@ -0,0 +1,108 @@
+<pre>
+
+
+// Blindendomino
+// 2014-01-22 V1
+// by Stratum 0
+// License: WTF
+
+// **************************************
+// ** Dominos bitte *massiv* drucken!  **
+// **************************************
+
+$fn=20;
+LangeKante=40;
+KurzeKante=LangeKante/2;
+Hoehe=LangeKante/8;
+Ausschnitt=15;
+Kerbe=2;
+Punktpos=LangeKante/2-Kerbe;
+Punkthoehe=Kerbe;
+Punktbasis=2;
+Punktspitze=0;
+Punktabstand=4;
+
+
+intersection()
+{
+sphere (LangeKante*0.8);
+MyDomino();
+}
+
+module MyDomino()
+{
+CutDomino();
+AddPoints();
+}
+
+
+module CutDomino()
+{
+difference()
+{
+     // Basisdomino erstellen
+     cube([LangeKante, KurzeKante, Hoehe], center=true);
+
+     // Ausschnitt für Einkerbungen erstellen
+     // Rechte Seite
+
+     color("red") translate ([LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe],center=true);
+
+     // Ausschnitt für Einkerbungen erstellen
+     // Linke Seite
+
+     color("blue") translate ([-LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe],center=true);
+
+  
+
+};// End Difference
+}; // End Module
+
+// Punkte hinzufügen
+
+
+module AddPoints(){
+
+// Seite Z: 1
+
+color("orange")  
+translate([-LangeKante/4,0,Kerbe])  
+cylinder(Punkthoehe,Punktbasis,Punktspitze);     
+
+// Seite -Z: 6
+
+color("cyan")  
+translate([LangeKante/4+Punktabstand,0,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("white")  
+translate([LangeKante/4-Punktabstand,0,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("green")  
+translate([LangeKante/4+Punktabstand,Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("blue")  
+translate([LangeKante/4-Punktabstand,Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("yellow")  
+translate([LangeKante/4+Punktabstand,-Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+color("black")  
+translate([LangeKante/4-Punktabstand,-Punktabstand,Kerbe])  
+
+cylinder(Punkthoehe,Punktbasis,Punktspitze);
+
+
+}
+
+
+</pre>