1    type VertexBuffer =
2        inherit ResizeBuffer type = BufferType/Vertex
3                             usage = BufferUsageFlags/TransferDst
4                                     | BufferUsageFlags/VertexBuffer
5    
6    type IndexBuffer =
7        inherit ResizeBuffer type = BufferType/Index
8                             usage = BufferUsageFlags/TransferDst
9                                     | BufferUsageFlags/IndexBuffer
10   
11   object VertexBuffer =
12       def create =
13           let instance : Instance @auto
14           VertexBuffer physical_device = instance.physical_device
15                        device = instance.device
16   
17   object IndexBuffer =
18       def create =
19           let instance : Instance @auto
20           IndexBuffer physical_device = instance.physical_device
21                       device = instance.device
22