X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=quacks-ingredients-demos.scad;h=1f02c60877387a849aee05a866afc6097590d8f5;hb=eb06f06509cc2403d8592cd147d89d9a1b8bb97f;hp=c9d87e34f17c917adb1a730b757f0def0f866e4d;hpb=5876a0379edb61848174da91c09c3162f60a7a97;p=reprap-play.git

diff --git a/quacks-ingredients-demos.scad b/quacks-ingredients-demos.scad
index c9d87e3..1f02c60 100644
--- a/quacks-ingredients-demos.scad
+++ b/quacks-ingredients-demos.scad
@@ -2,6 +2,11 @@
 
 include <quacks-ingredients.scad>
 
+sandingframe_gap = 0.3; // to be added to radius
+sandingframe_nw = 5;
+sandingframe_nl = 6;
+sandingframe_th = thick*2/3;
+
 module Demo(){ ////toplevel
   $nspots = 3;
   color("red") { Token_L3(); }
@@ -10,17 +15,24 @@ module Demo(){ ////toplevel
 }
 
 module SandingFrame(){ ////toplevel
-  deltas = [ for (i = [ 0 : 0.15 : 0.75 ]) i ];
-  echo(deltas);
-  stride = token_dia + 5;
-  linear_extrude(height = thick*2/3) {
+  stridel = token_dia + 5;
+  nl = sandingframe_nl;
+  nw = sandingframe_nw;
+  stridew = stridel * cos(30);
+  stride = [stridel,stridew];
+
+  linear_extrude(height = sandingframe_th) {
     difference(){
-      translate((token_dia/2 + stride) * 0.5 * [-1,-1])
-	square([ stride * (len(deltas) + 0.5),
-		 stride * 1.5 ]);
-      for (i = [0 : len(deltas)-1]) {
-	translate([ stride*i, 0 ])
-	  circle(r = token_dia/2 + deltas[i]);
+      translate((token_dia/2 + stridel) * 0.5 * [-1,-1])
+	square([ stridel * (nl + 0.5),
+		 stridew * nw + stridel * 0.5 ]);
+      for (j = [0 : nw-1]) {
+	eo = j % 2;
+	for (i = [0 : nl-1-0.5*eo]) {
+	  translate([stridel * (i + 0.5 * eo),
+		     stridew * j])
+	    circle(r = token_dia/2 + sandingframe_gap);
+	}
       }
     }
   }