openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-20 05:21:38 +02:00
Code Issues Releases Wiki Activity

refactor formula

Browse Source
This commit is contained in:
Justin Lin
2022-05-02 13:47:26 +08:00
parent 8d324469f8
commit 7ff012f360
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/stereographic_extrude.scad
View File

@@ -11,18 +11,22 @@
module stereographic_extrude(shadow_side_leng, convexity = 1) { module stereographic_extrude(shadow_side_leng, convexity = 1) {
half_side_length = shadow_side_leng / 2; half_side_length = shadow_side_leng / 2;
outer_sphere_r = half_side_length / 3; outer_sphere_r = half_side_length / 3;
a = atan(sqrt(2) * half_side_length / (2 * outer_sphere_r));
inner_sphere_r = outer_sphere_r * sin(a); denominator = sqrt(4 * outer_sphere_r ^ 2 + 2 * half_side_length ^ 2);
cosa = 2 * outer_sphere_r / denominator;
sina = sqrt(2) * half_side_length / denominator;
inner_sphere_r = outer_sphere_r * sina;
intersection() { intersection() {
translate([0, 0, outer_sphere_r]) translate([0, 0, outer_sphere_r])
difference() { difference() {
sphere(outer_sphere_r); sphere(outer_sphere_r);
sphere(outer_sphere_r / 2 + inner_sphere_r / 2); sphere((outer_sphere_r + inner_sphere_r) / 2);
translate([0, 0, outer_sphere_r / 2]) translate([0, 0, outer_sphere_r / 2])
linear_extrude(outer_sphere_r) linear_extrude(outer_sphere_r)
circle(inner_sphere_r * cos(a)); circle(inner_sphere_r * cosa);
} }
linear_extrude(outer_sphere_r * 2, scale = 0.01, convexity = convexity) linear_extrude(outer_sphere_r * 2, scale = 0.01, convexity = convexity)