module DrawTypes(module DrawTypes,CoordMode(..),Shape(..)) where
import Geometry(Point,Rect,Line)
--import PackedString(PackedString)
import Xtypes(Pixel,PixmapId,ImageFormat,DbeBackBufferId,CoordMode(..),Shape(..))

data DrawCommand
-- Don't forget to change ../types/Drawcmd.hs too, if you change things here!!
  = DrawLine Line
  | DrawImageString Point String
  | DrawString Point String
  | DrawRectangle Rect
  | FillRectangle Rect
  | FillPolygon Shape Points
  | DrawArc Rect Int Int
  | FillArc Rect Int Int
  | CopyArea Drawable Rect Point
  | CopyPlane Drawable Rect Point Int
  | DrawPoint Point
  | CreatePutImage Rect ImageFormat [Pixel]
  --
---  | DrawImageStringPS Point PackedString
---  | DrawStringPS Point PackedString
  --
  | DrawLines Points
  | DrawImageString16 Point String
  | DrawString16 Point String
  deriving (Eq, Ord, Show, Read)

data Drawable
  = MyWindow
  | Pixmap PixmapId
  | DbeBackBuffer DbeBackBufferId
   deriving (Eq, Ord, Show, Read)

data Points = Points CoordMode [Point]  deriving (Eq, Ord, Show, Read)

drawLines cm ps = DrawLines (Points cm ps)
fillPolygon sh cm ps = FillPolygon sh (Points cm ps)