Source file stb_image_write.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open Bigarray

type 'kind buffer = ('a, 'b, c_layout) Array1.t constraint 'kind = ('a, 'b) kind
type float32 = (float, float32_elt) kind
type int8 = (int, int8_unsigned_elt) kind

external png : string -> w:int -> h:int -> c:int -> int8 buffer -> unit
  = "ml_stbi_write_png"

external bmp : string -> w:int -> h:int -> c:int -> int8 buffer -> unit
  = "ml_stbi_write_bmp"

external tga : string -> w:int -> h:int -> c:int -> int8 buffer -> unit
  = "ml_stbi_write_tga"

external hdr : string -> w:int -> h:int -> c:int -> float32 buffer -> unit
  = "ml_stbi_write_hdr"

external jpg :
  string -> w:int -> h:int -> c:int -> quality:int -> int8 buffer -> unit
  = "ml_stbi_write_jpg_bytecode" "ml_stbi_write_jpg_native"