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

Content added Content deleted

Inline

@@ Line 318: / Line 318: @@
 	for (t in seq(0, 1, length.out=n))
 		{
-		b <- bez(hullx, hully, t)
+		b <- bez(x, y, t)
 		outx[i] <- b$x
 		outy[i] <- b$y
@@ Line 332: / Line 332: @@
 	outx <- 0
 	outy <- 0
-	n <- length(hullx)-1
+	n <- length(x)-1
 	for (i in 0:n)
 		{
-		outx <- outx + choose(n, i)*((1-t)^(n-i))*t^i*hullx[i+1]
+		outx <- outx + choose(n, i)*((1-t)^(n-i))*t^i*x[i+1]
-		outy <- outy + choose(n, i)*((1-t)^(n-i))*t^i*hully[i+1]
+		outy <- outy + choose(n, i)*((1-t)^(n-i))*t^i*y[i+1]
 		}