Texture (bimage-display.Bimage

type t = {

channels : int;

id : int;

internal : int;

kind : int;

color : int;

framebuffer : int;

width : int;

height : int;

}

val create : GLFW.window -> ( 'a, 'b, [< `Rgb | `Rgba ] ) Bimage.Image.t -> t

val draw : 
  t ->
  GLFW.window ->
  ( 'a, 'b, [< `Rgb | `Rgba ] ) Bimage.Image.t ->
  unit