openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-12 01:34:12 +02:00
Code Issues Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
Justin Lin
2022-04-18 22:22:21 +08:00
parent a0e465a635
commit 96432c8525
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/bauer_spiral.scad
View File

@@ -19,13 +19,11 @@ function bauer_spiral(n, radius = 1, rt_dir = "CT_CLK") =
[
for(k = 1; k <= n; k = k + 1)
let(
zk = 1 - (2 * k - 1) / n,
phik = radians(acos(zk)),
thetak = L * phik * clk,
phikDegrees = degrees(phik),
thetakDegrees = degrees(thetak),
xk = sin(phikDegrees) * cos(thetakDegrees),
yk = sin(phikDegrees) * sin(thetakDegrees)
z = 1 - (2 * k - 1) / n,
sin_phi = sqrt(1 - z ^ 2),
theta = clk * L * acos(z),
x = sin_phi * cos(theta),
y = sin_phi * sin(theta)
)
[xk, yk, zk] * radius
[x, y, z] * radius
];