summaryrefslogtreecommitdiffabout
Unidiff
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--fanduct.scad12
1 files changed, 8 insertions, 4 deletions
diff --git a/fanduct.scad b/fanduct.scad
index 563920c..421dd5a 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -1,63 +1,67 @@
1use <snapper.scad>; 1use <snapper.scad>;
2 extrusion_width=.5; layer_height=.2; // print parameters 2 extrusion_width=.5; layer_height=.2; // print parameters
3 3
4 epsilon=.005; // for finer cuts 4 epsilon=.005; // for finer cuts
5 5
6 heater_w = 16; // heatblock width 6function hypothenuse(a,b) = sqrt(pow(a,2)+pow(b,2));
7 heater_l = 20; // heatblock length 7
8 nozzle_offset=4.5;// nozzle offset from the edge of heatblock 8silicone_shell = 2;
9heater_clearance = max(
10 hypothenuse(16/2 +silicone_shell, 20-4.5 +silicone_shell),// E3D v6
11 hypothenuse(11.5-4.5 +silicone_shell, 15.5 +silicone_shell)// E3D volcano
12);
9 13
10 fanduct_elevation = 3; // fanduct elevation above nozzle tip 14 fanduct_elevation = 3; // fanduct elevation above nozzle tip
11 fanduct_blowtarget = -2; // what to blow at 15 fanduct_blowtarget = -2; // what to blow at
12 fanduct_h = 6; // inner height of the duct 16 fanduct_h = 6; // inner height of the duct
13 fanduct_w = 7; // inner width of the duct 17 fanduct_w = 7; // inner width of the duct
14 fanduct_shell=1.2; // shell thickness 18 fanduct_shell=1.2; // shell thickness
15 fanduct_ir = sqrt(pow(heater_w/2,2)+pow(heater_l-nozzle_offset,2))+5;// inner radius 19 fanduct_ir = heater_clearance+5; // inner radius
16 20
17 jet_angle = 60; // angular width of the jet 21 jet_angle = 60; // angular width of the jet
18 22
19 inlet_w = 12.5; // inlet width 23 inlet_w = 12.5; // inlet width
20 inlet_h = 17; // inlet height 24 inlet_h = 17; // inlet height
21 inlet_l = 7; // inlet length of protrusion (or depth of intrusion:)) 25 inlet_l = 7; // inlet length of protrusion (or depth of intrusion:))
22 inlet_away = 15;// how far away inlet is 26 inlet_away = 15;// how far away inlet is
23 27
24hotend_clearance = 12; 28hotend_clearance = 12;
25 29
26 snapper_d = 8; snapper_overlap=0.2;// snip snap 30 snapper_d = 8; snapper_overlap=0.2;// snip snap
27 31
28smooth_f = 120; 32smooth_f = 120;
29 33
30type="3jets"; // "3jets" ; // circular|3jets 34type="3jets"; // "3jets" ; // circular|3jets
31 35
32 36
33module fanduct(type=type) { 37module fanduct(type=type) {
34 38
35 // ***duct is all around! 39 // ***duct is all around!
36 module duct(what) { 40 module duct(what) {
37 if(what=="in") { 41 if(what=="in") {
38 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell; 42 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
39 smax = max(sh,sv); 43 smax = max(sh,sv);
40 rotate_extrude($fn=smooth_f) 44 rotate_extrude($fn=smooth_f)
41 translate([sh/2+fanduct_ir,sv/2]) 45 translate([sh/2+fanduct_ir,sv/2])
42 scale([sh/smax,sv/smax]) 46 scale([sh/smax,sv/smax])
43 circle(d=smax,$fn=4*smax); 47 circle(d=smax,$fn=4*smax);
44 }else if(what=="out") { 48 }else if(what=="out") {
45 sh = fanduct_w; sv = fanduct_h; 49 sh = fanduct_w; sv = fanduct_h;
46 smax = max(sh,sv); 50 smax = max(sh,sv);
47 rotate_extrude($fn=smooth_f) 51 rotate_extrude($fn=smooth_f)
48 translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell]) 52 translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell])
49 scale([sh/smax,sv/smax]) 53 scale([sh/smax,sv/smax])
50 circle(d=smax,$fn=4*smax); 54 circle(d=smax,$fn=4*smax);
51 } 55 }
52 } 56 }
53 57
54 // ***bumps for easier position adjustments in line with hotend 58 // ***bumps for easier position adjustments in line with hotend
55 module marks(what) { 59 module marks(what) {
56 if(what=="in") { 60 if(what=="in") {
57 for(y=[-1,1]) 61 for(y=[-1,1])
58 hull() for(z=[0,-fanduct_shell-fanduct_h/2]) 62 hull() for(z=[0,-fanduct_shell-fanduct_h/2])
59 translate([0,y*(fanduct_ir+fanduct_shell+fanduct_w/2),fanduct_shell*2+fanduct_h+z]) 63 translate([0,y*(fanduct_ir+fanduct_shell+fanduct_w/2),fanduct_shell*2+fanduct_h+z])
60 rotate([90,0,0]) { 64 rotate([90,0,0]) {
61 cylinder(r=fanduct_shell,h=fanduct_w,center=true,$fn=30); 65 cylinder(r=fanduct_shell,h=fanduct_w,center=true,$fn=30);
62 for(z=[-1,1]) translate([0,0,z*fanduct_w/2]) 66 for(z=[-1,1]) translate([0,0,z*fanduct_w/2])
63 sphere(r=fanduct_shell,$fn=30); 67 sphere(r=fanduct_shell,$fn=30);