From 08c51370dd757cd5c1797e1859fd4972acad80fc Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Thu, 26 Sep 2019 17:44:26 +0800
Subject: [PATCH] add dragon

---
 examples/dragon.scad | 199 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 199 insertions(+)
 create mode 100644 examples/dragon.scad

diff --git a/examples/dragon.scad b/examples/dragon.scad
new file mode 100644
index 00000000..2824a247
--- /dev/null
+++ b/examples/dragon.scad
@@ -0,0 +1,199 @@
+include <helix.scad>;
+include <bezier_curve.scad>;
+include <along_with.scad>;
+include <shape_trapezium.scad>;
+include <ellipse_extrude.scad>;
+
+r1 = 25;
+r2 = 15;
+levels = 3;
+level_dist = 20;
+
+module scales(ang, leng, radius, height, thickness) {
+    module one_scale() {
+        rotate([0, ang, 0]) 
+        linear_extrude(thickness, center = true) 
+        scale([leng, 1]) 
+            circle(1, $fn = 4);    
+    }
+
+    for(a = [0:30:330]) {
+        rotate(a) 
+        translate([radius, 0, height]) 
+            one_scale();
+            
+        rotate(a + 15) 
+        translate([radius, 0, height + 1.75]) 
+            one_scale();
+    }
+}
+
+module one_segment() {
+    // scales
+    scale([1,0.85,1]) union() {
+        scales(60, 4, 5, 0, 1.5);
+        scales(75, 2.5, 5, -4, 1.25);
+        scales(100, 1.25, 4.5, -7, 1);
+        scales(110, 1.25, 3, -9, 1);
+        scales(120, 2.5, 2, -9, 1);   
+    }
+    
+    // hair
+    for(i = [0:5]) {
+        rotate([15 -15 * i, 0, 0]) 
+        translate([0, 3, -4]) 
+        rotate([45, 0, 0]) 
+        rotate([0, 90, 0]) 
+        linear_extrude(2, center = true) 
+        scale([3.5, 2, 1]) 
+            circle(3, $fn = 3);
+    }                
+
+    scale([1, 1, 1.1]) sphere(5); 
+
+    // belly
+    translate([0, -3, 1]) 
+    rotate([-10, 0, 0]) 
+    scale([1.1, 0.8, 1.25])  
+        sphere(5, $fn = 8); 
+        
+}
+
+module head(angy_angz) {
+    module hair() {
+        for(i = [18:35]) {
+            rotate(i * 10) 
+            translate([0, -14, 0]) 
+            rotate([9, 0, 0]) 
+            linear_extrude(15, scale = 0, twist = 30) 
+            translate([0, 10, 0]) 
+                circle(3, $fn = 3);    
+        }       
+
+        for(i = [0:35]) {
+            rotate(i * 10) 
+            translate([0, -12, 0]) 
+            rotate([5, 0, 0]) 
+            linear_extrude(20, scale = 0, twist = 30) 
+            translate([0, 10, 0]) 
+                circle(2, $fn = 3);    
+        }
+        
+        for(i = [0:35]) {
+            rotate(i * 10) 
+            translate([0, -10, 0]) 
+            rotate([2, 0, 0]) 
+            linear_extrude(22, scale = 0, twist = -30) 
+            translate([0, 10, 0]) 
+                circle(3, $fn = 3);    
+        }     
+    }
+    
+    module one_horn() {        
+        translate([-10, -4, -1]) 
+        rotate([40, -25, 0]) 
+        linear_extrude(30, scale = 0, twist = -90) 
+        translate([7.5, 0, 0]) 
+            circle(3, $fn = 4);    
+    }
+    
+    module mouth() {
+        translate([0, 0, -2]) 
+        rotate([90, 0, -90]) 
+        ellipse_extrude(8, slices = 2) 
+            polygon(
+                shape_trapezium([4, 15], 
+                h = 22,
+                corner_r = 0)
+            );       
+        
+        translate([0, 0, -3]) 
+        rotate([90, 0, -90]) 
+         ellipse_extrude(6, slices = 4) 
+             polygon(
+                shape_trapezium([6, 20], 
+                h = 20,
+                corner_r = 0)
+            );    
+                    
+        mirror([1, 0, 0]) 
+        translate([0, 0, -3]) 
+        rotate([85, 0, -90])
+        ellipse_extrude(4, slices = 2) 
+            polygon(
+                shape_trapezium([6, 19], 
+                h = 20,
+                corner_r = 0)
+            );       
+    }
+    
+    module one_eye() {
+        translate([-5, 3, -2]) 
+        rotate([-15, 0, 75]) 
+        scale([1, 1, 1.5]) 
+            sphere(1.5, $fn = 5);      
+
+        translate([-5.5, 3.5, -2.5]) 
+        rotate([-15, 0, 75]) 
+            sphere(0.5, $fn = 12);                      
+    }
+    
+    module one_beard() {
+        translate([-11, -12, -11])
+        rotate(180) 
+        linear_extrude(10, scale = 0, twist = 90) 
+        translate([-10, -10, 0]) 
+            circle(0.75, $fn = 6);    
+    }
+    
+
+
+    rotate([0, angy_angz[0] + 15, angy_angz[1]]) 
+    translate([0, 0, -25 / 2]) 
+    scale(1.15) {
+       scale([0.8, 0.9, 1]) hair();
+
+        translate([0, 0, 2]) {
+            rotate(-90) {
+                 one_horn();
+                 mirror([-1, 0, 0]) one_horn();       
+            }
+            
+            mouth();
+
+            one_eye();
+            mirror([0, 1, 0]) one_eye();
+            
+            one_beard();
+            mirror([0, 1, 0]) one_beard();
+        }        
+    }
+}
+
+module dragon() {
+    path_pts = helix(
+        radius = [r1, r2], 
+        levels = levels, 
+        level_dist = level_dist, 
+        vt_dir = "SPI_DOWN", 
+        rt_dir = "CLK", 
+        $fn = 36
+    );
+
+
+    angy_angz = __angy_angz(path_pts[0], path_pts[1]);
+    
+    
+    scale(1.1) 
+    along_with(path_pts, scale = 0.7, method = "EULER_ANGLE")    
+        one_segment();
+        
+    translate([19, 0, 65]) 
+    rotate([95, 0, 0]) 
+    head(angy_angz);
+}
+
+translate([0, 0, 6]) dragon($fn = 12);
+linear_extrude(65, scale = 0.4)  circle(30);
+translate([0, 0, 65]) linear_extrude(15, scale = 0.01) circle(30 * 0.4);
+