From 9a9e1346637926cde74a468d462ae02fd3e6c27b Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 4 Sep 2022 15:21:42 +0200
Subject: verbessert

---
 Regalmupfen.scad | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/Regalmupfen.scad b/Regalmupfen.scad
index d4bd861..9715259 100644
--- a/Regalmupfen.scad
+++ b/Regalmupfen.scad
@@ -1,8 +1,16 @@
 Radius = 0.5;
 Hoehe = 1.3;
+Phase = 0.1;
+Basisdicke = 0.2;
+Basisextra = 0.2;
 Bohrung = 0.25;
 
 difference() {
-    cylinder(h = Hoehe, r = Radius, center = true, $fn = 100);
+    translate([0,0,-Hoehe/2])rotate_extrude($fn = 100) {
+        polygon(points = [
+            [0,-Basisdicke], [Radius+Basisextra,-Basisdicke], [Radius+Basisextra,0], [Radius,0], [Radius,0], [Radius, Hoehe - Phase], [Radius - Phase, Hoehe], [0, Hoehe]
+        ]);
+    };
     rotate([0,90,0])cylinder(h = 4*Radius, r = Bohrung, center = true, $fn = 100);
+    translate([Radius,-Radius-Basisextra,-Hoehe/2-2*Basisdicke])cube(size = 2*(Radius+Basisextra+Basisdicke));
 }
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2