Bezier Curve by *yuko*

real a(8)
f(n)=(1-t)**(3-n)*t**n*a(i+n+n)
read*,a
print'(i0xi0)',((nint(f(0)+3*f(1)+3*f(2)+f(3)),i=1,2),t=0,1,.1)
end

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

download

return to the top page