openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-01-17 22:28:16 +01:00
Code Issues Releases Wiki Activity

refactor deps

Browse Source
This commit is contained in:
Justin Lin 2020-01-27 13:34:29 +08:00
parent a42fa85fae
commit cef421c6b0
3 changed files with 65 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
src/_impl/_golden_spiral_impl.scad Normal file
View File

@ -0,0 +1,61 @@
use <__comm__/__fast_fibonacci.scad>;
use <rotate_p.scad>;
use <circle_path.scad>;
function _fast_fibonacci_sub(nth) =
let(
_f = _fast_fibonacci_2_elems(floor(nth / 2)),
a = _f[0],
b = _f[1],
c = a * (b * 2 - a),
d = a * a + b * b
)
nth % 2 == 0 ? [c, d] : [d, c + d];
function _fast_fibonacci_2_elems(nth) =
nth == 0 ? [0, 1] : _fast_fibonacci_sub(nth);
function _fast_fibonacci(nth) =
_fast_fibonacci_2_elems(nth)[0];
function _remove_same_pts(pts1, pts2) =
pts1[len(pts1) - 1] == pts2[0] ?
concat(pts1, [for(i = 1; i < len(pts2); i = i + 1) pts2[i]]) :
concat(pts1, pts2);
function _golden_spiral_from_ls_or_eql_to(from, to, point_distance, rt_dir) =
let(
f1 = __fast_fibonacci(from),
f2 = __fast_fibonacci(from + 1),
fn = floor(f1 * 6.28312 / point_distance),
$fn = fn + 4 - (fn % 4),
circle_pts = circle_path(radius = f1, n = $fn / 4 + 1),
len_pts = len(circle_pts),
a_step = 360 / $fn * rt_dir,
range_i = [0:len_pts - 1],
arc_points_angles = (rt_dir == 1 ? [
for(i = range_i)
[circle_pts[i], a_step * i]
] : [
for(i = range_i) let(idx = len_pts - i - 1)
[circle_pts[idx], a_step * i]
]),
offset = f2 - f1
) _remove_same_pts(
arc_points_angles,
[
for(pt_a = _golden_spiral(from + 1, to, point_distance, rt_dir))
[
rotate_p(pt_a[0], [0, 0, 90 * rt_dir]) +
(rt_dir == 1 ? [0, -offset, 0] : [-offset, 0, 0]),
pt_a[1] + 90 * rt_dir
]
]
);
function _golden_spiral(from, to, point_distance, rt_dir) =
from <= to ?
_golden_spiral_from_ls_or_eql_to(from, to, point_distance, rt_dir) : [];
function _golden_spiral_impl(from, to, point_distance, rt_dir) =
_golden_spiral(from, to, point_distance, (rt_dir == "CT_CLK" ? 1 : -1));

59
src/golden_spiral.scad
View File

@ -8,62 +8,7 @@
* *
**/ **/
include <__comm__/__fast_fibonacci.scad>; use <_impl/_golden_spiral_impl.scad>;
function _fast_fibonacci_sub(nth) =
let(
_f = _fast_fibonacci_2_elems(floor(nth / 2)),
a = _f[0],
b = _f[1],
c = a * (b * 2 - a),
d = a * a + b * b
)
nth % 2 == 0 ? [c, d] : [d, c + d];
function _fast_fibonacci_2_elems(nth) =
nth == 0 ? [0, 1] : _fast_fibonacci_sub(nth);
function _fast_fibonacci(nth) =
_fast_fibonacci_2_elems(nth)[0];
function _remove_same_pts(pts1, pts2) =
pts1[len(pts1) - 1] == pts2[0] ?
concat(pts1, [for(i = 1; i < len(pts2); i = i + 1) pts2[i]]) :
concat(pts1, pts2);
function _golden_spiral_from_ls_or_eql_to(from, to, point_distance, rt_dir) =
let(
f1 = __fast_fibonacci(from),
f2 = __fast_fibonacci(from + 1),
fn = floor(f1 * 6.28312 / point_distance),
$fn = fn + 4 - (fn % 4),
circle_pts = circle_path(radius = f1, n = $fn / 4 + 1),
len_pts = len(circle_pts),
a_step = 360 / $fn * rt_dir,
range_i = [0:len_pts - 1],
arc_points_angles = (rt_dir == 1 ? [
for(i = range_i)
[circle_pts[i], a_step * i]
] : [
for(i = range_i) let(idx = len_pts - i - 1)
[circle_pts[idx], a_step * i]
]),
offset = f2 - f1
) _remove_same_pts(
arc_points_angles,
[
for(pt_a = _golden_spiral(from + 1, to, point_distance, rt_dir))
[
rotate_p(pt_a[0], [0, 0, 90 * rt_dir]) +
(rt_dir == 1 ? [0, -offset, 0] : [-offset, 0, 0]),
pt_a[1] + 90 * rt_dir
]
]
);
function _golden_spiral(from, to, point_distance, rt_dir) =
from <= to ?
_golden_spiral_from_ls_or_eql_to(from, to, point_distance, rt_dir) : [];
function golden_spiral(from, to, point_distance, rt_dir = "CT_CLK") = function golden_spiral(from, to, point_distance, rt_dir = "CT_CLK") =
_golden_spiral(from, to, point_distance, (rt_dir == "CT_CLK" ? 1 : -1)); _golden_spiral_impl(from, to, point_distance, rt_dir);

6
test/test_golden_spiral.scad
View File

@ -1,7 +1,5 @@
include <unittest.scad>; use <unittest.scad>;
include <circle_path.scad>; use <golden_spiral.scad>;
include <rotate_p.scad>;
include <golden_spiral.scad>;
module test_golden_spiral() { module test_golden_spiral() {
echo("==== test_golden_spiral ===="); echo("==== test_golden_spiral ====");