include <../lib/threads/threads.scad>

$fn=256;

difference() {
  union() {
    translate([0, 0, 3.5]) cylinder(d1=34.3, d2=35.7, h=82, $fn=256);
    cylinder(d1=28, d2=34.3, h=3.5, $fn=256);
  }

  translate([0, 0, 3.5]) cylinder(d=31, h=90, $fn=128);
  translate([0, 0, -1]) cylinder(d=27.6, h=10, $fn=128);

  translate([0, 0, 82 + 3.5 - 20 - 4.3])
  difference() {
    AugerThread(outer_diam=36, inner_diam=29.8, height=20, pitch=3, tooth_angle=25, tip_min_fract=15);
    //ScrewThread(outer_diam=33, height=20, pitch=3, tooth_angle=5, tooth_height=0.8);

    color("red")
    difference() {
      translate([0, 0, -1]) cylinder(d=40, h=22);
      translate([0, 0, -2]) cylinder(d=33, h=24);
    }
  }

  translate([0, 0, 82 + 3.5 - 4.4]) cylinder(d=33, h=90, $fn=128);
}