From 4a332ac59881dc673f6b4a95d3425619f727b593 Mon Sep 17 00:00:00 2001
From: Lulu
+ + +// 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); + + +} + + +-- 2.20.1