// challenge-bot phase-2
// GNU AGPLv3 (or later at your option)
// project available at these locations:
// https://gitorious.org/ozzloy/challenge-bot
// https://github.com/waynegramlich/challenge-bot

// using
// https://github.com/josefprusa/Prusa3/blob/master/box_frame/x-carriage.scad
// as an example of how to code in scad

scale=10;

deck_z = 3/16;
deck_x = 8;
deck_y = 8;
deck_dimensions = [deck_x, deck_y, deck_z];

module deck(scale){
  cube(deck_dimensions * scale, center = true);}

module collar_hole(scale){
  cylinder(h = 5/16 * scale, r = 0.362/2 * scale, $fn = 100);}

module nubbin_hole(scale){
  cylinder(h = 5/16 * scale, r = 0.145/2 * scale, $fn = 100);}

module mounting_screw_hole(scale){
  cylinder(h = 5/16 * scale, r = 0.114/2 * scale, $fn = 100);}

module wheel_mount_reinforcement(scale){
  diagonal = sqrt(deck_z * deck_z + deck_z * deck_z);
  difference(){
    cube([deck_z * 2, deck_z * 2, deck_z * 2] * scale);
    translate([-(diagonal - deck_z) / 2, 0, 0] * scale)
      rotate([45, 0, 0])
        translate([0, -(diagonal * 1.1 - deck_z) / 2, 0])
          cube([diagonal * 2, diagonal * 2 * 1.1, deck_z * 2] * scale);}}

module wheel_mount(scale){
  difference(){
    cube([1.5, 2, 3/16] * scale);
    // motor shaft collar hole
    translate([0.5, 0.938, -1/16] * scale) {
      collar_hole(scale);}
    // nubbin hole
    translate([0.5 + 0.875 - 0.425, 0.938, -1/16] * scale){
      nubbin_hole(scale);}
    // mounting screw hole
    translate([0.5 + 1.213 - 0.425, 0.938 - 0.687/2, -1/16] * scale){
      mounting_screw_hole(scale);}
    translate([0.5 + 1.213 - 0.425, 0.938 + 0.687/2, -1/16] * scale){
      mounting_screw_hole(scale);}}}

translate([0, 0, (3/16)/2 * scale]){
  color("blue") deck(scale);
  rotate([90, 0, 0])
    translate([1.5, (deck_z)/2, -4] * scale) wheel_mount(scale);
  rotate([90, 0, 0])
    translate([1.5, (deck_z)/2, 4 - deck_z] * scale) wheel_mount(scale);
}

translate([1.5, deck_y/2 - deck_z * 3, deck_z] * scale){
  wheel_mount_reinforcement(scale);}
translate([1.5 * 2 - deck_z * 2, deck_y / 2 - deck_z * 3, deck_z] * scale){
  wheel_mount_reinforcement(scale);}

translate([1.5 + deck_z * 2, 3 * deck_z - deck_y / 2, deck_z] * scale){
  rotate([0, 0, 180]){
    wheel_mount_reinforcement(scale);}}
translate([1.5 * 2, 3 * deck_z - deck_y / 2, deck_z] * scale){
  rotate([0, 0, 180]){
    wheel_mount_reinforcement(scale);}}