// -*- C -*-

// print on High Detail
// but adjust infill to 50%, shell thickness to 2mm

include <threads.scad>
include <camera-mount.scad>

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

stem_l = 7;
stem_dia = 12;

base_th = 3;
base_dia = 60;

module Base(){
  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]) {
    cylinder(r= stem_dia/2 * 1/(0.5 * sqrt(3)),
	     h = stem_l + 1,
	     $fn=6);
    translate([0,0, stem_l])
      cylinder(r= base_dia/2, h= base_th);
  }
}

Base();