/usr/lib/ocaml/lablgl/gluQuadric.ml is in liblablgl-ocaml-dev 1:1.05-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | (* $Id: gluQuadric.ml,v 1.5 2000-04-12 07:40:26 garrigue Exp $ *)
type t
external create : unit -> t = "ml_gluNewQuadric"
external cylinder :
t -> base:float -> top:float -> height:float ->
slices:int -> stacks:int -> unit
= "ml_gluCylinder_bc" "ml_gluCylinder"
let cylinder ~base ~top ~height ~slices ~stacks ?(quad = create ()) () =
cylinder ~base ~top ~height ~slices ~stacks quad
external disk :
t -> inner:float -> outer:float -> slices:int -> loops:int -> unit
= "ml_gluDisk"
let disk ~inner ~outer ~slices ~loops ?(quad = create ()) () =
disk ~inner ~outer ~slices ~loops quad
external partial_disk :
t -> inner:float -> outer:float ->
slices:int -> loops:int -> start:float -> sweep:float -> unit
= "ml_gluPartialDisk_bc" "ml_gluPartialDisk"
let partial_disk ~inner ~outer ~slices ~loops ~start ~sweep
?(quad = create ()) () =
partial_disk ~inner ~outer ~slices ~loops ~start ~sweep quad
external draw_style : t -> [`fill|`line|`silhouette|`point] -> unit
= "ml_gluQuadricDrawStyle"
external normals : t -> [`none|`flat|`smooth] -> unit
= "ml_gluQuadricNormals"
external orientation : t -> [`inside|`outside] -> unit
= "ml_gluQuadricOrientation"
external texture : t -> bool -> unit
= "ml_gluQuadricTexture"
external sphere : t -> radius:float -> slices:int -> stacks:int -> unit
= "ml_gluSphere"
let sphere ~radius ~slices ~stacks ?(quad = create ()) () =
sphere ~radius ~slices ~stacks quad
|