chiark / gitweb /
Sundial_Digital_V1.1_cleansed.scad: downloaded
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 27 Feb 2016 19:08:13 +0000 (19:08 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 27 Feb 2016 19:08:13 +0000 (19:08 +0000)
th-1068443/th-1149469/Sundial_Digital_V1.1_cleansed.scad [new file with mode: 0644]

diff --git a/th-1068443/th-1149469/Sundial_Digital_V1.1_cleansed.scad b/th-1068443/th-1149469/Sundial_Digital_V1.1_cleansed.scad
new file mode 100644 (file)
index 0000000..4e99fe5
--- /dev/null
@@ -0,0 +1,942 @@
+\r
+//*************************************************************//\r
+//   [EN]  ---   DIGITAL SUNDIAL\r
+//   [FR]  ---   CADRAN SOLAIRE NUMERIQUE\r
+//*************************************************************//\r
+//\r
+//      Author: Mojoptix\r
+//      website: www.mojoptix.com\r
+//      Email: julldozer@mojoptix.com\r
+//      Date: 13 october 2015\r
+//      License: Creative Commons CC-BY (Attribution)\r
+//\r
+//*************************************************************//\r
+// Optimized by Margu on 24 november 2015\r
+//*************************************************************//\r
+//\r
+//   [EN]   The episode #001 of the video podcast Mojoptix describes this sundial in details:\r
+//              http://www.mojoptix.com/fr/2015/10/12/ep-001-cadran-solaire-numerique\r
+//\r
+\r
+//\r
+//   [FR]   L'episode #001 du podcast video mojoptix decrit ce cadran solaire en detail:\r
+//              http://www.mojoptix.com/fr/2015/10/12/ep-001-cadran-solaire-numerique\r
+//\r
+\r
+//*************************************************************//\r
+\r
+\r
+// Choose what you want to print/display:\r
+// 1: the gnomon\r
+// 2: the central connector piece\r
+// 3: the top part of the lid \r
+// 4: the bottom part of the lid\r
+// 10: display everything\r
+FLAG_PRINT = 1;\r
+\r
+FLAG_northern_hemisphere = 1;   // set to 1 for Northen Hemisphere, set to 0 for Southern Hemisphere\r
+\r
+FLAG_gnomon_brim = 0;   // Add a brim to the gnomon\r
+FLAG_bottom_lid_support = 1;    // Add some support structure for the lid teeth\r
+\r
+\r
+\r
+/* ************************************************************************/\r
+/* PARAMETERS *************************************************************/\r
+/*************************************************************************/\r
+epsilon_thickness = 0.02; // used to ensure openscad is not confused by almost identical surfaces\r
+\r
+gnomon_brim_thickness = 0.3;\r
+gnomon_brim_width = 10;\r
+gnomon_brim_gap = 0.1;\r
+\r
+FLAG_mirror_x_characters = 1;     // set to 0 if viewing directly the characters on the blocks, set to 1 if viewing their reflection of a surface\r
+\r
+gnomon_radius = 30; // (change at your own risks !)\r
+\r
+pixel_size_x = gnomon_radius*8.0/40.0;\r
+pixel_size_y = gnomon_radius*1.0/40.0;\r
+pixel_pitch_x = gnomon_radius*10.0/40.0;\r
+pixel_pitch_y = gnomon_radius*10.0/40.0;\r
+\r
+grid_pixel_depth = 0.1;\r
+\r
+nn = 40.0/gnomon_radius;\r
+\r
+/* ************************************************************************/\r
+/* FONT *******************************************************************/\r
+/* ************************************************************************/\r
+/* index in the array   0 1 2 3 4 5 6 7 8 9 10 11           12\r
+   Characters:          0 1 2 3 4 5 6 7 8 9 :  {full white} {full dark}\r
+Note: \r
+       1st coordinate in the array: the index in the array (see above)\r
+       2nd coordinate in the array: the Y (!!) coordinate\r
+       3nd coordinate in the array: the X coordinate   \r
+*/\r
+font_nb_pixel_x = 4;    // 4 pixels wide\r
+font_nb_pixel_y = 6;    // 6 pixels high\r
+\r
+font_char = [[\r
+                            [0,1,1,0], //index 0: character "0"\r
+                            [1,0,0,1],\r
+                            [1,0,1,1],\r
+                            [1,1,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,1,0,0], //index 1: character "1"\r
+                            [1,1,0,0],\r
+                            [0,1,0,0],\r
+                            [0,1,0,0],\r
+                            [0,1,0,0],\r
+                            [1,1,1,0],\r
+                       ],[\r
+                            [0,1,1,0], //index 2: character "2"\r
+                            [1,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,1,1,0],\r
+                            [1,0,0,0],\r
+                            [1,1,1,1],\r
+                       ],[\r
+                            [0,1,1,0], //index 3: character "3"\r
+                            [1,0,0,1],\r
+                            [0,0,1,1],\r
+                            [0,0,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [1,0,0,1], //index 4: character "4"\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [1,1,1,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                       ],[\r
+                            [1,1,1,1], //index 5: character "5"\r
+                            [1,0,0,0],\r
+                            [1,1,1,0],\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                            [1,1,1,0],\r
+                       ],[\r
+                            [0,1,1,1], //index 6: character "6"\r
+                            [1,0,0,0],\r
+                            [1,1,1,0],\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [1,1,1,1], //index 7: character "7"\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,1,0],\r
+                            [0,1,0,0],\r
+                            [1,0,0,0],\r
+                       ],[\r
+                            [0,1,1,0], //index 8: character "8"\r
+                            [1,0,0,1],\r
+                            [0,1,1,0],\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,1,1,0], //index 9: character "9"\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,1,1],\r
+                            [0,0,0,1],\r
+                            [1,1,1,0],\r
+                       ],[\r
+                            [0,0,0,0], //index 10: character ":"\r
+                            [0,0,0,0],\r
+                            [0,1,0,0],\r
+                            [0,0,0,0],\r
+                            [0,1,0,0],\r
+                            [0,0,0,0],\r
+                       ],[\r
+                            [1,1,1,1], //index 11: character {full white}\r
+                            [1,1,1,1],\r
+                            [1,1,1,1],\r
+                            [1,1,1,1],\r
+                            [1,1,1,1],\r
+                            [1,1,1,1],\r
+                       ],[\r
+                            [0,0,0,0], //index 12: character {full dark}\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                       ],\r
+// Added by Margu : we add some "characters" to display the transitions\r
+// "0"-"1" transition character has pixels lit only if both corresponding digits are lit (boolean And operation)\r
+// and so on ...\r
+                         [\r
+                            [0,1,0,0], //index 13: character {"0" to "1" transition}\r
+                            [1,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,1,0,0],\r
+                            [0,0,0,0],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,1,0,0], //index 14: character {"1" to "2" transition}\r
+                            [1,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,1,0,0],\r
+                            [0,0,0,0],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,1,1,0], //index 15: character {"2" to "3" transition}\r
+                            [1,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,0],\r
+                            [1,0,0,0],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,0,0,0], //index 16: character {"3" to "4" transition}\r
+                            [1,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,0],\r
+                       ],[\r
+                            [1,0,0,1], //index 17: character {"4" to "5" transition}\r
+                            [1,0,0,0],\r
+                            [1,0,0,0],\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,0],\r
+                       ],[\r
+                            [0,1,1,1], //index 18: character {"5" to "6" transition}\r
+                            [1,0,0,0],\r
+                            [1,1,1,0],\r
+                            [0,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,1,1,1], //index 19: character {"6" to "7" transition}\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,0],\r
+                       ],[\r
+                            [1,1,1,1], //index 20: character {"7" to "8" transition}\r
+                            [0,0,0,1],  // not used, so wrong values !!!\r
+                            [0,0,0,1],\r
+                            [0,0,1,0],\r
+                            [0,1,0,0],\r
+                            [1,0,0,0],\r
+                       ],[\r
+                            [0,1,1,0], //index 20: character {"8" to "9" transition}\r
+                            [1,0,0,1],  // not used, so wrong values !!!\r
+                            [0,1,1,0],\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,1,1,0], //index 22: character {"9" to "0" transition}\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [0,1,0,1],\r
+                            [0,0,0,1],\r
+                            [0,1,1,0],\r
+                       ],[  \r
+                            [0,1,1,0], //index 23: character {"0" to "2" transition}\r
+                            [1,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,1,0,0],\r
+                            [1,0,0,0],\r
+                            [0,1,1,0],\r
+                       ],[\r
+                            [0,0,0,0], //index 24: character {"2" to "4" transition}\r
+                            [1,0,0,1],\r
+                            [0,0,0,1],\r
+                            [0,1,1,0],\r
+                            [0,0,0,0],\r
+                            [0,0,0,1],\r
+                       ],[\r
+                            [0,0,0,0], //index 25: character {"4" to "0" transition}\r
+                            [1,0,0,1],\r
+                            [1,0,0,1],\r
+                            [1,1,0,1],\r
+                            [0,0,0,1],\r
+                            [0,0,0,0],\r
+                       ]\r
+                      ];\r
+\r
+\r
+/* ************************************************************************/\r
+/* MODULES ****************************************************************/\r
+/* ************************************************************************/\r
+\r
+/* ************************************************************************/\r
+module extrude_pixel(direction_angle_x,direction_angle_y, pixel_wall_angle_x, pixel_wall_angle_y) {\r
+/* Extrude a pixel in a given direction.\r
+   input: \r
+        direction_angle_x: extrusion angle (from the normal to the pixel) in the x direction\r
+        direction_angle_y: extrusion angle (from the normal to the pixel) in the y direction\r
+   Return a (positive) solid that can then be substracted from another solid \r
+   (Origin at the center of the base pixel)\r
+*/\r
+    // compute geometry\r
+    top_pixel_location_z = 2*gnomon_radius;     // ie: somewhere outside the gnomon\r
+//    top_pixel_location_x = top_pixel_location_z * tan(direction_angle_x);\r
+//    top_pixel_location_y = top_pixel_location_z * tan(direction_angle_y); \r
+    top_pixel_size_x = pixel_size_x +2*top_pixel_location_z*tan(pixel_wall_angle_x);    // account for the non_vertical pixel walls\r
+    top_pixel_size_y = pixel_size_y +2*top_pixel_location_z*tan(pixel_wall_angle_y);\r
+    // build (positive) geometry: extrude vertically then rotate\r
+  union() {  rotate([direction_angle_y,direction_angle_x,0])     // rotate the whole extrusion in the chosen direction\r
+        hull(){\r
+            rotate([-direction_angle_y,-direction_angle_x,0])  // derotate the base pixel (to keep it flat at the bottom)\r
+                cube([pixel_size_x,pixel_size_y,epsilon_thickness], center=true);\r
+            translate([0,0,top_pixel_location_z])\r
+                cube([top_pixel_size_x, top_pixel_size_y,epsilon_thickness], center=true);\r
+        }\r
+    }\r
+}\r
+\r
+\r
+/* ************************************************************************/\r
+module extrude_character(font_index, direction_angle_x, direction_angle_y, pixel_wall_angle_x, pixel_wall_angle_y) {\r
+/* Extrude a (pixelated) character in a given direction:\r
+   input: \r
+       font_index: the index of the character in the font array\r
+        direction_angle_x: extrusion angle (from the normal to the pixel) in the x direction\r
+        direction_angle_y: extrusion angle (from the normal to the pixel) in the y direction\r
+   Return a (positive) solid that can then be substracted from another solid \r
+   (Origin at the center of the base character)\r
+*/\r
+    for (tx=[0:(font_nb_pixel_x-1)]){\r
+            for (ty=[0:(font_nb_pixel_y-1)]){ \r
+                if(FLAG_mirror_x_characters==0) { // Note: y is the 2nd coordinate, x is the 3rd (see definition of the Font)\r
+                    if(font_char[font_index][ty][tx]==1) { \r
+                            translate([(tx-(font_nb_pixel_x-1)/2)*pixel_pitch_x, (ty-(font_nb_pixel_y-1)/2)*pixel_pitch_y,0]){\r
+                                    extrude_pixel(direction_angle_x,direction_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+                            }\r
+                    }\r
+                }\r
+                else {  // mirror the characters across x\r
+                    if(font_char[font_index][ty][font_nb_pixel_x-1-tx]==1) {  \r
+                            translate([(tx-(font_nb_pixel_x-1)/2)*pixel_pitch_x, (ty-(font_nb_pixel_y-1)/2)*pixel_pitch_y,0]){\r
+                                    extrude_pixel(direction_angle_x,direction_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+                            }\r
+                    }\r
+                }\r
+                    \r
+    }}\r
+}\r
+\r
+\r
+/* ************************************************************************/\r
+module build_create_pixel_grid(pixel_depth, ID_column_OFF=[]) {\r
+/* Create a grid where each intersection row/column is a potential pixel\r
+   Input: \r
+        pixel_depth: the depth of the pixel grid\r
+        ID_column_OFF: list all the columns that should be left OFF (eg not built), exemple: [0,1]\r
+   Return a (positive) solid that can then be substracted from another solid \r
+   (Origin at the center of the base character)\r
+*/\r
+    if (len(ID_column_OFF)<font_nb_pixel_x) {\r
+        intersection(){\r
+            cube([(font_nb_pixel_x+1)*pixel_pitch_x,(font_nb_pixel_y)*pixel_pitch_y,pixel_depth*3], center=true);  // the column imprint only goes from the bottom to the top row\r
+            // Draw the columns\r
+            union(){\r
+                for (tx=[0:(font_nb_pixel_x-1)]){\r
+                    FLAG_draw_this_column = len( search(tx, ID_column_OFF) ) ==  0;\r
+                    if (FLAG_draw_this_column ){\r
+                        translate([(tx-(font_nb_pixel_x-1)/2)*pixel_pitch_x, 0,pixel_depth/2])\r
+    //                        cube([pixel_size_x,gnomon_radius*3,pixel_depth+epsilon_thickness], center=true);\r
+                            cube([0.1,gnomon_radius*3,pixel_depth], center=true);                    \r
+                    }\r
+                }\r
+            }\r
+        }\r
+    }\r
+        //Draw the rows\r
+        union(){\r
+            for (ty=[0:(font_nb_pixel_y-1)]){ \r
+                translate([0, (ty-(font_nb_pixel_y-1)/2)*pixel_pitch_y,pixel_depth/2])\r
+//                    cube([gnomon_radius*30,1.5*pixel_size_y,pixel_depth+epsilon_thickness], center=true);\r
+                    cube([gnomon_radius*30,0.1,pixel_depth], center=true);\r
+            }\r
+        }\r
+}    \r
+\r
+/* ************************************************************************/\r
+module build_block(gnomon_thickness, char_list, char_angle_x, char_angle_y, pixel_wall_angle_x, pixel_wall_angle_y) {\r
+/* Build a block with a set of characters */\r
+    difference(){\r
+        // Build The gnomon shape\r
+            intersection(){\r
+                translate([0,0,gnomon_radius/2])\r
+                        cube([gnomon_thickness,2*gnomon_radius,gnomon_radius], center=true);\r
+                translate([0,0,0])\r
+                        rotate([90,0,90]) cylinder(r=gnomon_radius, h=gnomon_thickness, center=true, $fn=100);\r
+            }\r
+    \r
+        // Carve the light guides for each number\r
+        for (ti = [0:(len(char_list)-1)]){\r
+            extrude_character(char_list[ti],char_angle_x[ti],char_angle_y[ti], pixel_wall_angle_x, pixel_wall_angle_y);\r
+        }\r
+    }\r
+    // Add a brim\r
+    if (FLAG_gnomon_brim == 1) {\r
+#        color("green"){\r
+            difference(){\r
+                cube([gnomon_thickness, gnomon_radius*2+gnomon_brim_width*2, gnomon_brim_thickness],center=true);\r
+                cube([10*gnomon_thickness, gnomon_radius*2+gnomon_brim_gap*2, 10*gnomon_brim_thickness],center=true);\r
+            }\r
+        }}\r
+}\r
+\r
+/* ************************************************************************/\r
+module build_spacer_block(gnomon_thickness) {\r
+/* Build a spacer block*/\r
+    color("red"){\r
+     difference(){   \r
+        // The gnomon shape\r
+            intersection(){\r
+                translate([0,0,gnomon_radius/2])\r
+                        cube([gnomon_thickness+epsilon_thickness,2*gnomon_radius,gnomon_radius], center=true);\r
+                translate([0,0,0])\r
+                        rotate([90,0,90]) cylinder(r=gnomon_radius, h=gnomon_thickness+epsilon_thickness, center=true, $fn=100);\r
+            }\r
+        // The pixel grid\r
+        build_create_pixel_grid(grid_pixel_depth, ID_column_OFF=[0,1,2,3,4]);\r
+    }\r
+    }\r
+    // Add a brim\r
+    if (FLAG_gnomon_brim == 1) {\r
+#        color("green"){\r
+            difference(){\r
+                cube([gnomon_thickness, gnomon_radius*2+gnomon_brim_width*2, gnomon_brim_thickness],center=true);\r
+                cube([10*gnomon_thickness, gnomon_radius*2+gnomon_brim_gap*2, 10*gnomon_brim_thickness],center=true);\r
+            }\r
+        }}    \r
+\r
+\r
+}\r
+\r
+/* ************************************************************************/\r
+module build_round_top_block() {\r
+    gnomon_thickness = gnomon_radius;\r
+/* Build a round top block*/\r
+    color("green"){\r
+        intersection(){\r
+            translate([0,0,gnomon_radius/2])\r
+                    cube([gnomon_thickness,2*gnomon_radius,gnomon_radius], center=true);\r
+            translate([gnomon_radius/2,0,0])\r
+                    scale([0.3,1,1]) sphere(r=gnomon_radius, center=true, $fn=100);\r
+        }\r
+    }\r
+\r
+    // Add a brim\r
+    if (FLAG_gnomon_brim == 1) {\r
+#        color("green"){\r
+            difference(){\r
+                translate([0.35*gnomon_thickness-gnomon_brim_width/2,0,0]) cube([0.3*gnomon_thickness+gnomon_brim_width, gnomon_radius*2+gnomon_brim_width*2, gnomon_brim_thickness],center=true);\r
+                translate([gnomon_radius/2,0,0])\r
+                    minkowski(){\r
+                        scale([0.3,1,1]) sphere(r=gnomon_radius, center=true, $fn=100);\r
+                        sphere(r=gnomon_brim_gap, center=true, $fn=10);\r
+                    }\r
+            }\r
+        }}    \r
+    \r
+}\r
+/* ************************************************************************/\r
+module Block_hours_tens() {\r
+    color("blue"){\r
+    gnomon_thickness = gnomon_radius*45.0/40.0; //45;\r
+    pixel_wall_angle_x = 0;         // [degrees] angle of the walls along the x direction\r
+    pixel_wall_angle_y = 6.0;         // [degrees] angle of the walls along the y direction    \r
+\r
+/*    char_angle_x = [0,0,0,0,0,0,0];\r
+    char_angle_y = [-45,-30,-15,0,15,30,45];\r
+    char_list = [1,1,1,1,1,1,1]; \r
+*/\r
+// Modified by Margu\r
+// We add intermediate angles (-37, -22, -15, -8, 8, 15, 22, 37) to display transition characters thus removing not needed material.\r
+//  Because there is no need to make a dark transition for pixels which remain lit\r
+    char_angle_x = [0,0,0,0,0,0,0,0,0,0,0,0,0];\r
+    char_angle_y = [ -45,-37,  -30,  -22,  -15,  -8,  0,  8,  15,  22,  30,  38,  45];\r
+    char_list = [1,1,1,1,1,1,1,1,1,1,1,1,1];     \r
+      difference(){\r
+        build_block(gnomon_thickness, char_list, char_angle_x, char_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+        build_create_pixel_grid(grid_pixel_depth, ID_column_OFF=[]);\r
+    }\r
+}}\r
+\r
+/* ************************************************************************/\r
+module Block_hours_units() {\r
+    color("blue"){\r
+    gnomon_thickness = gnomon_radius*45.0/40.0; //45;\r
+    pixel_wall_angle_x = 0;         // [degrees] angle of the walls along the x direction\r
+    pixel_wall_angle_y = 6.0;         // [degrees] angle of the walls along the y direction    \r
+\r
+// Modified by Margu\r
+// We add intermediate angles (-37, -22, -15, -8, 8, 15, 22, 37) to display transition characters thus removing not needed material.\r
+//  Because there is no need to make a dark transition for pixels which remain lit\r
+    char_angle_x = [0,0,0,0,0,0,0,0,0,0,0,0,0];\r
+    char_angle_y = [-45,-38,-30, -22, -15,-8,0,8,15,22,30,38,45];\r
+    char_list = [0,13,1,14,2,15,3,16,4,17,5,18,6];\r
+\r
+    difference(){\r
+        build_block(gnomon_thickness, char_list, char_angle_x, char_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+        build_create_pixel_grid(grid_pixel_depth, ID_column_OFF=[]);\r
+    }    \r
+}}\r
+\r
+/* ************************************************************************/\r
+module Block_minutes_tens() {\r
+    color("blue"){\r
+    gnomon_thickness = gnomon_radius*45.0/40.0; //45;\r
+    pixel_wall_angle_x = 0;         // [degrees] angle of the walls along the x direction\r
+    pixel_wall_angle_y = 1.0;         // [degrees] angle of the walls along the y direction \r
+        \r
+// Modified by Margu\r
+// We add intermediate angles (-48, -43, -38, -22, -15, -8, 8, 15, 22, 38, 43, 48) to display transition characters thus removing not needed material.\r
+//  Because there is no need to make a dark transition for pixels which remain lit    \r
+    char_angle_x = [0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0,  0];\r
+    char_angle_y = [-50,-48,-45,-43,-40,-38, -35,-33,-30,-28,-25,-23, -20,-18,-15,-13,-10,-8, -5,-3,0,3,5,8, 10,13,15,18,20,23, 25,28,30,33,35,38, 40];\r
+    char_list = [0,23,2,24,4,25,0,23,2,24,4,25,0,23,2,24,4,25,0,23,2,24,4,25,0,23,2,24,4,25,0,23,2,24,4,25, 0];\r
+\r
+    difference(){\r
+        build_block(gnomon_thickness, char_list, char_angle_x, char_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+        build_create_pixel_grid(grid_pixel_depth, ID_column_OFF=[]);\r
+    }    \r
+}}\r
+\r
+/* ************************************************************************/\r
+module Block_minutes_units() {\r
+    color("blue"){\r
+    gnomon_thickness = gnomon_radius*45.0/40.0; //45;\r
+    pixel_wall_angle_x = 0;         // [degrees] angle of the walls along the x direction\r
+    pixel_wall_angle_y = 8.0;         // [degrees] angle of the walls along the y direction    \r
+\r
+\r
+    char_angle_x = [0,0,0,0,0,0,0];\r
+    char_angle_y = [-45,-30,-15,0,15,30,45];\r
+    char_list = [0,0,0,0,0,0,0];\r
+    \r
+        difference(){\r
+        build_block(gnomon_thickness, char_list, char_angle_x, char_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+        build_create_pixel_grid(grid_pixel_depth, ID_column_OFF=[]);\r
+    }    \r
+}}\r
+\r
+/* ************************************************************************/\r
+module Block_semicolon() {\r
+    color("blue"){\r
+    gnomon_thickness = gnomon_radius*25.0/40.0; //25;\r
+    pixel_wall_angle_x = 0;         // [degrees] angle of the walls along the x direction\r
+    pixel_wall_angle_y = 8.0;         // [degrees] angle of the walls along the y direction    \r
+\r
+\r
+    char_angle_x = [0,0,0,0,0,0,0];\r
+    char_angle_y = [-45,-30,-15,0,15,30,45];\r
+    char_list = [10,10,10,10,10,10,10];\r
+\r
+    difference(){\r
+        build_block(gnomon_thickness, char_list, char_angle_x, char_angle_y, pixel_wall_angle_x, pixel_wall_angle_y);\r
+        build_create_pixel_grid(grid_pixel_depth, ID_column_OFF=[3]);\r
+    }    \r
+}}\r
+\r
+/* ************************************************************************/\r
+module Block_rotating_base_upper() {\r
+/* Build the upper part of the rotating base */\r
+    gnomon_thickness = gnomon_radius;\r
+    Screw_hole_diameter = 6.5;\r
+    Nut_width_blocking = 8.8+1.3;\r
+    Nut_width_non_blocking = 11.2;\r
+    Washer_Diameter = 11.9;\r
+    Washer_thickness = 1.3;\r
+    color("green"){\r
+    difference(){\r
+        // Build The gnomon shape\r
+        union(){\r
+            intersection(){\r
+                translate([0,0,gnomon_radius/2])\r
+                        cube([2/3*gnomon_thickness,2*gnomon_radius,gnomon_radius], center=true);\r
+                translate([0,0,0])\r
+                        rotate([90,0,90]) cylinder(r=gnomon_radius, h=gnomon_thickness, center=true, $fn=100);\r
+            }\r
+        }\r
+        // The negative space for the screw, nut and washer\r
+        translate([0,0,Washer_Diameter/2+3])\r
+            rotate([90,0,90]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        translate([gnomon_thickness*(0.45-1/3),0,Washer_Diameter/2+3])\r
+            rotate([90,0,90]) cylinder(r=Washer_Diameter/2+4, h=Washer_thickness+2, center=true, $fn=100);\r
+        translate([gnomon_thickness*(0.45-1/3),0,0])\r
+             cube([Washer_thickness+2,Washer_Diameter+8, 2*(Washer_Diameter/2+3)], center=true);\r
+        translate([gnomon_thickness*(0.4-2/3),0,0])\r
+             cube([gnomon_thickness*0.8+1,Nut_width_blocking, 2*(Washer_Diameter/2+3)], center=true);\r
+        intersection(){        \r
+            translate([gnomon_thickness*(0.45-2/3),0,Washer_Diameter/2+3])\r
+                cube([gnomon_thickness, 2*(Nut_width_non_blocking/2+1), 2*(Nut_width_non_blocking/2+1)],center=true); \r
+            translate([gnomon_thickness*(0.45-2/3),0,Washer_Diameter/2+3-epsilon_thickness])\r
+                cube([gnomon_thickness*2/3+1,Nut_width_blocking, gnomon_radius], center=true);            \r
+        }\r
+            translate([gnomon_thickness*(0.45-2/3),0,0])\r
+                cube([gnomon_thickness*2/3+1,Nut_width_blocking+1, 1], center=true);\r
+    }\r
+    }\r
+    \r
+    // Add a brim\r
+    if (FLAG_gnomon_brim == 1) {\r
+#        color("green"){\r
+            difference(){\r
+                translate([gnomon_brim_width/2,0,0,]) cube([2/3*gnomon_thickness+gnomon_brim_width, gnomon_radius*2+gnomon_brim_width*2, gnomon_brim_thickness],center=true);\r
+               translate([-2/3*gnomon_thickness/2,0,0,]) cube([2*2/3*gnomon_thickness+gnomon_brim_gap*2, gnomon_radius*2+gnomon_brim_gap*2, 10*gnomon_brim_thickness],center=true);\r
+            }\r
+        }}\r
+}\r
+\r
+/* ************************************************************************/\r
+module Block_rotating_base_mid() {\r
+/* Build the mid part of the rotating base */\r
+    gnomon_thickness = 1.3*gnomon_radius;\r
+    Screw_hole_diameter = 6.5;\r
+    Nut_width_blocking = 8.8;\r
+    Nut_width_non_blocking = 11.2;\r
+    Washer_Diameter = 11.9;\r
+    Washer_thickness = 1.3;\r
+    color("red"){\r
+\r
+    // The connection to the gnomon\r
+    difference(){\r
+        union(){\r
+            // The gnomon shape\r
+            intersection(){\r
+                translate([0,0,gnomon_radius/2])\r
+                        cube([gnomon_thickness,2*gnomon_radius,gnomon_radius], center=true);\r
+                translate([0,0,0])\r
+                        rotate([90,0,90]) cylinder(r=gnomon_radius, h=gnomon_thickness, center=true, $fn=100);\r
+            }\r
+            // The connection to the base\r
+            intersection(){\r
+                translate([gnomon_thickness*(1-(1-0.7)/2.0),0,gnomon_radius/2])\r
+                    cube([gnomon_thickness*0.7, 0.8*gnomon_radius, gnomon_radius], center=true);\r
+                translate([gnomon_thickness/2.0+gnomon_radius,0,0])\r
+                    rotate([90,0,90]) cylinder(r=gnomon_radius, h=2*gnomon_thickness, center=true, $fn=100);\r
+                \r
+            }            \r
+        }\r
+        // The negative space for the screw and washer\r
+        translate([0,0,Washer_Diameter/2+3])\r
+            rotate([90,0,90]) cylinder(r=Screw_hole_diameter/2, h=20*gnomon_thickness, center=true, $fn=100);\r
+        translate([gnomon_thickness*(0.5-4/8),0,Washer_Diameter/2+2.5])\r
+            cube([gnomon_thickness*(6/8), 2*(Washer_Diameter/2+2), 2*(Washer_Diameter/2+3)],center=true);\r
+        translate([gnomon_thickness*(0.5-4/8),0,Washer_Diameter+4])        \r
+            rotate([90,0,0]) scale([0.37,0.2,1]) cylinder(r=gnomon_thickness, h=2*(Washer_Diameter/2+2), center=true, $fn=100);          \r
+        translate([gnomon_thickness,0,gnomon_radius/2.0])\r
+            rotate([90,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);            \r
+/*        // Small cut to reduce warping issues\r
+        translate([gnomon_thickness,0,gnomon_radius])\r
+            cube([1,2*gnomon_thickness,gnomon_radius], center=true);\r
+*/\r
+        }        \r
+    }\r
+    \r
+    \r
+\r
+}\r
+\r
+\r
+/* ************************************************************************/\r
+module Block_jar_lid_top() {\r
+    gnomon_thickness = 2*gnomon_radius;\r
+    Screw_hole_diameter = 6.5;\r
+    Nut_width_blocking = 8.8;\r
+    Nut_width_non_blocking = 11.2;\r
+    Washer_Diameter = 11.9;\r
+    Washer_thickness = 1.3;\r
+    Base_Wall_thickness = 3.0;\r
+    box_width = gnomon_radius*4;\r
+    box_length = gnomon_radius*4;\r
+    box_height = gnomon_radius*2;\r
+    Base_diameter = 70;\r
+    Connector_x_offset = 10+5;\r
+\r
+    // The Connector\r
+    difference(){\r
+        //General shape\r
+        hull(){\r
+            translate([0,0,gnomon_radius/2.0])\r
+                rotate([90,0,0]) cylinder(r=gnomon_radius/2.0*1.2, h=gnomon_thickness*0.65, center=true, $fn=100);\r
+            translate([Connector_x_offset,0,-0.75*gnomon_radius/2.0-Base_Wall_thickness/2]) rotate([0,0,0]) cylinder(r=Base_diameter/2 ,h=Base_Wall_thickness, center=true, $fn=100);\r
+        }\r
+        // Space to rotate the gnomon\r
+        translate([0,0,gnomon_radius/2.0]) \r
+            rotate([90,0,0]) cylinder(r=gnomon_radius*0.7, h=0.8*gnomon_radius+2*epsilon_thickness, center=true, $fn=100);\r
+        translate([-gnomon_thickness*10,0,9.94*gnomon_radius])\r
+            cube([gnomon_thickness*20, 0.8*gnomon_radius+2*epsilon_thickness, 20*gnomon_radius], center=true);\r
+        translate([-gnomon_thickness*10,0,-0.06*gnomon_radius])\r
+            rotate([0,90,0]) scale([0.3,1,1]) cylinder(r=0.4*gnomon_radius, h=gnomon_thickness*20, center=true, $fn=100);\r
+        translate([gnomon_thickness*10,0,0.65*gnomon_radius])\r
+            rotate([0,90,0]) scale([1.5,1,1]) cylinder(r=0.4*gnomon_radius, h=gnomon_thickness*20, center=true, $fn=100);        \r
+        // Hole for the top screw\r
+        translate([0,0,gnomon_radius/2.0])\r
+            rotate([90,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        // Flat surface for the top screw & washer/nut\r
+        translate([0,-gnomon_thickness*(1+0.5/2+0.25/2-0.01)+2,gnomon_radius/2.0])\r
+            rotate([90,0,0]) cylinder(r=1.5*Washer_Diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        translate([0,gnomon_thickness*(1+0.5/2+0.25/2-0.01)-2,gnomon_radius/2.0])\r
+            rotate([90,0,0]) cylinder(r=1.5*Washer_Diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        // Holes for the two bottom screws\r
+        translate([Connector_x_offset+1.1*Base_diameter/6,0,gnomon_radius/2.0])\r
+            rotate([0,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        translate([Connector_x_offset-1.1*Base_diameter/6,0,gnomon_radius/2.0])\r
+            rotate([0,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);        \r
+       // Flat surfaces for the two bottom screws\r
+        translate([Connector_x_offset+1.1*Base_diameter/6,0,gnomon_radius*1.63-Base_Wall_thickness+Base_Wall_thickness])\r
+            rotate([0,0,0]) cylinder(r=1.5*Washer_Diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        translate([Connector_x_offset-1.1*Base_diameter/6,0,gnomon_radius*1.63-Base_Wall_thickness+Base_Wall_thickness])\r
+            rotate([0,0,0]) cylinder(r=1.5*Washer_Diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        }\r
+\r
+}\r
+\r
+\r
+/* ************************************************************************/\r
+module Block_jar_lid_bottom_old() {\r
+    //Dimensions for a Bonne Maman jam jar\r
+    Lid_diameter_outside = 88;\r
+    Lid_diameter_inside = 82;\r
+    Lid_thickness = 3.0;\r
+    Lid_skirt_height_under_teeth = 0;\r
+    Lid_skirt_full_height = 15 +Lid_thickness +Lid_skirt_height_under_teeth;\r
+    Teeth_thickness = 2.0;\r
+    Teeth_depth = 1.7;\r
+    Teeth_length = 10.0;\r
+    Connector_x_offset = 10;\r
+    Base_diameter = 70;\r
+    gnomon_thickness = 2*gnomon_radius;\r
+    Screw_hole_diameter = 6.5;\r
+    \r
+    translate([Connector_x_offset, 0,0]) {\r
+        //The skirt of the lid\r
+        difference(){\r
+            translate([0,0,-Lid_skirt_full_height/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_outside/2 ,h=Lid_skirt_full_height, center=true, $fn=100);\r
+            translate([0,0,-Lid_skirt_full_height/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_inside/2 ,h=2*Lid_skirt_full_height, center=true, $fn=100);\r
+        }\r
+        //The Teeth\r
+        translate([0,0,-Lid_skirt_full_height+Teeth_thickness/2+Lid_skirt_height_under_teeth]) intersection(){\r
+            difference(){\r
+                rotate([0,0,0]) cylinder(r=(0.5*Lid_diameter_inside+0.5*Lid_diameter_outside)/2 ,h=Teeth_thickness, center=true, $fn=100);\r
+                rotate([0,0,0]) cylinder(r=Lid_diameter_inside/2-Teeth_depth ,h=2*Teeth_thickness, center=true, $fn=100);\r
+            }\r
+            union(){\r
+                rotate([0,0,0]) cube([2*Lid_diameter_outside,Teeth_length,2*Teeth_thickness], center=true);\r
+                rotate([0,0,60]) cube([2*Lid_diameter_outside,Teeth_length,2*Teeth_thickness], center=true);\r
+                rotate([0,0,120]) cube([2*Lid_diameter_outside,Teeth_length,2*Teeth_thickness], center=true);        \r
+            }\r
+        }\r
+        //The flat part of the lid\r
+        difference(){\r
+        translate([0,0,-Lid_thickness/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_outside/2 ,h=Lid_thickness, center=true, $fn=100);\r
+        // Holes for the two screws\r
+        translate([1.1*Base_diameter/6,0,gnomon_radius/2.0])\r
+            rotate([0,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        translate([-1.1*Base_diameter/6,0,gnomon_radius/2.0])\r
+            rotate([0,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);      \r
+        }\r
+\r
+    }\r
+}\r
+\r
+/* ************************************************************************/\r
+module Block_jar_lid_bottom() {\r
+    //Dimensions for a Bonne Maman jam jar\r
+    Lid_diameter_outside = 88;\r
+    Lid_diameter_inside = 82;\r
+    Lid_thickness = 3.0;\r
+    Lid_skirt_height_under_teeth = 0;\r
+    Lid_skirt_full_height = 15 +Lid_thickness +Lid_skirt_height_under_teeth;\r
+    Teeth_thickness = 2.0;\r
+    Teeth_depth = 1.7;\r
+    Teeth_length = 10.0;\r
+    Connector_x_offset = 10;\r
+    Base_diameter = 70;\r
+    gnomon_thickness = 2*gnomon_radius;\r
+    Screw_hole_diameter = 6.5;\r
+    Logo_font_size = 6;\r
+    Logo_negative_depth = 2;\r
+    Logo_positive_depth = 2;\r
+    Logo_inside_cylinder_depth = 0;\r
+    Support_horizontal_gap = 0.2;\r
+    Support_vertical_gap = 0.1; // should 1 layer thickness\r
+    Support_thickness = 1.2;\r
+    Support_height_above = 5; // for an easier removal\r
+    \r
+    translate([Connector_x_offset, 0,0]) {\r
+        //The skirt of the lid\r
+        difference(){\r
+            union(){\r
+                //Outside shape for the skirt\r
+                hull(){\r
+                    translate([0,0,-Lid_skirt_full_height+1/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_outside/2*1.035 ,h=1, center=true, $fn=12); // factor 1.035 because it has 12 faces: Lid_diameter_outside/2 is the minimum distance, instead of the maximum distance\r
+                    translate([0,0,-Lid_thickness-1/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_outside/2 ,h=1, center=true, $fn=100);\r
+                }\r
+            // Add the MOJOPTIX Logo (positive shape)\r
+            rotate([0,0,90]) translate([0,-Lid_diameter_outside/2+Logo_negative_depth+20,-Lid_skirt_full_height/2]) rotate([90,0,0]) linear_extrude(20) text("MOJOPTIX",size=Logo_font_size,halign="center", valign="center",font="Comic Sans MS:style=Bold"); \r
+            rotate([0,0,-30]) translate([0,-Lid_diameter_outside/2+Logo_negative_depth+20,-Lid_skirt_full_height/2]) rotate([90,0,0]) linear_extrude(20) text("MOJOPTIX",size=Logo_font_size,halign="center", valign="center",font="Comic Sans MS:style=Bold");\r
+            rotate([0,0,210]) translate([0,-Lid_diameter_outside/2+Logo_negative_depth+20,-Lid_skirt_full_height/2]) rotate([90,0,0]) linear_extrude(20) text("MOJOPTIX",size=Logo_font_size,halign="center", valign="center",font="Comic Sans MS:style=Bold");                \r
+            }\r
+            //Trim the Positive shape of the MOJOPTIX Logo with a tube\r
+            difference(){\r
+                cylinder(r=10*Lid_diameter_outside/2+Logo_positive_depth,h=1000,center=true, $fn=100);                \r
+                cylinder(r=Lid_diameter_outside/2+Logo_positive_depth,h=1000,center=true, $fn=100);\r
+            }            \r
+            // Add the MOJOPTIX Logo (negative shape)\r
+/*            difference(){\r
+                union(){*/\r
+                    rotate([0,0,90]) translate([0,-Lid_diameter_outside/2+Logo_negative_depth,-Lid_skirt_full_height/2]) rotate([90,0,0]) linear_extrude(100) text("MOJOPTIX",size=Logo_font_size,halign="center", valign="center",font="Comic Sans MS:style=Bold");\r
+                    rotate([0,0,-30]) translate([0,-Lid_diameter_outside/2+Logo_negative_depth,-Lid_skirt_full_height/2]) rotate([90,0,0]) linear_extrude(100) text("MOJOPTIX",size=Logo_font_size,halign="center", valign="center",font="Comic Sans MS:style=Bold");\r
+                    rotate([0,0,210]) translate([0,-Lid_diameter_outside/2+Logo_negative_depth,-Lid_skirt_full_height/2]) rotate([90,0,0]) linear_extrude(100) text("MOJOPTIX",size=Logo_font_size,halign="center", valign="center",font="Comic Sans MS:style=Bold");\r
+/*                }\r
+                //Trim the Negative shape of the MOJOPTIX Logo with a cylinder\r
+                cylinder(r=Lid_diameter_outside/2-Logo_inside_cylinder_depth,h=1000,center=true, $fn=100);\r
+            }*/\r
+            //Inside shape for the skirt\r
+            translate([0,0,-Lid_skirt_full_height/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_inside/2 ,h=2*Lid_skirt_full_height, center=true, $fn=100);\r
+        }            \r
+        //The Teeth\r
+        translate([0,0,-Lid_skirt_full_height+Teeth_thickness/2+Lid_skirt_height_under_teeth]) intersection(){\r
+            difference(){\r
+                rotate([0,0,0]) cylinder(r=(0.5*Lid_diameter_inside+0.5*Lid_diameter_outside)/2 ,h=Teeth_thickness, center=true, $fn=100);\r
+                rotate([0,0,0]) cylinder(r=Lid_diameter_inside/2-Teeth_depth ,h=2*Teeth_thickness, center=true, $fn=100);\r
+            }\r
+            union(){\r
+                rotate([0,0,0]) cube([2*Lid_diameter_outside,Teeth_length,2*Teeth_thickness], center=true);\r
+                rotate([0,0,60]) cube([2*Lid_diameter_outside,Teeth_length,2*Teeth_thickness], center=true);\r
+                rotate([0,0,120]) cube([2*Lid_diameter_outside,Teeth_length,2*Teeth_thickness], center=true);        \r
+            }\r
+        }\r
+\r
+        //The flat part of the lid\r
+        difference(){\r
+            translate([0,0,-Lid_thickness]) rotate_extrude(convexity = 10, $fn = 100) {\r
+                square([Lid_diameter_outside/2-Lid_thickness,Lid_thickness], center=false);\r
+                intersection(){\r
+                    translate([Lid_diameter_outside/2-Lid_thickness+epsilon_thickness,0,-Lid_thickness]) scale([1,1]) circle(r=Lid_thickness, center=true);\r
+                    square([Lid_diameter_outside/2+epsilon_thickness,Lid_thickness+epsilon_thickness], center=false);\r
+                }\r
+            }\r
+        // Holes for the two screws\r
+        translate([1.1*Base_diameter/6,0,gnomon_radius/2.0])\r
+            rotate([0,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);\r
+        translate([-1.1*Base_diameter/6,0,gnomon_radius/2.0])\r
+            rotate([0,0,0]) cylinder(r=Screw_hole_diameter/2, h=2*gnomon_thickness, center=true, $fn=100);      \r
+        // A single line on the 1st layer to have a custom scarring (instead of some scarring at a random place)\r
+        translate([0,0,0]) cube([100,0.1,0.5], center=true);\r
+        }\r
+\r
+\r
+        // Support structure for the teeth\r
+        if (FLAG_bottom_lid_support == 1) {\r
+            color("red") difference(){\r
+                translate([0,0,-Lid_skirt_full_height/2-Lid_thickness/2-Support_vertical_gap-Support_height_above/2]) rotate([0,0,0]) cylinder(r=Lid_diameter_inside/2-Teeth_depth-Support_horizontal_gap,h=Lid_skirt_full_height-Lid_thickness+Support_height_above, center=true, $fn=100);\r
+                translate([0,0,-Lid_skirt_full_height/2-Lid_thickness]) rotate([0,0,0]) cylinder(r=Lid_diameter_inside/2-Teeth_depth-Support_horizontal_gap-Support_thickness ,h=2*Lid_skirt_full_height+2*Support_height_above, center=true, $fn=100);\r
+                cube([2,1000,1000],center=true);\r
+            }\r
+            \r
+        }\r
+    }\r
+\r
+\r
+    \r
+\r
+\r
+}\r
+\r
+\r
+/* ************************************************************************/\r
+/* ************************************************************************/\r
+module Gnomon_Digits(nn) {\r
+/*    translate([112.5/nn,0,0]) Block_hours_tens(); \r
+    translate([85/nn,0,0]) build_spacer_block(10/nn); \r
+    translate([57.5/nn,0,0])  Block_hours_units();\r
+    translate([30/nn,0,0]) build_spacer_block(10/nn);\r
+\r
+    translate([12.5/nn,0,0]) Block_semicolon();\r
+\r
+    translate([-22.5/nn,0,0])    Block_minutes_tens();\r
+    translate([-50/nn,0,0]) build_spacer_block(10/nn);\r
+    translate([-77.5/nn,0,0])   Block_minutes_units();    \r
+*/\r
+    translate([112.5/nn,0,0]) Block_hours_tens(); \r
+    translate([89/nn,0,0]) build_spacer_block(2/nn); \r
+    translate([65.5/nn,0,0])  Block_hours_units();\r
+    translate([38/nn,0,0]) build_spacer_block(10/nn);\r
+\r
+    translate([20.5/nn,0,0]) Block_semicolon();\r
+\r
+    translate([-14.5/nn,0,0])    Block_minutes_tens();\r
+    translate([-42/nn,0,0]) build_spacer_block(10/nn);\r
+    translate([-69.5/nn,0,0])   Block_minutes_units();    \r
+     \r
+}\r
+\r
+/* ************************************************************************/\r
+module Gnomon_Rounded_Top(nn) {\r
+    translate([-120/nn,0,0]) build_round_top_block();   \r
+}\r
+/* ************************************************************************/\r
+module Gnomon_Bottom_Connector(nn) {\r
+    translate([155/nn,0,0]) Block_rotating_base_upper();\r
+}\r
+/* ************************************************************************/\r
+module Central_Connector(nn) {\r
+    color("red") translate([205/nn,0,0]) Block_rotating_base_mid();\r
+}\r
+/* ************************************************************************/\r
+module Jar_Lid_Top(nn) {\r
+    translate([265/nn,0,0]) Block_jar_lid_top();\r
+}\r
+/* ************************************************************************/\r
+module Jar_Lid_Bottom(nn) {\r
+//    color("blue"){\r
+        translate([265/nn,0,-24/nn]) Block_jar_lid_bottom();\r
+//    }\r
+}\r
+\r
+\r
+/* ************************************************************************/\r
+module Gnomon(nn) {\r
+    color("green"){\r
+    if (FLAG_northern_hemisphere==1){\r
+        translate([5,0,0])    Gnomon_Digits(nn);\r
+        translate([11,0,0])   Gnomon_Rounded_Top(nn);\r
+        translate([0,0,0])    Gnomon_Bottom_Connector(nn);        \r
+    }\r
+    else {\r
+        translate([37.25,0,0]) rotate([0,0,180]) Gnomon_Digits(nn);\r
+        translate([11,0,0])   Gnomon_Rounded_Top(nn);\r
+        translate([0,0,0])    Gnomon_Bottom_Connector(nn); \r
+    }\r
+}}\r
+\r
+/* ************************************************************************/\r
+/* MAIN *******************************************************************/\r
+/* ************************************************************************/\r
+\r
+// Choose what you want to print/display:\r
+// 1: the gnomon\r
+if (FLAG_PRINT == 1) Gnomon(nn);\r
+// 2: the central connector piece\r
+if (FLAG_PRINT == 2) translate([-8,0,0]) Central_Connector(nn);\r
+// 3: the top part of the lid\r
+if (FLAG_PRINT == 3) translate([-14,0,0]) Jar_Lid_Top(nn);\r
+// 4: the bottom part of the lid\r
+if (FLAG_PRINT == 4) translate([-9,0,3.75]) rotate([180,0,0]) Jar_Lid_Bottom(nn);\r
+// 10: everything\r
+if (FLAG_PRINT == 10) \r
+    {\r
+    Gnomon(nn);\r
+    translate([-8,0,0]) Central_Connector(nn);\r
+    translate([-14,0,0]) Jar_Lid_Top(nn);\r
+    translate([-9,0,3.75]) Jar_Lid_Bottom(nn); \r
+    }
\ No newline at end of file