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

{{libheader|Action! Bitmap tools}}

{{libheader|Action! Tool Kit}}

<lang Action!>INCLUDE "H6:RGBLINE.ACT" ;from task Bresenham's line algorithm

 

RGB black,yellow,violet,blue

 

TYPE IntPoint=[INT x,y]

 

PROC CubicBezier(RgbImage POINTER img

RealMult(rd,x4,tmp1) ;tmp1=d*x4

RealAdd(tmp2,tmp1,tmp3) ;tmp3=a*x1+b*x2+c*x3+d*x4

 

RealMult(ra,y1,tmp1) ;tmp1=a*y1

RealMult(rd,y4,tmp1) ;tmp1=d*y4

RealAdd(tmp2,tmp1,tmp3) ;tmp3=a*y1+b*y2+c*y3+d*y4

 

IF i>0 THEN