bicycle-animation.scad

//Set FPS=10 Steps=36
angle=$t*360;

module wheel(r,a){
  rotate([0,0,angle+a])
  translate([r,0,0])
    rotate([0,90,0])
      cylinder(r=10,h=1,$fn=20);
}

module bicycle() {
  bicycle_length=100;
  r_inner=50;
  r_outer=sqrt((r_inner*r_inner)+bicycle_length*bicycle_length);
  a=asin(bicycle_length/r_outer);
  wheel(r_outer,a);
  wheel(r_inner,0);
    
  rotate([0,0,angle])
    translate([r_inner,0,0])
     rotate([0,0,90])
      cube([bicycle_length,1,1]);
}

bicycle();