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(); }
}
module SandingFrame(){ ////toplevel
- deltas = [ for (i = [ 0 : 0.1 : 0.5 ]) 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);
+ }
}
}
}