open Scad_ml
Control points that our cubic spline will pass through.
let control = [ v2 0. 10.; v2 10. 40.; v2 20. 40.; v2 30. (-20.); v2 40. (-40.) ]
Mark our control
points with the debugging helper Path2.show_points
for reference. We don't really need to number these, so we'll ignore the index parameter and use the same sphere for each point.
let marks = Path2.show_points Scad.(fun _ -> color Color.Magenta @@ sphere 2.) control
Fit a cubic spline to the control
points, and interpolate fn
points along it using the helper Path2.cubic_spline
(lower level functions available in the CubicSpline
module), then sweep a rectangle
along it.
let line =
let rectangle = Poly2.square ~center:true (v2 2. 5.)
and path = Path3.of_path2 @@ Path2.cubic_spline ~fn:100 control in
Mesh.(to_scad @@ path_extrude ~path rectangle)
Union our control point marks
and line
sweep shapes and output to file.
let () = Scad.to_file "spline.scad" (Scad.union [ line; marks ])