   (glyph-graphics [this]
     ;; Adjust canvas to fit character atlas size
     (let [ms (MemoryStack/create)
-          ^STBTTFontinfo font-info   (make-font name-or-path)
+          font-data                  (font-data name-or-path)
+          ^STBTTFontinfo font-info   (make-font font-data)
           scale                      (STBTruetype/stbtt_ScaleForPixelHeight
                                        font-info
                                        size)

  (let [ascent   (.mallocInt ms 1)
        descent  (.mallocInt ms 1)
        line-gap (.mallocInt ms 1)]
    (log-call "STBTruetype/stbtt_GetFontVMetrics" font-info ascent descent line-gap)
    (STBTruetype/stbtt_GetFontVMetrics font-info ascent descent line-gap)
    [(.get ascent) (.get descent) (.get line-gap)]))


              file
              (get (system-fonts) x)))))))
  

(defn font-data
  [x]
  (if-let [font-path (as-font-path x)]
    ;; Load font from file
