From afece4a6d0bad9c381306e4b31bbed60e1a07b16 Mon Sep 17 00:00:00 2001
From: Elena of Valhalla'' Grandi <valhalla@trueelena.org>
Date: Tue, 3 Dec 2013 13:43:12 +0100
Subject: Dice

---
 Makefile           |  7 +++++++
 src/die.scad       |  5 +++++
 src/piecepack.scad | 19 +++++++++++++++++++
 3 files changed, 31 insertions(+)
 create mode 100644 src/die.scad

diff --git a/Makefile b/Makefile
index 65700db..a1f054c 100644
--- a/Makefile
+++ b/Makefile
@@ -22,6 +22,13 @@ coins:
 	    done \
 	done
 
+dice:
+	mkdir -p ${DESTDIR}
+	for SUITE in suns moons crowns arms; do \
+	    openscad -o ${DESTDIR}/die-$$SUITE.stl \
+	    -D suite=\"$$SUITE\" src/die.scad; \
+	done
+
 gcode: tiles coins
 	for T in ${DESTDIR}/tile*; do \
 	    ${SLIC3R} --load ${CONFDIR}/tiles.ini $$T; \
diff --git a/src/die.scad b/src/die.scad
new file mode 100644
index 0000000..7e53cb0
--- /dev/null
+++ b/src/die.scad
@@ -0,0 +1,5 @@
+use <piecepack.scad>;
+
+suite="arms";
+
+die(suite);
diff --git a/src/piecepack.scad b/src/piecepack.scad
index c0fb04f..ef3f3c7 100644
--- a/src/piecepack.scad
+++ b/src/piecepack.scad
@@ -35,3 +35,22 @@ module coin(suite,value) {
     }
 }
 
+module die(suite) {
+    difference() {
+        cube(12);
+        translate([0,0,11]) linear_extrude(height=1.5) scale(0.24)
+            import(str("../graphics/",suite,".dxf"));
+        translate([1,0,0]) rotate([0,-90,0])
+            linear_extrude(height=1.5) scale(0.24)
+            import("../graphics/2.dxf");
+        translate([11,0,12]) rotate([0,90,0])
+            linear_extrude(height=1.5) scale(0.24)
+            import("../graphics/5.dxf");
+        translate([0,1,0]) rotate([90,0,0])
+            linear_extrude(height=1.5) scale(0.24)
+            import("../graphics/3.dxf");
+        translate([0,11,12]) rotate([-90,0,0])
+            linear_extrude(height=1.5) scale(0.24)
+            import("../graphics/4.dxf");
+    }
+}
-- 
cgit v1.2.3