B-spline: Difference between revisions

Line 25:

* [https://www.cl.cam.ac.uk/teaching/2000/AGraphHCI/SMEG/node4.html B-splines]

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

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

<syntaxhighlight lang=algol68>BEGIN # construct a B-Spline #

<syntaxhighlight lang="algol68">BEGIN # construct a B-Spline #

# mode to hold a B Spline #

Line 222:

Line 220:

</pre>

=={{header|Julia}}==

Choose BSpline D of 2, ie degree 1.

<syntaxhighlight lang=julia>using Graphics, Plots

<syntaxhighlight lang="julia">using Graphics, Plots

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

Line 232:

Line 229:

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

savefig(plt, "BSplineplot.png")</syntaxhighlight>

=={{header|Lua}}==

<syntaxhighlight lang=~~Lua~~>local function Range(from, to)

<syntaxhighlight lang="lua">local function Range(from, to)

local range = {}

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

Line 406:

Line 402:

@@@

</pre>

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

<syntaxhighlight lang=~~Mathematica~~>Graphics[

<syntaxhighlight lang="mathematica">Graphics[

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

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

Line 415:

Line 410:

Outputs a graphical representation of a B-spline.

=={{header|Perl}}==

<syntaxhighlight lang=perl>use strict;

<syntaxhighlight lang="perl">use strict;

use warnings;

use Class::Struct;

Line 475:

Line 469:

$surf->write_to_png($OUTPUT);</syntaxhighlight>

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

=={{header|Phix}}==

Line 481:

Line 474:

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

--

-- demo\rosetta\B-spline.exw

Line 569:

Line 562:

main()

=={{header|Processing}}==

//Aamrun, 26th June 2022

Line 599:

Line 591:

</syntaxhighlight>

=={{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].

<syntaxhighlight lang=~~perl6~~># 20211112 Raku programming solution

<syntaxhighlight lang="raku" line># 20211112 Raku programming solution

use Cairo;

Line 676:

Line 667:

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

=={{header|Wren}}==

Line 682:

Line 672:

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

<syntaxhighlight lang=ecmascript>import "dome" for Window, Process

<syntaxhighlight lang="ecmascript">import "dome" for Window, Process

import "graphics" for Canvas, Color