type Object is abstract tagged private;
type array_Object is new Object with private;
type element_array_Object is new Object with private;
type vertex_buffer_Object is new array_Object with null record;
subtype vbo_Name is GL.Uint;
no_platform_Support : exception;
procedure Enable
( | Self | : Object'Class); |
procedure Destroy
( | Self | : in out Object'Class); |
function Extract_VBO_Target
( | Self | : Object) return GL.VBO_Target is abstract; |
overriding function Extract_VBO_Target
( | Self | : array_Object) return GL.VBO_Target; |
overriding function Extract_VBO_Target
( | Self | : element_array_Object) return GL.VBO_Target; |
procedure Verify_Name
( | Self | : in out Object'Class); |