 
 
 ;; A sequence of [character underline?]
-(defn displayable-characters [font]
+(defn displayable-characters [^Font font]
   (let [chars (map char (filter (fn [c] (and (.canDisplay font (char c))
                                              (not (contains? cjk-blocks c))))
                                 (range 0x0000 0xFFFF)))]

    ;(log/info "characters" (vec characters))
    ;(log/info "character-idxs" (vec (character-idxs characters)))
    (let [texture-image    (BufferedImage. width height BufferedImage/TYPE_4BYTE_ABGR)
          texture-graphics ^Graphics (.getGraphics texture-image)
          white            (Color. 255 255 255 255)]
      ;; Create and clear graphics
      (doto texture-graphics

      (throw (Exception. error-string)))))

(defn- texture-id
  ([^BufferedImage buffered-image]
  (let [width (.getWidth buffered-image)
        height (.getHeight buffered-image)]
    (texture-id width height (buffered-image-byte-buffer buffered-image))))
