Bitmap/Bézier curves/Cubic: Difference between revisions

Content added Content deleted
Line 539: Line 539:
viewRGB (randomctrlpts; 255 255 0) drawBezier myimg NB. display image with bezier line</lang>
viewRGB (randomctrlpts; 255 255 0) drawBezier myimg NB. display image with bezier line</lang>


=={{header|Mathematica}}==
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>points= {{0, 0}, {1, 1}, {2, -1}, {3, 0}};
<lang Mathematica>points= {{0, 0}, {1, 1}, {2, -1}, {3, 0}};
Graphics[{BSplineCurve[points], Green, Line[points], Red, Point[points]}]</lang>
Graphics[{BSplineCurve[points], Green, Line[points], Red, Point[points]}]</lang>