From 4f1b559f1c3a3ec72b659959447144d2fb872aae Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 3 Jun 2023 00:29:04 -0700
Subject: Initial commit

---
 examples/date.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 examples/date.scm

(limited to 'examples/date.scm')

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))
-- 
cgit v1.2.3-54-g00ecf