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

Content added Content deleted

Inline

@@ Line 255: / Line 255: @@
 bp(0,0)=1:bp(1,0)=70:bp(2,0)=1
 bp(0,1)=1:bp(1,1)=8:bp(2,1)=23
+dim pt%(ns,2) : rem individual lines in curve
-gosub 3000
-end
+gosub 3000
+end
 rem plot line
 se=0 : rem 0 = steep 1 = !steep
@@ Line 282: / Line 283: @@
 return
 rem bezier curve
-dim pt%(ns,2)
+for i=0 to ns
-for i=0 to ns
+t=i/ns
-t=i/ns
+t1=1.0-t
-t1=1.0-t
+a=t1^2
-a=t1^2
+b=2.0*t*t1
-b=2.0*t*t1
+c=t^2
+pt(i,0)=a*bp(0,0)+b*bp(1,0)+c*bp(2,0)
-c=t^2
-pt(i,0)=a*bp(0,0)+b*bp(1,0)+c*bp(2,0)
+pt(i,1)=a*bp(0,1)+b*bp(1,1)+c*bp(2,1)
+next i
-pt(i,1)=a*bp(0,1)+b*bp(1,1)+c*bp(2,1)
-next i
+for i=0 to ns-1
-for i=0 to ns-1
+x0=int(pt(i,0))
-x0=int(pt(i,0))
+y0=int(pt(i,1))
-y0=int(pt(i,1))
+x1=int(pt(i+1,0))
-x1=int(pt(i+1,0))
+y1=int(pt(i+1,1))
-y1=int(pt(i+1,1))
+gosub 1000
-gosub 1000
+next i
-next i
+return
-return
 </lang>
 [https://www.worldofchris.com/assets/c64-bezier-curve.png Screenshot of Bézier curve on C64]
 =={{header|D}}==