16 lines
439 B
Plaintext
16 lines
439 B
Plaintext
let new_img ~width ~height =
|
|
let all_channels =
|
|
let kind = Bigarray.int8_unsigned
|
|
and layout = Bigarray.c_layout
|
|
in
|
|
Bigarray.Array3.create kind layout 3 width height
|
|
in
|
|
let r_channel = Bigarray.Array3.slice_left_2 all_channels 0
|
|
and g_channel = Bigarray.Array3.slice_left_2 all_channels 1
|
|
and b_channel = Bigarray.Array3.slice_left_2 all_channels 2
|
|
in
|
|
(all_channels,
|
|
r_channel,
|
|
g_channel,
|
|
b_channel)
|