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

class
	EM3D_VBO_ARRAY_F[ V -> EM_ABSTRACT_VECTOR[REAL] create default_create end ]

inherit
	EM3D_VBO_ARRAY[REAL, V]

	PLATFORM
		export {NONE} all
		undefine default_create
		end
create
	make
convert
	to_c_pointer: {POINTER}
feature{ NONE }
	data_size: INTEGER is
		once
			result := real_bits // 8
		end
	put_vector( v:V; i: INTEGER ) is
			-- Write the vector into the internal_map
		local
			j: INTEGER
		do
			from j:=0 until j>=dimension loop
				internal_map.put_real( v.item(j+1), (i*dimension+j)*data_size )
				j := j + 1
			end
		end
end