module DrawInWindow where
--import Geometry
import XDraw

-- convenient abbreviations for drawing in windows:
wDrawLine :: GCId -> Line -> FRequest
wDrawLine GCId
gc Line
l = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Line -> DrawCommand
DrawLine Line
l)
wDrawLines :: GCId -> CoordMode -> [Point] -> FRequest
wDrawLines GCId
gc CoordMode
mode [Point]
ps = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (CoordMode -> [Point] -> DrawCommand
DrawLines CoordMode
mode [Point]
ps)
wDrawImageString :: GCId -> Point -> String -> FRequest
wDrawImageString GCId
gc Point
p String
s = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> String -> DrawCommand
DrawImageString Point
p String
s)
wDrawString :: GCId -> Point -> String -> FRequest
wDrawString GCId
gc Point
p String
s = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> String -> DrawCommand
DrawString Point
p String
s)
wDrawImageString16 :: GCId -> Point -> String -> FRequest
wDrawImageString16 GCId
gc Point
p String
s = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> String -> DrawCommand
DrawImageString16 Point
p String
s)
wDrawString16 :: GCId -> Point -> String -> FRequest
wDrawString16 GCId
gc Point
p String
s = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> String -> DrawCommand
DrawString16 Point
p String
s)
wDrawImageStringPS :: GCId -> Point -> PackedString -> FRequest
wDrawImageStringPS GCId
gc Point
p PackedString
s = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> PackedString -> DrawCommand
DrawImageStringPS Point
p PackedString
s)
wDrawStringPS :: GCId -> Point -> PackedString -> FRequest
wDrawStringPS GCId
gc Point
p PackedString
s = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> PackedString -> DrawCommand
DrawStringPS Point
p PackedString
s)
wDrawRectangle :: GCId -> Rect -> FRequest
wDrawRectangle GCId
gc Rect
r = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Rect -> DrawCommand
DrawRectangle Rect
r)
wFillRectangle :: GCId -> Rect -> FRequest
wFillRectangle GCId
gc Rect
r = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Rect -> DrawCommand
FillRectangle Rect
r)
wFillPolygon :: GCId -> Shape -> CoordMode -> [Point] -> FRequest
wFillPolygon GCId
gc Shape
shape CoordMode
mode [Point]
ps = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Shape -> CoordMode -> [Point] -> DrawCommand
FillPolygon Shape
shape CoordMode
mode [Point]
ps)
wDrawArc :: GCId -> Rect -> Int -> Int -> FRequest
wDrawArc GCId
gc Rect
r Int
a1 Int
a2 = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Rect -> Int -> Int -> DrawCommand
DrawArc Rect
r Int
a1 Int
a2)
wFillArc :: GCId -> Rect -> Int -> Int -> FRequest
wFillArc GCId
gc Rect
r Int
a1 Int
a2 = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Rect -> Int -> Int -> DrawCommand
FillArc Rect
r Int
a1 Int
a2)
wDrawCircle :: GCId -> Point -> Int -> FRequest
wDrawCircle GCId
gc Point
p Int
r = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> Int -> DrawCommand
drawCircle Point
p Int
r)
wFillCircle :: GCId -> Point -> Int -> FRequest
wFillCircle GCId
gc Point
p Int
r = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> Int -> DrawCommand
fillCircle Point
p Int
r)
wCopyArea :: GCId -> Drawable -> Rect -> Point -> FRequest
wCopyArea GCId
gc Drawable
src Rect
r Point
p = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Drawable -> Rect -> Point -> DrawCommand
CopyArea Drawable
src Rect
r Point
p)
wCopyPlane :: GCId -> Drawable -> Rect -> Point -> Int -> FRequest
wCopyPlane GCId
gc Drawable
src Rect
r Point
p Int
i = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Drawable -> Rect -> Point -> Int -> DrawCommand
CopyPlane Drawable
src Rect
r Point
p Int
i)
wDrawPoint :: GCId -> Point -> FRequest
wDrawPoint GCId
gc Point
p = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Point -> DrawCommand
DrawPoint Point
p)
wCreatePutImage :: GCId -> Rect -> ImageFormat -> [Pixel] -> FRequest
wCreatePutImage GCId
gc Rect
r ImageFormat
s [Pixel]
d = Drawable -> GCId -> DrawCommand -> FRequest
draw Drawable
MyWindow GCId
gc (Rect -> ImageFormat -> [Pixel] -> DrawCommand
CreatePutImage Rect
r ImageFormat
s [Pixel]
d)