indexing
	description: "[

		Perlin noise source

	]"
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	PERLIN_NOISE_SOURCE

inherit
	EM_VIZ_SAMPLE_SOURCE_1D

	EM_1D_PERLIN_NOISE

create
	make

feature -- Basic operations

	sample (pos: DOUBLE): DOUBLE is
			--
		do
			Result := evaluate_at ([pos])
		end

end