1
0
mirror of https://github.com/nophead/NopSCADlib.git synced 2025-01-17 13:38:16 +01:00
NopSCADlib/tests/sweep.scad
Chris Palmer 1f55097bdd Support for twisted cables.
Sweep now distbutes twists in proportion to segments lengths.
Added  spiral_paths(), segmented_path() and rounded_path_vertices() functions.
Added show_path(path) module.
2022-02-08 19:08:10 +00:00

65 lines
2.0 KiB
OpenSCAD

//
// NopSCADlib Copyright Chris Palmer 2018
// nop.head@gmail.com
// hydraraptor.blogspot.com
//
// This file is part of NopSCADlib.
//
// NopSCADlib is free software: you can redistribute it and/or modify it under the terms of the
// GNU General Public License as published by the Free Software Foundation, either version 3 of
// the License, or (at your option) any later version.
//
// NopSCADlib is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
// without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License along with NopSCADlib.
// If not, see <https://www.gnu.org/licenses/>.
//
include <../utils/core/core.scad>
use <../utils/sweep.scad>
use <../utils/maths.scad>
use <../utils/bezier.scad>
L_points = [[0, 5, 0], [ 2, 5, 0], [2, 2, 0], [10, 2, 0], [10, 0, 0], [0, 0, 0]];
rad = 90;
loop = circle_points(rad, $fn = 180);
loop_x = transform_points(loop, rotate([90, -90, $t * 360]));
loop_y = transform_points(loop, rotate([0, -90, $t * 360]));
loop_z = transform_points(loop, rotate([$t * 360, 0, 0]));
color("yellow") {
sweep(loop_z, L_points, loop = true);
sweep(loop_x, L_points, loop = true);
sweep(loop_y, L_points, loop = true);
}
knot = [ for(i=[0:.2:359])
[ (19*cos(3*i) + 40)*cos(2*i),
(19*cos(3*i) + 40)*sin(2*i),
19*sin(3*i) ] ];
color("red") sweep(knot, L_points, loop = true);
p = transform_points([[0,0,0], [20,0,5], [10,30,4], [0,0,0], [0,0,20]], scale(10));
n = 100;
path = bezier_path(p, n);
color("blue") rotate(45) sweep(path, circle_points(5, $fn = 64));
vertices = [[-170, 0, 0], [-170, 170, 0], 10, [-170, 170, 30], 20, [-50, 170, 31], 10, [-130, 100, 40]];
rounded_path = rounded_path(vertices);
show_path(rounded_path_vertices(vertices));
paths = spiral_paths(rounded_path, 2, 1.5, 15, 0);
for(i = [0 : len(paths) - 1])
color(["red", "green"][i])
sweep(paths[i], circle_points(1.5, $fn = 64));