From c15c7f8ee318db8e3f71a8f08de44e3f3b924dd2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mario=20H=C3=B6llein?= <mhoellein@freenet.de>
Date: Thu, 28 May 2020 12:45:02 +0200
Subject: [PATCH 1/1] erste einfache Version des Gartentorriegels

---
 .../grandplatte_riegel_gartentor.scad         | 62 +++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 Gartentorriegel/grandplatte_riegel_gartentor.scad

diff --git a/Gartentorriegel/grandplatte_riegel_gartentor.scad b/Gartentorriegel/grandplatte_riegel_gartentor.scad
new file mode 100644
index 0000000..94c42be
--- /dev/null
+++ b/Gartentorriegel/grandplatte_riegel_gartentor.scad
@@ -0,0 +1,62 @@
+grundplatte_b=55.0;
+grundplatte_h=60.0;
+grundplatte_t=3.0;
+grundplatte_bohrung=2.0;
+bohrungsabstand=7;
+schiebelaenge=25;
+
+//grundplatte mit bohrungen
+difference () {
+	cube([grundplatte_b,grundplatte_h,grundplatte_t]);
+	translate([bohrungsabstand,bohrungsabstand,0]) {
+		cylinder(grundplatte_t,grundplatte_bohrung,grundplatte_bohrung,center=false,$fn=100);
+	}
+		translate([grundplatte_b-bohrungsabstand,bohrungsabstand,0]) {
+		cylinder(grundplatte_t,grundplatte_bohrung,grundplatte_bohrung,center=false,$fn=100);
+	}
+		translate([bohrungsabstand,grundplatte_h-bohrungsabstand,0]) {
+		cylinder(grundplatte_t,grundplatte_bohrung,grundplatte_bohrung,center=false,$fn=100);
+	}
+		translate([grundplatte_b-bohrungsabstand,grundplatte_h-bohrungsabstand,0]) {
+		cylinder(grundplatte_t,grundplatte_bohrung,grundplatte_bohrung,center=false,$fn=100);
+	}
+}
+
+//schiebergehäuse
+breite=grundplatte_b;
+hoehe=30;
+tiefe=16;
+rand_oben=5;
+rand_seiten=4;
+y=10;
+z=rand_oben;
+randabstand=5;
+difference() {
+	translate([0,grundplatte_h/2-hoehe/2,0]) {
+		difference () {
+			cube([breite,hoehe,tiefe]);
+			translate([0,rand_seiten,0]) {
+				color("blue") cube([breite,hoehe-2*rand_seiten,tiefe-rand_oben]);		
+			}
+		}
+	}
+	
+	translate ([breite-schiebelaenge-randabstand,grundplatte_h/2-y/2,tiefe-z]) {
+		color("red") cube([schiebelaenge,y,z]);
+	}
+}
+
+//riegel
+translate([0,-30,0]) {
+	difference() {
+		cube([breite+schiebelaenge,(hoehe-2*rand_seiten)-1,tiefe-rand_oben-grundplatte_t-1]);
+		translate([schiebelaenge-randabstand+schiebelaenge-z,((hoehe-2*rand_seiten)-1)/2-y/2,tiefe-rand_oben-grundplatte_t-1-z]) {
+			color("black") cube([y-1,y-1,z]);
+		}
+	}
+}
+
+//pimpel
+translate([0,-50,0]) {
+	cube([y,y,z+20]);
+}
\ No newline at end of file
-- 
2.43.0