add cat_protector

examples/cat_corner_protector.scad

@@ -0,0 +1,81 @@
+include <rotate_p.scad>;
+include <cross_sections.scad>;
+include <polysections.scad>;
+include <ring_extrude.scad>;
+include <shape_pie.scad>;
+include <crystal_ball.scad>;
+include <shape_arc.scad>;
+
+radius = 15;
+
+module cat_corner_protector(radius) {
+    module ear() {
+		translate([0, 0, radius * 0.85]) 
+        rotate([45, -90, 0]) 
+        translate([0, 0, -radius]) 
+        intersection() {
+            crystal_ball(radius = radius, thickness = 1);
+            
+			linear_extrude(radius * 1.5) 
+            hull() {
+		        translate([radius * 0.4, 0, 0]) 
+                    circle(radius * 0.1);
+				circle(radius * 0.5, $fn = 3);
+			}	
+		}
+	}
+	
+	module beard_cube() {
+	    linear_extrude(radius * 1.05) 
+            square([radius * 0.0275, radius * 0.3], center = true);
+	}
+	
+	color("white") rotate([50, 0, 25]) ear();
+	color("white") rotate([0, -50, -25]) ear();
+	
+	// beards
+	color("black") intersection() {
+        crystal_ball(
+            radius = radius * 1.05, 
+            theta = 360,
+            phi = 90,
+            thickness = radius * 0.05
+        );
+		
+		union() {	
+			rotate([0, 70, -5]) beard_cube();
+			rotate([0, 65, -5]) beard_cube();
+			rotate([0, 70, 95]) beard_cube();
+			rotate([0, 65, 95]) beard_cube();	
+		}
+	}
+	
+	// face
+	color("white") 
+    difference() {
+		sphere(radius);
+		translate([-radius * 0.25 , -radius * 0.25, -radius * 1.25]) 
+			cube([radius * 1.5, radius * 1.5, radius * 1.5]);
+	}
+
+	// nose
+	color("black") 
+    scale([1, 1, 0.75]) 
+    translate([radius * 0.6, radius * 0.6, radius * 0.55]) 
+        sphere(radius * 0.125);
+
+	// eyes
+	color("black") 
+    translate([radius * 0.1, radius * 0.75, radius * 0.525]) 
+        sphere(radius * 0.115);
+		
+	color("black") 
+    translate([radius * 0.75, radius * 0.1, radius * 0.525]) 
+        sphere(radius * 0.115);
+
+}
+
+rotate(-135) cat_corner_protector(radius, $fn = 36);
+
+
+