search

hadronized / quaazar

Realtime 3D engine
BSD 3-Clause "New" or "Revised" License
6 stars 2 forks source link

Generalizing Vertex #70

Open hadronized opened 9 years ago

hadronized commented 9 years ago 
-- |Vertex component type.
data VCT
  = VCTI -- integer
  | VCTU -- unsigned
  | VCTF -- float
  | VCTD -- double
    deriving (Eq,Read,Show)

class (Binary a) => Vertex a where
  compShape :: a -> [(Int,VCT)]
  deinterleave :: [a] -> [ByteString]