Source file conan_images_134.ml
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
let tree = Conan.Tree.Unsafe.node
[(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1943)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 8L))
ty (Conan.Test.always_true) (`No_space ", z %#x")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1941)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 6L))
ty (Conan.Test.always_true) (`No_space ", y %#x")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1939)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 4L))
ty (Conan.Test.always_true) (`No_space ", x %#x")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1937)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 2L))
ty (Conan.Test.always_true) (`No_space ", w %#x")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1935)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty (Conan.Test.always_true) (`Space "space (%u)")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1929)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 10))
(`Space "HKS")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1928)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 9))
(`Space "wide CMYK")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1927)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 8))
(`Space "Grayscale")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1926)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 7))
(`Space "Lab")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1925)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 6))
(`Space "Toyo")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1924)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 5))
(`Space "Trumatch")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1923)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 4))
(`Space "Focoltone")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1922)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 3))
(`Space "Pantone")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1921)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 2))
(`Space "CMYK")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1920)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 1))
(`Space "HSB")),
Conan.Tree.Unsafe.leaf);
(Conan.Tree.Unsafe.elt ?filename:(Some "images")
?line:(Some 1919)
(let ty = Conan.Ty.numeric ~unsigned:true ~endian:`BE
Conan.Integer.short (Conan.Arithmetic.Add 0) in
Conan.Tree.Unsafe.rule
~offset:(Conan.Offset.Absolute (Conan.Offset.Value 0L))
ty
(Conan.Test.numeric Conan.Integer.short
(Conan.Comparison.equal_to 0))
(`Space "RGB")),
Conan.Tree.Unsafe.leaf)]