Bezier Curve by yvl

x0,y0,x1,y1,x2,y2,x3,y3=$<.map &:to_i
0.step(1,0.1){|t|printf"%.0f %.0f\n",(1-t)**3*x0+3*(1-t)**2*t*x1+3*(1-t)*t**2*x2+t**3*x3,(1-t)**3*y0+3*(1-t)**2*t*y1+3*(1-t)*t**2*y2+t**3*y3}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top