workin on mechanism

Signed-off-by: Stephan Richter <s.richter@srsoftware.de>

catflap.scad

@@ -1,17 +1,23 @@
+/* parameters */
 door_thick = 50;
 flap_w = 150;
 flap_h = 150;
 flap_thick = 20;
-angle = 10;
 bearing_inner_dia = 5;
 bearing_outer_dia = 10;
 bearing_h = 5;
-silver = [0.7,0.7,0.7];
+gap = 1;
-red = [1,0,0];
+
+/* constants */
 $fn = 32;
 ry = [0,90,0]; // rotate 90 deg around y
-raise_stopper = -1;
+silver = [0.7,0.7,0.7];
-gap = 1;
+red = [1,0,0];
+
+/* variable */
+raise_stopper = 2;
+angle = 11;
+
 
 module door(){
     translate([-450,0,0])cube([900,door_thick,2000]);
@@ -24,6 +30,7 @@ module flap(){
         translate([2*(10+gap)+bearing_h,bearing_outer_dia+gap,2]/-2)
             cube([bearing_h+2*(gap+10),bearing_outer_dia+gap,2*bearing_h+20+gap+1]);
     }
+    translate([0,0,flap_h])rotate(ry)#cylinder(d=flap_thick,h=flap_w,center=true);
     translate([0,0,raise_stopper])stopper();
 }
 
@@ -56,6 +63,13 @@ module stopper(){
     bearing();
 }
 
+module frame(){
+  // TODO
+}
+
 *door();
-flap();
+translate([0,0,flap_h])
+    rotate([angle,0,0])
+        translate([0,0,-flap_h])
+            flap();