// Lukas Süss 2011
// public domain


riA = 14/2;
riB = 9/2-0.25;  // rimthickness trouble


vert0 = 64;
vert1 = 32;


t1 = 1.75; // minimum wallthickness
r1 = 38/2;


// initial standoff
t2 = 4; 
r2 = 20/2;


// torodial reduction
t3 = 8; 
r3= 14/2;



// trapezoidal
t4 = 0.75;
t5 = 1.50; r5 = 17/2;
t6 = 0.75;
  s6 = t1+t2+t3+t4+t5+t6;

// tip
t7 = 2.50;
t8 = 3.00;
t9 = 3.5;
r7 = 16/2;
r8 = 11.5/2; // critical
echo("rimthickness: ",r8-riB);
r9 = r7;

echo("length=24? ",s6-t1 +t7+t8+t9); // not correct yet #############################


/*
todo  
smaller tiptorus (2.5mm radius instead of 3.0mm
*/


difference()
{

union()
{

  cylinder(r=r1,h=t1,$fn=vert0);
 
  translate([0,0,t1])
  {
    cylinder(r=r2,h=t2,$fn=vert0);

    translate([0,0,t2])
    difference()
    {
      cylinder(r=r2,h=t3,$fn=vert0);

      translate([0,0,t3])
      scale([1,1,t3/(r2-r3)])
      rotate_extrude(convexity=3, $fn=vert0)
      translate([r2,0,0])
      #circle(r=r2-r3,$fn=vert1);
    }

  }

  // trapezoidal part
  translate([0,0,t1+t2+t3])
  rotate_extrude(convexity=3, $fn=vert0)
  polygon(points=[[0,0],[r3,0],[r5,t4],[r5,t4+t5],[r7,t4+t5+t6],[0,t4+t5+t6]],paths=[[0,1,2,3,4,5]]);


  //TIP
  translate([0,0,s6])
  {
    cylinder(r = r7, h=t7+t8,$fn=vert0) ;
    translate([0,0,t7+t8+0.5])
    torus(2.5,r7-2.5,vert1,vert0);
    // maybe add cylinder here ################### "t_8_1/2"
  }

}

 // minus:

// too low in z
translate([0,0,s6+t7+t8/2])
torus(t8/2*sqrt(2), (r7+r8)/2 + (r7-r8)/2*sqrt(2),4,vert0); // test

translate([0,0,s6+t7+t8/2])
torus(t8/2, r8+t8/2,vert1,vert0); // test




cylinder(r=riB,h= (t1+24)*1.1,$fn=vert0);  // to see 24 mm 

translate([0,0,-0.05])
//cylinder(r1=riA,r2=riB,h=10,$fn=vert0);
//cylinder(r1=riA,r2=riB,h=10,$fn=vert0);  // h=10 just looks good
cylinder(r1=riA+1.0,r2=riB,h=12,$fn=vert0);  // h=10 just looks good


// DEBUGGING CUT
// translate([30,0,0]) cube([60,60,60],center=true);


}



// translate([0,0,t1]) #cylinder(r=2,h=24,$fn=16);  // to see 24 mm 







module torus(ra,rb,va,vb)
{
    rotate_extrude(convexity=3, $fn=vb)
    translate([rb,0,0])
    rotate(45,[0,0,1])
    #circle(r=ra,$fn=va);
}