Gesellschaftsspiel-Replikator%2FDomino_V1.mw

   1 [[Datei:Blinden-Domino.png|thumb|Blinden-Domino]]
   2
   3 [[Datei:Stratum0 Dominosteine V1.png|thumb|Dominosteine für Blinde]]
   4
   5 <pre>
   6
   7 // Blindendomino
   8 // 2014-01-22 V1
   9 // by Stratum 0
  10 // License: WTF
  11
  12 // **************************************
  13 // ** Dominos bitte *massiv* drucken!  **
  14 // **************************************
  15
  16 $fn=20;
  17 LangeKante=40;
  18 KurzeKante=LangeKante/2;
  19 Hoehe=LangeKante/8;
  20 Ausschnitt=15;
  21 Kerbe=2;
  22 Punktpos=LangeKante/2-Kerbe;
  23 Punkthoehe=Kerbe;
  24 Punktbasis=2;
  25 Punktspitze=0;
  26 Punktabstand=4;
  27 Rechts=1;
  28 Links=-1;
  29 Abstand=2;
  30
  31 //MyDomino();
  32
  33
  34 //module MyDomino()
  35 {
  36
  37
  38 for (i = [1:6])
  39      {
  40      for (j = [1:6])
  41           {
  42           translate([(LangeKante+Abstand)*i+Abstand,(KurzeKante+Abstand)*j,0])  CutDomino();
  43           translate([(LangeKante+Abstand)*i+Abstand,(KurzeKante+Abstand)*j,0])  CreateValue("purple", i, Links);
  44           translate([(LangeKante+Abstand)*i+Abstand,(KurzeKante+Abstand)*j,0])  CreateValue("pink", j, Rechts);
  45           } // End For J
  46      } // End For I
  47 } // End Module
  48
  49
  50 module CutDomino()
  51 {
  52 difference()
  53      {
  54      // Basisdomino erstellen
  55      cube([LangeKante, KurzeKante, Hoehe], center=true);
  56
  57      // Ausschnitt für Einkerbungen erstellen
  58      // Rechte Seite
  59
  60      color("lightblue") translate ([LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt, Kerbe*2],center=true);
  61
  62      // Ausschnitt für Einkerbungen erstellen
  63      // Linke Seite
  64
  65      color("blue") translate ([-LangeKante/4,0,Kerbe])  cube([Ausschnitt, Ausschnitt,Kerbe*2],center=true);
  66
  67      };// End Difference
  68 }; // End Module
  69
  70
  71 // Punkte hinzufügen
  72
  73 module CreateValue(Farbe, Value, Seite)
  74 {
  75      if (Value==1)
  76      {
  77           punkt(Farbe, 8, Seite);
  78      }
  79
  80      if (Value==2)
  81      {
  82           punkt(Farbe, 1, Seite);
  83           punkt(Farbe, 6, Seite);
  84      }
  85
  86      if (Value==3)
  87      {
  88           punkt(Farbe, 1, Seite);
  89           punkt(Farbe, 8, Seite);
  90           punkt(Farbe, 6, Seite);
  91      }
  92
  93      if (Value==4)
  94      {
  95           punkt(Farbe, 1, Seite);
  96           punkt(Farbe, 3, Seite);
  97           punkt(Farbe, 4, Seite);
  98           punkt(Farbe, 6, Seite);
  99      }
 100
 101      if (Value==5)
 102      {
 103           punkt(Farbe, 1, Seite);
 104           punkt(Farbe, 3, Seite);
 105           punkt(Farbe, 8, Seite);
 106           punkt(Farbe, 4, Seite);
 107           punkt(Farbe, 6, Seite);
 108      }
 109
 110      if (Value==6)
 111      {
 112           punkt(Farbe, 1, Seite);
 113           punkt(Farbe, 2, Seite);
 114           punkt(Farbe, 3, Seite);
 115           punkt(Farbe, 4, Seite);
 116           punkt(Farbe, 5, Seite);
 117           punkt(Farbe, 6, Seite);
 118
 119      }
 120 };
 121
 122
 123
 124
 125
 126 module punkt(Farbe,PunktPos,Seite)
 127 {
 128
 129 if (PunktPos==1)
 130      {
 131           color(Farbe)
 132                translate([LangeKante/4*Seite-Punktabstand,Punktabstand,Kerbe*0])
 133                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 134      }
 135
 136
 137 if (PunktPos==2)
 138      {
 139           color(Farbe)
 140                translate([LangeKante/4*Seite-Punktabstand,0,Kerbe*0])
 141                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 142      }
 143
 144
 145 if (PunktPos==3)
 146      {
 147           color(Farbe)
 148                translate([LangeKante/4*Seite-Punktabstand,-Punktabstand,Kerbe*0])
 149                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 150      }
 151
 152
 153 if (PunktPos==4)
 154      {
 155           color(Farbe)
 156                translate([LangeKante/4*Seite+Punktabstand,+Punktabstand,Kerbe*0])
 157                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 158      }
 159
 160
 161 if (PunktPos==5)
 162      {
 163           color(Farbe)
 164                translate([LangeKante/4*Seite+Punktabstand,0,Kerbe*0])
 165                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 166      }
 167
 168
 169 if (PunktPos==6)
 170      {
 171           color(Farbe)
 172                translate([LangeKante/4*Seite+Punktabstand,-Punktabstand,Kerbe*0])
 173                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 174      }
 175
 176
 177 if (PunktPos==7)
 178      {
 179           color(Farbe)
 180                translate([LangeKante/4*Seite,Punktabstand,Kerbe*0])
 181                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 182      }
 183
 184
 185 if (PunktPos==8)
 186      {
 187           color(Farbe)
 188                translate([LangeKante/4*Seite,0,Kerbe*0])
 189                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 190      }
 191
 192
 193 if (PunktPos==9)
 194      {
 195           color(Farbe)
 196                translate([LangeKante/4*Seite,-Punktabstand,Kerbe*0])
 197                     cylinder(Punkthoehe,Punktbasis,Punktspitze,center=yes);
 198      }
 199
 200 };
 201
 202
 203 </pre>