// 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_width = 8;
deck_length = 8;
deck_depth = 3/16;
deck_dimensions = [deck_width, deck_length, deck_depth];

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

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

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

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

module wheel_mount_reinforcement(scale){
  diagonal = sqrt(deck_depth * deck_depth + deck_depth * deck_depth);
  difference(){
    cube([deck_depth * 2, deck_depth * 2, deck_depth * 2] * scale);
    translate([-(diagonal - deck_depth) / 2, 0, 0] * scale)
      rotate([45, 0, 0])
        translate([0, -(diagonal * 1.1 - deck_depth) / 2, 0])
          cube([diagonal * 2, diagonal * 2 * 1.1, deck_depth * 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_depth)/2, -4] * scale) wheel_mount(scale);
  rotate([90, 0, 0])
    translate([1.5, (deck_depth)/2, 4 - deck_depth] * scale)
      wheel_mount(scale);}

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

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