// -*- C -*-

include <threads.scad>

inch = 25.4;

positive_dia = inch * 3/8.;
positive_l = inch * 1/2.;

negative_dia = inch * 1/4.;
negative_l =   10.0;

negative_wall = 4;
midsection = 4;

$test = true;
//$test = false;

module Adapter(){
  translate([0,0,-0.1])
    english_thread(diameter=positive_dia/inch, threads_per_inch=16,
		   leadin=1, test=$test,
		   length= (positive_l + 0.1) / inch);
  rotate([180,0,0]) {
    difference(){
      cylinder(r= negative_dia/2 + negative_wall,
	       h = negative_l + midsection);
      translate([0,0, midsection])
	english_thread(diameter=negative_dia/inch, threads_per_inch=20,
		       leadin=0, internal=true, test=$test,
		       length= (negative_l + inch/19) / inch);
    }
  }
}

Adapter();