old_single_plate/src/belt-guide.scad

   1 // PRUSA iteration3
   2 // 624 bearing belt guide
   3 // GNU GPL v3
   4 // Josef Průša <iam@josefprusa.cz> and contributors
   5 // http://www.reprap.org/wiki/Prusa_Mendel
   6 // http://prusamendel.org
   7
   8 wall= 1.2;
   9 clearence= 0.1;
  10
  11 module belt_guide_base(){
  12  cylinder(r=6.5+wall+clearence, h=5-0.5, $fn=50);
  13  cylinder(r=6.5+wall+clearence+2*wall, h=0.95, $fn=50);
  14 }
  15
  16 module belt_guide_holes(){
  17  translate([0,0,2]) cylinder(r=5.1+clearence, h=10, $fn=50);
  18  translate([0,0,-1]) cylinder(r=5+wall+clearence-2*wall, h=10, $fn=50);
  19 }
  20
  21 // Final part
  22 module belt_guide(){
  23  difference(){
  24   belt_guide_base();
  25   belt_guide_holes();
  26  }
  27 }
  28
  29 belt_guide();