{-# LANGUAGE TypeFamilies #-} module Classes.Graphics.Drawable where -- iternal imports import Types.Graphics.VertexBuffer (Vertex) -- | A typeclass for all drawable objects class Drawable a where -- | List type for resulting vertices and indices type VertexList a :: * -> * -- | converter function toVertices :: a -> ((VertexList a) Word, (VertexList a) Vertex)