7 lines
164 B
OCaml
7 lines
164 B
OCaml
|
let put_pixel_unsafe (_, r_channel, g_channel, b_channel) (r,g,b) =
|
||
|
|
(fun x y ->
|
||
|
|
r_channel.{x,y} <- r;
|
||
|
|
g_channel.{x,y} <- g;
|
||
|
|
b_channel.{x,y} <- b;
|
||
|
|
)
|