namespace SomhairlesDream.Shared

type ReplayFrame =
    { Version: int
      Label: string
      Mesh: MeshSnapshot }

module Replay =
    let private vertex x y z =
        { X = x
          Y = y
          Z = z }

    let private frame version label vertices faces =
        { Version = version
          Label = label
          Mesh =
            { Version = version
              Label = label
              Vertices = vertices
              Faces = faces } }

    let frames () =
        [| frame
               1
               "重建起点"
               [| vertex -2.0 0.0 -1.0
                  vertex 2.0 0.0 -1.0
                  vertex 2.0 0.0 1.0
                  vertex -2.0 0.0 1.0
                  vertex -1.0 2.0 -0.5
                  vertex 1.0 2.0 -0.5
                  vertex 1.0 2.0 0.5
                  vertex -1.0 2.0 0.5 |]
               [| [| 0; 1; 2 |]
                  [| 0; 2; 3 |]
                  [| 4; 6; 5 |]
                  [| 4; 7; 6 |]
                  [| 0; 4; 5 |]
                  [| 0; 5; 1 |]
                  [| 1; 5; 6 |]
                  [| 1; 6; 2 |]
                  [| 2; 6; 7 |]
                  [| 2; 7; 3 |]
                  [| 3; 7; 4 |]
                  [| 3; 4; 0 |] |]
           frame
               2
               "主承力骨架"
               [| vertex -2.5 0.0 -1.0
                  vertex 2.5 0.0 -1.0
                  vertex 2.5 0.0 1.0
                  vertex -2.5 0.0 1.0
                  vertex -1.5 2.2 -0.7
                  vertex 1.5 2.2 -0.7
                  vertex 1.5 2.2 0.7
                  vertex -1.5 2.2 0.7
                  vertex -0.45 0.0 -0.45
                  vertex 0.45 0.0 -0.45
                  vertex 0.45 3.0 0.45
                  vertex -0.45 3.0 0.45 |]
               [| [| 0; 1; 2 |]
                  [| 0; 2; 3 |]
                  [| 4; 6; 5 |]
                  [| 4; 7; 6 |]
                  [| 8; 9; 10 |]
                  [| 8; 10; 11 |]
                  [| 0; 4; 8 |]
                  [| 4; 11; 8 |]
                  [| 1; 9; 5 |]
                  [| 1; 5; 2 |]
                  [| 2; 5; 10 |]
                  [| 2; 10; 3 |]
                  [| 3; 10; 7 |]
                  [| 3; 7; 0 |] |]
           frame
               3
               "舱段重构"
               [| vertex -3.0 0.0 -1.3
                  vertex 3.0 0.0 -1.3
                  vertex 3.0 0.0 1.3
                  vertex -3.0 0.0 1.3
                  vertex -2.0 2.0 -1.0
                  vertex 2.0 2.0 -1.0
                  vertex 2.0 2.0 1.0
                  vertex -2.0 2.0 1.0
                  vertex -1.0 3.4 -0.65
                  vertex 1.0 3.4 -0.65
                  vertex 1.0 3.4 0.65
                  vertex -1.0 3.4 0.65
                  vertex -3.8 0.6 0.0
                  vertex 3.8 0.6 0.0 |]
               [| [| 0; 1; 2 |]
                  [| 0; 2; 3 |]
                  [| 4; 6; 5 |]
                  [| 4; 7; 6 |]
                  [| 8; 9; 10 |]
                  [| 8; 10; 11 |]
                  [| 0; 4; 8 |]
                  [| 0; 8; 12 |]
                  [| 1; 13; 5 |]
                  [| 1; 2; 13 |]
                  [| 2; 6; 10 |]
                  [| 2; 10; 13 |]
                  [| 3; 11; 7 |]
                  [| 3; 12; 11 |]
                  [| 3; 0; 12 |] |] |]