CCSDS 122.0-B Image Data Compression
oci: rename test_ functions in interop test (merlint E330)
+1
-1
+1
-1
lib/idc.ml
+1
-1
lib/idc.ml
···
506
506
let wavelet_of_id = function
507
507
| 0 -> `Int_5_3
508
508
| 1 -> `Float_9_7
509
-
| n -> Fmt.invalid_arg "Idc: unknown wavelet id %d" n)
509
+
| n -> Fmt.invalid_arg "Idc: unknown wavelet id %d" n
510
510
511
511
let encode_coefficients ~wavelet ~width ~height arr =
512
512
let bw = Bitstream.create (width * height) in