blob: 0f341456bb0e464c6cfc9a30d4646d11be1f59ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(use-modules ((inkplate lowlevel) #:prefix inkplate:)
(srfi srfi-19))
(let ((my-dev (inkplate:open "/dev/ttyUSB0")))
(inkplate:clear-screen my-dev)
(inkplate:set-cursor my-dev 280 100)
(inkplate:set-text-size my-dev 10)
(inkplate:print my-dev (inkplate:convert-string-to-hex (date->string (current-date) "~Y")))
(inkplate:set-cursor my-dev 275 180)
(inkplate:set-text-size my-dev 8)
(inkplate:print my-dev (inkplate:convert-string-to-hex (date->string (current-date) "~m-~d")))
(inkplate:draw-rectangle my-dev 270 90 250 155 3)
(inkplate:draw-rectangle my-dev 269 89 252 157 3)
(inkplate:draw-rectangle my-dev 268 88 254 159 3)
(inkplate:update my-dev)
(inkplate:send my-dev)
(inkplate:close my-dev))
|