From 9f5fce87932e8ffbb4dbd4d73e47e8d7c617c9b5 Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Sat, 11 Jul 2020 10:22:47 +0800
Subject: [PATCH] sharp dorsal fin

---
 examples/dragon.scad                | 14 ++++++--------
 examples/turtle/hilbert_dragon.scad | 15 +++++++--------
 2 files changed, 13 insertions(+), 16 deletions(-)

diff --git a/examples/dragon.scad b/examples/dragon.scad
index a89b937c..02d0ef49 100644
--- a/examples/dragon.scad
+++ b/examples/dragon.scad
@@ -39,15 +39,13 @@ module one_segment() {
         scales(120, 2.5, 2, -9, 1);   
     }
     
-    // hair
-    translate([0, 1, -4]) 
-    rotate([45, 0, 0]) 
-    rotate([0, 90, 0]) 
-    linear_extrude(2, center = true) 
-    scale([3.5, 2, 1]) 
-        circle(3, $fn = 3);
+    // dorsal fin
+    translate([0, 3, -3]) 
+    rotate([-75, 0, 0]) 
+    shear(sy = [0, 3.5])
+    linear_extrude(2.25, scale = 0.2)
+        square([2, 12], center = true);            
             
-
     // belly
     translate([0, -3, 1]) 
     rotate([-10, 0, 0]) 
diff --git a/examples/turtle/hilbert_dragon.scad b/examples/turtle/hilbert_dragon.scad
index 8b2cd817..cf4ab132 100644
--- a/examples/turtle/hilbert_dragon.scad
+++ b/examples/turtle/hilbert_dragon.scad
@@ -41,16 +41,15 @@ module hilbert_dragon() {
             scales(120, 2.5, 2, -9, 1);   
         }
         
-        // hair
-        translate([0, 3, -4]) 
-        rotate([0, 90, 0]) 
-        rotate([0, 0, 25]) 
-        linear_extrude(2, center = true) 
-        scale([2, 2, 1]) 
-            circle(2.5, $fn = 3);              
+        // dorsal fin
+        translate([0, 3, -3]) 
+        rotate([-100, 0, 0]) 
+        shear(sy = [0, 3.5])
+        linear_extrude(2.25, scale = 0.2)
+            square([2, 14], center = true);            
 
         // belly
-        translate([0, -3, 1]) 
+        *translate([0, -3, 1]) 
         rotate([-10, 0, 0]) 
         scale([1.1, 0.8, 1.25])  
             sphere(5.5, $fn = 8);