demo version.

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

@@ -1125,6 +1125,23 @@ void main()
                     (tween/tween [target grow-or-shrink :opacity] screen [target :opacity] opacity-from opacity-to 0.15 :ease tween/ease-in-out-quadratic)))
       entities)))
 
+(defscreen demo
+  :on-show
+  (fn [screen entities]
+    (let [screen (assoc screen :total-time 0)] 
+      (utils/setup-viewport screen 640 480)
+      {:label (assoc (label "Demo version - DO NOT COPY" (color :white) ) :y 0 :x 5 :baseline 0 :opacity 0.5)}))
+  
+  :on-render
+  (fn [screen [entities]]
+    (render! screen [(:label entities)])
+    entities)
+
+  :on-resize
+  (fn [screen entities]
+    (.update (:viewport screen) (:width screen) (:height screen) true))
+
+)
 (defscreen hud
   :on-show
   (fn [screen entities]