indexing
	description: "A C-Array for 4D-Vectors"
	documentation: "Wraps  EM_VECTOR_3D to a c-array"
	date: "$Date$"
	revision: "$Revision$"

class EM_VECTOR4D_ARRAY

obsolete
	"Use EM_VECTOR_ARRAY_{F/I/D} instead"
inherit
	EM_ABSTRACT_VECTOR4_ARRAY[DOUBLE, EM_VECTOR4D]

create
	make

convert
	to_c_pointer: {POINTER}

feature -- Access

	item alias "[]", infix "@" (i: INTEGER): EM_VECTOR4D assign put is
			-- Entry at index `i', if in index interval
		do
			Result := [ area.item (i* dimension + 0), area.item (i*dimension  + 1), area.item(i*dimension + 2), area.item(i*dimension + 3) ]
		end

end -- class EM_VECTOR_4D_ARRAY