Module GluNurbs

module GluNurbs: sig .. end

type t 

val create : unit -> t

val begin_curve : t -> unit

val begin_surface : t -> unit

val begin_trim : t -> unit

val end_curve : t -> unit

val end_surface : t -> unit

val end_trim : t -> unit

val load_sampling_matrices : t ->
       model:[ `float ] Raw.t ->
       persp:[ `float ] Raw.t -> view:[ `int ] Raw.t -> unit

val curve : t ->
       knots:float array ->
       control:float array -> order:int -> kind:[< GlMap.target ] -> unit

val pwl_curve : t -> kind:[ `trim_2 | `trim_3 ] -> float array -> unit

val surface : t ->
       sknots:float array ->
       tknots:float array ->
       control:float array array ->
       sorder:int -> torder:int -> target:[< Gl.target ] -> unit

type property = [ `auto_load_matrix of bool
       | `culling of bool
       | `display_mode of [ `fill | `patch | `polygon ]
       | `parametric_tolerance of float
       | `sampling_method of [ `domain_distance | `parametric_error | `path_length ]
       | `sampling_tolerance of int
       | `u_step of int
       | `v_step of int ] 

val property : t -> property -> unit