# Install a C function returning the value of the
# the Legendre nomial of degree n
# Let's call the function legn internally
reinstall ./legnomial.o leg=legn(x, order) vleg:vlegn(VX, VY, data, order)
# Calculate Nomial from -1 to 1 for order 1 to 5
set data 500
# Build X vector from -1 to 1
cmode n=1; X=n++ * 2 / data; X-=1
let i=0
let Y=0
echo Testing...
# ResetPlot, tplot are defined in fudgitrc example.
ResetPlot
while (i < 5)  # This is a fmode while
	let vlegn(X, Y, data, ++i)
	tplot X Y "$i"
end