class
	VECTOR_COMPLEX_64_ITERATION_CURSOR

inherit
	ITERATION_CURSOR [COMPLEX_64]

create
	make

feature {NONE} -- Initialization

	make (vector: VECTOR_COMPLEX_64)
			--
		do
			index := 1
			create internal_item.make
			if vector.is_column_vector then
				count := vector.height
			else
				count := vector.width
			end
			component_area := vector.area
		end

feature -- Access

	count: INTEGER

	index: INTEGER

	item: COMPLEX_64
			-- Current item
		local
			i: INTEGER
		do
			i := 2 * index - 2
			internal_item.set (component_area.item (i), component_area.item (i + 1) )
			Result := internal_item
		end

feature -- Basic operations

	forth
			--
		do
			index := index + 1
		end

feature -- Status query

	after: BOOLEAN
		do
			Result := index > count
		end

feature {NONE} -- Implementation

	component_area: SPECIAL [DOUBLE]

	internal_item: COMPLEX_64

end