2020-02-06 13:41:06 +00:00
|
|
|
{-# LANGUAGE TypeFamilies #-}
|
2020-02-06 22:18:05 +00:00
|
|
|
{-# LANGUAGE AllowAmbiguousTypes #-}
|
2020-02-06 13:41:06 +00:00
|
|
|
module Classes.Renderable where
|
|
|
|
|
|
|
|
|
|
class Renderable a where
|
|
|
|
|
type VertexObjects a :: *
|
|
|
|
|
|
|
|
|
|
type ShaderObjects a :: *
|
|
|
|
|
|
2020-02-07 13:57:09 +00:00
|
|
|
init :: VertexObjects a -> ShaderObjects a -> a -> IO ()
|
2020-02-06 13:41:06 +00:00
|
|
|
|
2020-02-07 04:50:19 +00:00
|
|
|
draw :: VertexObjects a -> ShaderObjects a -> a -> IO ()
|
2020-02-07 13:57:09 +00:00
|
|
|
|
|
|
|
|
clean :: a -> IO ()
|
