diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index 386343ea..ed0c9a18 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/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] diff --git a/desktop/src-common/advent/screens/title.clj b/desktop/src-common/advent/screens/title.clj index 7503969e..140969c7 100644 --- a/desktop/src-common/advent/screens/title.clj +++ b/desktop/src-common/advent/screens/title.clj @@ -198,7 +198,7 @@ (tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0 :finish (fn [entities] (utils/stop-sound (:music entities)) - (set-screen! @(resolve 'advent.core/advent) scene/scene scene/hud dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen fade/fade-screen) + (set-screen! @(resolve 'advent.core/advent) scene/scene scene/hud dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen scene/demo fade/fade-screen) entities) :ease tween/ease-in-cubic)) (assoc-in [:tweens :fade-out-music]