From 43a71ead1d318a334c9cdc00ebf1fc4eb3a77c21 Mon Sep 17 00:00:00 2001
From: Justin Lin <justin.sdk@gmail.com>
Date: Fri, 10 Dec 2021 10:56:44 +0800
Subject: [PATCH] add spiral_dragon2

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

diff --git a/examples/dragon/spiral_dragon2.scad b/examples/dragon/spiral_dragon2.scad
new file mode 100644
index 00000000..72a8f42c
--- /dev/null
+++ b/examples/dragon/spiral_dragon2.scad
@@ -0,0 +1,207 @@
+use <helix.scad>;
+use <along_with.scad>;
+use <shear.scad>;
+use <curve.scad>;
+use <sweep.scad>;
+use <shape_circle.scad>;
+use <bezier_curve.scad>;
+use <path_scaling_sections.scad>;
+use <experimental/worley_sphere.scad>;
+use <dragon_head.scad>;
+use <dragon_scales.scad>;
+use <dragon_foot.scad>;
+
+r1 = 25;
+r2 = 15;
+levels = 3;
+level_dist = 20;
+
+module one_segment(body_r, body_fn, one_scale_data) {
+    // scales
+    rotate([-90, 0, 0])
+        dragon_body_scales(body_r, body_fn, one_scale_data);
+
+    // dorsal fin
+    translate([0, 3, -3]) 
+    rotate([-75, 0, 0]) 
+    shear(sy = [0, 3])
+    linear_extrude(2.25, scale = 0.2)
+        square([2, 12], center = true);            
+            
+    // belly    
+    translate([0, -2.5, .8]) 
+    rotate([-5, 0, 0]) 
+    scale([1, 1, 1.4])  
+        sphere(body_r * 0.966, $fn = 8); 
+    
+}
+
+module tail() {
+    $fn = 4;
+    tail_scales(75, 2.5, 4.25, -4, 1.25);
+    tail_scales(100, 1.25, 4.5, -7, 1);
+    tail_scales(110, 1.25, 3, -9, 1);
+    tail_scales(120, 2.5, 2, -9, 1);   
+
+    translate([0, -.5, -5])
+    rotate([-5, -5, 5])
+    scale([.9, 1, .55])
+        hair();
+
+    module hair() {
+        tail_hair = [
+            [3, -1],
+            [5, -1.5],
+            [8, -1],
+            [9.5, 0],
+            [8, -0.4],
+            [6.5, -0.3],
+            [8, 0],
+            [10, 1],
+            [14, 5],
+            [17, 10],
+            [14, 8],
+            [12, 7],
+            [9, 6],
+            [11.5, 10],
+            [13, 12],
+            [16, 14],
+            [12, 13],
+            [8, 11],
+            [10, 14],
+            [5, 11],
+            [3, 8.5],
+            [-1, 3]
+        ];
+
+        rotate([-2.5, 0, 0])
+        translate([-1, .5, 5.5])
+        scale([1.1, 1, 1.3]) {
+            translate([2, 0, -3])
+            scale([2, 1, .8])
+            rotate([-90, 70, 15])
+            linear_extrude(.75, center = true)
+                polygon(tail_hair);
+
+            scale([.8, .9, .6])
+            translate([2, 0, -5])
+            scale([1.75, 1, .8])
+            rotate([-90, 70, 15]) {
+                linear_extrude(1.5, scale = 0.5)
+                    polygon(tail_hair);
+                mirror([0, 0, 1])
+                linear_extrude(1.5, scale = 0.5)
+                    polygon(tail_hair);
+            }
+
+            scale([.6, .7, .9])
+            translate([2, 0, -4])
+            scale([2, 1, .85])
+            rotate([-90, 70, 15]) {
+                linear_extrude(3.5, scale = 0.5)
+                    polygon(tail_hair);
+                mirror([0, 0, 1])
+                linear_extrude(3.5, scale = 0.5)
+                    polygon(tail_hair);
+            }
+        }    
+    }
+}
+
+module spiral_dragon2() {
+    path_pts = helix(
+        radius = [r1, r2], 
+        levels = levels, 
+        level_dist = level_dist, 
+        vt_dir = "SPI_DOWN", 
+        rt_dir = "CLK", 
+        $fn = 32
+    );
+
+    function __angy_angz(p1, p2) = 
+        let(
+            dx = p2[0] - p1[0],
+            dy = p2[1] - p1[1],
+            dz = p2[2] - p1[2],
+            ya = atan2(dz, sqrt(dx * dx + dy * dy)),
+            za = atan2(dy, dx)
+        ) [ya, za];
+        
+    angy_angz = __angy_angz(path_pts[0], path_pts[1]);
+    
+    body_r = 5.25;
+    body_fn = 12;
+    scale_fn = 4;
+    scale_tilt_a = 6;
+
+    one_body_scale_data = one_body_scale(body_r, body_fn, scale_fn, scale_tilt_a);
+    scale(1.075) 
+    along_with(path_pts, twist = 45, scale = [0.575, 0.575, 0.85], method = "EULER_ANGLE")    
+        one_segment(body_r, body_fn, one_body_scale_data);
+    
+    translate([27.25, 3, -.5])
+    rotate([-88, 0, 0])
+    rotate([0, 0, 90])
+    scale([.65, .8, 1.4])
+        tail();
+
+    translate([17.5, 0, 63]) 
+    rotate([95, 0, -10]) 
+    rotate([0, angy_angz[0], angy_angz[1]])
+        dragon_head();
+
+    rotate([-8, -2, -10])
+    translate([12, 3, 44])
+    rotate([16, -67.5, -200])
+    rotate(-2)
+    scale(.7)
+        foot();
+
+    translate([13, 6.5, 45])
+    rotate([-75, -35, -92])
+    mirror([1, 0, 0])
+    scale(.7)
+        foot();
+
+    translate([-11, -13, 12])
+    rotate([15, -65, 47])
+    rotate(-18)
+    scale(.65)
+        foot();
+
+    translate([-15, -13.5, 12])
+    rotate([-70, -45, 145])
+    mirror([1, 0, 0])
+    scale(.65)
+        foot();
+}
+
+module mountain() {
+    radius = 20;
+    detail = 10;
+    amplitude = .1;
+    dist = "border"; 
+
+    difference() {
+        union() {
+            translate([0, 0, 12])
+            scale([.925, .85, 2.5])	
+                worley_sphere(radius, detail, amplitude, dist, seed = 5);
+
+            translate([2, 0, -15])
+            scale([1.04, 1.04, 1])
+                worley_sphere(radius * 1.2, detail, amplitude, dist, seed = 1);
+        }
+
+        translate([0, 0, -102])
+        linear_extrude(100)
+            square(100, center = true);
+    }
+}
+
+rotate(180) {
+    translate([0, 0, 7]) 
+        spiral_dragon2($fn = 12);
+    rotate(57)
+        mountain();
+}
\ No newline at end of file