diff options
author | Tom Willemse | 2023-06-03 00:29:04 -0700 |
---|---|---|
committer | Tom Willemse | 2023-06-03 00:29:04 -0700 |
commit | 4f1b559f1c3a3ec72b659959447144d2fb872aae (patch) | |
tree | 119c267d882e9eabed9366cdd22135474b478910 /examples/date.scm | |
download | guile-inkplate-4f1b559f1c3a3ec72b659959447144d2fb872aae.tar.gz guile-inkplate-4f1b559f1c3a3ec72b659959447144d2fb872aae.zip |
Initial commit
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)) |