1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
--Text.writeFile "/tmp/test" $ pp krebs
krebs = let size = 16 in
Plain
$ Text.decodeUtf8With (\_ _ -> Nothing)
$ Sixel.render
--(Rectangle (fromIntegral $ termWidthPixels - (fromIntegral size) - 2 * termBorder) 60 size size)
(Rectangle (fromIntegral $ termWidthPixels - (fromIntegral size) - 2 * termBorder) 38 size size)
[(0,0,0),(228,0,43)]
[0,1,0,1,0,0,0,0,0,0,0,0,0,1,0,1
,1,1,0,1,0,0,1,1,0,1,1,0,1,1,0,1
,1,1,0,1,0,0,1,1,0,1,1,0,1,1,0,1
,0,1,1,1,0,0,0,1,0,0,1,0,0,1,1,1
,0,1,1,1,0,0,1,1,1,1,1,0,0,1,1,1
,0,0,1,0,0,1,1,1,1,1,1,1,0,0,1,0
,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0
,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0
,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0
,0,0,0,1,0,0,0,1,1,1,0,0,0,1,0,0
,0,0,1,0,0,1,0,1,0,1,0,1,0,0,1,0
,0,0,1,0,0,1,0,1,0,1,0,1,0,0,1,0
,0,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0
]
|
