               file
               (get (system-fonts) x)))))))
   
-(defn make-font
+
+(defn font-data
   [x]
   (if-let [font-path (as-font-path x)]
     ;; Load font from file

    ;        "left-side-bearing" left-side-bearing "y" y)
    ;(log/info "x0" x0 "y0" y0 "x1" x1 "y1" y1)
    ;; draw greyscale font
    (log-call "STBTruetype/stbtt_MakeGlyphBitmapSubpixel"
      font-info
      (get img :byte-buffer)
      char-width 
      char-height
      char-width
      scale
      scale
      0.0
      0.0
      (int glyph-index))
    (STBTruetype/stbtt_MakeGlyphBitmapSubpixel
      font-info
      (get img :byte-buffer)

;  (fn [_ _ _ calls]
;    (spit "calls.log" calls)))
    
(defn- byte-buffer->str [^ByteBuffer buffer]
  (if buffer
    (loop [s ""]
