X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=scaffold-clamp-vhook.scad;h=7c3cf06a1d4531d7873be376d8e55874c5c7f1d8;hb=954ba35853a53535fa82b45eeef973377cfcca51;hp=86adc380eed567c6e3c973f84161214cf6a81f40;hpb=294f6de4e1d09bb01c1066dd51b1b4ab0e947d92;p=reprap-play.git

diff --git a/scaffold-clamp-vhook.scad b/scaffold-clamp-vhook.scad
index 86adc38..7c3cf06 100644
--- a/scaffold-clamp-vhook.scad
+++ b/scaffold-clamp-vhook.scad
@@ -1,73 +1,4 @@
 // -*- C -*-
 
-hinge_units = 4;
-
+//// toplevels-from:
 include <scaffold-clamp-common.scad>
-
-vhook_th = 10;
-
-theta = atan2( smooth_r, main_r );
-
-vhook_inside = 15;
-
-// calculated
-
-vhook_y0 = -cos(theta) * (main_r + smooth_r);
-vhook_ctr = vhook_y0 - vhook_inside/2;
-vhook_outer_dia = vhook_inside + vhook_th*2;
-
-//echo(theta);
-
-module VHookPlan() {
-  PlanWeldMainCircle(){
-    rectfromto([ -vhook_th/2, 0 ],
-	       [ +vhook_th/2, vhook_y0 ]);
-  }
-}
-
-module VHookProfile() {
-  translate([0, -vhook_inside/2 - vhook_th/2])
-    circle(r = vhook_th/2);
-}
-
-module PartB(){ ////toplevel
- GeneralB();
-}
-
-module VHookHookMain(){ ////toplevel
-  rotate([0,90,0])
-    rotate_extrude(convexity=10)
-    rotate([0,0,90])
-    VHookProfile();
-}
-
-module PartA(){ ////toplevel
-  DummyA();
-  linextr(min_z, max_z)
-    VHookPlan();
-
-  translate([0, vhook_ctr, min_z + vhook_outer_dia/2]){
-    linextr(-0.1, vhook_outer_dia/2)
-      VHookProfile();
-    intersection(){
-      VHookHookMain();
-      translate([0,0, -vhook_outer_dia])
-	cube(center=true, vhook_outer_dia*2);
-    }
-  }
-
-  //translate([0, vhook_y0, 50]) rotate([0,0,-90]) color("black") cube(10);
-  // translate([0,0,-150]) rotate([0,0,180 + theta]) color("blue") cube(100);
-}
-
-module PlanDemo(){ ////toplevel
-  GeneralPlanDemo();
-  translate([0, -tube_dia*1.5]) {
-    VHookPlan();
-    translate([0, vhook_ctr, 5])
-      for (m=[0,1]) {
-	mirror([0,m])
-	  color("blue") VHookProfile();
-      }
-  }
-}