From 6d2b759412845ac4d7a867691a9df97b4cb86ad2 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Thu, 17 Aug 2023 15:09:13 -0600
Subject: [PATCH] WIP strobe props or actors

---
 src/hollywoo/Movie.kiss | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/src/hollywoo/Movie.kiss b/src/hollywoo/Movie.kiss
index e26238b..c737215 100644
--- a/src/hollywoo/Movie.kiss
+++ b/src/hollywoo/Movie.kiss
@@ -441,6 +441,46 @@
     `(preload
         (_indexAssetPaths ,dir)))
 
+(#unless subclass
+    @:keep
+    (method :Void _strobe [:Bool skipping :Bool prop :String actorOrPropKey :Float strobeSec :Int times &opt :Continuation cc]
+        (when (and skipping cc)
+            (cc)
+            (return))
+
+        (let [:Dynamic propOrCharacter
+                    // dictGet on a fuzzymap will function as an assertion that the prop or character is already added,
+                    // but a try-catch here could make that more clear
+                    (if prop
+                            (dictGet .props (_currentScene) actorOrPropKey)
+                        (dictGet .characters (_currentScene) actorOrPropKey))
+                appearance ReAppearance
+                camera .camera (_currentScene)
+                &mut shown true
+                :Function show
+                    (if prop
+                            director.showProp
+                        director.showCharacter)
+                :Function hide
+                    (if prop
+                            director.hideProp
+                        director.hideCharacter)]
+            (TimerWithPause.interval
+                ->:Void
+                    (if shown
+                            {
+                                (hide propOrCharacter camera ->:Void {})
+                                (set shown false)
+                            }
+                        {
+                            (show propOrCharacter appearance camera ->:Void {})
+                            (set shown true)
+                        })
+                strobeSec
+                (* times 2))
+            (when cc
+                (TimerWithPause.delay cc (* strobeSec times 2))))))
+
 // Some real magic happens here. This macro defines a method, AND a reader macro
 // for calling it with skipping and cc passed automatically if cc is an argument.
 // GOTCHA: DO NOT use (method) directly in this file!!