sig
  type t
  external create' :
    Osg.Shape.t -> Osg.Tessellation_hints.t -> Osg.Shape_drawable.t
    = "shape_drawable_create"
  external set_color : Osg.Shape_drawable.t -> Osg.Vec4.t -> unit
    = "shape_drawable_set_color"
  external to_drawable : Osg.Shape_drawable.t -> Osg.Drawable.t
    = "shape_drawable_to_drawable"
  val create_internal :
    (Osg.Shape_drawable.t -> 'a) ->
    ?tessellation_hints:Osg.Tessellation_hints.t ->
    ?color:Osg.Vec4.t -> Osg.Shape.t -> 'a
  val create :
    ?tessellation_hints:Osg.Tessellation_hints.t ->
    ?color:Osg.Vec4.t -> Osg.Shape.t -> Osg.Drawable.t
  val labl_create :
    ?tessellation_hints:Osg.Tessellation_hints.t ->
    ?color:Osg.Vec4.t -> Osg.Shape.t -> Osg.Shape_drawable.t
end