bezier_curve_3d.mac

/*

https://github.com/t-o-k/Maxima-bezier/bezier_curve_3d.mac

Copyright (c) 2020 Tor Olav Kristensen, http://subcube.com

Use of this source code is governed by the GNU Lesser General Public License version 3, which can be found in the LICENSE file.

*/

kill(all);

load("draw");

load("bezier");

points_x: matrix([  0,  2,  6,  5 ]);

points_y: matrix([  2, -1,  6,  0 ]);

points_z: matrix([  1, -3,  2,  0 ]);

define(curve_x(s), bezier_function_1a(points_x, s));

define(curve_y(s), bezier_function_1a(points_y, s));

define(curve_z(s), bezier_function_1a(points_z, s));

expand(curve_x(s));

expand(curve_y(s));

expand(curve_z(s));

plot3d(
    [
        curve_x(s),
        curve_y(s),
        curve_z(s)
    ],
    [ s, 0, 1 ],
    [ t, 0, 1 ]
);