// allviews gear1 gear2 guide assemblage demo
include </tmp/viewsel/ascenseur.h>
//include <MCAD/gears.scad>
include <MCAD/involute_gears.scad>


module gear1(){
    difference (){
       union(){
           translate([0,0,10]) gear(number_of_teeth=10,circular_pitch=300);
           translate([0,0,0]) gear(number_of_teeth=30,diametral_pitch=0.5);
           //scale([25,25,25]) gear(10,circular_pitch=15,clearance=0);
           //translate ([0,0,15])
           //         scale([25,25,5]) gear (20,circular_pitch=8);
       }
       translate([0,0,-25]) cylinder (r=5,h=50);
       
   }       
}

module gear2(){
    gear(number_of_teeth=10,circular_pitch=300);
}

module guide(){
    thick=8;
    cube([100,5,thick]);
    for (x=[0:9]){
        translate([x*10,5,0]) cube([4,5,thick]);
    }
}
module demo(){
    test_gears();
    //demo_3d_gears();
    //test_bevel_gear_pair();
    
}

if (view=="gear1"){
    gear1();
}else if (view=="gear2"){
    gear2();
}else if (view=="guide"){
    guide();
}else if (view=="demo"){
    demo();
}else if (view=="assemblage"){
    translate([0,0,0]) gear2();
    translate([20,0,0]) gear2();
    translate([60,0,0]) gear1();
    translate([-40,0,0]) gear1();
    translate([-60,10,10]) rotate([0,0,-90]) guide();
    translate([80,-80,10]) rotate([0,0,90]) guide();
       
}