5 lines
162 B
Standard ML
5 lines
162 B
Standard ML
let gray_get_pixel_unsafe (gray_channel) =
|
|
(fun x y -> gray_channel.{x,y})
|
|
|
|
let gray_put_pixel_unsafe (gray_channel) v =
|
|
(fun x y -> gray_channel.{x,y} <- v)
|