Module Skeg (.ml)

module Skeg: sig .. end

Main file.
Author(s): David Baelde, Samuel Mimram

Camera

val rx : float Pervasives.ref

val ry : float Pervasives.ref

val tx : float Pervasives.ref

val ty : float Pervasives.ref

val tz : float Pervasives.ref

val cam_transfo : unit -> unit

Light

val lx : float Pervasives.ref

val ly : float Pervasives.ref

val lz : float Pervasives.ref

val lstep : float

val grid_step : float Pervasives.ref

Metaballs smoothness depends on the grid_step.

Command line

val walk : bool Pervasives.ref

val usage : string

Walking skeg

module Walk: sig .. end

Skeleton initialization

module P: sig .. end

module A: Ik.Acyclic(P)

module Solver: Ik.Gauss(sigval epsilon : float
end)(A)

val selected : int Pervasives.ref

val display : unit -> unit

val on_key : key:Glut.special_key_t -> x:'a -> y:'b -> unit

val do_move : Skel.Constraints.t -> unit

val walk_step : unit -> unit

val on_kbd : key:int -> x:'a -> y:'b -> unit

val on_mouse : button:Glut.button_t ->
       state:Glut.mouse_button_state_t -> x:int -> y:int -> unit

val init_display : unit -> unit

val i_help : string

val w_help : string