B-spline: Difference between revisions

=={{header|ALGOL 68}}==

{{Trans|Lua}}Which is {{Trans|Wren}}Suppresses unused parts of the plot.

 

# mode to hold a B Spline #

plot bspline( bs, plot, scale x, scale y );

print plot( plot )

{{out}}

leading blank lines removed...

=={{header|Julia}}==

Choose BSpline D of 2, ie degree 1.

 

Point(t::Tuple) = Vec2(Float64(t[1]), Float64(t[2]))

(208, 254), (241, 330), (164,252), (69, 278), (139, 208), (72, 148), (168, 172)])

plt = plot(map(a -> a.x, controlpoints), map(a -> a.y, controlpoints))

 

=={{header|Lua}}==

{{trans|Wren}}

 

local range = {}

for n = from, to do table.insert(range, n) end

plotBspline(bspline, plot)

 

 

{{out}}

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

BSplineCurve[{{171, 171}, {185, 111}, {202, 109}, {202, 189}, {328,

160}, {208, 254}, {241, 330}, {164, 252}, {69, 278}, {139,

208}, {72, 148}, {168, 172}}, SplineClosed -> True,

{{out}}

Outputs a graphical representation of a B-spline.

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use Class::Struct;

}

$cr->stroke;

Output: [https://raw.githubusercontent.com/SqrtNegInf/Rosettacode-Perl-Smoke/master/ref/b-spline.png b-spline.png] (offsite image)

 

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/bspline.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\B-spline.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Processing}}==

//Aamrun, 26th June 2022

 

}

 

 

=={{header|Raku}}==

A minimal translation of [https://www.cypherpunk.at/download/bspline/bspline_1.1.tbz2 this C program], by [https://github.com/rahra Bernhard R. Fischer].

 

use Cairo;

};

.write_png(OUTPUT) and die # C return

 

Output: [https://drive.google.com/file/d/1dInRJeecA18meybDF2D0usEaWMGFqoBj/view (Offsite image file) ]

 

If one uses a value for k of 1, then the script will simply plot the control points as in the Julia example.

import "graphics" for Canvas, Color

 

]

var k = 4 // polynomial degree is one less than this i.e. cubic