xy_end

padding = 0.3;

module bearing() {
	cylinder(r=8+padding, h=12, center=true);
	translate([0, 0, 6.5]) cylinder(r1=8+padding, r2=6, h=1, center=true);
}

module main() {
	difference() {
		union() {
			cube([22, 22, 50], center=true);
			translate([7.75, 18, 0]) cube([6.5, 14, 50], center=true);
			translate([-2, 18.5, 0]) cube([12, 13, 50], center=true);
			belt_a();
			translate([-0.5, -11, -15]) rotate([0, 0, 45]) cube([5.7, 5.7, 20], center=true);
			difference() {
				translate([3, 7, 0]) rotate([90, 90, 0]) cylinder(r=14, h=36, center=true, $fn=6);
				cube([20, 51, 30], center=true);
			}

		}
		//BEARINGS
		cylinder(r=6, h=50, center=true);
		translate([0, 0, -20]) bearing();
		translate([0, 0, 20]) rotate([0, 180, 0]) bearing();

		//SHAFT
		translate([0, 18.5, 15]) rotate([0, 90, 0]) cylinder(r=1.5+padding, h=50, center=true);
		translate([10, 18.5, 15]) rotate([0, 90, 0]) cylinder(r=3+padding, h=3.5, center=true, $fn=6);
		translate([0, 18.5, -15]) rotate([0, 90, 0]) cylinder(r=1.5+padding, h=50, center=true);
		translate([10, 18.5, -15]) rotate([0, 90, 0]) cylinder(r=3+padding, h=3.5, center=true, $fn=6);
		translate([3, 17.5, 0]) rotate([90, 0, 0]) cylinder(r=4.75+padding, h=17, center=true, $fn=5);

		//CHAMFERS
		translate([-11.75, -11.75, 0]) rotate([0, 0, 45]) cube([5.7, 5.7, 55], center=true);
		translate([-11.75, 11.75, 0]) rotate([0, 0, 45]) cube([5.7, 5.7, 55], center=true);
		translate([11.75, -11.75, 0]) rotate([0, 0, 45]) cube([5.7, 5.7, 55], center=true);
		translate([15.75, -7.75, 0]) rotate([0, 0, 45]) cube([5.7, 5.7, 55], center=true);

	}
}

module belt_a() {
	difference() {
		translate([3.5, -19, -15]) cube([8, 16, 20], center=true);
		translate([0, -22, -21]) rotate([0, 90, 0]) cylinder(r=1.5+padding, h=50, center=true);
		translate([0, -22, -9]) rotate([0, 90, 0]) cylinder(r=1.5+padding, h=50, center=true);
		translate([3.5, -15, 0]) cylinder(r=1.5+padding, h=52, center=true);
		translate([-0.75, -28.75, 0]) rotate([0, 0, 45]) cube([5.7, 5.7, 120], center=true);
	}
}

module belt_b() {
	difference() {
		union() {
			translate([15.5, -19, -15]) cube([8, 16, 20], center=true);
			translate([3.5, -12, -23.25]) rotate([0, 90, 270]) {
				for ( i = [0 : 9] ) {
					translate([0-i*2+0.5,-0.5+8,3])
					difference() {
						cube([2,1,8], center=true);
						rotate([0, 0, -10]) translate([1, 0, 0]) cube([1,10,9], center=true);
						rotate([0, 0, 10]) translate([-1, 0, 0]) cube([1,10,9], center=true);
					}
				}
			}
		}
		translate([0, -22, -21]) rotate([0, 90, 0]) cylinder(r=1.5+padding, h=50, center=true);
		//translate([18, -22, -21]) rotate([0, 90, 0]) cylinder(r=3+padding, h=3.5, center=true, $fn=6);
		translate([0, -22, -9]) rotate([0, 90, 0]) cylinder(r=1.5+padding, h=50, center=true);
		//translate([18, -22, -9]) rotate([0, 90, 0]) cylinder(r=3+padding, h=3.5, center=true, $fn=6);
		translate([15.5, -15, 0]) cylinder(r=1.5+padding, h=52, center=true);
	}
}


main();
translate([23, 0, 0]) belt_a();
belt_b();