$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);