diff options
Diffstat (limited to 'lib/dice.scad')
| -rw-r--r-- | lib/dice.scad | 30 |
1 files changed, 27 insertions, 3 deletions
diff --git a/lib/dice.scad b/lib/dice.scad index c3cab85..ed63d3f 100644 --- a/lib/dice.scad +++ b/lib/dice.scad @@ -1,9 +1,33 @@ -module d6(side=false, size=false) { - l = side ? side : size; +use <utils.scad> + +module d4(size=false, side=false) { + l = side ? side : s2s_d4(size); + if (l == false) { + echo("ERROR: d6: one of side or size should be defined"); + } + r = sqrt(6)/4*l; + c = r*2; + difference() { + intersection() { + sphere(r=r*0.79, $fn=64); + translate([0, 0, r-r/3]) cube(c, center=true); + intersection_for ( i = [0:2] ) { + rotate([0, 0, 120*i]) rotate([acos(1/3)+180, 0, 0]) + translate([0, 0, r-r/3]) cube(c, center=true); + } + } + rotate([180, 0, 0]) translate([0, 0, r/3]) child(0); + rotate([acos(1/3)+180, 0, 0]) rotate([180, 0, 0]) translate([0, 0, r/3]) child(1); + rotate([0, 0, 120]) rotate([acos(1/3)+180, 0, 0]) rotate([180, 0, 0]) translate([0, 0, r/3]) child(2); + rotate([0, 0, 240]) rotate([acos(1/3)+180, 0, 0]) rotate([180, 0, 0]) translate([0, 0, r/3]) child(3); + } +} + +module d6(size=false, side=false) { + l = side ? side : s2s_d6(size); if (l == false) { echo("ERROR: d6: one of side or size should be defined"); } - echo(l); difference() { intersection() { cube(l, center=true); |