langs a-z
This commit is contained in:
parent
db842d013d
commit
d066446780
11389 changed files with 98361 additions and 1020 deletions
5
Task/Bitmap/OCaml/bitmap-3.ocaml
Normal file
5
Task/Bitmap/OCaml/bitmap-3.ocaml
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
let fill_img ~img:(_, r_channel, g_channel, b_channel) ~color:(r,g,b) =
|
||||
Bigarray.Array2.fill r_channel r;
|
||||
Bigarray.Array2.fill g_channel g;
|
||||
Bigarray.Array2.fill b_channel b;
|
||||
;;
|
||||
Loading…
Add table
Add a link
Reference in a new issue