diff --git a/examples/turtle/hilbert_dragon_low_poly.scad b/examples/turtle/hilbert_dragon_low_poly.scad
new file mode 100644
index 00000000..e4b296ff
--- /dev/null
+++ b/examples/turtle/hilbert_dragon_low_poly.scad
@@ -0,0 +1,256 @@
+use <bezier_smooth.scad>;
+use <bezier_curve.scad>;
+use <ellipse_extrude.scad>;
+use <path_extrude.scad>;
+use <shape_circle.scad>;
+use <util/reverse.scad>;
+use <util/dedup.scad>;
+use <turtle/lsystem3.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, 0, -0.2]], dragon_body_path), scale = 0.9);
+
+    
+    translate([0.45, 0, -2.9])        
+    scale(0.009)
+    rotate([-90, 0, 90]) 
+    dragon_head(); 
+    
+    translate([0, 0, -0.5])
+    rotate([0, -8, 0])
+    rotate(90)
+    ellipse_extrude(0.5, slices = 4, twist = 15)
+    scale(0.9 * 0.007)
+        polygon(body_shape);
+}
+   
+module dragon_head() {
+    module palate() {
+        t_step = 0.15;
+        
+        palate_shape = concat(
+            bezier_curve(0.25, 
+                [
+                    [31, -35], [19, 0], [8, 15], [-8, 12], [-19, 0], [-31, -35]
+                ]
+            ),
+            bezier_curve(0.25, 
+                [[-20, -35], [-8, -20], [8, -20], [20, -35]]
+            )
+        );
+        
+        palate_path = bezier_curve(t_step, 
+            [[0, -110, 30], [0, -100, 25], [0, -80, 50], [0, -55, 130], [0, -20, -95], [0, 5, 105], [0, 10, 30], [0, 10, 25]]
+        );    
+        
+        path_extrude(palate_shape, palate_path, scale = 0);    
+    }
+    
+    module jaw() {
+        t_step = 0.2;
+        
+        jaw_shape = concat(
+            bezier_curve(t_step, 
+                [
+                    [-20, 16], [-16, -5], [-8, -25], 
+                    [8, -25], [16, -5], [20, 16]
+                ]
+            ),
+            bezier_curve(t_step, 
+                [[15, 14], [8, 0], [-8, 0], [-15, 14]]
+            )
+        );
+        
+        jaw_path = bezier_curve(t_step, 
+            [[0, -60, -5], [0, 5, 0], [0, 10, 0], [0, 35, 39], [0, 25, 40]]
+        );    
+
+        path_extrude(jaw_shape, jaw_path, scale = 0);    
+    }  
+    
+    
+    module horns() {
+        path1 = bezier_curve(0.15, 
+                [
+                    [12, -40, 15],
+                    [40, -38, 0],
+                    [30, -60, -10],
+                    [50, -90, -30]
+                ]
+        );
+        
+        shape1 = shape_circle(7, $fn = 6);
+        
+        path_extrude(shape1, path1, scale = 0); 
+        mirror([1, 0, 0])
+            path_extrude(shape1, path1, scale = 0); 
+            
+        path2 = bezier_curve(0.15, 
+                [
+                    [12, -42, 15],
+                    [30, -17, 16],
+                    [35, -20, 0],
+                    [40, -40, -10]
+                ]
+        );
+        
+        shape2 = shape_circle(7, $fn = 5);
+        
+        path_extrude(shape2, path2, scale = 0);    
+        mirror([1, 0, 0])      
+             path_extrude(shape2, path2, scale = 0);    
+
+
+        path3 = bezier_curve(0.15, 
+                [
+                    [10, -40, 4],
+                    [20, -60, 10],
+                    [15, -70, -5],
+                    [15, -125, 0]
+                ]
+        );
+        
+        shape3 = shape_circle(12, $fn = 6);
+        
+        path_extrude(shape3, path3, twist = 60, scale = 0); 
+        mirror([1, 0, 0]) 
+            path_extrude(shape3, path3, twist = 60, scale = 0); 
+            
+        path4 = bezier_curve(0.15, 
+                [
+                    [0, 10, 65],
+                    [0, 5, 70],
+                    [0, 10, 75],
+                    [0, 5, 85],
+                ]
+        );  
+
+        path_extrude(shape_circle(5, $fn = 5), path4, scale = 0);    
+
+        path5 = bezier_curve(0.15, 
+                [
+                    [0, 0, 65],
+                    [0, -5, 70],
+                    [0, 0, 70],
+                    [0, -5, 75],
+                ]
+        );  
+
+        path_extrude(shape_circle(3, $fn = 5), path5, scale = 0);       
+
+        path6 = bezier_curve(0.15, 
+                [
+                    [0, -18, 45],
+                    [0, -20, 55],
+                    [0, -15, 65],
+                    [0, -20, 75],
+                ]
+        );  
+
+        path_extrude(shape_circle(6, $fn = 6), path6, scale = 0);            
+    }
+    
+    module tone() {
+        path1 = bezier_curve(0.15, 
+                [
+                    [0, -40, -5],
+                    [5, 0, 15],
+                    [-5, 5, 20],
+                    [0, 10, 30],
+                    
+                ]
+        );
+        
+        shape1 = shape_circle(6, $fn = 6);
+        
+        
+        path_extrude(shape1, path1, scale = 0); 
+    }
+    
+    module eyes() {
+        path5 = bezier_curve(0.2, 
+                [
+                    [0, 0, 0],
+                    [0, -5, 5],
+                    [0, 0, 8],
+                    [1, -5, 12],
+                ]
+        );  
+    
+        module eye() {
+            eye_shape = shape_circle(5, $fn = 6);
+            
+            translate([12, -40, 30.5]) 
+            rotate([-40, 0, 8])
+            scale([0.7, 1, 0.7])
+            union() {
+                rotate([-40.25, 0, 0])
+                    path_extrude(eye_shape, path5, scale = 0); 
+                rotate(180)
+                mirror([0, 0, 1])
+                rotate([-40.25, 0, 0])
+                    path_extrude(eye_shape, path5, scale = 0);
+            }           
+            translate([10.5, -36, 28.5]) 
+                sphere(5, $fn = 18);
+        } 
+        
+        eye();
+        mirror([1, 0, 0])
+            eye();
+    }
+    
+    rotate([-45, 0, 0])
+    union() {
+        rotate([45, 0, 0])
+        translate([0, 50, 9.5])
+            palate();
+        
+        jaw();
+        
+        horns();
+        
+        tone();
+        
+        eyes();
+    }
+}
+
+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]);  
\ No newline at end of file