include <cliphook.scad>

rad=12;
h=3.5;
w=1.0;

looprad=2.5;
loopw=w;

fdia=1.77;
//fdia=3;

d=0.01;

module FilamentClipTeeth(based=1.5, basew=4, teethw=0.6,
			 stembendd=0.5,	stembendl=4, teethxl=1) {
  gapw = fdia-stembendd*2;
  teethbigw = gapw + teethw*2;

  translate([-based, -basew/2, 0]) cube([based, basew, h]);
  difference() {
    union() {
      translate([-d, -teethbigw/2, 0])
	cube([d+stembendl + teethw, teethbigw, h]);
//  translate([
//  stembigw = fdia + stembend
//  translate([-d, -stemw, 
      linear_extrude(height=h) {
	translate([stembendl-fdia/2, 0]) circle(fdia/2+teethw, $fn=30);
      }
    }
    translate([0,0,-1]) {
      translate([0,-gapw/2])
	cube([stembendl+teethxl+1, gapw, h+2]);
      linear_extrude(height=h+2) {
	translate([stembendl-fdia/2, 0]) circle(fdia/2, $fn=30);
      }
    }
  }

  for (mirr=[0:1]) {
    mirror([0,mirr,0]) {
      translate([stembendl + teethw, gapw/2, 0])
	rotate([0,0,30])
	cube([teethxl, teethw, h]);
    }
  }
}

module FilamentClip() {
  k=1.5;
  g=0.6;

  rotate([0,0,-45]) {
    translate([0,rad,0]) {
      ClipHook(h=h, w=w, g=0.6, k=k, g=g, ye=-1.3);
      rotate([0,0,180]) ClipHook(h=h, w=w, g=g, k=k, ye=0.8);
    }
  }

  linear_extrude(height=h) {
    assign($fn=80) {
      FlatArc(0,0, rad-w/2,rad+w/2, 65,379);
    }
    assign($fn=30) {
      FlatArc(0,rad+looprad+w, looprad,looprad+loopw);
    }
  }

  for (rot=[0,180]) {
    rotate([0,0,rot])
      translate([rad, 0, 0]) FilamentClipTeeth();
  }
}

FilamentClip();