diff options
Diffstat (limited to 'examples/date.scm')
-rw-r--r-- | examples/date.scm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/examples/date.scm b/examples/date.scm new file mode 100644 index 0000000..0f34145 --- /dev/null +++ b/examples/date.scm @@ -0,0 +1,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)) |