CCSDS 504.0-B Attitude Ephemeris Message parser and serializer
aem: fix README — pattern-match attitude variant in code example
+7
-2
+7
-2
README.md
+7
-2
README.md
···
23
23
Printf.printf "Object: %s\n" (List.hd aem.segments).metadata.object_name;
24
24
let seg = List.hd aem.segments in
25
25
let att = seg.data.(0) in
26
-
Printf.printf "Quaternion: (%.6f, %.6f, %.6f, %.6f)\n"
27
-
att.q1 att.q2 att.q3 att.qc
26
+
(match att.attitude with
27
+
| Aem.Quaternion q ->
28
+
Printf.printf "Quaternion: (%.6f, %.6f, %.6f, %.6f)\n"
29
+
q.q1 q.q2 q.q3 q.qc
30
+
| Aem.Euler e ->
31
+
Printf.printf "Euler: (%.6f, %.6f, %.6f)\n"
32
+
e.angle_1 e.angle_2 e.angle_3)
28
33
| Error e -> Fmt.epr "%a\n" Aem.pp_error e
29
34
```
30
35