                                     :default-fg-color [250 250 250]
                                     :default-bg-color [5 5 8]
                                     :windows-font "Consolas"
-                                    :else-font "/home/santos/Downloads/cour.ttf"
-                                    :font-size 18
+                                    ;:else-font "/home/santos/Downloads/cour.ttf"
+                                    ;:else-font (TTFFont. "/home/santos/Downloads/cour.ttf" 12)
+                                    ;:else-font (TTFFont. "Monospaced" 12)
+                                    ;:else-font (TTFFont. "/home/santos/src/robinson/fonts/Boxy/Boxy.ttf" 12)
+                                    ;:else-font (CP437Font. "http://dwarffortresswiki.org/images/2/29/Potash_8x8.png" :green)
+                                    :else-font (CP437Font. "/home/santos/Pictures/LN_EGA8x8.png" :green 2)
                                     :antialias true
                                     :icon-paths ["images/icon-16x16.png"
                                                  "images/icon-32x32.png"

             {:keys [^ByteBuffer glyph-image-data
                     ^ByteBuffer fg-image-data
                     ^ByteBuffer bg-image-data]} :data
             :keys [p-matrix-buffer mv-matrix-buffer character-width character-height character->col-row]} gl
            glyph-image-data glyph-image-data
            fg-image-data fg-image-data
            bg-image-data bg-image-data

                             :font-watcher
                             (fn [_ _ _ new-font]
                               (log/info "Using font" new-font)
                               (let [;; create texture atlas as Buffered texture
                                     {:keys [font-texture-width
                                             font-texture-height
                                             font-texture-image
                                             character-width
                                             character-height
                                             character->col-row]
                                      :as font-parameters} (glyph-graphics new-font)
                                     screen-width (* character-width columns)
                                     screen-height (* character-height rows)]
                                 (log/info "Created font texture " (dissoc font-parameters :character->col-row) " screen-width" screen-width "screen-height" screen-height)
                                 (swap! font-textures assoc
                                                     (font-key new-font)
                                                     {:screen-width screen-width
                                                      :screen-height screen-height
                                                      :character-width character-width
                                                      :character-height character-height
                                                      :character->col-row character->col-row
                                                      :font-texture-width font-texture-width
                                                      :font-texture-height font-texture-height
                                                      :font-texture-image font-texture-image}))))
          _                  (reset! normal-font (if is-windows
                                                   windows-font
                                                   else-font))
          ;; false if Display is destoyed
          destroyed          (atom false)
          gl-lock            (atom true)
