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