add regular_polygon_maze

examples/maze/regular_polygon_maze.scad

@@ -0,0 +1,94 @@
+include <line2d.scad>;
+include <hollow_out.scad>;
+include <square_maze.scad>;
+
+// only for creating a small maze
+
+radius_of_circle_wrapper = 15;
+wall_thickness = 1;
+wall_height = 1;
+cblocks = 6;
+levels = 3;
+sides = 3; 
+    
+module ring_regular_polygon(radius, thickness, sides) {
+    hollow_out(thickness) 
+        circle(radius + thickness, $fn = sides);
+}
+
+module ring_regular_polygon_sector(radius, angle, thickness, width, sides) {
+	intersection() {
+		ring_regular_polygon(radius - 0.1, thickness + 0.2, sides);
+		rotate([0, 0, angle]) 
+            line2d([0, 0], [0, radius * 3 + width], width);
+	}
+}
+
+module regular_polygon_to_polygon_wall(radius, length, angle, thickness, sides) {
+    intersection() {
+        difference() {
+		    circle(radius + length, $fn = sides);
+			circle(radius, $fn = sides);
+	    }
+	    rotate([0, 0, angle]) 
+            line2d([0, 0], [0, (radius + length) * 2 + thickness], thickness);
+	}
+}
+
+module regular_polygon_maze(radius, cblocks, levels, thickness = 1, sides) {    
+    function replace(v1, v2, vs) =
+        [for(i = [0:len(vs) - 1]) vs[i] == v1 ? v2 : vs[i]];
+
+    arc_angle = 360 / cblocks;
+	r = radius / (levels + 1);
+	
+	maze = go_maze(1, 1, 
+        replace(
+            [levels, cblocks - 1, 0, UPPER_RIGHT_WALL], [levels, cblocks - 1, 0, UPPER_WALL], 
+            starting_maze(cblocks, levels)
+        ),
+        cblocks, levels, y_circular = true
+    );
+	
+	difference() {
+		 union() {
+			for(i = [1 : levels + 1]) {
+			    ring_regular_polygon(r * i, thickness, sides);
+			}
+		  
+		  
+			for(i = [0:len(maze) - 1]) { 
+				cord = maze[i];
+				cr = cord[0]; 
+				cc = cord[1] - 1;    
+				v = cord[2];
+				
+				angle = cc * arc_angle;
+				 
+				if(v == 1 || v == 3) { 
+				    regular_polygon_to_polygon_wall(r * cr, r, cc * arc_angle , thickness, sides);
+				} 
+			}
+	    }
+		
+		union() {
+		    // maze entry
+			// ring_regular_polygon_sector(r, arc_angle / 1.975 , thickness, r / 3, sides);   
+
+	        // road to the next level
+			for(i = [0:len(maze) - 1]) { 
+				cord = maze[i];
+				cr = cord[0]; 
+				cc = cord[1] - 1;    
+				v = cord[2];
+				
+				if(v == 0 || v == 1) { 
+				    ring_regular_polygon_sector(r * (cr + 1), (cc + 0.5) * arc_angle , thickness, r / 3 , sides);
+				}  
+			}
+		}
+	}
+}
+
+linear_extrude(wall_height) 
+    regular_polygon_maze(radius_of_circle_wrapper, cblocks, levels, wall_thickness, sides);