From 7177e3a059262435290fce759aeb48868ea7a642 Mon Sep 17 00:00:00 2001
From: Sasza Stanczew <sasza@stanczew.com>
Date: Thu, 20 Nov 2025 00:44:40 +0100
Subject: [PATCH] =?UTF-8?q?szafa=20na=20bro=C5=84,=20i=20wiatraki=20kalory?=
 =?UTF-8?q?fer=C3=B3w?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Dom/kaloryfer_wiatraki.scad     | 89 +++++++++++++++++++++++++++++++++
 Sasza/szafa/dolne_nakretki.scad | 15 ++++++
 Sasza/szafa/gorne_magnesy.scad  | 11 ++++
 3 files changed, 115 insertions(+)
 create mode 100644 Dom/kaloryfer_wiatraki.scad
 create mode 100644 Sasza/szafa/dolne_nakretki.scad
 create mode 100644 Sasza/szafa/gorne_magnesy.scad

diff --git a/Dom/kaloryfer_wiatraki.scad b/Dom/kaloryfer_wiatraki.scad
new file mode 100644
index 0000000..448f2ab
--- /dev/null
+++ b/Dom/kaloryfer_wiatraki.scad
@@ -0,0 +1,89 @@
+include <BOSL2/std.scad>
+include <NopSCADlib/vitamins/screw.scad>
+include <NopSCADlib/vitamins/screws.scad>
+include <NopSCADlib/vitamins/fan.scad>
+include <NopSCADlib/vitamins/fans.scad>
+
+// 1 - straight section
+// 2 - fan section
+// 3 - blind end section
+model = 1;
+fan_down = false;
+conn = true;
+center_fan_hole = true;
+
+// północny kaloryfer w dużym pokoju - 42, 97, 7.5
+h = 60; // total height
+w = 97; // górna kratka na kaloryferze
+lip = 7.5;
+
+l = model != 1 ? 70 : 180; // 18cm druk, 5cm adapter do wiatraka
+
+t = 2;
+fan_t = 5;
+
+ch_top = 6;
+ch_bottom = 10;
+
+conn_t = 2;
+conn_l = 20;
+
+fan_dist = 75;
+fan_width = 85;
+fan_t = 5;
+
+// main body
+difference() {
+    up(h/2) cuboid([w+2*t,l,h]);
+    up(h/2 - t) cuboid([w,l+1,h]);
+    if(center_fan_hole && model == 1) {up(h/2) fan_holes(fan80x25);}
+}
+// chamfers
+union() {
+    difference() {
+        up(h/2) cuboid([w+2*t, l, h]);
+        up(h/2) cuboid([w+2*t, l, h], chamfer=ch_top, edges=[TOP+LEFT,TOP+RIGHT]);
+    }
+    difference() {
+        up(h/2) up(lip/2) cuboid([w+2*t,l,h-lip]);
+        up(h/2) up(lip/2) cuboid([w+2*t,l,h-lip], chamfer=ch_bottom, edges=[BOTTOM+LEFT,BOTTOM+RIGHT]);
+    }
+}
+// connector tabs
+if(conn || model == 1) {fwd(l/2) union() {
+    up(lip) up(h/2) union() {
+        left(w/2 - conn_t/2) cuboid([conn_t,conn_l,h/4]);
+        right(w/2 - conn_t/2) cuboid([conn_t,conn_l,h/4]);
+    }
+    up(h) down(conn_t/2) down(t) cuboid([conn_l, conn_l, conn_t]);
+}}
+
+// blind end
+if(model == 3) { back(l/2 - t/2) up(h/2) cuboid([w,t,h]);}
+
+// fan
+tmp_h = fan_down ? fan_width - h : 0;
+if(model == 2) {
+    back(l/2 + fan_dist) up(fan_width/2) down(tmp_h) union() {
+        difference() {
+            cuboid([fan_width, fan_t,fan_width]);
+            xrot(90) fan_holes(fan80x25);
+        }
+        chain_hull() {
+            up(fan_width/2 - t/2) fwd(fan_t/2) yrot(90) cyl(h=fan_width, d=t);
+            up(tmp_h) down(fan_width/2) up(h - t/2) fwd(fan_dist) yrot(90) cyl(h=w+2*t, d=t);
+        }
+        chain_hull() {
+            down(fan_width/2 - t/2) fwd(fan_t/2) yrot(90) cyl(h=fan_width, d=t);
+            up(tmp_h) down(fan_width/2) up(t/2) fwd(fan_dist) yrot(90) cyl(h=w+2*t, d=t);
+        }
+        chain_hull() {
+            left(fan_width/2 - t/2) fwd(fan_t/2) cyl(h=fan_width, d=t);
+            up(tmp_h) down(fan_width/2) up(h/2) left((w+2*t)/2) right(t/2) fwd(fan_dist) cyl(h=h, d=t);
+        }
+        chain_hull() {
+            right(fan_width/2 - t/2) fwd(fan_t/2) cyl(h=fan_width, d=t);
+            up(tmp_h) down(fan_width/2) up(h/2) right((w+2*t)/2) left(t/2) fwd(fan_dist) cyl(h=h, d=t);
+        }
+    }
+}
\ No newline at end of file
diff --git a/Sasza/szafa/dolne_nakretki.scad b/Sasza/szafa/dolne_nakretki.scad
new file mode 100644
index 0000000..58724d2
--- /dev/null
+++ b/Sasza/szafa/dolne_nakretki.scad
@@ -0,0 +1,15 @@
+include <BOSL2/std.scad>
+include <BOSL2/screws.scad>
+
+$slop = 0.05;
+$fn=360;
+
+d = 10;
+h = 7;
+
+nut("M6,20", thickness=20, left_handed=true);
+// spheroid(d=10);
+up(h/2) difference() {
+    cyl(d=d, h=h) down(h/2) spheroid(d=d);
+    cyl(d1=0, d2=d, h=h + 0.1);
+}
diff --git a/Sasza/szafa/gorne_magnesy.scad b/Sasza/szafa/gorne_magnesy.scad
new file mode 100644
index 0000000..a040532
--- /dev/null
+++ b/Sasza/szafa/gorne_magnesy.scad
@@ -0,0 +1,11 @@
+include <BOSL2/std.scad>
+include <BOSL2/screws.scad>
+include <BOSL2/threading.scad>
+
+$slop=0.05;
+$fn = 360;
+
+h1 = 10;
+
+threaded_nut(id=6, pitch=1, h=h1, nutwidth=10, left_handed=true);
+up(h1 - 1) xrot(180) screw("M4,10", head="flat large");
\ No newline at end of file