git.iko.soy/vty
on 92ff677 help sign in
vty/src/Graphics/Vty/Debug/Image.hs
31 lines 766 B history raw
1module Graphics.Vty.Debug.Image where
3import Graphics.Vty.Image
5type ImageConstructLog = [ImageConstructEvent]
6data ImageConstructEvent = ImageConstructEvent
7 deriving ( Show, Eq )
9forward_image_ops :: [Image -> Image]
10forward_image_ops = map forward_transform debug_image_ops
12forward_transform, reverse_transform :: ImageOp -> (Image -> Image)
14forward_transform (ImageOp f _) = f
15reverse_transform (ImageOp _ r) = r
17data ImageOp = ImageOp ImageEndo ImageEndo
18type ImageEndo = Image -> Image
20debug_image_ops :: [ImageOp]
21debug_image_ops =
22 [ id_image_op
23 -- , render_single_column_char_op
24 -- , render_double_column_char_op
25 ]
27id_image_op :: ImageOp
28id_image_op = ImageOp id id
30-- render_char_op :: ImageOp
31-- render_char_op = ImageOp id id