summaryrefslogtreecommitdiff
path: root/src/SomhairlesDream.Frontend/Bindings.fs
diff options
context:
space:
mode:
authorSomhairle H. Marisol <[email protected]>2026-09-21 00:58:15 +0800
committerSomhairle H. Marisol <[email protected]>2026-09-21 00:58:15 +0800
commit7b29dbff7e43e87741476f47df17ad1582b16546 (patch)
tree4c9d0832b4e4edd77e59e9cb0a88abf5e729a9f9 /src/SomhairlesDream.Frontend/Bindings.fs
parent47add3088d50f12c5f48591f26c53cdb59d8283b (diff)
downloadsomhairles-dream-fsharp-7b29dbff7e43e87741476f47df17ad1582b16546.tar.gz
feat(pipeline): add runnable artifact pipeline increment
[Change Nature] - This commit adds the first runnable increment of the F# artifact pipeline: CLI, server, frontend bundle, stage fixture, and tests. It is feature work, not a bug fix. [New Capability] - CLI `run` executes the three-step Blender fixture through the process bridge and writes GLBs, step logs, events, and a manifest; `verify` validates a manifest without Blender. - Server exposes run start, run-scoped SSE, artifact manifest/file routes, and serves the Fable frontend from its build output. - Frontend starts runs, follows run-scoped SSE progress, and links the artifact manifest on completion. [Implementation] - Shared layer holds domain, run state, replay, and artifact contracts; Modeling holds the pipeline, 120s bridge timeout, and result-file protocol; stage/blender/fixture.py owns geometry in Python (bpy owns geometry, F# owns orchestration). - Fable bundle is regenerated into public/ and copied by the server project; solution includes all projects with warnings-as-errors. - README documents build, Fable, server, interpreter/env, fixture limitations, and current verification status. [Impact] - Verified: 40/40 solution tests pass; Release build 0 warnings/errors; real CLI run with bpy 5.0.1 produced 3 GLBs, 3 logs, and a verify-clean manifest; isolated-port server smoke flow succeeded. - Not yet verified: browser end-to-end behavior and production fidelity. Artifacts and caches are gitignored.
Diffstat (limited to 'src/SomhairlesDream.Frontend/Bindings.fs')
-rw-r--r--src/SomhairlesDream.Frontend/Bindings.fs109
1 files changed, 109 insertions, 0 deletions
diff --git a/src/SomhairlesDream.Frontend/Bindings.fs b/src/SomhairlesDream.Frontend/Bindings.fs
new file mode 100644
index 0000000..dc75d7d
--- /dev/null
+++ b/src/SomhairlesDream.Frontend/Bindings.fs
@@ -0,0 +1,109 @@
+module SomhairlesDream.Frontend.Bindings
+
+open Fable.Core
+
+[<Erase>]
+type ThreeVector =
+ abstract set: x: float * y: float * z: float -> ThreeVector
+ abstract x: float with get, set
+ abstract y: float with get, set
+ abstract z: float with get, set
+
+[<Erase>]
+type ThreeNode =
+ abstract add: child: ThreeNode -> unit
+ abstract clear: unit -> unit
+ abstract lookAt: x: float * y: float * z: float -> unit
+ abstract position: ThreeVector with get
+ abstract rotation: ThreeVector with get
+ abstract background: obj with get, set
+
+[<Erase>]
+type ThreeRenderer =
+ abstract setPixelRatio: ratio: float -> unit
+ abstract setSize: width: float * height: float * updateStyle: bool -> unit
+ abstract render: scene: ThreeNode * camera: ThreeNode -> unit
+
+[<Erase>]
+type ThreeGeometry =
+ abstract setAttribute: name: string * attribute: obj -> ThreeGeometry
+ abstract setIndex: attribute: obj -> ThreeGeometry
+ abstract computeVertexNormals: unit -> unit
+
+[<Erase>]
+type ServerEvent =
+ abstract data: string with get
+
+[<Erase>]
+type EventSource =
+ abstract onerror: (obj -> unit) with get, set
+ abstract onmessage: (ServerEvent -> unit) with get, set
+ abstract close: unit -> unit
+
+[<Erase>]
+type FetchResponse =
+ abstract ok: bool with get
+ abstract status: int with get
+ abstract json: unit -> JS.Promise<obj>
+
+[<Erase>]
+type HtmlInput =
+ abstract value: string with get
+ abstract ``checked``: bool with get
+
+[<Emit("new THREE.Scene()")>]
+let createScene () : ThreeNode = jsNative
+
+[<Emit("new THREE.Group()")>]
+let createGroup () : ThreeNode = jsNative
+
+[<Emit("new THREE.PerspectiveCamera($0, $1, $2, $3)")>]
+let createPerspectiveCamera (fieldOfView: float, aspect: float, nearPlane: float, farPlane: float) : ThreeNode = jsNative
+
+[<Emit("new THREE.WebGLRenderer($0)")>]
+let createRenderer (options: obj) : ThreeRenderer = jsNative
+
+[<Emit("new THREE.BufferGeometry()")>]
+let createBufferGeometry () : ThreeGeometry = jsNative
+
+[<Emit("new THREE.Float32BufferAttribute($0, $1)")>]
+let createFloat32BufferAttribute (values: float array, itemSize: int) : obj = jsNative
+
+[<Emit("new THREE.Uint32BufferAttribute($0, 1)")>]
+let createUint32BufferAttribute (values: int array) : obj = jsNative
+
+[<Emit("new THREE.Color($0)")>]
+let createColor (value: string) : obj = jsNative
+
+[<Emit("new THREE.BoxGeometry($0, $1, $2)")>]
+let createBoxGeometry (width: float, height: float, depth: float) : obj = jsNative
+
+[<Emit("new THREE.MeshStandardMaterial($0)")>]
+let createMeshStandardMaterial (options: obj) : obj = jsNative
+
+[<Emit("new THREE.Mesh($0, $1)")>]
+let createMesh (geometry: obj, material: obj) : ThreeNode = jsNative
+
+[<Emit("new THREE.AmbientLight($0, $1)")>]
+let createAmbientLight (color: string, intensity: float) : ThreeNode = jsNative
+
+[<Emit("new THREE.DirectionalLight($0, $1)")>]
+let createDirectionalLight (color: string, intensity: float) : ThreeNode = jsNative
+
+[<Emit("new EventSource($0)")>]
+let createEventSource (url: string) : EventSource = jsNative
+
+[<Global("fetch")>]
+let fetch (url: string, options: obj) : JS.Promise<FetchResponse> = jsNative
+
+[<Global("encodeURIComponent")>]
+let encodeURIComponent (value: string) : string = jsNative
+
+[<Global("setInterval")>]
+let setInterval (callback: unit -> unit) (milliseconds: int) : int = jsNative
+
+[<Global("clearInterval")>]
+let clearInterval (handle: int) : unit = jsNative
+
+[<Global("requestAnimationFrame")>]
+let requestAnimationFrame (callback: float -> unit) : int = jsNative