module Graphics.LambdaCube.Material where
import Graphics.LambdaCube.GpuProgram
import Graphics.LambdaCube.Technique
import Graphics.LambdaCube.Texture
import Graphics.LambdaCube.Types
data (Texture t, LinkedGpuProgram lp) => Material t lp
= Material
{ mtName :: String
, mtTechniques :: [Technique t lp]
, mtSupportedTechniques :: Maybe [Technique t lp]
, mtUserLodValues :: [FloatType]
, mtLodValues :: [FloatType]
, mtReceiveShadows :: Bool
, mtTransparencyCastsShadows :: Bool
, mtUnsupportedReasons :: String
}