From: Tomas Mudrunka <tomas.mudrunka@gmail.com>
Date: Tue, 24 Oct 2023 11:12:14 +0000 (+0200)
Subject: Lepsi klips
X-Git-Url: https://git.harvie.cz/?p=mirrors%2FDesigns.git;a=commitdiff_plain;h=eb0d1fcbcf7c0d2ead0643269a8be26f75096535

Lepsi klips
---

diff --git a/openscad/nasi-kuchyne-komplet.scad b/openscad/nasi-kuchyne-komplet.scad
new file mode 100644
index 0000000..c090509
--- /dev/null
+++ b/openscad/nasi-kuchyne-komplet.scad
@@ -0,0 +1,41 @@
+// Profil kolejnice
+
+module slider(len=20, margin=0) {
+	translate([-10,0,0]) cylinder(h=len, r=8+margin, $fn=6);
+	translate([1,0,0]) cylinder(h=len, r=8+margin, $fn=6);	
+}
+
+// Drzak na tyc
+
+translate([20+(35/2),0,0]) 
+difference() {
+	union() {
+		cylinder(h=14, d=41);
+		translate([-17,-10,7]) rotate([-90,0,0]) slider(len=20);
+	}
+	cylinder(h=30, d=35, center=true);
+	rotate([0,0,-45]) cube([35,35, 20],center=false);
+	translate([-34,0,0]) cube([4,40,40], center=true);
+}
+
+// Kolejnice
+
+$fn=30;
+//%translate([20.5,0,0])
+difference() {
+	translate([-12,0,30]) cube([17, 20, 60], center=true);
+	difference() {
+		slider(len=60, margin=0.2);
+		//retencni vystupek
+		translate([-10,-8,58.5]) sphere(r=1.5);
+		translate([-10,-8,1.5]) sphere(r=1.5);
+	}
+	
+	//diry na srouby
+	translate([0,0,5]) rotate([0,-90,0]) cylinder(d=4, h=30);
+	translate([0,0,55]) rotate([0,-90,0]) cylinder(d=4, h=30);
+}
+
+
+
+