working on ending, fullscreen issues.

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

@@ -46,6 +46,8 @@
     :right
     :left))
 
+(def do-once (atom false))
+
 (defn fly-ego [screen entities]
   (let [speed 0.07
         pos-f (- (* (:total-time screen) speed) (int (* (:total-time screen) speed)))
@@ -74,8 +76,7 @@
 (defscreen title-screen
   :on-show
   (fn [screen entities]
-    
-    (utils/setup-viewport screen 1280 960)
+   (utils/setup-viewport screen 1280 960) 
     (utils/load-settings!)
     (let [font (utils/get-font "ego/font.fnt")
           start-playing (assoc (label (quest-label) (style :label font (color 1.0 0.3 0.3 1.0))) :x 0 :y 280 :height 32 :origin-x 0 :origin-y 0)
@@ -157,6 +158,15 @@
 
   :on-render
   (fn [screen [entities]]
+    #_(try
+      (when (not @do-once)
+        (Thread/sleep 1000)
+        (println "test")
+        (utils/setup-viewport screen 1280 960)
+        
+        (reset! do-once true)) 
+      (catch Exception e
+        (println e)))
 
     (clear!)
     (let [entities (utils/apply-tweens screen entities (:tweens entities))
@@ -188,6 +198,7 @@
     entities)
 
   :on-touch-up (fn [screen [entities]]
+                 
                  (when-not (get-in entities [:tweens :fade-out])
                    (let [[x y] (utils/unproject screen)]
                      (cond
@@ -228,9 +239,15 @@
                                 (label! (:fullscreen entities) set-text "Fullscreen")))
                        :else
                        nil))))
+   
 
-  :on-resize (fn [{:keys [viewport width height]} [entities]]
-               (.update viewport width height)
+  :on-resize (fn [screen [entities]]
+               
+               (utils/setup-viewport screen 1280 960)
+               #_(on-gl
+                (gl! :gl-viewport 0 0 1440 900)
+                (println "HERE")
+                (.update viewport width height true))
                nil))