module XDraw(module DrawTypes,module XDraw) where
import Command(XCommand(Draw,DrawMany,ClearArea,ClearWindow))
import FRequest
import Geometry(Rect(..),diag)
import DrawTypes

draw d gc dcmd = XCmd (Draw d gc dcmd)
drawMany d dcmds = XCmd (DrawMany d dcmds)

wDraw = draw MyWindow
wDrawMany = drawMany MyWindow

pmDraw = draw . Pixmap 
pmDrawMany = drawMany . Pixmap

clearArea r b = XCmd (ClearArea r b)
clearWindow = XCmd ClearWindow

drawEllipse r = DrawArc r 0 (64*360)
fillEllipse r = FillArc r 0 (64*360)

drawCircle p r = drawEllipse (Rect p (diag r))
fillCircle p r = fillEllipse (Rect p (diag r))