chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rpi-mount: copy from other repo
[reprap-play.git]
/
summit-lantern-hook.scad
diff --git
a/summit-lantern-hook.scad
b/summit-lantern-hook.scad
index 7666889305a44c00833a3513217157f4a0cc162c..e91573a51e2ecdc3f283b98af922ef47fb99d7ef 100644
(file)
--- a/
summit-lantern-hook.scad
+++ b/
summit-lantern-hook.scad
@@
-3,10
+3,11
@@
include <utils.scad>
height = 60;
include <utils.scad>
height = 60;
-th = 6;
curl = 10;
width = 85;
curl = 10;
width = 85;
-sides_depth = 35;
+sides_depth = 50;
+th = 6;
+th2 = 4;
$fa = 3;
$fs = 0.3;
$fa = 3;
$fs = 0.3;
@@
-22,33
+23,36
@@
module UpperPlan(){
circle(r = upper_r);
}
circle(r = upper_r);
}
+module EndCurl(){
+ rotate([90,0,0])
+ rotate_extrude(angle=180)
+ translate([upper_ctr_maj_r, 0])
+ UpperPlan();
+ translate([-upper_ctr_maj_r, 0,0])
+ sphere(r= upper_r);
+}
+
module Upper(){
translate([upper_ctr_maj_r, 0, 0])
linextr(-0.1, height + 0.1)
UpperPlan();
module Upper(){
translate([upper_ctr_maj_r, 0, 0])
linextr(-0.1, height + 0.1)
UpperPlan();
- translate([0, 0, height]){
- rotate([90,0,0])
- rotate_extrude(angle=180)
- translate([upper_ctr_maj_r, 0])
- UpperPlan();
- translate([-upper_ctr_maj_r, 0,0])
- sphere(r= upper_r);
- }
+ translate([0, 0, height])
+ EndCurl();
}
module Lower(){
}
module Lower(){
- difference(){
- linextr(-zmin, 0)
- square(center = true, [curl + th*2, th]);
- linextr_y_xz(-th, th)
- circle(r = curl/2);
- }
+ rotate([180,0,0])
+ EndCurl();
linextr(-zmin, -zmin + th) {
linextr(-zmin, -zmin + th) {
- square(center=true, [th, width]);
+ square(center=true, [th
2
, width]);
for (m=[0,1])
mirror([0,m])
for (m=[0,1])
mirror([0,m])
- translate([0, width/2 - th/2 ])
- square(center=true, [ sides_depth, th ]);
+ hull()
+ {
+ for (x= sides_depth/2 * [-1,+1])
+ translate([ x, width/2 - th2/2 ])
+ circle(r= th2/2);
+ }
}
}
}
}