quacks-ingredients: SandingFrame - test version

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/quacks-ingredients-demos.scad b/quacks-ingredients-demos.scad
index 20313708eb44da979dd542f2416f1ced001d32cb..a88618639ef3c735294e24826b2a997fa24ff83d 100644 (file)
--- a/quacks-ingredients-demos.scad
+++ b/quacks-ingredients-demos.scad
@@ -9,3 +9,19 @@ module Demo(){ ////toplevel
   color("black") { Token_L2(); Token_L4(); }
 }
 
+module SandingFrame(){ ////toplevel
+  deltas = [ for (i = [ 0 : 0.1 : 0.5 ]) i ];
+  echo(deltas);
+  stride = token_dia + 5;
+  linear_extrude(height = thick*2/3) {
+    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]);
+      }
+    }
+  }
+}