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

Content added Content deleted
(add Tcl)
Line 279: Line 279:


proc drawBezier {img colour args} {
proc drawBezier {img colour args} {
# ensure the 3 points are increasing along the x-axis
# ensure the points are increasing along the x-axis
set points [lsort -real -index 0 $args]
set points [lsort -real -index 0 $args]