--- /dev/null
+\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