summaryrefslogtreecommitdiff
path: root/src/SomhairlesDream.Shared/Replay.fs
blob: 782e63273cbe7d85f6aa6cf48de10b49d9fec185 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
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 |] |] |]