From b4aa693e436987d1ada8c4e81e4a1b21d8593f16 Mon Sep 17 00:00:00 2001
From: Jan Huwald <jh@sotun.de>
Date: Thu, 5 Mar 2015 12:58:46 +0100
Subject: add entry side module with improved airflow


diff --git a/entry.scad b/entry.scad
new file mode 100644
index 0000000..29849cc
--- /dev/null
+++ b/entry.scad
@@ -0,0 +1,71 @@
+include <parameters.scad>
+
+use <side.scad>
+
+function as(x, d) = (x-d)/x;
+
+function inflow_outline(i, k=0.1) = (i > 0)
+  ? concat(
+      [[i, (1 - exp(-i))/(1 - exp(-1))/2]],
+      inflow_outline(i-k),
+      [[i, (1 - exp(-i))/(1 - exp(-1))/-2]]
+    )
+  : [[0, 0]];
+
+module inflow(W, R) {
+    rotate([90, 0, 0])
+    rotate([0, 90, 0])
+    linear_extrude(height = W, center=true)
+    scale(R)
+    polygon(inflow_outline(1));
+}
+
+module inflow_grid(W, H, RW, RH, offset) {
+    for (i = [1:num_hdd_y-1])
+    translate([0, 0, i*(hrail_height + hdd_height) + hdd_height/2 + offset])
+    difference() {
+	inflow(W, RW);
+
+	translate([0, 2.1, 0])
+	inflow(W, RW-2);
+    }
+
+    for (i = [-1,1])
+    translate([i*W/2, 0, H/2])
+    scale([RH/RW, 1, 1])
+    rotate([0, 90, 0])
+    difference() {
+	inflow(H, RW);
+
+	translate([0, 2.1, 0])
+	inflow(H-2, RW-2);
+    }
+}
+
+module entry(capped_bottom=true) {
+    W = hdd_length - hdd_standout;
+    O = capped_bottom ? 4 : hrail_height;
+    H = num_hdd_y * (hrail_height + hdd_height) + O;
+    D = vrail_width * 5 / 8;
+    S = 10;
+    R = hdd_height;
+    offset = 4;
+
+    difference() {
+	union() {
+	    side_frame(W, D, H, S, capped_bottom, reinforce=false);
+	    
+	    intersection() {
+		translate([0, -R + D/2, 0])
+		inflow_grid(W, H, R, (support_bar_width + front_depth/4)*2 + 2, offset);
+		
+		ccube([W, large, large]);
+	    }
+	}
+
+	ccube([2*W, large, 2*(hrail_height + hdd_height) + offset]);
+    }
+}
+
+rotate([-90, 0, 0])
+entry();
-- 
cgit v0.10.1