Metamaquina2.scad

// (c) 2013 Metamáquina <http://www.metamaquina.com.br/>
//
// Author:
// * Felipe C. da S. Sanches <fsanches@metamaquina.com.br>
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program.  If not, see <http://www.gnu.org/licenses/>.

include <Metamaquina2.h>;
include <BillOfMaterials.h>;

extruder_wiring_radius = 6;
YEndstopHolder_distance = 66;

//utils
use <utils.scad>;
use <mm2logo.scad>;
use <rounded_square.scad>;
use <tslot.scad>;

//subassemblies
include <endstop.h>;
include <heated_bed.h>;
use <lasercut_extruder.scad>;
use <RAMBo.scad>;
use <jhead.scad>;

//parts
include <NEMA.h>;
include <coupling.h>;
include <washers.h>;
include <bolts.h>;
include <nuts.h>;
include <spacer.h>;
include <lm8uu_bearing.h>;
include <jhead.h>;
include <PowerSupply.h>;
use <608zz_bearing.scad>;
use <domed_cap_nuts.scad>;
use <belt-clamp.scad>;
use <cable_clips.scad>;

//3d printed parts
include <ZLink.h>;
use <bar-clamp.scad>;

top_cable_clips = [
//[type, angle, y, z]
//upper wiring:
    ["RA9", 90, -70,130]];

left_cable_clips = [
//[type, angle, y, z]
//upper wiring:
    ["RA9", 90, 80,200],
    ["RA9", 180, 120,310],
    ["RA9", 0, 120,230],
//lower wiring:
    ["RA13", -90, 80,170],
    ["RA13", 0, 120,130],
    ["RA13", 180, 120,60],
    ["RA13", 90, 180,30],
//ymotor wire:
    ["RA6", 90, 65,30]];

right_cable_clips = [
//[type, angle, y, z]
//lower wiring (power supply):
    ["RA13", 90, 185,35],
    ["RA13", 90, 115,35]];
    
bottom_cable_clips = [
//[type, angle, y, z]
//lower wiring:
    ["RA13", -90, -100,0],
    ["RA13", 90, 0,0],
    ["RA13", -90, 100,0]];

bearing_sandwich_spacing = 12;

//coordinates of the RAMBo electronics board
RAMBo_x = 1;
RAMBo_y = 133;

rods_radius_clearance = 0.04; //extra room for the X and Z rods

//For the actual build volume we avoid using the marginal
//region around the heated bed

HeatedBed_X = BuildVolume_X + 15; // 215 mm
HeatedBed_Y = BuildVolume_Y + 20; // 220 mm

hack_couplings = 5; // for astethical purposes, the z-couplings are animated rotating <hack_couplings> times slower than the correct mechanical behaviour

time = $t;
function carx_demo(time) = sin(360*time*7)*BuildVolume_X/2;
function cary_demo(time) = cos(360*time*7)*BuildVolume_Y/2;
//function carz_demo(time) = (0.5+0.5*sin(360*time))*0.3*BuildVolume_Y/2 + 0.7*BuildVolume_Y/2;
function carz_demo(time) = time*BuildVolume_Z;
function coupling_demo(time) = (360*carz_demo(time)/1.25)/hack_couplings;

/* Positioning of the extruder assembly */
XCarPosition = -100; //carx_demo(time);
YCarPosition = 0; //cary_demo(time);
ZCarPosition = 150; //carz_demo(time);

//-------------------------

//machine configs:

/* whether or not to add holes for a PowerSupply manufactured by Hiqua and sold 
by Nodaji in Brazil */
HIQUA_POWERSUPPLY=true;

/* dimensions of the machine feet */
feetwidth = 50;
feetheight = 12;

/*Here are a bunch of constants that determine the overall positioning 
and dimensions of the several acrylic/plywood panels:*/

BuildPlatform_SidePanels_distance = 40;
SidePanels_distance = HeatedBed_X + 2*BuildPlatform_SidePanels_distance;

RightPanel_baseheight = 92;
RightPanel_basewidth = 2*(HeatedBed_Y)+10;

//Z_rods_distance = 388; //PrusaAir2
Z_rods_distance = SidePanels_distance + 2*(z_rod_z_bar_distance + NEMA17_width/2 + 5);

//TODO: machine_width = ?;
machine_height = BuildVolume_Z + 207.2; //why?

XZStage_offset = 20;
XZStage_position = RightPanel_basewidth/2 + XZStage_offset;
z_max_endstop_x = XZStage_position - 41;
z_max_endstop_y = machine_height - 19;

z_min_endstop_x = z_max_endstop_x - 28;
z_min_endstop_y = 109;

baseh = 35;
ArcPanel_rear_advance = 105;
horiz_bars_length = SidePanels_distance + 2*(m8_nut_height + m8_washer_thickness);
base_bars_height = 17;
base_bars_Zdistance = 50;

bar_cut_length=13;
Y_rod_length = RightPanel_basewidth - 2*(bar_cut_length + m8_diameter/2) + 24;
Y_rod_height = base_bars_Zdistance + base_bars_height + 10.2;//TODO
BottomPanel_width=60;
Z_rod_sidepanel_distance = (Z_rods_distance - SidePanels_distance)/2 + thickness;

heatedbed_spring_length = 13; //TODO: 
heatedbed_spring_compressed_length = 7.4; //TODO: 
compressed_spring=1;

YPlatform_height = Y_rod_height + lm8uu_diameter/2;
pcb_height = YPlatform_height + thickness + 
heatedbed_spring_compressed_length*compressed_spring + heatedbed_spring_length*(1-compressed_spring);

BuildPlatform_height = pcb_height + heated_bed_pcb_thickness + heated_bed_glass_thickness;

//machine_x_dim is the actual width of the whole machine
machine_x_dim = Z_rods_distance+2*(lm8uu_diameter/2+thickness);

XEnd_extra_width = 30;
XEnd_box_size = lm8uu_diameter/2 + z_rod_z_bar_distance + ZLink_rod_height;

//height of the bottom panel acrylic/plywood sheet:
BottomPanel_zoffset = feetheight + NEMA17_length + 2;

Z_rod_length = machine_height - BottomPanel_zoffset + thickness;
Z_bar_length = thickness + machine_height - BottomPanel_zoffset - motor_shaft_length;

margin=4;
tslot_extra=thickness+margin; //todo
XPlatform_width = X_rods_distance + X_rods_diameter + 2*margin + 2* tslot_extra;
XEnd_width = XPlatform_width+XEnd_extra_width;
num_extruders = 1;
extra_extruder_length = 50; //TODO
XCarriage_padding = 6;
XCarriage_nozzle_hole_radius = 20;
XCarriage_width = XPlatform_width + 22;
//XCarriage_width = XPlatform_width;
//XCarriage_width = XEnd_width;
XCarriage_length = 82 + (num_extruders-1) * extra_extruder_length;
XCarriage_lm8uu_distance = XCarriage_length - 30;

nozzle_hole_width = 50;
nozzle_hole_length = machine_x_dim - 2*XEnd_box_size - nozzle_hole_width - 2*thickness - 2*20;

belt_offset = 26;
belt_width=5;
belt_clamp_height = 9;
PulleyRadius = 6;
IdlerRadius = 11;
XMotor_height = 31;
XIdler_height = XMotor_height + PulleyRadius - IdlerRadius;
X_rod_length = machine_x_dim - 2*thickness;
X_rod_height = XMotor_height + PulleyRadius - lm8uu_diameter/2 - 2*thickness;

XCarriage_height = thickness + X_rod_height + lm8uu_diameter/2;

nozzle_tip_distance = jhead_length-jhead_instalation_depth - thickness - XCarriage_height;
echo(str("nozzle_tip_distance:", nozzle_tip_distance));
 
RightPanel_backwidth = 55;
RightPanel_backheight = machine_height - RightPanel_baseheight;

rear_backtop_advance = XZStage_position - (XPlatform_width/2 + XEnd_extra_width + 10) - RightPanel_backwidth;

RightPanel_topheight = 30;
RightPanel_topwidth = XZStage_position + 30 - rear_backtop_advance;

ArcPanel_width = SidePanels_distance - 2 * thickness;
ArcPanel_height = 140; //TODO: make it depend on the machine height

SidePanel_TSLOT_SHAPES = [
//parameters => [x, y, angle]
  [rear_backtop_advance+RightPanel_topwidth-25, machine_height+thickness, 180],
  [rear_backtop_advance+5, machine_height+thickness, 180]
];

SidePanel_TSLOTS = [
//parameters => [x, y, width, angle]
  //tslots for arc panel
  [XZStage_position - ArcPanel_rear_advance + thickness/2, machine_height-50, 50, 0],
  [XZStage_position - ArcPanel_rear_advance + thickness/2, machine_height-ArcPanel_height, 50, 0],
  //tslots for bottom panel (without joints)
  [XZStage_position + BottomPanel_width/2 + BottomPanel_width/4, BottomPanel_zoffset + thickness/2, 0, 0],
  [XZStage_position + -BottomPanel_width/2 - BottomPanel_width/4, BottomPanel_zoffset + thickness/2, 0, 0]
];

TopPanel_TSLOTS = [
//parameters => [x, y, width, angle]
  [-ArcPanel_width/2, ArcPanel_rear_advance - thickness/2, 50, -90],
  [25, ArcPanel_rear_advance - thickness/2, 50, 90],
  [ArcPanel_width/2, ArcPanel_rear_advance - thickness/2, 50, 90],
  [-Z_rods_distance/2 + Z_rod_sidepanel_distance - thickness/2, -30, 50, 0],
  [-Z_rods_distance/2 + Z_rod_sidepanel_distance - thickness/2, RightPanel_topwidth-60, 50, 0],
  [Z_rods_distance/2-Z_rod_sidepanel_distance + thickness/2, -30, 50, 0],
  [Z_rods_distance/2-Z_rod_sidepanel_distance + thickness/2, RightPanel_topwidth-60, 50, 0]
];

XEndMotor_back_face_TSLOTS = [
//parameters => [x, y, width, angle]
  [XPlatform_width/2 - thickness,
   thickness,
   XPlatform_height - thickness,
   0],

  [-XPlatform_width/2 - XEnd_extra_width + thickness,
   thickness,
   XPlatform_height - thickness,
   0]
];

XEndIdler_back_face_TSLOTS = [
//parameters => [x, y, width, angle]
  [XPlatform_width/2 + XEnd_extra_width - thickness,
   thickness,
   XPlatform_height - thickness,
   0],

  [-XPlatform_width/2 + thickness,
   thickness,
   XPlatform_height - thickness,
   0]
];

// 2d shapes for laser-cutting:

module RodEndTop_face(){
  RodEnd_face(z_rod_z_bar_distance+8);
}

module SecondaryRodEndTop_face(){
  SecondaryRodEnd_face(z_rod_z_bar_distance+8);
}

module RodEndBottom_face(){
  RodEnd_face(0, third_hole=false);
}

module RodEnd_face(L, third_hole=true){
  R=12;
  r=6;
  difference(){
    union(){
      translate([-R,-R])
      rounded_square([R,2*R], corners=[R,0,R,0]);
      translate([0,-R])
      rounded_square([L+r,2*R], corners=[0,r,0,r]);
    }

    //holes
    translate([L, -(R-4)])
    M3_hole();
    translate([L, (R-4)])
    M3_hole();

    if (third_hole){
      translate([-(R-4), 0])
      M3_hole();
    }
  }
}

//!SecondaryRodEnd_face(z_rod_z_bar_distance+8);
module SecondaryRodEnd_face(L, third_hole=true){
  R=12;
  r=6;
  difference(){
    RodEnd_face(L, third_hole=true);

    circle(r=m8_diameter/2 + rods_radius_clearance);

    translate([L-8,0])
    circle(r=m8_diameter/2 + 2);
  }
}

module YMotorHolder_face(){
  r = 12;
  H = (50-2*r)*sqrt(2) + 2*r;
  hack=r*0.8; //this should be refactored using hull();

  render(){
    difference(){
      union(){
        polygon(points=[[base_bars_height + base_bars_Zdistance/2 - H/2 + hack, 0], [base_bars_height + base_bars_Zdistance/2 - H/2, 0], [base_bars_height + base_bars_Zdistance/2 - H/2, 50+r], [base_bars_height + base_bars_Zdistance/2 + H/2, 50+r], [base_bars_height + base_bars_Zdistance/2 + H/2, 30]]);

        translate([base_bars_height,0])
        rotate([0,0,30]) circle(r=r, $fn=6);
        translate([base_bars_height + base_bars_Zdistance,30])
        rotate([0,0,30]) circle(r=r, $fn=6);

        translate([base_bars_height + base_bars_Zdistance/2, 60])
        rotate([0,0,-45])
        rounded_square([50,50], corners=[r,r,r,r], center=true);
      }    

      translate([base_bars_height + base_bars_Zdistance/2, 60])
      rotate([0,0,-45])
      NEMA17_holes();

      //holes for rear bars
      translate([base_bars_height,0])
      rotate([0,0,30]) circle(r=m8_diameter/2);
      translate([base_bars_height + base_bars_Zdistance,30])
      rotate([0,0,30]) circle(r=m8_diameter/2);

      translate([25,25])
      rotate(-45)
      zip_tie_holes();
    }
  }
}


module holes_for_motor_wires(){
  height=40;
  x=120;
  heights = [60,120,180];

  translate([210, height])
  zip_tie_holes();

  translate([x+20, height])
  zip_tie_holes();

  translate([x, height-10])
  rotate([0,0,45])
  zip_tie_holes(d=7);

  translate([50, height-10])
  zip_tie_holes(d=5);

  for (h = heights){
    translate([x, h])
    rotate([0,0,90])
    zip_tie_holes(d=20);
  }

}

//!MachineLeftPanel_face();
module MachineLeftPanel_face(){
  difference(){
    union(){
      MachineSidePanel_face();
      //extra area for mounting the ZMIN endstop:
      translate([145,76])
      trapezoid(h=30, l1=50, l2=80, r=10);
    }

    for (clip=left_cable_clips){
        assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
            translate([x,y])
            rotate(angle)
            cable_clip_mount(type); 
        }
    }

    translate([RAMBo_x, RAMBo_y]){
      RAMBo_holes();
      RAMBo_wiring_holes();
    }

    translate([120,180]){
        //hole for the XMotor wire. Should be large enough to let the
        //motor connector to pass through it. 
        hull(){
            for (i=[-1,1])
                translate([i*NEMA17_connector_width/2, 0])
                circle(r=NEMA17_connector_height/2+1);
        }

        //and a zip tie to keep it in place:
        translate([0,-10])
        rotate(90)
        zip_tie_holes();
    }

    translate([z_max_endstop_x, z_max_endstop_y])
    z_max_mount_holes();

    translate([z_min_endstop_x, z_min_endstop_y])
    z_min_mount_holes();

    //holes_for_motor_wires();
    //holes_for_z_endstop_wires();
    //holes_for_x_motor_and_endstop_wires();
    //holes_for_endstops();
  }
}

module holes_for_endstops(){
  translate([30,265])
  zip_tie_holes();
}

module holes_for_z_endstop_wires(){
  translate([80,337]){
    zip_tie_holes(d=7);

    translate([7,0])
    hull()
    zip_tie_holes(r=2, d=10, bom=false);

    translate([120,0])
    zip_tie_holes(d=7);

    translate([60,0])
    zip_tie_holes(d=7);
  }
}

module holes_for_x_motor_and_endstop_wires(){
  translate([80,240]){
    hull(){
      rotate([0,0,90])
      zip_tie_holes(d=12, r=2, bom=false);
    }

    translate([0,10])
    rotate([0,0,90])
    zip_tie_holes(d=12);
  }
}

powersupply_Xposition = rear_backtop_advance+RightPanel_backwidth - XZStage_offset - 5;
powersupply_Yposition = base_bars_height*2 + 33 + 20;

//!MachineRightPanel_face();
module MachineRightPanel_face(){
  difference(){
    union(){
      MachineSidePanel_face();
      //extra area just to keep the machine symmetric (the other side panel uses this extra area for mounting the ZMIN endstop)
      translate([145,76])
      trapezoid(h=30, l1=50, l2=80, r=10);
    }

    for (clip=right_cable_clips){
      assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
        translate([x,y])
        rotate(angle)
        rotate([180,0])
        cable_clip_mount(type);
      }
    }

    if (HIQUA_POWERSUPPLY){
      translate([powersupply_Xposition - PowerSupply_width, powersupply_Yposition])
      PowerSupply_mount_holes();
    }

    //zip-tie holes for RAMBo power wires
    // not necessary anymore (spiral tube or contractile mesh)
    translate([30 + feetwidth,feetheight*2.5]){
      //translate([10,-3])
      //rotate([0,0,90])
      //zip_tie_holes();

      //translate([20,2])
      //zip_tie_holes(d=10);

      //translate([120,10])
      //zip_tie_holes();
    }
  }
}

module bar_cut(l=2*bar_cut_length){
  hull()
    for(i=[-1,1])
    translate([i*l/2,0]) circle(r=m8_diameter/2);
}

//!MachineSidePanel_face();
module MachineSidePanel_face(){
  union(){
    difference(){
      MachineSidePanel_plainface();

      //holes for inserting front bars
      translate([30, base_bars_height]) bar_cut();
      translate([0, base_bars_Zdistance + base_bars_height]) bar_cut();

      //holes for inserting rear bars
      translate([RightPanel_basewidth-30, base_bars_height]) bar_cut();
      translate([RightPanel_basewidth, base_bars_Zdistance + base_bars_height]) bar_cut();

      //cut for attaching bottom panel
      translate([XZStage_position - BottomPanel_width/2, BottomPanel_zoffset - slot_extra_thickness/2])
      square([BottomPanel_width, thickness + slot_extra_thickness]);

      translate([XZStage_position - 12, feetheight-5]){
        //hole for z motors wiring
        rounded_square([24, 24+5], corners=[5,5,5,5]);

        //zipties to protect the Z-motor wiring from mechanical stress
        translate([12,37])
        rotate(45)
        zip_tie_holes();
      }

      tslot_shapes_from_list(SidePanel_TSLOT_SHAPES);
      tslot_holes_from_list(SidePanel_TSLOTS);
    }

    //tslots for top panel
    translate([rear_backtop_advance-20, machine_height+thickness/2])
    rotate([0,0,-90])
    TSlot_joints();

    translate([rear_backtop_advance + RightPanel_topwidth - 50, machine_height+thickness/2])
    rotate([0,0,-90])
    TSlot_joints();
  }
}

//!MachineRightPanel_face();

//!MachineSidePanel_plainface();
module MachineSidePanel_plainface(){
  r1=0.1;
  r2=60;
  H=150;
  k=19;
  union(){
    hull(){
      translate([rear_backtop_advance-k, machine_height-r1]) circle(r=r1);
      translate([r2, RightPanel_baseheight + H]) circle(r=r2);
    }

    //top
    translate([rear_backtop_advance, machine_height - RightPanel_topheight])
    rounded_square([RightPanel_topwidth, RightPanel_topheight], corners=[0, 15, 0, 0]);

    //back
    translate([rear_backtop_advance, RightPanel_baseheight])
    square([RightPanel_backwidth, RightPanel_backheight]);
    polygon(points = [ [rear_backtop_advance-k, machine_height], [rear_backtop_advance, machine_height], [rear_backtop_advance, RightPanel_baseheight], [0,RightPanel_baseheight], [0,RightPanel_baseheight + H]]);

    //base
    translate([0,RightPanel_baseheight - baseh])
    rounded_square([RightPanel_basewidth, baseh], corners=[0,0,0,15]);

    polygon(points = [ [30, feetheight], [0,RightPanel_baseheight - baseh], [30,RightPanel_baseheight - baseh]]);
    translate([30, feetheight])
    square([RightPanel_basewidth-60,RightPanel_baseheight - feetheight]);
    polygon(points = [ [RightPanel_basewidth-30, feetheight], [RightPanel_basewidth,RightPanel_baseheight - baseh], [RightPanel_basewidth-30,RightPanel_baseheight - baseh]]);

    //feet
    translate([RightPanel_basewidth-30-feetwidth,0])
    rounded_square([feetwidth, feetheight], corners=[5, 5, 0, 0]);
    translate([30,0])
    rounded_square([feetwidth, feetheight], corners=[5, 5, 0, 0]);
  }
}

module TopPanel_holes(){
  translate([Z_rods_distance/2,0]){
    //holes for Zrod and Zbar
    circle(r = m8_diameter/2 + rods_radius_clearance);

    translate([8, 0])
    M3_hole();

    translate([-z_rod_z_bar_distance - 8, -8])
    M3_hole();

    translate([-z_rod_z_bar_distance - 8, 8])
    M3_hole();

    translate([-z_rod_z_bar_distance,0]){
      //This hole's diameter is considerably larger than the threaded rod diameter
      // in order to allow slightly bent rods to freely move. Otherwise, we would potentially have more whobble as a result of a tightly fixed rod.
      circle(r=(m8_diameter+4)/2);
    }
  }
}

module MachineArcPanel_face(){
  render(){
    difference(){
      union(){
        translate([-ArcPanel_width/2, ArcPanel_height - 53])
        square([ArcPanel_width,53]);

        translate([-ArcPanel_width/2, 0])
        rounded_square([20,ArcPanel_height], corners=[5,5,5,5]);
        translate([+ArcPanel_width/2-20, 0])
        rounded_square([20,ArcPanel_height], corners=[5,5,5,5]);

        polygon(points=[ [-ArcPanel_width/2, 0], [-ArcPanel_width/2, ArcPanel_height],[-ArcPanel_width/2 + 60, ArcPanel_height], [-ArcPanel_width/2 + 10, 0] ]);

        polygon(points=[ [ArcPanel_width/2, 0], [ArcPanel_width/2, ArcPanel_height],[ArcPanel_width/2 - 60, ArcPanel_height], [ArcPanel_width/2 - 10, 0] ]);

        //tslots for top panel
        translate([0,ArcPanel_height + thickness/2]){
          translate([-ArcPanel_width/2, 0])
          rotate([0,0,-90])
          TSlot_joints();

          translate([25, 0])
          rotate([0,0,90])
          TSlot_joints();

          translate([ArcPanel_width/2, 0])
          rotate([0,0,90])
          TSlot_joints();
        }

        //tslots for left panel
        translate([-ArcPanel_width/2 - thickness/2, 0]){
          translate([0, ArcPanel_height - 50])
          TSlot_joints();

          //translate([0, ArcPanel_height/2 - 25])
          //TSlot_joints();

          TSlot_joints();
        }

        //tslots for right panel
        translate([ArcPanel_width/2 + thickness/2, 0]){
          translate([0, ArcPanel_height - 50])
          TSlot_joints();

          //translate([0, ArcPanel_height/2 - 25])
          //TSlot_joints();

          TSlot_joints();
        }
      }


      //Metamaquina2 logo
      translate([-191/2, ArcPanel_height - 44])
        MM2_logo();

      //tslots for top panel
      translate([0,ArcPanel_height + thickness]){
        translate([-ArcPanel_width/2 + 25, 0])
        rotate([0,0,180])
        t_slot_shape(3,16);

        rotate([0,0,180])
        t_slot_shape(3,16);

        translate([ArcPanel_width/2 - 25, 0])
        rotate([0,0,180])
        t_slot_shape(3,16);
      }

      //tslots for right panel
      translate([ArcPanel_width/2 + thickness, 0]){
        translate([0, 25])
        rotate([0,0,90])
        t_slot_shape(3,16);

/*
        translate([0, ArcPanel_height/2])
        rotate([0,0,90])
        t_slot_shape(3,16);
*/


        translate([0, ArcPanel_height - 25])
        rotate([0,0,90])
        t_slot_shape(3,16);
      }

      //tslots for left panel
      translate([-ArcPanel_width/2 - thickness, 0]){
        translate([0, 25])
        rotate([0,0,-90])
        t_slot_shape(3,16);

/*
        translate([0, ArcPanel_height/2])
        rotate([0,0,-90])
        t_slot_shape(3,16);
*/

        translate([0, ArcPanel_height - 25])
        rotate([0,0,-90])
        t_slot_shape(3,16);
      }
    }
  }
}

//These are auxiliary parts for tightening up the extruder wiring when it passes through the TopPenal hole.
module top_wiring_hole_aux(r=5, border=4){
  difference(){
    hull(){
      circle(r=10 + border);

      translate([13,0]) circle(r=3/2 + border);
      translate([-13,0]) circle(r=3/2 + border);
    }
    circle(r=r);
    translate([13,0]) M3_hole();
    translate([-13,0]) M3_hole();
  }
}

module top_hole_for_extruder_wires(){
  translate([0,120]){
    circle(r=10);

    translate([13,0]) M3_hole();
    translate([-13,0]) M3_hole();
  }
}

//!MachineTopPanel_face();
module MachineTopPanel_face(){
  sidewidth=78;
  difference(){
    union(){
      translate([-machine_x_dim/2,-30])
      rounded_square([sidewidth, 60], corners=[30, 2, 0, 0]);

      translate([machine_x_dim/2 - sidewidth,-30])
      rounded_square([sidewidth, 60], corners=[2, 30, 0, 0]);
                              
      //%translate([-5,112]) square([10.20,15.20]);
      
      translate([0,60]){
        translate([-machine_x_dim/2,-30])
        rounded_square([sidewidth, 100], corners=[0, 0, sidewidth, 0]);

        translate([machine_x_dim/2 - sidewidth,-30])
        rounded_square([sidewidth, 100], corners=[0, 0, 0, sidewidth]);
      }

      translate([0,127])
      rounded_square([Z_rods_distance - 2*Z_rod_sidepanel_distance + 8*thickness, 61], corners=[10,10,10,10], center=true);
    }

    for (clip=top_cable_clips){
      assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
        translate([x,y])
        rotate(angle)
        cable_clip_mount(type); 
      }
    }

    top_hole_for_extruder_wires();

    tslot_holes_from_list(TopPanel_TSLOTS);

    TopPanel_holes(); 
    mirror([1,0,0]) TopPanel_holes();
  }
}

module BottomPanel_holes(){
    //holes for Z rods
    translate([Z_rods_distance/2,0]){
      circle(r=m8_diameter/2 + rods_radius_clearance);
      translate([0, -8]) M3_hole();
      translate([0, 8]) M3_hole();
      //translate([8, 0]) M3_hole();
    }

    //holes for ZMotors
    translate([Z_rods_distance/2 - z_rod_z_bar_distance, 0])
    NEMA17_holes(r=27/2); //This should be large enough to let the coupling pass through the hole

    //tslot cuts for side panels
    translate([Z_rods_distance/2 - Z_rod_sidepanel_distance + thickness, -BottomPanel_width/2 -BottomPanel_width/4])
    rotate([0,0,90])
    t_slot_shape(3,16);

    translate([Z_rods_distance/2 - Z_rod_sidepanel_distance + thickness, BottomPanel_width/2 + BottomPanel_width/4])
    rotate([0,0,90])
    t_slot_shape(3,16);
}

module heatedbed_bottompanel_hole(){
  translate([20,5])
  heated_bed_wire_passthru_hole();
}

module zip_tie_holes(d=12, r=m3_diameter/2, bom=true){
  if (bom)
    BillOfMaterials("Zip tie", ref="T18R_6.6_P");

  for (i=[-1,1]){
    translate([0,d/2*i])
    circle(r=r, $fn=20);
  }
}

module YBelt(){
  //TODO: pass length to BOM as a float - update integration script to support it
  BillOfMaterials("GT2 belt for the Y axis", 1, ref="GT2B6");
  
  translate([2.5, 0, 66])
  rotate([0,0,-90])
  rotate([90,0,0]){
    belt(bearings = [
          [/*x:*/ RightPanel_basewidth/2 - bar_cut_length,
           /*y:*/ 0,
           /*r:*/ IdlerRadius],

          [/*x:*/ -RightPanel_basewidth/2 + bar_cut_length,
           /*y:*/ 0,
           /*r:*/ IdlerRadius],

          [/*x:*/ -RightPanel_basewidth/2 + bar_cut_length + 30,
           /*y:*/ -base_bars_Zdistance,
           /*r:*/ IdlerRadius]
         ],
         belt_width = belt_width);
  }
}

module YEndstopHolder_face(){
  width = 25;
  height = 13.5;
  r = 5;
  translate([-width/2,0])
  difference(){
    union(){
      rounded_square([width,height], corners=[0,0,r,r]);

      translate([width,-thickness/2])
      rotate(90)
      TSlot_joints(width);
    }

    translate([width/2,-thickness])
    t_slot_shape(3,16);
  }
}

module YEndstopHolder_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Y Endstop Holder");

  material("lasercut")
  linear_extrude(height=thickness)
  YEndstopHolder_face();
}

//!MachineBottomPanel_face();
module MachineBottomPanel_face(){
  render(){
    difference(){
      union(){
        rounded_square([machine_x_dim, BottomPanel_width], corners=[BottomPanel_width/2,BottomPanel_width/2,BottomPanel_width/2,BottomPanel_width/2], center=true);
        square([Z_rods_distance - 2*Z_rod_sidepanel_distance, 2*BottomPanel_width], center=true);
      }

      //cut off some unnecessary material
      translate([0,BottomPanel_width/2 + 42])
      rounded_square([Z_rods_distance - 2*Z_rod_sidepanel_distance - 60, BottomPanel_width], corners=[30,30,30,30], center=true);
      translate([0,-BottomPanel_width/2 - 42])
      rounded_square([Z_rods_distance - 2*Z_rod_sidepanel_distance - 60, BottomPanel_width], corners=[30,30,30,30], center=true);

      for (clip=bottom_cable_clips){
          assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
              translate([x,y])
              rotate(angle)
              rotate([180,0])
              cable_clip_mount(type); 
          }
      }

      BottomPanel_holes();
      mirror([1,0,0]) BottomPanel_holes();

      translate([-Z_rods_distance/2 + Z_rod_sidepanel_distance + thickness + 16, 30])
      heatedbed_bottompanel_hole();

      y_max_endstop_mount_holes();
      y_min_endstop_mount_holes();
    }
  }
}

//!XPlatform_bottom_face();
module XPlatform_bottom_face(remove_frontal_bridge=1){
  r = 14*remove_frontal_bridge;
  s = 42*remove_frontal_bridge;
  render(){
    difference(){
	    union(){
	    	translate([-machine_x_dim/2 + thickness, -XPlatform_width/2+s])
	      square([machine_x_dim - 2 * thickness, XEnd_width-s]);

	    	translate([-machine_x_dim/2 + thickness, -XPlatform_width/2])
	    	rounded_square([XEnd_box_size+thickness+r, XEnd_width], corners=[0,r,0,0]);

	    	translate([+machine_x_dim/2 - 2*thickness - XEnd_box_size - r, -XPlatform_width/2])
	    	rounded_square([XEnd_box_size+thickness+r, XEnd_width], corners=[r,0,0,0]);
	    }

      //hole for extruder nozzle:
      hull()
      for (i=[-1,1])
        translate([i*nozzle_hole_length/2,0]) circle(r=nozzle_hole_width/2);

      x_carriage_screw_driver_access_holes();

      rotate([0,0,180])
      translate([-machine_x_dim/2, 0])
	    XEndIdler_bottom_holes();

      translate([-machine_x_dim/2, 0])
	    XEndMotor_bottom_holes();
    }
  }
}

module XEndMotor_bottom_holes(){
  r=2;

  //hole for lm8uu holder
  translate([0, -20])
  rounded_square([bearing_sandwich_spacing + 3*thickness + r, 40], corners=[0,r,0,r]);

  //These 2 pairs of ziptie holes
  // are meant to hold the XMotor cable in place 
  translate([20, 55])
  rotate(90)
  zip_tie_holes();

  translate([32, 45])
  rotate(90)
  zip_tie_holes();

  //hole for M8 nut&rod
  translate([thickness + XEnd_box_size - ZLink_rod_height, 0])
  rotate([0,0,360/12]) circle(r=8.5, $fn=6);

  //tslot holes
	translate([thickness, XPlatform_width/2 + XEnd_extra_width - thickness])
	rotate([0,0,-90])
	TSlot_holes(width=XEnd_box_size);

	translate([thickness, -XPlatform_width/2 + thickness])
	rotate([0,0,-90])
	TSlot_holes(width=XEnd_box_size);

}

module XEndIdler_bottom_holes(){
  r=2;

  //hole for lm8uu holder
  translate([0, -20])
  rounded_square([bearing_sandwich_spacing + 3*thickness + r, 40], corners=[0,r,0,r]);

  //hole for M8 nut&rod
  translate([thickness + XEnd_box_size - ZLink_rod_height, 0])
  rotate([0,0,360/12]) circle(r=8.5, $fn=6);

  //tslot holes
	translate([thickness, -XPlatform_width/2 - XEnd_extra_width + thickness])
	rotate([0,0,-90])
	TSlot_holes(width=XEnd_box_size);

	translate([thickness, XPlatform_width/2 - thickness])
	rotate([0,0,-90])
	TSlot_holes(width=XEnd_box_size);

}

module motor_face_head(round=18){
  translate([0,XPlatform_height-thickness])
  difference(){
    union(){
      translate([-thickness+round,0]) circle(r=round);

      translate([round-thickness, 0])
      square([XEnd_box_size+2*thickness-2*round, round]);

      translate([XEnd_box_size+thickness-round,0]) circle(r=round);
    }

    translate([-round,-round])
    square([XEnd_box_size + 2*round, round]);
  }
}

module XEnd_plain_face(){
  render(){
    difference(){
      union(){
        square([XEnd_box_size, XPlatform_height - thickness]);

        //bottom
        rotate([0, 0, -90])
        translate([thickness/2, 0])
        TSlot_joints(XEnd_box_size);

        translate([XEnd_box_size + thickness/2, 0])
        TSlot_joints(XPlatform_height - thickness);

        translate([-thickness/2, 0])
        TSlot_joints(XPlatform_height - thickness);
      }

    //bottom tslot
      translate([XEnd_box_size/2, -thickness])
      t_slot_shape(3,16);

    //left
      translate([XEnd_box_size + thickness, (XPlatform_height-thickness)/2])
      rotate([0,0,90])
      t_slot_shape(3, 16);

    //right
      translate([-thickness, (XPlatform_height-thickness)/2])
      rotate([0, 0, -90])
      t_slot_shape(3, 16);
    }
  }
}

module XEndMotor_plain_face(){
  XEnd_plain_face();
}

module XEndIdler_plain_face(){
  XEnd_plain_face();
}

module XEndIdler_belt_face(){
  difference(){
    XEnd_plain_face();
    translate([XEnd_box_size/2, XIdler_height - thickness])
    circle(r=m8_diameter/2);
  }
}

module XEndMotor_belt_face(){
  render(){
    difference(){
      union(){
        XEnd_plain_face();
        motor_face_head();
      }
      translate([XEnd_box_size/2, XMotor_height - thickness])
      NEMA17_holes();
    }
  }
}

//!XEndIdler_back_face();
module XEndIdler_back_face(){
  mirror([1,0])
  difference(){
    XEnd_back_face();
    translate([0,(40+thickness)/2])
    scale(2) mirror([1,0]) mm_logo();
  }
}

module XEndMotor_back_face(){
  difference(){
    XEnd_back_face();
    translate([0,(40+thickness)/2])
    scale(2) mm_logo();
  }
}

module XEnd_back_face(){
  render(){
    difference(){
      union(){
       translate([-XPlatform_width/2 - XEnd_extra_width, 0])
       rounded_square([XEnd_width, XPlatform_height], corners = [0, 0, thickness/2, thickness/2]);

       //extra area for linear bearings
       circle(r=20);
       translate([0, XPlatform_height])
       circle(r=20);
      }

      //holes for bearing sandwich spacers
      translate([14, XPlatform_height])
      M3_hole();
      translate([-14, XPlatform_height])
      M3_hole();
      translate([14, 0])
      M3_hole();
      translate([-14, 0])
      M3_hole();

      tslot_holes_from_list(XEnd_back_face_TSLOTS);
    }
  }
}

module xend_bearing_sandwich_face(){
  translate([0,XPlatform_height/2])
  generic_bearing_sandwich_face(H=XPlatform_height);
}

module generic_bearing_sandwich_plainface(H, r){
  difference(){
    hull(){
      for (j=[-1,1])
        translate([0, j*H/2])
        circle(r=r);
    }

    for (i=[-1,1]){
      for (j=[-1,1]){
        translate([i*14, j*H/2])
        M3_hole();
      }
    }
  }
}

module generic_bearing_sandwich_face(H, r=20, sandwich_tightening=1){
  projection(cut=true){
    difference(){
      linear_extrude(height=thickness)
      generic_bearing_sandwich_plainface(H, r);

      //linear bearings
      translate([0,0,lm8uu_diameter/2 - (bearing_sandwich_spacing + sandwich_tightening)]){
        for (j=[-1,1])
        translate([0,j*H/2])
        LM8UU(bom=false);
      }
    }
  }
}

//!XEnd_front_face();
module XEnd_front_face(){
  difference(){
    union(){
    	translate([-XPlatform_width/2 - XEnd_extra_width, thickness])
	    rounded_square([XEnd_width, XPlatform_height - thickness], corners=[0,0,thickness/2,thickness/2]);

      translate([-XPlatform_width/2 - XEnd_extra_width + belt_offset - 5, XPlatform_height])
      hull(){
        for (i=[-1,1]){
          translate([i*5,2])
          circle(r=3);

          translate([i*11,0])
          circle(r=0.01);
        }
      }
    }
	  
    //holes for x-axis rods
    for (i=[-1,1])
      translate([i*X_rods_distance/2, X_rod_height + thickness])
      circle(r=X_rods_diameter/2 + rods_radius_clearance);

    //screw holes for z-axis threaded bar
    for (i=[-1,1])
      translate([i*dx_z_threaded, thickness+Zlink_hole_height])
      M3_hole();

    //hole for belt
  	translate([-XPlatform_width/2 - XEnd_extra_width + belt_offset - 5, XIdler_height])
    square([belt_width+8, 2*(IdlerRadius+4)], center=true);

    translate([XPlatform_width/2 - thickness, thickness]){
      TSlot_holes(width=XPlatform_height - thickness);
    }

    translate([-XPlatform_width/2 - XEnd_extra_width + thickness, thickness]){
      TSlot_holes(width=XPlatform_height - thickness);
    }
  }
}

module beltclamp_holes(){
  translate([0,9])  
  M3_hole();
  translate([0,-9])  
  M3_hole();
}

module XCarriage_sandwich_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="X Carriage Sandwich");

  material("lasercut")
  linear_extrude(height=thickness)
  XCarriage_sandwich_face();
}

module XCarriage_sandwich_face(){
  projection(cut=true){
    difference(){
      linear_extrude(height=thickness)
      XCarriage_plainface(true);

      //linear bearings
      translate([0, 0, lm8uu_diameter/2 - bearing_sandwich_spacing]){
        for (i=[-1,1]){
          for (j=[-1,1]){
            translate([i*XCarriage_lm8uu_distance/2, j*X_rods_distance/2])
            rotate([0,0,90])
            LM8UU(bom=false);
          }
        }
      }
    }
  }
}

module XEndstopHolder(){
  difference(){
    hull(){
      for (j=[-1,1]){
        translate([XCarriage_length/2 + 10,10*j])
        circle(r=5);

        translate([XCarriage_length/2 - 1,15*j])
        circle(r=5);
      }
    }

    for (j=[-1,1])
      translate([XCarriage_length/2 + 10,j*microswitch_holes_distance/2])

      //these long mount holes are meant to let
      // one freely adjust the mount position
      // of the microswitches
      hull(){
        M25_hole();

        translate([-8,0])
        M25_hole();
      }
  }
}

module x_carriage_screw_driver_access_holes(){
  //holes for the screwdriver to access the wade extruder mount screws
  for (i=[-1,1])
    translate([0,i*extruder_mount_holes_distance/2])
    circle(r=10/2);
}

module XCarriage_plainface(sandwich=false){
  difference(){
    if (sandwich){
      translate([-XCarriage_length/2, -XPlatform_width/2])
      rounded_square([XCarriage_length, XPlatform_width], corners=[10,10,10,10]);
    } else {
      translate([-XCarriage_length/2, -XPlatform_width/2])
      rounded_square([XCarriage_length, XPlatform_width], corners=[10,10,0,0]);

      //belt_clamp_area
      translate([XCarriage_length/2 - 41 + 29,43])
      belt_clamp_holder();

      //belt_clamp_area
      translate([-(XCarriage_length/2 - 41) -29,43])
      mirror([1,0])
      belt_clamp_holder();

      XEndstopHolder();
      mirror([1,0]) XEndstopHolder();
    }

    //central hole for extruder nozzle
    hull(){
      translate([-(num_extruders-1)*extra_extruder_length/2,0])
      circle(r=XCarriage_nozzle_hole_radius);

      translate([(num_extruders-1)*extra_extruder_length/2,0])
      circle(r=XCarriage_nozzle_hole_radius);
    }

    //hole for extruder wiring
    if (!sandwich){
      translate([-25,-10])
      rounded_square([25,20], corners=[5,5,5,5]);
    }

    for (i=[-1,1])
    translate([i*(num_extruders-1)*extra_extruder_length/2,0])

      if (sandwich){
        x_carriage_screw_driver_access_holes();
      } else {
        //holes for attaching and removing the wade extruder
          translate([0,-1*extruder_mount_holes_distance/2])
          circle(r=m4_diameter/2);

        hull(){
          translate([0,1*extruder_mount_holes_distance/2])
          circle(r=m4_diameter/2);

          translate([0,1*extruder_mount_holes_distance/2+10])
          circle(r=m4_diameter/2);
        }
      }

    //holes for spacers
    for (i=[-1,1]){
      for (j=[-1,1]){
        translate([i*(XCarriage_lm8uu_distance/2), j*(XPlatform_width/2 - XCarriage_padding)])
        M3_hole();
      }
      translate([i*(XCarriage_length/2-XCarriage_padding), 0])
      M3_hole();
    }
  }
}

//!XCarriage_bottom_face();
module XCarriage_bottom_face(){
  difference(){
    XCarriage_plainface();

    union(){
      //holes for beltclamps
      translate ([0, XPlatform_width/2 + XEnd_extra_width - belt_offset + belt_width]){
      for (i=[-1.3,1.3])
        translate([i*(XCarriage_lm8uu_distance/2+10), 0])
        beltclamp_holes();
      }
    }

    //these are for making sure the motor wires are not broken by the machine's constant movement:
    translate([-30,15])
    rotate(90)
    zip_tie_holes();
  }
}

// 3d preview of lasercut plates:

module XEnd_bearing_sandwich_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd bearing sandwich");

  translate([thickness,0])
  for (x=[-14,14]){
    for (y=[0,45]){
      rotate([0,90,0])
      rotate([0,0,90])
      translate([x,y])
      double_M3_lasercut_spacer();
    }
  }

  material("lasercut"){
    translate([thickness + bearing_sandwich_spacing,0])
    rotate([0,90,0])
    rotate([0,0,90]){
      linear_extrude(height=thickness)
      xend_bearing_sandwich_face(H=XPlatform_height);
    }
  }
}

module YMotorHolder(){
  material("lasercut")
  linear_extrude(height=thickness)
  YMotorHolder_face();
}

module RodEnd_ZTopLeft_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="RodEnd Z Top Left");

  translate([-Z_rods_distance/2, -XZStage_offset, machine_height+thickness])
  RodEndTop_sheet();
}

module SecondaryRodEnd_ZTopLeft_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Secondary RodEnd Z Top Left");

  translate([-Z_rods_distance/2, -XZStage_offset, machine_height-thickness])
  SecondaryRodEndTop_sheet();
}

module RodEnd_ZTopRight_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="RodEnd Z Top Right");

  translate([Z_rods_distance/2, -XZStage_offset, machine_height+thickness])
  rotate([0,0,180])
  RodEndTop_sheet();
}

module SecondaryRodEnd_ZTopRight_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Secondary RodEnd Z Top Right");

  translate([Z_rods_distance/2, -XZStage_offset, machine_height-thickness])
  rotate([0,0,180])
  SecondaryRodEndTop_sheet();
}

module RodEnd_ZBottomLeft_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="RodEnd Z Bottom Left");

  translate([-Z_rods_distance/2, -XZStage_offset, BottomPanel_zoffset - thickness])
  RodEndBottom_sheet();
}

module RodEnd_ZBottomRight_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="RodEnd Z Bottom Right");

  translate([Z_rods_distance/2, -XZStage_offset, BottomPanel_zoffset - thickness])
  rotate([0,0,180])
  RodEndBottom_sheet();
}

module RodEndTop_sheet(){
  {//TODO: Add these parts to the CAD model
    BillOfMaterials("M3x25 bolt", 3, ref="H_M3x25");
    BillOfMaterials("M3 washer", 3, ref="AL_M3");
    BillOfMaterials("M3 lock-nut", 3, ref="P_M3_ny");
  }

  material("lasercut")
  linear_extrude(height=thickness)
  RodEndTop_face();
}

module SecondaryRodEndTop_sheet(){
  material("lasercut")
  linear_extrude(height=thickness)
  SecondaryRodEndTop_face();
}

module RodEndBottom_sheet(){
  {//TODO: Add these parts to the CAD model
    BillOfMaterials("M3x20 bolt", 2, ref="H_M3x20");
    BillOfMaterials("M3 washer", 2, ref="AL_M3");
    BillOfMaterials("M3 lock-nut", 2, ref="P_M3_ny");
  }

  material("lasercut")
  linear_extrude(height=thickness)
  RodEndBottom_face();
}

module MachineRightPanel_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Machine Right Panel");

  translate([SidePanels_distance/2, RightPanel_basewidth/2, 0])
  rotate([0,0,-90])
  rotate([90,0,0]){
    material("lasercut")
    linear_extrude(height=thickness)
    MachineRightPanel_face();

    translate([0,0,thickness])
    mirror([0,0,1])
    tslot_parts_from_list(SidePanel_TSLOTS);

    if (HIQUA_POWERSUPPLY){
      translate([powersupply_Xposition, powersupply_Yposition])
      rotate([0, 180, 0])
      HiquaPowerSupply_subassembly();
    }

    for (clip=right_cable_clips){
      assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
        translate([x,y, thickness])
        rotate(angle)
        cable_clip(type);
      }
    }
  }
}

//!MachineLeftPanel_sheet();
module MachineLeftPanel_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Machine Left Panel");

  translate([-SidePanels_distance/2 + thickness, RightPanel_basewidth/2])
  rotate([0,0,-90])
  rotate([90,0,0]){
    material("lasercut")
    linear_extrude(height=thickness)
    MachineLeftPanel_face();

    tslot_parts_from_list(SidePanel_TSLOTS);

    for (clip=left_cable_clips){
      assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
        translate([x,y])
        rotate(angle)
        rotate([180,0])
        cable_clip(type);
      }
    }

    translate([RAMBo_x, RAMBo_y, thickness])
    RAMBo();

    translate([z_max_endstop_x, z_max_endstop_y, thickness])      
    z_max_endstop();

    translate([z_min_endstop_x, z_min_endstop_y, thickness])      
    z_min_endstop();
  }
}

module top_wiring_hole_aux_sheet(r){
  BillOfMaterials(category="Lasercut wood", partname="Top Wiring Hole Aux Sheet");  

  material("lasercut")
  linear_extrude(height=thickness)
  top_wiring_hole_aux(r=r);
}

//!MachineTopPanel_sheet();
module MachineTopPanel_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Machine Top Panel");

  {//TODO: Add these parts to the CAD model
    BillOfMaterials("M3x25 bolt", 2, ref="H_M3x25");
    BillOfMaterials("M3 washer", 2, ref="AL_M3");
    BillOfMaterials("M3 lock-nut", 2, ref="P_M3_ny");
  }

  translate([0,-XZStage_offset,machine_height]){
    material("lasercut")
    linear_extrude(height=thickness)
    MachineTopPanel_face();

    tslot_parts_from_list(TopPanel_TSLOTS);

    translate([0,120,thickness])
    top_wiring_hole_aux_sheet(r=extruder_wiring_radius);

    translate([0,120,-thickness])
    top_wiring_hole_aux_sheet(r=extruder_wiring_radius);

    for (clip=top_cable_clips){
      assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
        translate([x,y])
        rotate(angle)
        rotate([180,0])
        cable_clip(type); 
      }
    }
  }
}

module MachineBottomPanel_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Machine Bottom Panel");

  translate([0,-XZStage_offset,BottomPanel_zoffset]){
    material("lasercut")
    linear_extrude(height=thickness)
    MachineBottomPanel_face();

    for (clip=bottom_cable_clips){
        assign(type=clip[0], angle=clip[1], x=clip[2], y=clip[3]){
            translate([x,y])
            rotate(angle)
            rotate([180,0])
            cable_clip(type); 
        }
    }

    translate([22.5,-24,thickness])
    ymax_endstop_subassembly();

    translate([-22.5,24,thickness])
    rotate(180)
    ymin_endstop_subassembly();

  }
}

module MachineArcPanel_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="Machine Arc Panel");

  material("lasercut")
  translate([0,ArcPanel_rear_advance-XZStage_offset, machine_height - ArcPanel_height])
  rotate([90,0,0])
  linear_extrude(height=thickness)
  MachineArcPanel_face();
}

module XCarriage_bottom_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="X Carriage Bottom");

  material("lasercut")
  linear_extrude(height=thickness)
  XCarriage_bottom_face();
}

module XPlatform_bottom_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="X Platform Bottom");

  material("lasercut")
  linear_extrude(height=thickness)
  XPlatform_bottom_face();
}

module XEndMotor_back_face_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Motor Back");

  translate([thickness, 0, 0])
  rotate([0,-90,0])
  rotate([0,0,-90]){
    material("lasercut")
    linear_extrude(height=thickness)
    XEndMotor_back_face();

    tslot_parts_from_list(XEndMotor_back_face_TSLOTS);
  }
}

module XEndMotor_front_face_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Motor Front");

  material("lasercut")
  translate([XEnd_box_size + 2*thickness, 0, 0])
  rotate([0,-90,0])
  rotate([0,0,-90])
  linear_extrude(height=thickness)
  XEnd_front_face();
}

//!XEndIdler_back_face_sheet();
module XEndIdler_back_face_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Idler Back");

  translate([-thickness,0])
  rotate([0,90,0])
  rotate([0,0,90])
  {
    material("lasercut")
    linear_extrude(height=thickness)
    XEndIdler_back_face();

    tslot_parts_from_list(XEndIdler_back_face_TSLOTS);
  }
}

module XEndIdler_front_face_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Idler Front");

  material("lasercut")
  translate([- XEnd_box_size - thickness, 0, 0])
  rotate([0,-90,0])
  rotate([0,0,-90])
  linear_extrude(height=thickness)
  XEnd_front_face();
}

module XEndMotor_plain_face_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Motor Plain Face");

  material("lasercut")
  translate([thickness, -XPlatform_width/2 + 1.5*thickness, thickness])
  rotate([90,0,0])
  linear_extrude(height=thickness)
  XEndMotor_plain_face();
}

module XEndMotor_belt_face_assembly(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Motor Belt Face");

  material("lasercut")
  translate([0, thickness])
  linear_extrude(height=thickness)
  XEndMotor_belt_face();

  translate([0,0,thickness])
  XEndMotor_pulley();

  XMotor();
}

module XEndIdler_plain_face_sheet(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Idler Plain Face");

  material("lasercut")
  translate([- thickness - XEnd_box_size, -XPlatform_width/2 + 1.5*thickness, thickness])
  rotate([90,0,0])
  linear_extrude(height=thickness)
  XEndIdler_plain_face();
}
  
module XEndIdler_belt_face_assembly(){
  BillOfMaterials(category="Lasercut wood", partname="XEnd Idler Belt Face");

  material("lasercut")
  translate([- thickness - XEnd_box_size, XPlatform_width/2 + XEnd_extra_width - 0.5*thickness, thickness])
  rotate([90,0,0])
  linear_extrude(height=thickness)
  XEndIdler_belt_face();

  //TODO: implement XEndIdler bearing subassembly

  translate([-XEnd_box_size/2 - thickness, XPlatform_width/2 + XEnd_extra_width -2.5* thickness, XIdler_height])
  rotate([90,0,0]){
    material("metal")
    cylinder(r=4, h=80, center=true);

    608zz_bearing(true);
  }
}

module Z_couplings(){
  translate([-machine_x_dim/2 + thickness + lm8uu_diameter/2 + z_rod_z_bar_distance, -XZStage_offset, BottomPanel_zoffset + motor_shaft_length - coupling_shaft_depth])
  coupling();

  translate([machine_x_dim/2 - thickness - lm8uu_diameter/2 - z_rod_z_bar_distance, -XZStage_offset, BottomPanel_zoffset + motor_shaft_length - coupling_shaft_depth])
  coupling();
}

module coupling_pair(){
  rotate([0,0,coupling_demo(time)]){
    rotate([0,0,180])
    rotate([0,90,0])
    translate([0, 0, -4.5]) 
    coupling(c=0);

    rotate([0,90,0])
    translate([0, 0, -4.5]) 
    coupling(c=1);
  }
}

module belt(bearings, belt_width=5){
  material("rubber")
  linear_extrude(height=belt_width){
    difference(){
      hull(){
        for (b=bearings){
          assign(x=b[0], y=b[1], r=b[2]){
    		    translate([x,y])
            circle(r=r+2);
          }
        }
      }
      hull(){
        for (b=bearings){
          assign(x=b[0], y=b[1], r=b[2]){
		        translate([x,y])
            circle(r=r);
          }
        }
      }
    }
  }
}

module XBelt(){
  //TODO: pass length to BOM as a float - update integration script to support it
  BillOfMaterials("GT2 belt for the Y axis", 1, ref="GT2B6");
  
  translate([0, XPlatform_width/2 + XEnd_extra_width - belt_offset + thickness]){
    rotate([90,0,0]){
      belt(bearings = [
            [/*x:*/ -machine_x_dim/2 + thickness + XEnd_box_size/2,
             /*y:*/ XMotor_height,
             /*r:*/ 6],

            [/*x:*/ machine_x_dim/2 - thickness - XEnd_box_size/2,
             /*y:*/ XIdler_height,
             /*r:*/ IdlerRadius]
           ],
           belt_width = belt_width);
    }
  }
}

//!XBelt();

module belt_clamps(){

  { //TODO: Add these parts to the CAD model
    BillOfMaterials("M3x20 bolt", 4, ref="H_M3x20"); //TODO: check this!
    BillOfMaterials("M3 lock-nut", 4, ref="P_M3_ny");
    BillOfMaterials("M3 washer", 4, ref="AL_M3");
  }

  for (i=[-1,1])
  translate([XCarPosition + i*1.3*(XCarriage_lm8uu_distance/2+10),
             XPlatform_width/2 + XEnd_extra_width - belt_offset + belt_width,
             belt_clamp_height + 2*thickness + X_rod_height + lm8uu_diameter/2])
  rotate([0,0,90])
  rotate([180,0,0])
  if (i==-1)
    x_carriage_beltclamp();
  else
    mirror([0,1])
    x_carriage_beltclamp();
}

module XEndMotor_linear_bearings(){
  translate([thickness + lm8uu_diameter/2, 0, XPlatform_height/2]){
    for (j=[-1,1]){
        translate([0, 0, j*XPlatform_height/2])
        rotate([90,0])
        LM8UU();
    }
  }
}

module XEndIdler_linear_bearings(){
  mirror([1,0])
  XEndMotor_linear_bearings();
}

module XCarriage_linear_bearings(){
  translate([XCarPosition, 0, thickness + X_rod_height])
  for (i=[-1,1]){
    for (j=[-1,1]){
      translate([i*XCarriage_lm8uu_distance/2, j*X_rods_distance/2])
      rotate([0,0,90])
      LM8UU();
    }
  }
}

module XEndMotor_ZLink(){
  translate([thickness + lm8uu_diameter/2 + z_rod_z_bar_distance + ZLink_rod_height, 0, thickness + Zlink_hole_height])
  rotate([0,0,90])
  rotate([-90,0,0])
  ZLink();
}

module XEndIdler_ZLink(){
  translate([-thickness - lm8uu_diameter/2 - z_rod_z_bar_distance - ZLink_rod_height, 0, thickness + Zlink_hole_height])
  rotate([0,0,-90])
  rotate([-90,0,0])
  ZLink();
}

// consider cutting error for bars length specification
// TODO: render geometry accordingly to specs
function closest(x) = floor(x+0.5);
function corrected_length(x, supplier_error=2) = closest(x) - supplier_error;
function corrected_Ylength(x, supplier_error=2) = closest(x) + supplier_error;

module XRods(){
  BillOfMaterials(str("M8x",corrected_length(X_rod_length),"mm Smooth Rod"), 2, ref=str("MM2_XROD_",corrected_length(X_rod_length)));
  material("metal"){
    translate([0, -X_rods_distance/2, thickness + X_rod_height])
    rotate([0,90,0])
    cylinder(r=8/2, h=X_rod_length, center=true);

    translate([0, X_rods_distance/2, thickness + X_rod_height])
    rotate([0,90,0])
    cylinder(r=8/2, h=X_rod_length, center=true);
  }
}

module YRods(){
  BillOfMaterials(str("M8x",corrected_Ylength(Y_rod_length),"mm Smooth Rod"), 2, ref=str("MM2_YROD_",corrected_Ylength(Y_rod_length)));
  material("metal"){
    translate([Y_rods_distance/2, -Y_rod_length/2, Y_rod_height])
    rotate([-90,0,0])
    cylinder(r=8/2, h=Y_rod_length);

    translate([-Y_rods_distance/2, -Y_rod_length/2, Y_rod_height])
    rotate([-90,0,0])
    cylinder(r=8/2, h=Y_rod_length);
  }
}

module ZRods(){
  BillOfMaterials(str("M8x",corrected_length(Z_rod_length),"mm Smooth Rod"), 2, ref=str("MM2_ZROD_",corrected_length(Z_rod_length)));

  material("metal"){
    translate([-machine_x_dim/2 + thickness + lm8uu_diameter/2, -XZStage_offset, BottomPanel_zoffset])
    cylinder(r=8/2, h=Z_rod_length);

    translate([machine_x_dim/2 - thickness - lm8uu_diameter/2, -XZStage_offset,  BottomPanel_zoffset])
    cylinder(r=8/2, h=Z_rod_length);
  }
}

//TODO:count threaded rods properly
//this counts for the total ammount of uncut bars used to manufacture one MM2
BillOfMaterials("M8 threaded rod (1m)", 2, ref="BR_M8");

module ZBars(){
  
  BillOfMaterials(str("M8x",corrected_length(Z_bar_length),"mm Threaded Rod"), 2);

  material("threaded metal"){
    translate([-machine_x_dim/2 + thickness + lm8uu_diameter/2 + z_rod_z_bar_distance, -XZStage_offset, BottomPanel_zoffset + motor_shaft_length])
    cylinder(r=m8_diameter/2, h=Z_bar_length);

    translate([machine_x_dim/2 - thickness - lm8uu_diameter/2 - z_rod_z_bar_distance, -XZStage_offset, BottomPanel_zoffset + motor_shaft_length])
    cylinder(r=m8_diameter/2, h=Z_bar_length);
  }
}

module XCarriage(){
  { //Add these parts to the CAD model

    //to keep the bearing sandwich in place
    BillOfMaterials("M3 lock-nut", 6, ref="P_M3_ny");
    BillOfMaterials("M3x30 bolt", 6, ref="H_M3x30");
    BillOfMaterials("M3 washer", 6, ref="AL_M3");

    //to attach the extruder to the XCarriage
    BillOfMaterials("M4x25 bolt", 2, ref="H_M4x25");
    BillOfMaterials("M4 lock-nut", 2, ref="P_M4_ny");
  }

  //lasercut parts:
  translate([XCarPosition, 0, XCarriage_height]){
    XCarriage_bottom_sheet();
    translate([0,0,-bearing_sandwich_spacing]){

      for (i=[-1,1]){
        for (j=[-1,1]){
          translate([i*(XCarriage_lm8uu_distance/2), j*(XPlatform_width/2-XCarriage_padding)])
          double_M3_lasercut_spacer();
        }

        translate([i*(XCarriage_length/2-XCarriage_padding), 0])
        double_M3_lasercut_spacer();
      }

      translate([0,0,-thickness])
      XCarriage_sandwich_sheet();
    }

    if (render_extruder)
      translate([0,0,thickness])
      lasercut_extruder();
  }

  {
    //TODO: Add these microswitches to the CAD model
    BillOfMaterials("Microswitch KW11-3Z-5-3T - 18MM",2, ref="KW11-3Z-5-3T" ); //XMIN & XMAX
    BillOfMaterials("M2.5x16 bolt, cylindric head",4, ref="H_M2.5x16_cl");
    BillOfMaterials("M2.5 nut",4, ref="P_M2.5");
    BillOfMaterials("M2.5 washer",4, ref="AL_M2.5");
  }

  //plastic parts:
  belt_clamps();

  //metal parts:
  XCarriage_linear_bearings();

  //nozzle:
  translate([XCarPosition, 0, XCarriage_height + thickness])
  J_head_assembly();
}

module XPlatform(){
  //submodules: 
  XEndMotor();
  XEndIdler();
  XCarriage();
  XBelt();

  //lasercut parts:
  XPlatform_bottom_sheet();

  //metal parts:
  XRods();
}

module GT2_pulley(){
  BillOfMaterials("GT2 pulley 6mm x 16 teeth", ref="GT2P6x16_Al");

  material("metal"){
    //TODO: implement-me!
  }
}

module XEndMotor_pulley(){
  translate([XEnd_box_size/2, XMotor_height])
  GT2_pulley();
}

module XEndMotor(){
  { //TODO: Add these parts to the CAD model

    //For the Z-Link
    BillOfMaterials("Compression Spring CM1516 (D=11.1mm, length=18mm)", 1, ref="CM1516");
    BillOfMaterials("M8 nut", 2, ref="P_M8");
    BillOfMaterials("M3x12 bolt", 2, ref="H_M3x12");
    BillOfMaterials("M3 nut", 2, ref="P_M3");
    BillOfMaterials("M3 washer", 2, ref="AL_M3");

    //to keep the bearing sandwiches in place
    BillOfMaterials("M3 lock-nut", 4, ref="P_M3_ny");
    BillOfMaterials("M3x30 bolt", 4, ref="H_M3x30");
    BillOfMaterials("M3 washer", 4, ref="AL_M3");
  }

  translate([-machine_x_dim/2,0]){
  //lasercut parts:
    XEndMotor_back_face_sheet();
    XEnd_bearing_sandwich_sheet();

    XEndMotor_front_face_sheet();
    XEndMotor_plain_face_sheet();

    translate([thickness, XPlatform_width/2 + XEnd_extra_width - 0.5*thickness])
      rotate([90,0,0])
      XEndMotor_belt_face_assembly();

  //plastic parts:
    XEndMotor_ZLink();

  //metal parts:
    XEndMotor_linear_bearings();
  }
}

module XEndIdler(){

  { //TODO: Add these parts to the CAD model

    //For the Z-Link

    //For the Z-Link
    BillOfMaterials("Compression Spring CM1516 (D=11.1mm, length=18mm)", 1, ref="CM1516");
    BillOfMaterials("M8 nut", 2, ref="P_M8");
    BillOfMaterials("M3x12 bolt", 2, ref="H_M3x12");
    BillOfMaterials("M3 nut", 2, ref="P_M3");
    BillOfMaterials("M3 washer", 2, ref="AL_M3");

    //to keep the bearing sandwiches in place
    BillOfMaterials("M3 lock-nut", 4, ref="P_M3_ny");
    BillOfMaterials("M3x30 bolt", 4, ref="H_M3x30");
    BillOfMaterials("M3 washer", 4, ref="AL_M3");

    //for the idler bearing assembly
    BillOfMaterials("M8x35 bolt", 1, ref="H_M8x35");
    BillOfMaterials("M8 lock-nut", 1, ref="P_M8_ny");
    BillOfMaterials("M8 washer", 5, ref="AL_M8");//TODO: check this!
    BillOfMaterials("M8 mudguard washer", 2, ref="AF_M8");
  }


  translate([machine_x_dim/2, 0, 0]){
  //lasercut parts:
    XEndIdler_back_face_sheet();

    rotate([0,0,180])
    XEnd_bearing_sandwich_sheet();

    XEndIdler_front_face_sheet();
    XEndIdler_plain_face_sheet();
    XEndIdler_belt_face_assembly();

  //plastic parts:
    XEndIdler_ZLink();

  //metal parts:
    XEndIdler_linear_bearings();
  }
}

module BuildPlatform_pcb(){
  translate([0,0,pcb_height])
  heated_bed();
}

module YPlatform_left_sandwich_sheet(){
  material("lasercut")
  linear_extrude(height=thickness)
  YPlatform_left_sandwich_face();
}

module YPlatform_right_sandwich_sheet(){
  material("lasercut")
  linear_extrude(height=thickness)
  YPlatform_right_sandwich_face();
}

YBearings_distance = 100;
module YPlatform_right_sandwich_face(){
  generic_bearing_sandwich_face(H=YBearings_distance);
}

module YPlatform_left_sandwich_outline(){
//This shape and it's positioning are important to let the heated bed wiring free to move. If we placed it mirrored there would be a chance of the wiring to get stuck in one of the corners of this sheet.

  width=40;
  height=50;
  r=5;
  R=25;
  translate([-width/2,-height/2])
  rounded_square([width, height], corners=[R,r,R,r]);
}

module YPlatform_left_sandwich_holes(){
    translate([-14,0])
    M3_hole();

    for (j=[-1,1])
      translate([14,j*(50/2 - 5)])
      M3_hole();
}

module YPlatform_left_sandwich_face(sandwich_tightening=1){
  difference(){
    projection(cut=true){
      difference(){
        linear_extrude(height=thickness)
        YPlatform_left_sandwich_outline();

        //linear bearing
        translate([0,0,lm8uu_diameter/2 - (bearing_sandwich_spacing + sandwich_tightening)])
        LM8UU(bom=false);
      }
    }

    YPlatform_left_sandwich_holes();
  }
}

module YPlatform_sheet(){
  material("lasercut")
  linear_extrude(height=thickness)
  YPlatform_face();
}

//!YPlatform_subassembly();
module YPlatform_subassembly(){

  { //Add these parts to the CAD model

    //to keep the left bearing sandwiches in place
    BillOfMaterials("M3 lock-nut", 3, ref="P_M3_ny");
    BillOfMaterials("M3x30 bolt", 3, ref="H_M3x30");
    BillOfMaterials("M3 washer", 3, ref="AL_M3");

    //to keep the right bearing sandwiches in place
    BillOfMaterials("M3 lock-nut", 4, ref="P_M3_ny");
    BillOfMaterials("M3x30 bolt", 4, ref="H_M3x30");
    BillOfMaterials("M3 washer", 4, ref="AL_M3");

    //for the Y belt clamps
    BillOfMaterials("M3 lock-nut", 4, ref="P_M3_ny");
    BillOfMaterials("M3x25 bolt", 4, ref="H_M3x25");
    BillOfMaterials("M3 washer", 4, ref="AL_M3");
  }

  translate([0,0,100-15]){ /*TODO*/
    YPlatform_sheet();

    for (j=[-20,20])
    translate([0,j, -thickness]){
      y_platform_beltclamp();

      translate([0,0, -thickness-3]){
        y_platform_beltclamp();
      }
    }

    translate([0,0, -bearing_sandwich_spacing]){
      YPlatform_spacers();

      translate([-Y_rods_distance/2, 0, -thickness]){
        YPlatform_left_sandwich_sheet();

        for (p=[[14,20],[14,-20],[-14,0]]){
          translate(p)
          rotate([180,0]){
            M3_washer();
            translate([0,0, m3_washer_thickness])
            M3x30();
          }
        }
      }

      translate([Y_rods_distance/2, 0, -thickness]){
        YPlatform_right_sandwich_sheet();

        for (i=[-1,1]){
          for (j=[-1,1]){
            translate([i*14,j*50])
            rotate([180,0]){
              M3_washer();
              translate([0,0, m3_washer_thickness])
              M3x30();
            }
          }
        }
      }
    }

    translate([0,0, -lm8uu_diameter/2])
    YPlatform_linear_bearings();

    translate([YEndstopHolder_distance/2,90]){
//      translate([0,thickness/2+1.4,-thickness])
//      yendstop_hit_subassembly();

      rotate([-90,0])
      YEndstopHolder_sheet();
    }

    translate([-YEndstopHolder_distance/2,-90 - thickness]){
//      translate([0,thickness/2-1.4,-thickness])
//      yendstop_hit_subassembly();

      rotate([-90,0])
      YEndstopHolder_sheet();
    }
  }
}

module yendstop_hit_subassembly(){
  translate([0,0, 2*thickness]){
    M3_nut();//This should be a lock nut!
  }        

  M3_spacer();
  translate([0,0,-m3_washer_thickness]){
    M3_washer();

    rotate([180,0]) M3x16();
  }
}
module YPlatform_face_generic(){
  difference(){
    rounded_square([HeatedBed_X, HeatedBed_Y + 35], corners=[10,10,10,10], center=true);
    for (i=[-1,1]){
      for (j=[-1,1]){
        translate([i*(HeatedBed_X/2 - 4), j*(HeatedBed_Y/2 - 4)])
        M3_hole();
      }
    }
  }
}

module belt_clamp_holes(){
  for (i=[-1,1]){
    translate([i*9,0])
      M3_hole();
  }  
}

module YPlatform_right_sandwich_holes(){
  for (i=[-1,1]){
    for (j=[-1,1]){
      translate([i*14,j*YBearings_distance/2])
      M3_hole();
    }
  }
}

module YPlatform_spacers(){
  translate([-Y_rods_distance/2 - 14, 0])
  double_M3_lasercut_spacer();

  for (j=[-1,1]){
    translate([-Y_rods_distance/2 + 14, j*(50/2-5)])
    double_M3_lasercut_spacer();
  }

  for (i=[-1,1]){
    for (j=[-1,1]){
      translate([Y_rods_distance/2 + i*14,j*50])
      double_M3_lasercut_spacer();
    }
  }
}

module YPlatform_linear_bearings(){
  translate([-Y_rods_distance/2, 0])
  LM8UU();

  for (j=[-1,1]){
    translate([Y_rods_distance/2, j*50])
    LM8UU();
  }
}

//!YPlatform_face();
module YPlatform_face(){
  difference(){
    heated_bed_pcb_curves(width = 227, height = 224, connector_holes=false);

    holes_for_heated_bed_wiring();

    translate([-Y_rods_distance/2, 0])
    YPlatform_left_sandwich_holes();

    translate([Y_rods_distance/2, 0])
    YPlatform_right_sandwich_holes();

    for (i=[-1,1]){
      translate([0,i*20])
        belt_clamp_holes();
    }
    
//(--
// this is temporary, for testing purposes:
    translate([YEndstopHolder_distance/2 + 25/2, 91.4 + thickness/2])
    rotate(90)
    TSlot_holes(width=25);

    translate([-YEndstopHolder_distance/2 + 25/2, -91.4 - thickness/2])
    rotate(90)
    TSlot_holes(width=25);
//--)

    translate([YEndstopHolder_distance/2, 91.4 + thickness/2])
    M3_hole();

    translate([-YEndstopHolder_distance/2, -91.4 - thickness/2])
    M3_hole();

  }
}

module holes_for_heated_bed_wiring(){
  for (i=[-1,1]){
    for (j=[-1,1]){
      translate([i*5, 100+j*5])
      M3_hole();
    }
  }

  translate([-80,50])
  rotate(45)
  zip_tie_holes();

  translate([-20,70])
  rotate(45)
  zip_tie_holes();

  translate([-100,0]){
    translate([0,10])
    rotate(90)
    zip_tie_holes();

    heated_bed_wire_passthru_hole();
  }
}

module heated_bed_wire_passthru_hole(){
  translate([0,-10])
  rotate(90)
  zip_tie_holes();

  hull(){
    for (i=[-1,1]){
      translate([i*3, 0])
        circle(r=10/2);
    }
  }
}
module BuildVolumePreview(){
  if (render_build_volume){
    translate([-BuildVolume_X/2, -BuildVolume_Y/2, BuildPlatform_height])
    %cube([BuildVolume_X, BuildVolume_Y, BuildVolume_Z]);
  }
}

//!YPlatform();
module YPlatform(){
  translate([0, YCarPosition - XZStage_offset, 0]){
    //#BuildVolumePreview();
    BuildPlatform_pcb();
    YPlatform_subassembly();
  }
  YRods();
  YBelt();
}

module bearing_assembly(rear){
  //TODO: inherit these parameters from the washer library
  bearing_thickness = 7;
  washer_thickness = 1.5;
  mudguard_washer_thickness = 2;

  //translate([belt_x,0])
  rotate([0,90,0]){
    for (i=[0,1]){
      rotate([0,i*180]){
        translate([0,0,bearing_thickness/2]){
          M8_washer();

          translate([0,0, washer_thickness]){
            M8_mudguard_washer();

            if (rear && i==1){
              translate([0,0, mudguard_washer_thickness + thickness])
              M8_washer();

translate([0,0, mudguard_washer_thickness + thickness + washer_thickness])
              M8_nut();
            }else{
              translate([0,0, mudguard_washer_thickness])
              M8_nut();
            }
          }
        }
      }
    }

    //bearing
    translate([0,0,-bearing_thickness/2])
    608zz_bearing(true);//TODO: add the bearing to the model in order to fix the X-belt related bugs
  }
}

//!bar_clamp_assembly();
module bar_clamp_assembly(){
  //TODO: inherit these parameters from the washer & barclap libraries
  washer_thickness = 1.5;
  barclamp_thickness = 13.5; //TODO

  rotate([0,90,0]){
    for (angle=[0,180]){
      rotate([0,angle]){
        translate([0,0, barclamp_thickness/2]){
          M8_washer();

          translate([0,0, washer_thickness])
          M8_nut();
        }
      }
    }

    translate([-17, 6.7, -barclamp_thickness/2])
    rotate([90,0,0])
    barclamp();
  }
}

//!nut_cap_assembly();
module nut_cap_assembly(){
  //TODO: inherit these parameters from the washer & barclap libraries
  washer_thickness = 1.5;

  rotate([0,90,0]){
  translate([0,0,-thickness/2])
    for (angle=[0,180]){
      rotate([0,angle]){
        translate([0,0, thickness/2]){
          M8_washer();

          translate([0,0, washer_thickness])
          if (angle==180){
            M8_nut();
          }else{
            M8_domed_cap_nut();
          }
        }
      }
    }
  }
}

module FrontBars(){
  BillOfMaterials(str("M8x",corrected_length(horiz_bars_length),"mm Threaded Rod"), 2);

  translate([0, -RightPanel_basewidth/2 + bar_cut_length, base_bars_Zdistance + base_bars_height]){

    material("threaded metal"){
      //front top bar
      rotate([0,90,0])
      cylinder(r=m8_diameter/2, h=horiz_bars_length, center=true);
    }

    translate([SidePanels_distance/2,0,0])
    nut_cap_assembly();

    translate([-SidePanels_distance/2,0,0])
    mirror([1,0,0])
    nut_cap_assembly();

    translate([-Y_rods_distance/2,0,0])
    bar_clamp_assembly();

    translate([Y_rods_distance/2,0,0])
    bar_clamp_assembly();

    bearing_assembly();
  }

  translate([0, -RightPanel_basewidth/2 + bar_cut_length + 30,base_bars_height]){

    material("threaded metal"){
      //front bottom bar
      rotate([0,90,0])
      cylinder(r=m8_diameter/2, h=horiz_bars_length, center=true);
    }

    translate([SidePanels_distance/2,0,0])
    nut_cap_assembly();

    translate([-SidePanels_distance/2,0,0])
    mirror([1,0,0])
    nut_cap_assembly();
  }

}

module RearBars(){
  BillOfMaterials(str("M8x",corrected_length(horiz_bars_length),"mm Threaded Rod"), 2);

  translate([0, RightPanel_basewidth/2 - bar_cut_length, base_bars_Zdistance + base_bars_height]){

    //rear top bar
    material("threaded metal"){
      rotate([0,90,0])
      cylinder(r=m8_diameter/2, h=horiz_bars_length, center=true);
    }

    translate([SidePanels_distance/2,0,0])
    nut_cap_assembly();

    translate([-SidePanels_distance/2,0,0])
    mirror([1,0,0])
    nut_cap_assembly();

    translate([-Y_rods_distance/2,0,0])
    bar_clamp_assembly();

    translate([Y_rods_distance/2,0,0])
    bar_clamp_assembly();

    bearing_assembly(rear=true);
  }

  translate([0, RightPanel_basewidth/2 - bar_cut_length - 30, base_bars_height]){

    //rear bottom bar
    material("threaded metal"){
      rotate([0,90,0])
      cylinder(r=m8_diameter/2, h=horiz_bars_length, center=true);
    }

    translate([SidePanels_distance/2,0,0])
    nut_cap_assembly();

    translate([-SidePanels_distance/2,0,0])
    mirror([1,0,0])
    nut_cap_assembly();

    bearing_assembly(rear=true);
  }
}

module FrontNutsAndWashers(){
  TopFrontNutsAndWashers();
  BottomFrontNutsAndWashers();
}

module RearNutsAndWashers(){
  TopRearNutsAndWashers();
  BottomRearNutsAndWashers();
}

module TopFrontNutsAndWashers(){
  translate([SidePanels_distance/2, -RightPanel_basewidth/2 + bar_cut_length, base_bars_Zdistance + base_bars_height]){
    rotate([0,90,0])
    m8_washer();

    translate([m8_washer_thickness,0,0])
    rotate([0,90,0])
    M8_nut();
  }

  translate([-SidePanels_distance/2, -RightPanel_basewidth/2 + bar_cut_length, base_bars_Zdistance + base_bars_height]){

    rotate([0,-90,0])
    m8_washer();

    translate([-m8_washer_thickness,0,0])
    rotate([0,-90,0])
    M8_nut();
  }
}

module BottomFrontNutsAndWashers(){
  translate([SidePanels_distance/2, -RightPanel_basewidth/2 + 30 + bar_cut_length, base_bars_height]){
    rotate([0,90,0])
    m8_washer();

    translate([m8_washer_thickness,0,0])
    rotate([0,90,0])
    M8_nut();
  }

  translate([-SidePanels_distance/2, -RightPanel_basewidth/2 + 30 + bar_cut_length, base_bars_height]){

    rotate([0,-90,0])
    m8_washer();

    translate([-m8_washer_thickness,0,0])
    rotate([0,-90,0])
    M8_nut();
  }
}

module TopRearNutsAndWashers(){
  translate([SidePanels_distance/2, RightPanel_basewidth/2 - bar_cut_length, base_bars_Zdistance + base_bars_height]){
    rotate([0,90,0])
    m8_washer();

    translate([m8_washer_thickness,0,0])
    rotate([0,90,0])
    M8_nut();
  }

  translate([-SidePanels_distance/2, RightPanel_basewidth/2 - bar_cut_length, base_bars_Zdistance + base_bars_height]){

    rotate([0,-90,0])
    m8_washer();

    translate([-m8_washer_thickness,0,0])
    rotate([0,-90,0])
    M8_nut();
  }
}

module BottomRearNutsAndWashers(){
  translate([SidePanels_distance/2, RightPanel_basewidth/2 - 30 - bar_cut_length, base_bars_height]){
    rotate([0,90,0])
    m8_washer();

    translate([m8_washer_thickness,0,0])
    rotate([0,90,0])
    M8_nut();
  }

  translate([-SidePanels_distance/2, RightPanel_basewidth/2 - 30 - bar_cut_length, base_bars_height]){

    rotate([0,-90,0])
    m8_washer();

    translate([-m8_washer_thickness,0,0])
    rotate([0,-90,0])
    M8_nut();
  }
}


module FrontAssembly(){
  FrontBars();

  FrontTopBar();
  FrontBottomBars();
}

//!YMotorAssembly();
module YMotorAssembly(){
  YMotorHolder();
  rotate([180,0])
  translate([40,-60,-7])
  YMotor();
  GT2_pulley();
}

module RearAssembly(){
  RearBars();
  RearTopBar();
  RearBottomBar();

  translate([-7, RightPanel_basewidth/2 - bar_cut_length, 60 + feetheight +12])
  rotate([0,-90,0])
  rotate([0,0,180])
  YMotorAssembly();
}

module LaserCutPanels(){
  MachineTopPanel_sheet();
  MachineLeftPanel_sheet();
  MachineRightPanel_sheet();
  MachineArcPanel_sheet();
  MachineBottomPanel_sheet();

  RodEnd_ZTopLeft_sheet();
  SecondaryRodEnd_ZTopLeft_sheet();
  RodEnd_ZTopRight_sheet();
  SecondaryRodEnd_ZTopRight_sheet();
  RodEnd_ZBottomLeft_sheet();
  RodEnd_ZBottomRight_sheet();
}

module XMotor(){
  translate([XEnd_box_size/2, XMotor_height]){
    rotate([-180,0,0])
    NEMA17_subassembly();
  }
}

module YMotor(){
  rotate([0,0,-90-45])
  rotate([180,0,0])
  NEMA17_subassembly();
}

module ZMotors(){
  translate([Z_rods_distance/2 - z_rod_z_bar_distance, -XZStage_offset, BottomPanel_zoffset])
  rotate([180,0,0]) rotate(90) NEMA17_subassembly();
  translate([-Z_rods_distance/2 + z_rod_z_bar_distance, -XZStage_offset, BottomPanel_zoffset])
  rotate([180,0,0]) rotate(-90) NEMA17_subassembly();
}

module ZAxis(){
  ZMotors();
  ZRods();
  ZBars();
  Z_couplings();
}

module ZRodCap_face(l=15.5, hole=true){
  difference(){
    rounded_square([40,40], corners=[5,5,5,5], center=true);
    if (hole)
      circle(r=(m8_diameter+epsilon)/2);

    for (i=[-l,l]){
      for (j=[-l,l]){
        translate([i,j])
          M3_hole();
      }
    }
  }
}

module plate_border(w=500, h=500, border=2){
  difference(){
    square([w, h]);

    translate([border, border])
    square([w-2*border, h-2*border]);
  }
}

//!LaserCutPanels();
module Metamaquina2(){
  LaserCutPanels();
  FrontAssembly();
  RearAssembly();

  if (render_xplatform){
    translate([0,
               -XZStage_offset,
               BuildPlatform_height
               + ZCarPosition
               + nozzle_tip_distance
])
      XPlatform();
  }

  YPlatform();
  ZAxis();
}

//rotate([0,0,cos(360*time)*60])
Metamaquina2();

echo(str("XCarriage dimensions: ", XCarriage_width, " mm x ", XCarriage_length, " mm"));

echo(str("barras roscadas M8:"));
echo(str("  horizontal_bars_length (x4): ", corrected_length(horiz_bars_length), " mm"));
echo(str("  Z_bar_length (x2): ", corrected_length(Z_bar_length), " mm"));

echo("barras lisas M8:");
echo(str("  X_rod_length (x2): ", corrected_length(X_rod_length), " mm"));
echo(str("  Y_rod_length (x2): ", corrected_Ylength(Y_rod_length), " mm"));
echo(str("  Z_rod_length (x2): ", corrected_length(Z_rod_length), " mm"));

barclamp_calibration = (SidePanels_distance - 2*thickness - Y_rods_distance - m8_diameter)/2;

echo(str("calibration distance between the internal face of a sidepanel and the closest tangent of a Y-axis rod: ", barclamp_calibration, " mm"));

if (render_calibration_guide){
  translate([-SidePanels_distance/2 + thickness, -RightPanel_basewidth/2 + bar_cut_length - 10 + 100, 0])
  color([1,0,1,0.7]) cube([barclamp_calibration, 20, 10]);
}

bearing_thickness = 7;
washer_thickness = 1.5;
mudguard_washer_thickness = 2;
Ybearing_calibration = (SidePanels_distance - 2*thickness)/2 - bearing_thickness/2 - washer_thickness - mudguard_washer_thickness;

echo(str("calibration distance between the internal face of a sidepanel and the closest face of a mudguard washer: ", Ybearing_calibration, " mm"));

if (render_calibration_guide){
  translate([-SidePanels_distance/2 + thickness, -RightPanel_basewidth/2 + bar_cut_length - 10, base_bars_Zdistance + base_bars_height])
  color([0,0,1,0.7]) cube([Ybearing_calibration, 20, 15]);
}

Sidepanel_calibration = SidePanels_distance - 2*thickness;
echo(str("side panels distance (internal faces): ", Sidepanel_calibration, " mm"));

if (render_calibration_guide){
  translate([-SidePanels_distance/2 + thickness, -RightPanel_basewidth/2 + bar_cut_length - 10, base_bars_Zdistance/2 + base_bars_height])
  color([1,1,0.4,0.7]) cube([Sidepanel_calibration, 20, 15]);
}


use <FilamentSpoolHolder.scad>;


translate([400,0,0])
rotate([0,0,90]){
  FilamentSpoolHolder();
  FilamentSpool();
}