kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

fuzzy intercut map

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-01-06 19:11:59 -07:00
parent 921601992f
commit f15cd2804e
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
projects/hollywoo-flixel/src/hollywoo_flixel/FlxDirector.kiss
View File

@@ -259,7 +259,7 @@
(let [[x y] (let [[x y]
(case position (case position
(Center [(/ 1280 2) (/ 720 2)]) (Center [(/ 1280 2) (/ 720 2)])
(otherwise (throw "not implemented")))] (otherwise (throw "screen position not implemented")))]
(let [width (min (max prop.width PROP_MIN_WIDTH) PROP_MAX_WIDTH)] (let [width (min (max prop.width PROP_MIN_WIDTH) PROP_MAX_WIDTH)]
(prop.setGraphicSize width) (prop.setGraphicSize width)

8
projects/hollywoo/src/hollywoo/Movie.kiss
View File

@@ -35,11 +35,11 @@
(prop &mut :String sceneKey "") (prop &mut :String sceneKey "")
(method _currentScene [] (dictGet scenes sceneKey)) (method _currentScene [] (dictGet scenes sceneKey))
(prop &mut :Map<String,String> intercutMap) (prop &mut :FuzzyMap<String> intercutMap)
(prop &mut :Map<String,Int> altIdx (new Map)) (prop &mut :Map<String,Int> altIdx (new Map))
(method :Void showDialog [actorName dialogType wryly text cc] (method :Void showDialog [actorName dialogType wryly text cc]
(when intercutMap (when intercutMap
(whenLet [sceneForActor (dictGet intercutMap actorName)] (whenLet [sceneForActor (try (dictGet intercutMap actorName) (catch [e] null))]
(setScene sceneForActor ->{}))) (setScene sceneForActor ->{})))
(let [cc ->:Void {(director.hideDialog) (cc)} (let [cc ->:Void {(director.hideDialog) (cc)}
@@ -267,7 +267,9 @@
// Dialogue: // Dialogue:
(hollywooMethod intercut false [:Map<String,String> actorNamesToSceneNames :Continuation cc] (hollywooMethod intercut false [:Map<String,String> actorNamesToSceneNames :Continuation cc]
(set intercutMap actorNamesToSceneNames) (set intercutMap (new FuzzyMap<String>))
(doFor =>actor scene actorNamesToSceneNames
(dictSet intercutMap actor scene))
(cc)) (cc))
(hollywooMethod endIntercut false [:Continuation cc] (hollywooMethod endIntercut false [:Continuation cc]