gnarly hack to make FPS work okay in full screen.

desktop/gametodos.txt

@@ -1,8 +1,6 @@
-+ More ways to burn paper
 + shitty plates
 + fight with  blergh at end isn't great
 + ending
-+ secret lever
 + proper save/settings file location
 + closing should stop all scripts
 + frankie should drop coin

desktop/src-common/advent/screens/scene.clj

@@ -473,7 +473,7 @@ void main()
              :sigh-sound (sound "ego/sigh.ogg")
              :breakglass-sound (sound "ego/breakglass.ogg")
              :idea-sound (sound "ego/idea.ogg")
-             :blink (sound "blink.ogg")
+             :blink (sound "ego/blink2.ogg")
              :scale-x start-scale
              :scale-y start-scale
              :talk-color (color 0.6 1.0 1.0 1.0) 

desktop/src-common/advent/screens/title.clj

@@ -207,6 +207,11 @@
                                                  (.width (.getDesktopDisplayMode Gdx/graphics))
                                                  (.height (.getDesktopDisplayMode Gdx/graphics))
                                                  true)
+                                
+                                (set! (.foregroundFPS (-> (class Gdx/graphics)
+                                    (.getDeclaredField (name "config"))
+                                    (doto (.setAccessible true))
+                                        (.get Gdx/graphics))) 60 )
                                 (label! (:fullscreen entities) set-text "Fullscreen")))
                        :else
                        nil))))
@@ -214,3 +219,5 @@
   :on-resize (fn [{:keys [viewport width height]} [entities]]
                (.update viewport width height)
                nil))
+
+

desktop/src/advent/core/desktop_launcher.clj

@@ -20,13 +20,19 @@
 (defn -main
   [& [port]]
   (when port (start-nrepl-expr (Integer/parseInt port)))
-  (if false
+  (let [cfg (LwjglApplicationConfiguration.)]
-    (let [cfg (LwjglApplicationConfiguration.)]
+    (if false
-      (set! (.width cfg) (doto (.width (LwjglApplicationConfiguration/getDesktopDisplayMode)) println))
+      (do
-      (set! (.height cfg) (doto (.height (LwjglApplicationConfiguration/getDesktopDisplayMode)) println))
+        (set! (.width cfg) (doto (.width (LwjglApplicationConfiguration/getDesktopDisplayMode)) println))
-      (set! (.fullscreen cfg) true)
+        (set! (.height cfg) (doto (.height (LwjglApplicationConfiguration/getDesktopDisplayMode)) println))
-      (LwjglApplication. advent  cfg))
+        (set! (.fullscreen cfg) true))
-    (LwjglApplication. advent "advent"  1280 960))
+      (do
+        (set! (.width cfg) 1280)
+        (set! (.height cfg) 960)))
+    (set! (.foregroundFPS cfg) 60)
+    (set! (.backgroundFPS cfg) 60)
+    
+    (LwjglApplication. advent  cfg))