X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=tablet-case-corner-mount.scad;h=d981afdf1237179d8e80be74a5fda0802ade157d;hp=1ab1d96a82547c1b01352cc481bfc7d448faac93;hb=4cc0ab71cd7a173e0580140d444bd48dac34fce2;hpb=f8841c89fa8f7f0647e6fb592ef5176979bb0fbb

diff --git a/tablet-case-corner-mount.scad b/tablet-case-corner-mount.scad
index 1ab1d96..d981afd 100644
--- a/tablet-case-corner-mount.scad
+++ b/tablet-case-corner-mount.scad
@@ -1,19 +1,23 @@
 // -*- C -*-
 
-main_sz = 20; //xxx
+main_sz = 22.5;
 
 wall_th = 3;
 
-front_fullsz = 10; //xxx
+front_hook = 3;
+front_slope = 1.0;
 
 front_th = 2;
-back_th = 4;
-gap_th = 5; //xxx
+gap_th = 6.5 + 0.5;
 
-back_tot_l = 30; //xxx
-back_cut_l = 4;
-back_cut_w = 10; //xxx
+back_tot_l = 35.5;
+back_cut_l = 6;
+back_cut_w = 15.0 + 1.0;
 back_prong_w = 3;
+back_hole_d = 2;
+back_hole_dia = 1 + 1.5;
+
+back_th = back_hole_dia + 2.4;
 
 module MidPlan(){
   polygon([[0,            0],
@@ -24,13 +28,24 @@ module MidPlan(){
 	   [main_sz,      0]]);
 }
 
-module FrontPlan(){
-  halfway = (front_fullsz + main_sz)/2;
-  polygon([[0,            0],
-	   [0,            main_sz],
-	   [front_fullsz, main_sz],
-	   [main_sz,      front_fullsz],
-	   [main_sz,      0]]);
+module FrontElevation(){
+  hook_z = front_hook / front_slope;
+  translate([0, back_th+gap_th]) {
+    hull(){
+      square([wall_th, hook_z + 0.01]);
+      translate([front_hook, hook_z])
+	square([wall_th, 0.01]);
+    }
+  }
+}
+
+module FrontEdge(){
+  rotate([90,0,0]) linear_extrude(height=main_sz) FrontElevation();
+}
+
+module Front(){
+  mirror([0,1,0]) FrontEdge();
+  rotate([0,0,90]) FrontEdge();
 }
 
 module BackPlan(){
@@ -49,21 +64,23 @@ module BackPlan(){
 }
 
 module Hook(){
-  rotate([90,0,0]){
-    difference(){
-      union(){
-	linear_extrude(height=back_th)
-	  BackPlan();
-	linear_extrude(height=back_th+gap_th+front_th)
-	  MidPlan();
-	translate([0,0, back_th+gap_th])
-	  linear_extrude(height=front_th) FrontPlan();
-      }
+  difference(){
+    union(){
+      linear_extrude(height=back_th)
+	BackPlan();
+      linear_extrude(height=back_th+gap_th+front_th)
+	MidPlan();
+      Front();
     }
+    rotate([0,0,-45])
+      translate([0, back_tot_l - back_hole_d, back_th/2])
+      rotate([0,90,0]) translate([0,0,-50])
+      cylinder(h=100, r=back_hole_dia/2, $fn=40);
   }
 }
 
 //MidPlan();
 //FrontPlan();
 //BackPlan();
+//Front();
 Hook();