// -*- C -*-

include <quacks-ingredients.scad>

sandingframe_gap = 0.3; // to be added to radius
sandingframe_nw = 3;
sandingframe_nl = 5;
sandingframe_th = thick*2/3;

module Demo(){ ////toplevel
  $nspots = 3;
  color("red") { Token_L3(); }
  color("white") { Token_L1(); Token_L5(); }
  color("black") { Token_L2(); Token_L4(); }
}

module SandingFrame(){ ////toplevel
  stride = token_dia + 5;
  nl = sandingframe_nl;
  nw = sandingframe_nw;

  linear_extrude(height = sandingframe_th) {
    difference(){
      translate((token_dia/2 + stride) * 0.5 * [-1,-1])
	square([ stride * (nl + 0.5),
		 stride * 1.5 ]);
      for (i = [0 : nl-1]) {
	translate([ stride*i, 0 ])
	  circle(r = token_dia/2 + sandingframe_gap);
      }
    }
  }
}