X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=quacks-ingredients-demos.scad;h=1f02c60877387a849aee05a866afc6097590d8f5;hb=ba7c5b240dcdab5fa3f4e3f7823bb828551471f0;hp=20313708eb44da979dd542f2416f1ced001d32cb;hpb=c13a7639728f532969f5d8bf5f7e27ed938e7063;p=reprap-play.git

diff --git a/quacks-ingredients-demos.scad b/quacks-ingredients-demos.scad
index 2031370..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(); }
@@ -9,3 +14,26 @@ module Demo(){ ////toplevel
   color("black") { Token_L2(); Token_L4(); }
 }
 
+module SandingFrame(){ ////toplevel
+  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 + 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);
+	}
+      }
+    }
+  }
+}