From 7eb6ed1169d48f595a321c9f6a0218f2cb2fe530 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Fri, 24 Feb 2017 10:22:30 +0100
Subject: [PATCH] mate808 lens holder

---
 808-lens-holder.scad | 55 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 808-lens-holder.scad

diff --git a/808-lens-holder.scad b/808-lens-holder.scad
new file mode 100644
index 0000000..62a581e
--- /dev/null
+++ b/808-lens-holder.scad
@@ -0,0 +1,55 @@
+infty = 100;
+eps = 0.01;
+
+lens_size = 9;
+lens_depth = 2;
+wall = 1.5;
+
+difference() {
+	translate([-lens_size/2-wall, 0, 0])
+		cube([lens_size+2*wall, 2*wall+lens_depth, wall+lens_size]);
+	// lens body
+	translate([-lens_size/2, wall, wall])
+		cube([lens_size, lens_depth, lens_size + eps]);
+	// lens front
+	translate([-lens_size/2+wall, wall, -eps])
+		cube([lens_size-2*wall, lens_depth+wall+eps, lens_size + wall + 2*eps]);
+}
+
+base_d = 5;
+rear_l = 20;
+
+// rear base
+translate([-base_d/2, -rear_l, 0])
+	cube([base_d, base_d, wall]);
+
+// rear stem
+hull() {
+	translate([-wall/2, -rear_l+base_d/2, 0])
+		cube([wall, base_d/2, wall]);
+	translate([-wall/2, 0, 0])
+		cube([wall, eps, 3*wall]);
+}
+
+side_l = 20;
+for (i=[-1, 1]) scale([i, 1, 1]) {
+	// side squares
+	translate([side_l-base_d, -base_d, 0])
+		cube([base_d, base_d, wall]);
+
+	// side stem
+	hull() {
+		translate([side_l-base_d/2, -base_d/2, 0])
+			cylinder(r = wall, h = wall, $fn = 32);
+		translate([lens_size/2+wall-eps, 0, 0])
+			cube([eps, wall, 3*wall]);
+	}
+
+	// side to rear beam
+	hull() {
+		translate([side_l-base_d/2, -base_d/2, 0])
+			cylinder(r = wall/2, h = wall, $fn = 32);
+		translate([0, -rear_l+base_d/2, 0])
+			cylinder(r = wall, h = wall, $fn = 32);
+	}
+}
-- 
2.43.0