@lovelace_lol/polymer 0.0.1

package/dist/worker/manifest.edn

@@ -0,0 +1 @@
+[{:module-id :agency-worker, :name :agency-worker, :output-name "agency-worker.js", :entries [polymer.worker], :depends-on nil, :sources ["goog/base.js" "goog/debug/error.js" "goog/dom/nodetype.js" "goog/asserts/asserts.js" "goog/reflect/reflect.js" "goog/math/long.js" "goog/math/integer.js" "goog/dom/htmlelement.js" "goog/dom/tagname.js" "goog/dom/element.js" "goog/asserts/dom.js" "goog/dom/asserts.js" "goog/functions/functions.js" "goog/string/typedstring.js" "goog/string/const.js" "goog/html/trustedtypes.js" "goog/html/safescript.js" "goog/fs/url.js" "goog/fs/blob.js" "goog/html/trustedresourceurl.js" "goog/string/internal.js" "goog/html/safeurl.js" "goog/html/safestyle.js" "goog/object/object.js" "goog/html/safestylesheet.js" "goog/flags/flags.js" "goog/labs/useragent/useragent.js" "goog/labs/useragent/util.js" "goog/labs/useragent/highentropy/highentropyvalue.js" "goog/labs/useragent/highentropy/highentropydata.js" "goog/labs/useragent/browser.js" "goog/array/array.js" "goog/dom/tags.js" "goog/html/safehtml.js" "goog/html/uncheckedconversions.js" "goog/dom/safe.js" "goog/string/string.js" "goog/collections/maps.js" "goog/structs/structs.js" "goog/uri/utils.js" "goog/uri/uri.js" "goog/string/stringbuffer.js" "cljs/core.cljs" "polymer/animation/state.cljs" "polymer/animation/planner.cljs" "polymer/animation/domain.cljs" "polymer/animation/runtime.cljs" "polymer/animation/scheduler.cljs" "polymer/stream.cljs" "polymer/animation/agency.cljs" "clojure/string.cljs" "polymer/animation/service.cljs" "polymer/blink/state.cljs" "polymer/blink/planner.cljs" "polymer/blink/snippet.cljs" "polymer/blink/scheduler.cljs" "polymer/blink/agency.cljs" "polymer/camera_context/domain.cljs" "polymer/camera_context/planner.cljs" "polymer/camera_context/scheduler.cljs" "polymer/camera_context/state.cljs" "polymer/camera_context/agency.cljs" "polymer/conversation/domain.cljs" "polymer/conversation/effector.cljs" "polymer/conversation/planner.cljs" "polymer/conversation/state.cljs" "polymer/conversation/scheduler.cljs" "polymer/conversation/agency.cljs" "polymer/eye_head/domain.cljs" "polymer/eye_head/snippet.cljs" "polymer/eye_head/goap.cljs" "polymer/eye_head/state.cljs" "polymer/eye_head/scheduler.cljs" "polymer/eye_head/agency.cljs" "polymer/gaze/domain.cljs" "polymer/gaze/goap.cljs" "polymer/gaze/state.cljs" "polymer/gaze/scheduler.cljs" "polymer/gaze/agency.cljs" "clojure/set.cljs" "polymer/gesture/state.cljs" "polymer/gesture/goap.cljs" "polymer/gesture/scheduler.cljs" "polymer/gesture/snippet.cljs" "polymer/gesture/agency.cljs" "polymer/lipsync/goap.cljs" "polymer/lipsync/state.cljs" "polymer/nlp/phonemes.cljs" "polymer/lipsync/articulation/visemes.cljs" "polymer/tts/azure.cljs" "polymer/lipsync/scheduler.cljs" "polymer/lipsync/pronunciation/effector.cljs" "polymer/lipsync/articulation/jaw.cljs" "polymer/lipsync/articulation/tongue.cljs" "polymer/lipsync/articulation/snippet.cljs" "polymer/lipsync/agency.cljs" "polymer/prosodic/state.cljs" "polymer/prosodic/goap.cljs" "polymer/prosodic/scheduler.cljs" "polymer/prosodic/snippet.cljs" "polymer/prosodic/agency.cljs" "polymer/society.cljs" "polymer/transcription/domain.cljs" "polymer/transcription/effector.cljs" "polymer/transcription/state.cljs" "polymer/transcription/planner.cljs" "polymer/transcription/scheduler.cljs" "polymer/transcription/agency.cljs" "polymer/tts/planner.cljs" "polymer/tts/state.cljs" "polymer/tts/runtime.cljs" "polymer/tts/scheduler.cljs" "polymer/tts/agency.cljs" "polymer/character.cljs" "polymer/conversation/service.cljs" "polymer/eye_head/service.cljs" "polymer/transcription/service.cljs" "polymer/core.cljs" "polymer/worker.cljs" "shadow/module/agency-worker/append.js"]}]

package/package.json

@@ -0,0 +1,57 @@
+{
+  "name": "@lovelace_lol/polymer",
+  "version": "0.0.1",
+  "description": "Pure ClojureScript character agencies for Character Loom.",
+  "license": "UNLICENSED",
+  "private": false,
+  "type": "module",
+  "main": "dist/index.js",
+  "module": "dist/index.js",
+  "types": "dist/index.d.ts",
+  "exports": {
+    ".": {
+      "types": "./dist/index.d.ts",
+      "import": "./dist/index.js",
+      "default": "./dist/index.js"
+    },
+    "./worker/agency-worker.js": "./dist/worker/agency-worker.js",
+    "./package.json": "./package.json"
+  },
+  "files": [
+    "dist",
+    "src",
+    "shadow-cljs.edn",
+    "README.md"
+  ],
+  "dependencies": {
+    "@lovelace_lol/embody": "latest",
+    "cmu-pronouncing-dictionary": "3.0.0"
+  },
+  "peerDependencies": {
+    "three": ">=0.150.0"
+  },
+  "devDependencies": {
+    "shadow-cljs": "^2.28.23",
+    "three": "^0.184.0",
+    "typescript": "5.7.2"
+  },
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/meekmachine/Polymer.git"
+  },
+  "publishConfig": {
+    "access": "public"
+  },
+  "scripts": {
+    "build": "rm -f dist/index.js dist/index.cjs dist/index.mjs && shadow-cljs release npm worker",
+    "test": "shadow-cljs compile test && node dist/test.cjs",
+    "test:embody-exports": "node --test test/embody-export-contract.test.mjs test/embody-marker-endpoint-contract.test.mjs test/embody-model-scale-contract.test.mjs",
+    "test:worker": "node test/worker_smoke.cjs",
+    "check:install-surface": "node scripts/check-git-install-surface.mjs",
+    "check:architecture": "node scripts/check-agency-architecture.mjs",
+    "check:embody-exports": "node scripts/check-embody-export-contract.mjs",
+    "check:types": "tsc --noEmit --skipLibCheck false --moduleResolution bundler --module esnext --target es2022 dist/index.d.ts",
+    "check:dist": "node scripts/check-built-dist.mjs",
+    "clean": "rm -rf .shadow-cljs dist/test.js dist/test.cjs dist/worker"
+  }
+}

package/shadow-cljs.edn

@@ -0,0 +1,173 @@
+{:source-paths ["src" "test"]
+ :dependencies []
+ :builds
+ {:npm
+  {:target :esm
+   :output-dir "dist"
+   :js-options {:js-provider :import}
+   :modules {:index
+             {;; Closure cannot emit dynamic-import expressions from CLJS.
+              ;; This build-only ESM connector keeps the package name literal
+              ;; so downstream bundlers can resolve and split the dictionary.
+              :prepend "globalThis.__polymerLoadPronunciationDictionary = () => import('cmu-pronouncing-dictionary');\n"
+              :exports {:createBlinkAgency polymer.core/createBlinkAgency
+             :createAnimationAgency polymer.core/createAnimationAgency
+             :createAnimationService polymer.core/createAnimationService
+             :createEyeHeadTrackingService polymer.core/createEyeHeadTrackingService
+             :createTranscriptionService polymer.core/createTranscriptionService
+             :createConversationService polymer.core/createConversationService
+             :TranscriptionService polymer.core/TranscriptionService
+             :ConversationService polymer.core/ConversationService
+             :DEFAULT_EYE_HEAD_CONFIG polymer.core/DEFAULT_EYE_HEAD_CONFIG
+             :DEFAULT_ANIMATION_KEYS polymer.core/DEFAULT_ANIMATION_KEYS
+             :EYE_AUS polymer.core/EYE_AUS
+             :HEAD_AUS polymer.core/HEAD_AUS
+             :animationEventEmitter polymer.core/animationEventEmitter
+             :snippetList$ polymer.core/snippetList$
+             :snippetState$ polymer.core/snippetState$
+             :snippetTime$ polymer.core/snippetTime$
+             :globalPlaybackState$ polymer.core/globalPlaybackState$
+             :bakedClipList$ polymer.core/bakedClipList$
+             :playingBakedAnimations$ polymer.core/playingBakedAnimations$
+             :bakedAnimationProgress$ polymer.core/bakedAnimationProgress$
+             :bakedAnimationState$ polymer.core/bakedAnimationState$
+             :getBundledSnippetNames polymer.core/getBundledSnippetNames
+             :getStoredSnippetNames polymer.core/getStoredSnippetNames
+             :getAvailableSnippetNames polymer.core/getAvailableSnippetNames
+             :resolveSnippetEntry polymer.core/resolveSnippetEntry
+             :preloadAllSnippets polymer.core/preloadAllSnippets
+             :clearPreloadedSnippets polymer.core/clearPreloadedSnippets
+             :createGazeAgency polymer.core/createGazeAgency
+             :createEyeHeadTrackingAgency polymer.core/createEyeHeadTrackingAgency
+             :createLipSyncAgency polymer.core/createLipSyncAgency
+             :createTTSAgency polymer.core/createTTSAgency
+             :createGestureAgency polymer.core/createGestureAgency
+             :createProsodicAgency polymer.core/createProsodicAgency
+             :createConversationAgency polymer.core/createConversationAgency
+             :createTranscriptionAgency polymer.core/createTranscriptionAgency
+             :createCameraContextAgency polymer.core/createCameraContextAgency
+             :createCharacterAgencies polymer.core/createCharacterAgencies
+             :DEFAULT_AGENCY_SOCIETY polymer.core/DEFAULT_AGENCY_SOCIETY
+             :Embody polymer.runtime.embody/Embody
+             :BLENDING_MODES polymer.runtime.embody/BLENDING_MODES
+             :THREE_BLENDING_MODES polymer.runtime.embody/THREE_BLENDING_MODES
+             :collectMorphMeshes polymer.runtime.embody/collectMorphMeshes
+             :analyzeModel polymer.runtime.embody/analyzeModel
+             :extractModelData polymer.runtime.embody/extractModelData
+             :getPreset polymer.runtime.embody/getPreset
+             :validateMappings polymer.runtime.embody/validateMappings
+             :extendCharacterConfigWithPreset polymer.runtime.embody/extendCharacterConfigWithPreset
+             :extractProfileOverrides polymer.runtime.embody/extractProfileOverrides
+             :mergeCharacterRegionsByName polymer.runtime.embody/mergeCharacterRegionsByName
+             :applyAUBoneBindingUpdate polymer.runtime.embody/applyAUBoneBindingUpdate
+             :applyBilateralAxisBindingUpdate polymer.runtime.embody/applyBilateralAxisBindingUpdate
+             :applyBoneAxisBindingUpdate polymer.runtime.embody/applyBoneAxisBindingUpdate
+             :buildBoneAuOptions polymer.runtime.embody/buildBoneAuOptions
+             :classifyAuAsJointControl polymer.runtime.embody/classifyAuAsJointControl
+             :createBilateralBoneAxisAu polymer.runtime.embody/createBilateralBoneAxisAu
+             :createBoneAxisAu polymer.runtime.embody/createBoneAxisAu
+             :DEFAULT_AXIS_TO_CHANNEL polymer.runtime.embody/DEFAULT_AXIS_TO_CHANNEL
+             :DEFAULT_BONE_MAX_DEGREES polymer.runtime.embody/DEFAULT_BONE_MAX_DEGREES
+             :ensureBilateralBoneNodeKeys polymer.runtime.embody/ensureBilateralBoneNodeKeys
+             :ensureBoneNodeKey polymer.runtime.embody/ensureBoneNodeKey
+             :findNodeKeyForBone polymer.runtime.embody/findNodeKeyForBone
+             :formatAxisDirectionLabel polymer.runtime.embody/formatAxisDirectionLabel
+             :formatAxisLabel polymer.runtime.embody/formatAxisLabel
+             :getAUBoneBindingState polymer.runtime.embody/getAUBoneBindingState
+             :getAxisFromChannel polymer.runtime.embody/getAxisFromChannel
+             :getBilateralAxisBindingState polymer.runtime.embody/getBilateralAxisBindingState
+             :getBoneAxisBindingState polymer.runtime.embody/getBoneAxisBindingState
+             :inferChiralBoneNamePair polymer.runtime.embody/inferChiralBoneNamePair
+             :inferEyeControlFamily polymer.runtime.embody/inferEyeControlFamily
+             :inferEyeControlScope polymer.runtime.embody/inferEyeControlScope
+             :isJointControlAuInfo polymer.runtime.embody/isJointControlAuInfo
+             :isMaxDegreesOnlyAxisBindingUpdate polymer.runtime.embody/isMaxDegreesOnlyAxisBindingUpdate
+             :JOINT_CONTROL_SECTION polymer.runtime.embody/JOINT_CONTROL_SECTION
+             :resolveBoneAxisChannel polymer.runtime.embody/resolveBoneAxisChannel
+             :resolveBoneNameForNodeKey polymer.runtime.embody/resolveBoneNameForNodeKey
+             :resolveContinuumDisplayLabel polymer.runtime.embody/resolveContinuumDisplayLabel
+             :stripConfiguredBoneAffixes polymer.runtime.embody/stripConfiguredBoneAffixes
+             :computeCameraRelativeGazeOffset polymer.runtime.embody/computeCameraRelativeGazeOffset
+             :detectAnnotationLaterality polymer.runtime.embody/detectAnnotationLaterality
+             :fuzzyNameMatch polymer.runtime.embody/fuzzyNameMatch
+             :getDefaultAnnotationLaterality polymer.runtime.embody/getDefaultAnnotationLaterality
+             :getMeshNamesForAUProfile polymer.runtime.embody/getMeshNamesForAUProfile
+             :getModelLocalOrbitAngle polymer.runtime.embody/getModelLocalOrbitAngle
+             :getSemanticHorizontalSign polymer.runtime.embody/getSemanticHorizontalSign
+             :getSemanticHorizontalSignForSide polymer.runtime.embody/getSemanticHorizontalSignForSide
+             :getWorldDirectionForCameraAngle polymer.runtime.embody/getWorldDirectionForCameraAngle
+             :hasLeftRightMorphs polymer.runtime.embody/hasLeftRightMorphs
+             :isMixedAU polymer.runtime.embody/isMixedAU
+             :passesMarkerCameraAngleGate polymer.runtime.embody/passesMarkerCameraAngleGate
+             :resolveBoneNames polymer.runtime.embody/resolveBoneNames
+             :resolveFaceCenter polymer.runtime.embody/resolveFaceCenter
+             :resolveRegionCameraAngle polymer.runtime.embody/resolveRegionCameraAngle
+             :resolveRegionVisibilityCameraAngle polymer.runtime.embody/resolveRegionVisibilityCameraAngle
+             :toWorldDirection polymer.runtime.embody/toWorldDirection
+             :RustAnnotationCameraCore polymer.runtime.embody/RustAnnotationCameraCore
+             :createRustAnnotationCameraCore polymer.runtime.embody/createRustAnnotationCameraCore
+             :CC4_BONES polymer.runtime.embody/CC4_BONES
+             :VISEME_KEYS polymer.runtime.embody/VISEME_KEYS
+             :HAIR_COLOR_PRESETS polymer.runtime.embody/HAIR_COLOR_PRESETS
+             :DEFAULT_HAIR_COLOR_APPEARANCE polymer.runtime.embody/DEFAULT_HAIR_COLOR_APPEARANCE
+             :normalizeHairColorAppearance polymer.runtime.embody/normalizeHairColorAppearance
+             :HUMANOID_SKELETON_TEMPLATES polymer.runtime.embody/HUMANOID_SKELETON_TEMPLATES
+             :JONATHAN_HUMANOID_SKELETON_TEMPLATE polymer.runtime.embody/JONATHAN_HUMANOID_SKELETON_TEMPLATE
+             :getHumanoidSkeletonTemplate polymer.runtime.embody/getHumanoidSkeletonTemplate
+             :getHumanoidSkeletonTemplateBoneNames polymer.runtime.embody/getHumanoidSkeletonTemplateBoneNames
+             :createValidationSkeletonFromHumanoidTemplate polymer.runtime.embody/createValidationSkeletonFromHumanoidTemplate
+             :computeHumanoidSkeletonTemplateRestBounds polymer.runtime.embody/computeHumanoidSkeletonTemplateRestBounds
+             :extractHumanoidSkeletonTemplateFromModel polymer.runtime.embody/extractHumanoidSkeletonTemplateFromModel
+             :createCharacterHost polymer.runtime.embody/createCharacterHost
+             :createRustEmbodyHost polymer.runtime.embody/createRustEmbodyHost
+             :createRustEmbodyHostUnbound polymer.runtime.embody/createRustEmbodyHostUnbound
+             :supportsRustEmbodyPreset polymer.runtime.embody/supportsRustEmbodyPreset
+             :createDefaultCharacterScene polymer.runtime.embody/createDefaultCharacterScene
+             :createDefaultCharacterLighting polymer.runtime.embody/createDefaultCharacterLighting
+             :createShadowPlane polymer.runtime.embody/createShadowPlane
+             :loadCharacterModel polymer.runtime.embody/loadCharacterModel
+             :parseCharacterModel polymer.runtime.embody/parseCharacterModel
+             :applyCharacterModelTransform polymer.runtime.embody/applyCharacterModelTransform
+             :disposeCharacterModel polymer.runtime.embody/disposeCharacterModel
+             :DEFAULT_CHARACTER_LIGHTING_PRESET_ID polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_PRESET_ID
+             :DEFAULT_CHARACTER_LIGHTING_PRESET_IDS polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_PRESET_IDS
+             :DEFAULT_CHARACTER_LIGHTING_PRESETS polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_PRESETS
+             :DEFAULT_CHARACTER_LIGHTING_SETTINGS polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_SETTINGS
+             :normalizeDefaultCharacterLightingSettings polymer.runtime.embody/normalizeDefaultCharacterLightingSettings
+             :CHARACTER_SCENE_TYPES polymer.runtime.embody/CHARACTER_SCENE_TYPES
+             :CHARACTER_SCENE_TYPE_IDS polymer.runtime.embody/CHARACTER_SCENE_TYPE_IDS
+             :DEFAULT_CHARACTER_SCENE_TYPE_ID polymer.runtime.embody/DEFAULT_CHARACTER_SCENE_TYPE_ID
+             :initEmbodyCore polymer.runtime.embody-wasm/initEmbodyCore
+             :isEmbodyCoreReady polymer.runtime.embody-wasm/isEmbodyCoreReady
+             :getEmbodyCore polymer.runtime.embody-wasm/getEmbodyCore
+             :coreAbiVersion polymer.runtime.embody-wasm/coreAbiVersion
+             :packMorphFrameDelta polymer.runtime.embody-wasm/packMorphFrameDelta
+             :solveBilateralValues polymer.runtime.embody-wasm/solveBilateralValues
+             :solveMorphBatch polymer.runtime.embody-wasm/solveMorphBatch
+             :solveAxisQuaternion polymer.runtime.embody-wasm/solveAxisQuaternion
+             :analyzeMeshProportions polymer.runtime.embody-wasm/analyzeMeshProportions
+             :solveTemplateSkeletonFit polymer.runtime.embody-wasm/solveTemplateSkeletonFit
+             :composeTemplateFitAdjustment polymer.runtime.embody-wasm/composeTemplateFitAdjustment
+             :composeTemplateSkeletonFitTransform polymer.runtime.embody-wasm/composeTemplateSkeletonFitTransform
+             :defaultHairPhysicsConfigValues polymer.runtime.embody-wasm/defaultHairPhysicsConfigValues
+             :createHairPhysicsSolver polymer.runtime.embody-wasm/createHairPhysicsSolver
+             :createRuntimeCore polymer.runtime.embody-wasm/createRuntimeCore
+             :EMBODY_CORE_ABI_VERSION polymer.runtime.embody-wasm/EMBODY_CORE_ABI_VERSION
+             :PACKED_MORPH_FRAME_DELTA_STRIDE polymer.runtime.embody-wasm/PACKED_MORPH_FRAME_DELTA_STRIDE
+             :HAIR_CONFIG_STRIDE polymer.runtime.embody-wasm/HAIR_CONFIG_STRIDE
+             :HAIR_STATE_STRIDE polymer.runtime.embody-wasm/HAIR_STATE_STRIDE
+             :HAIR_HEAD_STATE_STRIDE polymer.runtime.embody-wasm/HAIR_HEAD_STATE_STRIDE
+             :HAIR_MORPH_OUTPUT_STRIDE polymer.runtime.embody-wasm/HAIR_MORPH_OUTPUT_STRIDE
+             :MESH_PROPORTIONS_STRIDE polymer.runtime.embody-wasm/MESH_PROPORTIONS_STRIDE
+             :TEMPLATE_SKELETON_FIT_SOLUTION_STRIDE polymer.runtime.embody-wasm/TEMPLATE_SKELETON_FIT_SOLUTION_STRIDE
+             :TEMPLATE_SKELETON_FIT_TRANSFORM_STRIDE polymer.runtime.embody-wasm/TEMPLATE_SKELETON_FIT_TRANSFORM_STRIDE}}}}
+
+  :worker
+  {:target :browser
+   :output-dir "dist/worker"
+   :modules {:agency-worker {:init-fn polymer.worker/init}}}
+
+  :test
+  {:target :node-test
+   :output-to "dist/test.cjs"
+   :ns-regexp "polymer\\..*-test$"}}}

package/src/polymer/animation/agency.cljs

@@ -0,0 +1,84 @@
+(ns polymer.animation.agency
+  (:require [polymer.animation.planner :as planner]
+            [polymer.animation.runtime :as runtime]
+            [polymer.animation.scheduler :as scheduler]
+            [polymer.animation.state :as state]
+            [polymer.stream :as stream]))
+
+;; Animation is Polymer's runtime-owning agency. Peer agencies send animation
+;; requests as plain data; this agency plans those requests, schedules ordered
+;; runtime work, and keeps the external animation handle lifecycle private.
+
+(defn debug-flag-enabled? [name]
+  (try
+    (let [search (when (exists? js/window)
+                   (.. js/window -location -search))
+          params (when search (js/URLSearchParams. search))
+          value (when params (.get params name))]
+      (or (= value "1") (= value "true")))
+    (catch :default _ false)))
+
+(defn animation-debug-enabled? []
+  (or (debug-flag-enabled? "polymerVocalDebug")
+      (debug-flag-enabled? "polymerLipSyncDebug")))
+
+(defn debug-log! [label payload]
+  (when (animation-debug-enabled?)
+    (.info js/console (str label " " (.stringify js/JSON (clj->js payload))))))
+
+(defn create-animation-agency [config]
+  (let [runtime (runtime/config->runtime config)
+        input-stream (stream/create-stream)
+        event-stream (stream/create-stream)
+        state-atom (atom state/default-state)
+        disposed? (atom false)
+        emit-input (:emit input-stream)
+        emit-event (:emit event-stream)
+        animation-scheduler (scheduler/create-scheduler
+                             {:runtime runtime
+                              :state-atom state-atom
+                              :emit-event emit-event
+                              :disposed? disposed?
+                              :debug-log! debug-log!})]
+    (letfn [(dispatch! [command]
+              (when-not @disposed?
+                (let [payload (js->clj command :keywordize-keys true)
+                      requested-at (state/now-ms)]
+                  (emit-input {:type "command"
+                               :agency "animation"
+                               :command payload})
+                  ((:enqueue-actions! animation-scheduler)
+                   (planner/plan-command @state-atom payload requested-at)))))]
+      #js {:dispatch dispatch!
+           :snapshot (fn [] (state/visible-state @state-atom))
+           :input (stream/writable-port input-stream dispatch!)
+           :events (stream/readable-port event-stream)
+           :subscribeInput (fn [listener] ((:subscribe input-stream) listener))
+           :subscribeEvents (fn [listener] ((:subscribe event-stream) listener))
+           :subscribe (fn [listener] ((:subscribe event-stream) listener))
+           :subscribeStatus (fn [listener] ((:subscribe event-stream) listener))
+           :scheduleSnippet (fn [snippet options]
+                              (dispatch! #js {:type "scheduleSnippet"
+                                              :sourceAgency "direct"
+                                              :snippet snippet
+                                              :options options}))
+           :removeSnippet (fn [name]
+                            (dispatch! #js {:type "removeSnippet"
+                                            :sourceAgency "direct"
+                                            :name name}))
+           :seekSnippet (fn [name offset-sec]
+                          (dispatch! #js {:type "seekSnippet"
+                                          :sourceAgency "direct"
+                                          :name name
+                                          :offsetSec offset-sec}))
+           :updateSnippet (fn [name params]
+                            (dispatch! #js {:type "updateSnippet"
+                                            :sourceAgency "direct"
+                                            :name name
+                                            :params params}))
+           :dispose (fn []
+                      (when-not @disposed?
+                        (reset! disposed? true)
+                        ((:dispose! animation-scheduler))
+                        ((:dispose input-stream))
+                        ((:dispose event-stream))))})))

package/src/polymer/animation/domain.cljs

@@ -0,0 +1,110 @@
+(ns polymer.animation.domain)
+
+;; Domain functions describe Polymer animation data without touching a runtime.
+;; They answer questions like "is this a typed viseme snippet?" and "which clip
+;; options should a runtime receive?" so the scheduler can stay focused on
+;; ordering and lifecycle.
+
+(defn viseme-snippet-category? [category]
+  (= "visemeSnippet" category))
+
+(defn typed-channels [snippet]
+  (let [channels (:channels snippet)]
+    (when (seq channels)
+      channels)))
+
+(defn typed-channel-target [channel]
+  (:target channel))
+
+(defn typed-viseme-channel? [channel]
+  (= "viseme" (:type (typed-channel-target channel))))
+
+(defn typed-jaw-channel? [channel]
+  (let [target (typed-channel-target channel)]
+    (or (and (= "au" (:type target))
+             (= 26 (:id target)))
+        (and (= "bone" (:type target))
+             (= "JAW" (:id target))))))
+
+(defn typed-viseme-snippet? [snippet]
+  (boolean (some typed-viseme-channel? (typed-channels snippet))))
+
+(defn typed-jaw-snippet? [snippet]
+  (boolean (some typed-jaw-channel? (typed-channels snippet))))
+
+(defn typed-channel-summary [snippet]
+  ;; The summary is diagnostic-only. A transducer is appropriate here because
+  ;; this is a pure map/reduce over channel data with no ordering side effects.
+  (into []
+        (map (fn [channel]
+               (let [keyframes (:keyframes channel)
+                     peak (transduce (map :intensity) max 0 keyframes)]
+                 {:target (:target channel)
+                  :frames (count keyframes)
+                  :firstSec (:time (first keyframes))
+                  :lastSec (:time (last keyframes))
+                  :peak peak})))
+        (or (typed-channels snippet) [])))
+
+(defn explicit-auto-viseme-jaw [snippet]
+  (when (contains? snippet :autoVisemeJaw)
+    (:autoVisemeJaw snippet)))
+
+(defn snippet->clip-options-map
+  ([snippet options] (snippet->clip-options-map snippet options false))
+  ([snippet options legacy-fallback?]
+   ;; Typed channels carry their own namespace, so the normal Embody path does
+   ;; not need snippetCategory. The legacy curve fallback still needs
+   ;; "visemeSnippet" because older runtimes otherwise treat numeric lip ids as
+   ;; facial AU ids.
+   (let [category (:snippetCategory snippet)
+         typed-viseme? (typed-viseme-snippet? snippet)
+         viseme-category? (or (viseme-snippet-category? category) typed-viseme?)
+         curves (or (:curves snippet) {})
+         has-jaw-curve? (or (contains? curves "26") (typed-jaw-snippet? snippet))
+         category-for-options (or category
+                                  (when (and legacy-fallback? typed-viseme?)
+                                    "visemeSnippet"))
+         loop? (boolean (:loop snippet))
+         loop-mode (or (:mixerLoopMode snippet) (if loop? "repeat" "once"))
+         playback-rate (or (:snippetPlaybackRate snippet) 1)
+         reverse? (boolean (:mixerReverse snippet))
+         signed-rate (if reverse? (- playback-rate) playback-rate)
+         intensity-scale (or (:snippetIntensityScale snippet) 1)
+         auto-viseme-jaw (if (contains? snippet :autoVisemeJaw)
+                           (explicit-auto-viseme-jaw snippet)
+                           (when (and viseme-category? has-jaw-curve?) false))]
+     (cond->
+      (merge
+       {:loop loop?
+        :loopMode loop-mode
+        :repeatCount (:mixerRepeatCount snippet)
+        :reverse reverse?
+        :priority (:snippetPriority snippet)
+        :playbackRate signed-rate
+        :rate signed-rate
+        :weight intensity-scale
+        :mixerWeight (:mixerWeight snippet)
+        :intensityScale intensity-scale
+        :balance (or (:snippetBalance snippet) 0)
+        :balanceMap (or (:snippetBalanceMap snippet) {})
+        :jawScale (or (:snippetJawScale snippet) 1)
+        :source "snippet"}
+       options)
+       category-for-options (assoc :snippetCategory category-for-options)
+       (some? auto-viseme-jaw) (assoc :autoVisemeJaw auto-viseme-jaw)))))
+
+(defn snippet->clip-options [snippet options]
+  (clj->js (snippet->clip-options-map snippet options false)))
+
+(defn snippet->legacy-clip-options [snippet options]
+  (clj->js (snippet->clip-options-map snippet options true)))
+
+(defn schedule-log-payload [snippet options source-agency]
+  {:name (:name snippet)
+   :sourceAgency source-agency
+   :typed (boolean (typed-channels snippet))
+   :channelCount (count (typed-channels snippet))
+   :channels (typed-channel-summary snippet)
+   :curveKeys (vec (keys (or (:curves snippet) {})))
+   :options options})

package/src/polymer/animation/planner.cljs

@@ -0,0 +1,88 @@
+(ns polymer.animation.planner
+  (:require [polymer.animation.state :as state]))
+
+;; The planner turns input stream commands into scheduler actions. It does not
+;; call runtimes, mutate handles, or emit events. Keeping those decisions as data
+;; makes Animation easier to test and lets future agencies negotiate by sending
+;; requests without knowing this agency's internals.
+
+(defn source-agency [payload]
+  (or (:sourceAgency payload) "unknown"))
+
+(defn error-action [message]
+  {:op :error
+   :message message})
+
+(defn schedule-action [payload requested-at]
+  (let [source (source-agency payload)
+        fallback-name (str "polymer:animation:" requested-at)
+        snippet (assoc (:snippet payload)
+                       :name (state/snippet-name (:snippet payload) fallback-name))
+        options (assoc (or (:options payload) {}) :sourceAgency source)]
+    {:op :schedule
+     :sourceAgency source
+     :requestedAt requested-at
+     :snippet snippet
+     :options options}))
+
+(defn remove-action [payload]
+  {:op :remove
+   :sourceAgency (source-agency payload)
+   :name (:name payload)
+   :reason "requested"})
+
+(defn seek-action [payload]
+  {:op :seek
+   :sourceAgency (source-agency payload)
+   :name (:name payload)
+   :offsetSec (max 0 (:offsetSec payload))})
+
+(defn update-action [payload]
+  {:op :update
+   :sourceAgency (source-agency payload)
+   :name (:name payload)
+   :params (:params payload)})
+
+(defn clear-action [current-state payload]
+  {:op :clear
+   :sourceAgency (source-agency payload)
+   :names (vec (keys (:scheduled current-state)))})
+
+(defn plan-command [current-state payload requested-at]
+  (case (:type payload)
+    "scheduleSnippet"
+    (if (:snippet payload)
+      [(schedule-action payload requested-at)]
+      [(error-action "Animation scheduleSnippet command requires a snippet")])
+
+    "removeSnippet"
+    (if-let [_name (:name payload)]
+      [(remove-action payload)]
+      [(error-action "Animation removeSnippet command requires a name")])
+
+    "seekSnippet"
+    (cond
+      (not (:name payload))
+      [(error-action "Animation seekSnippet command requires a name")]
+
+      (not (number? (:offsetSec payload)))
+      [(error-action "Animation seekSnippet command requires offsetSec")]
+
+      :else
+      [(seek-action payload)])
+
+    "updateSnippet"
+    (cond
+      (not (:name payload))
+      [(error-action "Animation updateSnippet command requires a name")]
+
+      (not (map? (:params payload)))
+      [(error-action "Animation updateSnippet command requires params")]
+
+      :else
+      [(update-action payload)])
+
+    "clear"
+    [(clear-action current-state payload)]
+
+    [(error-action (str "Unknown Animation command: " (:type payload)))]))