;; this file:
;;   https://dataswamp.org/~incal/common-lisp/general-base/text.lisp
;;
;; commands from:
;;   https://shirakumo.github.io/cl-fond/
;;
;; (cl-fond:compute-extent *font* "Hello there!")

(defvar *font*)
(setq *font* nil)

(defvar *buffer*)
(setq *buffer* nil)

(defun init-font ()
  (setq *font*
        (cl-fond:make-font
         #p"/usr/share/fonts/fonts-go/Go-Bold-Italic.ttf"
         "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ .!?") )
  (setq *buffer* (cl-fond:make-buffer *font* 512 30)) )

(defun draw-string (str)
  (when (and *font* *buffer*)
    (cl-fond:render *buffer* str :y (cl-fond:height *font*)) ))