indexing description: "Objects that ..." author: "" date: "$Date$" revision: "$Revision$" class EM3D_VBO_ARRAY_I[ V -> EM_ABSTRACT_VECTOR[INTEGER] create default_create end ] inherit EM3D_VBO_ARRAY[INTEGER, V] PLATFORM export {NONE} all undefine default_create end create make convert to_c_pointer: {POINTER} feature data_size: INTEGER is once result := integer_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_integer( v.item(j+1), (i*dimension+j)*data_size ) j := j + 1 end end end