indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	EM_COSINE_INTERPOLATOR

inherit
	EM_INTERPOLATOR
	MATH_CONST
	DOUBLE_MATH

feature
	interpolate(a, b: DOUBLE; x: DOUBLE): DOUBLE is
			-- cosine interpolation between a and be at position x
		local
			ft, f: DOUBLE
		do
			ft := x * PI
			f := (1 - cosine(ft)) * 0.5
			Result := a * (1 - f) + b * f
		end
end