refactor

examples/dragon/hilbert_dragon_low_poly.scad

@@ -0,0 +1,67 @@
+use <bezier_smooth.scad>;
+use <bezier_curve.scad>;
+use <ellipse_extrude.scad>;
+use <path_extrude.scad>;
+use <util/reverse.scad>;
+use <util/dedup.scad>;
+use <turtle/lsystem3.scad>;
+use <dragon_head_low_poly.scad>;
+
+hilbert_dragon_low_poly();
+
+module hilbert_dragon_low_poly() {
+    lines = hilbert_curve();
+    hilbert_path = dedup(
+        concat(
+            [for(line = lines) line[0]], 
+            [lines[len(lines) - 1][1]])
+        );
+    smoothed_hilbert_path = bezier_smooth(hilbert_path, 0.48, t_step = 0.2);
+
+    dragon_body_path = reverse([for(i = [1:len(smoothed_hilbert_path) - 2]) smoothed_hilbert_path[i]]);
+
+    body_shape = concat(
+        bezier_curve(0.25, 
+            [
+                [30, -35], [16, 0], [4, 13], 
+                [3, -5], [0, 26], [-3, -5],
+                [-4, 13],  [-16, 0], [-30, -35]
+            ]
+        ),
+        bezier_curve(0.25, 
+            [[-22, -35], [-15, -45], [0, -55], [15, -45], [22, -35]]
+        )
+    );    
+
+    
+    pts = [for(p = body_shape) p * 0.007];
+    p = dragon_body_path[0];
+    
+    path_extrude(pts, concat([p + [0.0155, 0, 0.175]], [for(i = [1:len(dragon_body_path) - 1]) dragon_body_path[i]]), scale = 0.9);
+
+    translate([0.125, 0, -2.73])        
+    scale(0.009)
+    rotate([-60, 0, 90]) 
+    dragon_head_low_poly(); 
+    
+    translate([0, 0, -0.525])
+    rotate([0, -7, 0])
+    rotate(90)
+    ellipse_extrude(0.5, slices = 4, twist = 15)
+    scale(0.9 * 0.007)
+        polygon(body_shape);
+}
+   
+
+
+function hilbert_curve() = 
+    let(
+        axiom = "A",
+        rules = [
+            ["A", "B-F+CFC+F-D&F^D-F+&&CFC+F+B//"],
+            ["B", "A&F^CFB^F^D^^-F-D^|F^B|FC^F^A//"],
+            ["C", "|D^|F^B-F+C^F^A&&FA&F^C+F+B^F^D//"],
+            ["D", "|CFB-F+B|FA&F^A&&FB-F+B|FC//"]
+        ]
+    )
+    lsystem3(axiom, rules, 2, 90, 1, 0,  [0, 0, 0]);