vulcanized codpiece or codpieceful volcanoHEADmaster

1 files changed, 47 insertions, 6 deletions

diff --git a/volcano.scad b/volcano.scad
index 00ff64e..3c0ff04 100644
--- a/volcano.scad
+++ b/volcano.scad
@@ -1,110 +1,151 @@
 include <stuff.scad>;
 
 volcano_l = 20;				// length (along Y axis)
 volcano_w = 11.5;			// width (along X axis)
 volcano_h = 20;				// height (guess!)
 volcano_n_offset_w = 4.5;		// nozzle offset from the left edge along width axis
 volcano_n_offset_l = volcano_l-15.5;	// nozzle offset from the front along length axis
 volcano_c_offset_w = 4;			// cartridge offset from the left edge along width axis
 volcano_c_offset_l = volcano_l-8;	// cartridge offset from the front along the length axis
 volcano_c_d = 6.1;			// cartridge diameter
 volcano_n_d = 7/cos(30);		// nozzle (outermost) diameter
 volcano_c_t = 2;			// cartridge thickness (of the protruding part)
 volcano_hs_h = [volcano_h-14.5,volcano_h-5.5];	// the heater screws offsets from the bottom of the heater
 volcano_hs_d = 5.7;			// and their diameter
 volcano_hs_t = 1.5;			// and thickness
 volcano_hs_offset_l = volcano_l-2.5;	// heater screw offset from the front along the length axis
 volcano_ts_d = 7;			// Thermistor screw diameter
 volcano_ts_t = 2.6;			// Thermistor screw thickness
 volcano_ts_h = volcano_h-12;		// Thermistor screw offset from the bottom of the heater
 volcano_ts_offset_l = volcano_l-11.5;	// Thermistor screw offset from the front along the length axis
 volcano_cutoff_t = 1.5;			// Cutoff on the top thickness (depth)
 volcano_cutoff_l = 8;			// Length of the cutoff (the cutoff is on the back)
 
 sv=volcano_c_t+ss;      // shell vertical
 sh=ss;	                // shell horizontal
 
 the_w = volcano_w+volcano_ts_t+volcano_hs_t+2*sh;
 the_l = volcano_l+2*sh;
 the_h = volcano_h+sv;
 
+/* Nozzle stuff */
+n_protrude = 0.4;	// nozzle tip protrusion from silicone
+n_h1 = 3;		// nozzle cone base from the heater body (minimal)
+n_cone_h = 2;		// nozzle cone height
+n_cone_d2 = 1;		// pad diameter of the 0.4 nozzle (works up to 0.6); see
+			// http://wiki.e3d-online.com/images/3/3a/V6-NOZZLE-ALL.pdf
+
+n_cone_d1 = n_cone_h * tan(40) * 2 + n_cone_d2;
+codpiece_h = n_h1 + n_cone_h - n_protrude;
+
+codpiece=true;
+
 use <bubbles.scad>;
-module heatershape() {
+module heatershape(codpiece=codpiece) {
  difference() {
   union() { // main body and protrusion
    cube(size=[volcano_w,volcano_l,volcano_h]);
    translate([0,0,volcano_h]) {
     pt = [volcano_w,volcano_l-volcano_cutoff_l,protrude];
     translate([0,0,-1])
     cube(size=[pt[0],pt[1],pt[2]+1]);
     hull() {
      cube(size=pt);
      translate([-volcano_hs_t-sh,0,max(volcano_ts_t,volcano_hs_t)+sh])
      cube(size=[the_w,pt[1],pt[2]-max(volcano_ts_t,volcano_hs_t)-sh]);
      translate([0,-sh,sh])
      cube(size=[pt[0],pt[1]+2*sh,pt[2]-sh]);
     }
    }
   }
   // cutoff on top
   translate([-1,volcano_l-volcano_cutoff_l+volcano_cutoff_t,volcano_h-volcano_cutoff_t]) {
    cube(size=[volcano_w+2,volcano_cutoff_l-volcano_cutoff_t+1,volcano_cutoff_t+1]);
    translate([0,0,volcano_cutoff_t])
    rotate([0,90,0])
    cylinder(r=volcano_cutoff_t,h=volcano_w+2,$fn=24);
   }
   // screwhole on top of protrusion
   translate([volcano_w/2,(volcano_l-volcano_cutoff_l)/2,volcano_h+protrude+2])
   mirror([0,0,1])
   cylinder(d=3,h=protrude+1);
  }
  // nozzle
  translate([volcano_n_offset_w,volcano_n_offset_l,-sv])
- cylinder(d=volcano_n_d,h=sv+1,$fn=24);
+ if(codpiece) {
+  translate([0,0,sv]) mirror([0,0,1]) {
+   translate([0,0,-1]) cylinder(d=volcano_n_d,h=n_h1+1,$fn=32);
+   translate([0,0,n_h1-epsilon]) cylinder(d1=n_cone_d1,d2=n_cone_d2+n_protrude*tan(40)*2,h=n_cone_h-n_protrude,$fn=32);
+  }
+  /*
+  mc_d2 = n_cone_d2 + n_protrude * tan(40) * 2;
+  intersection() {
+   cylinder(d = volcano_n_d, h = n_h1 + 1 + epsilon, $fn=24);
+   translate([0,0,-n_h1]) cylinder(d2 = volcano_n_d * 2, d1 = 0, h = n_h1 * 2 + 1, $fn=24);
+  }
+  mirror([0,0,1]) translate([0,0,-epsilon]) cylinder(h = n_cone_h - n_protrude, d1 = n_cone_d1, d2 = mc_d2, $fn = 32);
+  */
+ }else cylinder(d=volcano_n_d,h=sv+1,$fn=24);
  // cartridge
  translate([volcano_c_offset_w,volcano_c_offset_l,-volcano_c_t])
  cylinder(d=volcano_c_d,h=volcano_c_t+1,$fn=24);
  // heatblock screws
  for(h=volcano_hs_h)
   translate([1,volcano_hs_offset_l,h])
   rotate([0,-90,0])
   cylinder(d=volcano_hs_d,h=volcano_hs_t+1,$fn=24);
  // thermistor screw
  translate([volcano_w-1,volcano_ts_offset_l,volcano_ts_h])
  rotate([0,90,0])
  cylinder(d=volcano_ts_d,h=volcano_ts_t+1,$fn=24);
  bubbles(size=[volcano_w,sh/2,volcano_h]);
  translate([0,volcano_l,0]) bubbles(size=[volcano_w,sh/2,volcano_h-volcano_cutoff_t]);
  for(x=[0,volcano_w]) translate([x,0,0])
  rotate([0,0,90]) bubbles(size=[volcano_l,(volcano_hs_t+sh)/2,volcano_h-volcano_cutoff_t]);
  rotate([-90,0,0])
  bubbles(size=[volcano_w,sv/2,volcano_l]);
 }
 module silicone() {
  translate([-sh-volcano_hs_t,-sh,-sv])
  cube(size=[the_w,the_l,the_h-epsilon]);
 }
 
 use <mold.scad>;
 
 vol_ = the_w*the_l*the_h
  - volcano_w*volcano_l*volcano_h		// heater block
  + volcano_w*volcano_cutoff_t*volcano_cutoff_l	// cutoff
  - PI*pow(volcano_n_d/2,2)*sv			// nozzle
  - PI*pow(volcano_c_d/2,2)*volcano_c_t		// cartridge
  - PI*pow(volcano_ts_d/2,2)*volcano_ts_t	// thermistor screw
  - PI*pow(volcano_hs_d/2,2)*volcano_hs_t *2	// heater screws
 ;
 vol = vol_*1.2;
 echo("volume",vol);
 
 use <view.scad>;
 
 view="*";
 
-view(view=view,volume=vol) {
- mold(size=[the_w,the_l,the_h],s=ms,v_protrude=protrude,introffset=(volcano_l-volcano_cutoff_l)*3/4);
- translate([ms+volcano_hs_t+sh,ms+sh,ms+sv]) heatershape();
- translate([ms+epsilon,ms+epsilon,ms+epsilon]) cube(size=[the_w-2*epsilon,the_l-2*epsilon,the_h]);
+difference() {
+ view(view=view,volume=vol) {
+  difference() {
+   union() {
+   echo("ch",volcano_n_offset_l+sh-volcano_n_d/2-1);
+    mold(size=[the_w,the_l,the_h],s=ms,v_protrude=protrude,introffset=(volcano_l-volcano_cutoff_l)*3/4,
+     chamfer = volcano_n_offset_l+sh-volcano_n_d/2-1);
+    if(codpiece)
+     translate([0,0,-codpiece_h+sv])
+     cube([the_w + ms*2,the_l + ms*2, codpiece_h - sv + epsilon]);
+   }
+   if(codpiece)
+    translate([ms+ss+volcano_hs_t+volcano_n_offset_w,ms+ss+volcano_n_offset_l,ms])
+    scale([1,1,2*(codpiece_h-sv)/(volcano_n_d+2)])
+    sphere(d=volcano_n_d+2,$fn=64);
+  }
+  translate([ms+volcano_hs_t+sh,ms+sh,ms+sv]) heatershape();
+  translate([ms+epsilon,ms+epsilon,ms+epsilon]) cube(size=[the_w-2*epsilon,the_l-2*epsilon,the_h]);
+ }
+ * translate([ss+sh+volcano_w/2,-1,-2]) cube(size=[40,40,40]);
 }
 /* vim:set ai sw=1: */