From 65d6e8aacd4c4b3b69ba6c0f952c694c0e27e687 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Mon, 29 Jan 2024 07:53:28 +0100
Subject: [PATCH] distri-zaslepka

---
 distri-zaslepka.scad | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 distri-zaslepka.scad

diff --git a/distri-zaslepka.scad b/distri-zaslepka.scad
new file mode 100644
index 0000000..b0c9741
--- /dev/null
+++ b/distri-zaslepka.scad
@@ -0,0 +1,42 @@
+include <yenyalib.scad>;
+
+wall = 1.5;
+body_l = 50;
+body_w = 18;
+
+slot_w = 2.7;
+slot_depth = 2.5;
+
+clip_l = 10;
+clip_h = 0.7*slot_depth;
+clip_w1 = 0.5*body_w;
+clip_w2 = 2;
+
+Tx(-wall) hull() {
+	Ty(wall) cube([wall, body_l-2*wall, body_w]);
+	Tx(wall/2) cube([wall/2, body_l, body_w]);
+}
+ 
+// bottom slot
+Ty(slot_depth) cube([slot_w + wall, wall, body_w]);
+Tx(slot_w) Ty(slot_depth+wall/2) Rz(10)
+	Ty(-slot_depth-wall/2) cube([wall, slot_depth + wall/2, body_w]);
+
+// top clip
+Ty(body_l-slot_depth-wall) {
+	intersection() {
+		hull() {
+			Tz(body_w/2-clip_w1/2)
+				cube([eps, slot_depth+wall, clip_w1]);
+			cube([clip_l, slot_depth+wall, clip_w2]);
+		}
+		union() {
+			cube([slot_w + wall, wall, body_w]);
+			Tx(slot_w) hull() {
+				cube([eps, wall+clip_h, body_w]);
+				cube([clip_l-slot_w, wall/2, body_w]);
+			}
+		}
+	}
+	cube([slot_w/2, wall, body_w]);
+}
-- 
2.43.0