From 75b60bd9bbf98c23b109aecc4bcc218c2795553a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 26 Feb 2023 11:28:24 +0100
Subject: Maus begonnen

---
 Maus.scad | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 Maus.scad

diff --git a/Maus.scad b/Maus.scad
new file mode 100644
index 0000000..d320c38
--- /dev/null
+++ b/Maus.scad
@@ -0,0 +1,58 @@
+$fn = 100;
+
+Bauchpunkte = [
+  for (i = [0: 10])
+    [10 + 0.01 * i*i,-1.2*i],
+  for (i = [10: -1: 0])
+    [12 - 0.01 * i*i,-24+1.2*i],
+  [0,-24],
+  [0,0]
+];
+
+Ohrpunkte = [
+  [0,2],[8,2],[10,5],[10,8],[8,10],[4,9],[2,7]
+];
+
+rotate_extrude(angle = 360){
+  intersection() {
+    square(10);
+    circle(r = 10);
+  };
+  polygon(
+    points = Bauchpunkte
+  );
+  translate([9,-24,0])
+    intersection() {
+      translate([0,-3,0])
+        square(3);
+      circle(r = 3);
+    };
+  translate([0,-27,0])
+    square([9,3]);
+};
+intersection() {
+  translate([18,0,0])
+    intersection_for(i = [0:1])
+      rotate([0,90+15*i,0])
+        translate([0,0,-13])
+          cylinder(13,8+3*i,0);
+  translate([0,-10,-10])
+    cube([16,20,20]);
+}
+translate([15,0,0])
+  sphere(r = 1.75);
+for(i=[-1:2:1])
+  translate([7,6*i,3]) {
+    sphere(r = 3);
+    intersection() {
+      sphere(r = 3.5);
+      rotate([-20*i,-30,0])
+        translate([-10,-10,0])
+          cube(20);
+    }
+  }
+for(i=[0:180:180])
+  translate([0,0,8])
+    rotate([0,-90,i])
+      linear_extrude(2, center=true)
+        polygon(points = Ohrpunkte);
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2