fudgets-0.18.3: hsrc/xtypes/Visual.hs

module Visual where
import HbcWord

data DisplayClass
  = StaticGray | GrayScale
  | StaticColor | PseudoColor
  | TrueColor | DirectColor
  deriving (Eq,Show,Read,Bounded,Enum)

newtype VisualID = VisualID Int deriving (Eq,Show,Read)

data Visual
  = Visual { visualid :: VisualID,
	     visualClass :: DisplayClass,
	     red_mask,green_mask,blue_mask :: Word,
	     bits_per_rgb :: Int,
	     map_entries :: Int
	   }
  deriving (Show,Read)