Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (9 sloc) 411 Bytes
open Common
(*****************************************************************************)
(* Prelude *)
(*****************************************************************************)
(*****************************************************************************)
(* Constants *)
(*****************************************************************************)
(* src: Jon Harrop *)
let pi = 4. *. atan 1.