B-spline: Difference between revisions

Line 29:

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

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

<~~lang~~ algol68>BEGIN # construct a B-Spline #

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

# mode to hold a B Spline #

Line 178:

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

print plot( plot )

END</~~lang~~>

END</syntaxhighlight>

leading blank lines removed...

Line 225:

=={{header|Julia}}==

Choose BSpline D of 2, ie degree 1.

<~~lang~~ julia>using Graphics, Plots

<syntaxhighlight lang=julia>using Graphics, Plots

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

Line 231:

(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))

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

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

=={{header|Lua}}==

Line 237:

<~~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 363:

plotBspline(bspline, plot)

printPlot(plot)</~~lang~~>

printPlot(plot)</syntaxhighlight>

Line 408:

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

<~~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,

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

SplineDegree -> 2]]</~~lang~~>

SplineDegree -> 2]]</syntaxhighlight>

Outputs a graphical representation of a B-spline.

Line 418:

=={{header|Perl}}==

<~~lang~~ perl>use strict;

<syntaxhighlight lang=perl>use strict;

use warnings;

use Class::Struct;

Line 473:

}

$cr->stroke;

$surf->write_to_png($OUTPUT);</~~lang~~>

$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)

Line 481:

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

--

-- demo\rosetta\B-spline.exw

Line 568:

main()

=={{header|Processing}}==

<~~lang~~ java>

//Aamrun, 26th June 2022

Line 598:

}

</syntaxhighlight>

</lang>

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

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

<syntaxhighlight lang=perl6># 20211112 Raku programming solution

use Cairo;

Line 673:

};

.write_png(OUTPUT) and die # C return

}</~~lang~~>

}</syntaxhighlight>

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

Line 682:

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

<~~lang~~ ecmascript>import "dome" for Window, Process

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

import "graphics" for Canvas, Color

Line 743:

]

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

var Game = BSpline.new(400, 400, cpoints, k)</~~lang~~>

var Game = BSpline.new(400, 400, cpoints, k)</syntaxhighlight>