blob: 561dde6ea1b0c3522a397e1c7b0061169c2b4789 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
/*
This file is used in models found in this repository.
Copyright (C) 2024 Christian Hodgden
This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
This program 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 Lesser General Public License along with this program. If not, see <https://www.gnu.org/licenses/>.
*/
function de_casteljau(points, t) =
len(points) == 1 ?
points[0] :
de_casteljau(
[for (i = [0:len(points)-2]) (1 - t) * points[i] + t * points[i + 1]],
t
) ;
function bezier_curve(points, $fn=$fn) =
[for (i = [0:$fn]) de_casteljau(points, i / $fn)] ;
|
