module Graphics.X11.Xlib.Types(
Display(..), Screen(..), Visual(..), GC(..), GCValues, SetWindowAttributes,
VisualInfo(..),
Image(..), Point(..), Rectangle(..), Arc(..), Segment(..), Color(..),
Pixel, Position, Dimension, Angle, ScreenNumber, Buffer
) where
import Graphics.X11.Types
import Data.Int
import Data.Word
import Foreign.C.Types
import Foreign.Ptr
import Foreign.Storable( Storable(..) )
import Data.Data
newtype Display = Display (Ptr Display)
deriving (Eq, Ord, Show, Typeable, Data)
newtype Screen = Screen (Ptr Screen)
deriving (Eq, Ord, Show, Typeable, Data)
newtype Visual = Visual (Ptr Visual)
deriving (Eq, Ord, Show, Typeable, Data)
newtype GC = GC (Ptr GC)
deriving (Eq, Ord, Show, Typeable, Data)
newtype GCValues = GCValues (Ptr GCValues)
deriving (Eq, Ord, Show, Typeable, Data)
newtype SetWindowAttributes = SetWindowAttributes (Ptr SetWindowAttributes)
deriving (Eq, Ord, Show, Typeable, Data)
data VisualInfo = VisualInfo {
visualInfo_visual :: Visual,
visualInfo_visualID :: VisualID,
visualInfo_screen :: ScreenNumber,
visualInfo_depth :: CInt,
visualInfo_class :: CInt,
visualInfo_redMask :: CULong,
visualInfo_greenMask :: CULong,
visualInfo_blueMask :: CULong,
visualInfo_colormapSize :: CInt,
visualInfo_bitsPerRGB :: CInt
}
deriving (Eq, Show, Typeable)
instance Storable VisualInfo where
sizeOf _ = (40)
alignment _ = alignment (undefined::CInt)
peek p = do
visual <- Visual `fmap` (\hsc_ptr -> peekByteOff hsc_ptr 0) p
visualID <- (\hsc_ptr -> peekByteOff hsc_ptr 4) p
screen <- (\hsc_ptr -> peekByteOff hsc_ptr 8) p
depth <- (\hsc_ptr -> peekByteOff hsc_ptr 12) p
class_ <- (\hsc_ptr -> peekByteOff hsc_ptr 16) p
redMask <- (\hsc_ptr -> peekByteOff hsc_ptr 20) p
greenMask <- (\hsc_ptr -> peekByteOff hsc_ptr 24) p
blueMask <- (\hsc_ptr -> peekByteOff hsc_ptr 28) p
colormapSize <- (\hsc_ptr -> peekByteOff hsc_ptr 32) p
bitsPerRGB <- (\hsc_ptr -> peekByteOff hsc_ptr 36) p
return $ VisualInfo {
visualInfo_visual = visual,
visualInfo_visualID = visualID,
visualInfo_screen = screen,
visualInfo_depth = depth,
visualInfo_class = class_,
visualInfo_redMask = redMask,
visualInfo_greenMask = greenMask,
visualInfo_blueMask = blueMask,
visualInfo_colormapSize = colormapSize,
visualInfo_bitsPerRGB = bitsPerRGB
}
poke p info = do
(\hsc_ptr -> pokeByteOff hsc_ptr 0) p visualPtr
(\hsc_ptr -> pokeByteOff hsc_ptr 4) p $ visualInfo_visualID info
(\hsc_ptr -> pokeByteOff hsc_ptr 8) p $ visualInfo_screen info
(\hsc_ptr -> pokeByteOff hsc_ptr 12) p $ visualInfo_depth info
(\hsc_ptr -> pokeByteOff hsc_ptr 16) p $ visualInfo_class info
(\hsc_ptr -> pokeByteOff hsc_ptr 20) p $ visualInfo_redMask info
(\hsc_ptr -> pokeByteOff hsc_ptr 24) p $ visualInfo_greenMask info
(\hsc_ptr -> pokeByteOff hsc_ptr 28) p $ visualInfo_blueMask info
(\hsc_ptr -> pokeByteOff hsc_ptr 32) p $
visualInfo_colormapSize info
(\hsc_ptr -> pokeByteOff hsc_ptr 36) p $
visualInfo_bitsPerRGB info
where
~(Visual visualPtr) = visualInfo_visual info
newtype Image = Image (Ptr Image)
deriving (Eq, Ord, Show, Typeable, Data)
type Pixel = Word32
type Position = Int32
type Dimension = Word32
type Angle = CInt
type ScreenNumber = Word32
type Buffer = CInt
type ShortPosition = CShort
type ShortDimension = CUShort
type ShortAngle = CShort
peekPositionField :: Ptr a -> CInt -> IO Position
peekPositionField ptr off = do
v <- peekByteOff ptr (fromIntegral off)
return (fromIntegral (v::ShortPosition))
peekDimensionField :: Ptr a -> CInt -> IO Dimension
peekDimensionField ptr off = do
v <- peekByteOff ptr (fromIntegral off)
return (fromIntegral (v::ShortDimension))
peekAngleField :: Ptr a -> CInt -> IO Angle
peekAngleField ptr off = do
v <- peekByteOff ptr (fromIntegral off)
return (fromIntegral (v::ShortAngle))
pokePositionField :: Ptr a -> CInt -> Position -> IO ()
pokePositionField ptr off v =
pokeByteOff ptr (fromIntegral off) (fromIntegral v::ShortPosition)
pokeDimensionField :: Ptr a -> CInt -> Dimension -> IO ()
pokeDimensionField ptr off v =
pokeByteOff ptr (fromIntegral off) (fromIntegral v::ShortDimension)
pokeAngleField :: Ptr a -> CInt -> Angle -> IO ()
pokeAngleField ptr off v =
pokeByteOff ptr (fromIntegral off) (fromIntegral v::ShortAngle)
data Point = Point { pt_x :: !Position, pt_y :: !Position }
deriving (Eq, Show, Typeable, Data)
instance Storable Point where
sizeOf _ = (4)
alignment _ = alignment (undefined::CInt)
peek p = do
x <- peekPositionField p (0)
y <- peekPositionField p (2)
return (Point x y)
poke p (Point x y) = do
pokePositionField p (0) x
pokePositionField p (2) y
data Rectangle = Rectangle {
rect_x :: !Position,
rect_y :: !Position,
rect_width :: !Dimension,
rect_height :: !Dimension
}
deriving (Eq, Read, Show, Typeable, Data)
instance Storable Rectangle where
sizeOf _ = (8)
alignment _ = alignment (undefined::CInt)
peek p = do
x <- peekPositionField p (0)
y <- peekPositionField p (2)
width <- peekDimensionField p (4)
height <- peekDimensionField p (6)
return (Rectangle x y width height)
poke p (Rectangle x y width height) = do
pokePositionField p (0) x
pokePositionField p (2) y
pokeDimensionField p (4) width
pokeDimensionField p (6) height
data Arc = Arc {
arc_x :: Position,
arc_y :: Position,
arc_width :: Dimension,
arc_height :: Dimension,
arc_angle1 :: Angle,
arc_angle2 :: Angle
}
deriving (Eq, Show, Typeable)
instance Storable Arc where
sizeOf _ = (12)
alignment _ = alignment (undefined::CInt)
peek p = do
x <- peekPositionField p (0)
y <- peekPositionField p (2)
width <- peekDimensionField p (4)
height <- peekDimensionField p (6)
angle1 <- peekAngleField p (8)
angle2 <- peekAngleField p (10)
return (Arc x y width height angle1 angle2)
poke p (Arc x y width height angle1 angle2) = do
pokePositionField p (0) x
pokePositionField p (2) y
pokeDimensionField p (4) width
pokeDimensionField p (6) height
pokeAngleField p (8) angle1
pokeAngleField p (10) angle2
data Segment = Segment {
seg_x1 :: Position,
seg_y1 :: Position,
seg_x2 :: Position,
seg_y2 :: Position
}
deriving (Eq, Show, Typeable, Data)
instance Storable Segment where
sizeOf _ = (8)
alignment _ = alignment (undefined::CInt)
peek p = do
x1 <- peekPositionField p (0)
y1 <- peekPositionField p (2)
x2 <- peekPositionField p (4)
y2 <- peekPositionField p (6)
return (Segment x1 y1 x2 y2)
poke p (Segment x1 y1 x2 y2) = do
pokePositionField p (0) x1
pokePositionField p (2) y1
pokePositionField p (4) x2
pokePositionField p (6) y2
data Color = Color {
color_pixel :: Pixel,
color_red :: Word16,
color_green :: Word16,
color_blue :: Word16,
color_flags :: Word8
}
deriving (Eq, Show, Typeable, Data)
instance Storable Color where
sizeOf _ = (12)
alignment _ = alignment (undefined::CInt)
peek p = do
pixel <- (\hsc_ptr -> peekByteOff hsc_ptr 0) p
red <- (\hsc_ptr -> peekByteOff hsc_ptr 4) p
green <- (\hsc_ptr -> peekByteOff hsc_ptr 6) p
blue <- (\hsc_ptr -> peekByteOff hsc_ptr 8) p
flags <- (\hsc_ptr -> peekByteOff hsc_ptr 10) p
return (Color pixel red green blue flags)
poke p (Color pixel red green blue flags) = do
(\hsc_ptr -> pokeByteOff hsc_ptr 0) p pixel
(\hsc_ptr -> pokeByteOff hsc_ptr 4) p red
(\hsc_ptr -> pokeByteOff hsc_ptr 6) p green
(\hsc_ptr -> pokeByteOff hsc_ptr 8) p blue
(\hsc_ptr -> pokeByteOff hsc_ptr 10) p flags