From 847fbdde7bc248d5ca94adb0f57e00ac47f367bc Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Sun, 19 Nov 2023 21:10:38 +0100
Subject: [PATCH] led-strip-end-round.scad

---
 led-strip-end-round.scad | 51 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 led-strip-end-round.scad

diff --git a/led-strip-end-round.scad b/led-strip-end-round.scad
new file mode 100644
index 0000000..a901a3f
--- /dev/null
+++ b/led-strip-end-round.scad
@@ -0,0 +1,51 @@
+include <yenyalib.scad>
+
+base_wall = 0.6;
+inside_z = base_wall + 5;
+
+base_w = 18;
+base_h1 = 7.5;
+base_h2 = 14;
+
+inside_yoff = 2.3;
+inside_w = 12.4-0.2;
+inside_h = 3.9-0.2;
+
+inside_w1 = inside_w - 2;
+inside_h1 = 2;
+
+/*
+base_w = 23.5;
+base_h1 = 10;
+base_h2 = 11;
+
+inside_yoff = 1;
+inside_w = 21;
+inside_h = 1.8;
+
+inside_w1 = inside_w - 2;
+inside_h1 = 2;
+*/
+
+// base
+union() {
+	intersection() {
+		let(r = (base_w^2)/(8*(base_h2-base_h1))
+			+ (base_h2-base_h1)/2)
+			Ty(-r+base_h2)
+			cylinder(r = r, h = base_wall, $fn = 256);
+		Tx(-base_w/2) cube([base_w, infty, base_wall]);
+	}
+	Tx(-base_w/2) cube([base_w, base_h1, base_wall]);
+}
+
+// inside
+Tx(-inside_w/2) Ty(inside_yoff)
+	cube([inside_w, inside_h, inside_z]);
+
+// innside higher part
+if (inside_w1 > 0) {
+	Tx(-inside_w1/2) Ty(inside_yoff+inside_h-eps)
+		cube([inside_w1, inside_h1+eps, inside_z]);
+}
+
-- 
2.43.0