From 136c17ef89813f5bb9e22aefb2af1cbfe4fc15ad Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 4 Jun 2023 21:33:30 +0200
Subject: Unterteile nun besser

---
 Duschvorhangshaken.scad | 32 ++++++++++++++++++++------------
 1 file changed, 20 insertions(+), 12 deletions(-)

diff --git a/Duschvorhangshaken.scad b/Duschvorhangshaken.scad
index bab8c5c..280a99d 100644
--- a/Duschvorhangshaken.scad
+++ b/Duschvorhangshaken.scad
@@ -11,6 +11,20 @@ Teil = 0;
 Geschlecht = 1;
 $fn = 100;
 
+module Stift() {
+  translate([0,0,-d])
+    cylinder(h = 2*d, r = dAchse/2 - epsilon);
+  translate([0,0,d])
+    sphere(r = dAchse/2 + Huckel);
+}
+
+module Loch() {
+  translate([0,0,-d-1])
+    cylinder(h = 2*d+2, r = dAchse/2 + epsilon);
+  translate([0,0,-d])
+    sphere(r = dAchse/2 + Huckel);
+}
+
 if(Teil == 0) {
   difference() {
     union() {
@@ -22,10 +36,10 @@ if(Teil == 0) {
         union() {
           translate([-d,0,-d])
             cube([d,l2,d]);
-          translate([-d/2,l2,-d]) {
-            cylinder(h = 2*d, r = dAchse/2 - epsilon);
-            translate([0,0,2*d])
-              sphere(r = dAchse/2 + Huckel);
+          translate([-d/2,l2,-d])
+            cylinder(r = dAchseAuszen/2, h = d);
+          translate([-d/2,l2,0]) {
+            Stift();
           }
         }
       intersection(){
@@ -37,17 +51,11 @@ if(Teil == 0) {
       translate([0,0,-d])
         cylinder(r = dAchseAuszen/2, h = d);
       if(Geschlecht == 0) {
-        translate([0,0,-d])
-          cylinder(h = 2*d, r = dAchse/2 - epsilon);
-        translate([0,0,d])
-          sphere(r = dAchse/2 + Huckel);
+        Stift();
       }
     }
     if(Geschlecht == 1) {
-      translate([0,0,-d-1])
-        cylinder(h = 2*d+2, r = dAchse/2 + epsilon);
-      translate([0,0,-d])
-        sphere(r = dAchse/2 + Huckel);
+      Loch();
     }
   }
 }
\ No newline at end of file
-- 
cgit v1.2.3-54-g00ecf