mbarbin / fingerboard / 118

coverage: 92.134% (-3.0%) from 95.087%
118

Pull #11

github

web-flow 
Merge b17e74f06 into ccb9da732
Pull Request #11: Reduce deps

323 of 528 new or added lines in 29 files covered. (61.17%)

1 existing line in 1 file now uncovered.

3830 of 4157 relevant lines covered (92.13%)

20265.99 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

66.67
/src/frequency.ml
1 
(**********************************************************************************)
2 
(*  Fingerboard - a microtonal geography of the cello fingerboard                 *)
3 
(*  Copyright (C) 2022-2024 Mathieu Barbin <mathieu.barbin@gmail.com>             *)
4 
(*                                                                                *)
5 
(*  This file is part of Fingerboard.                                             *)
6 
(*                                                                                *)
7 
(*  Fingerboard is free software: you can redistribute it and/or modify it under  *)
8 
(*  the terms of the GNU Affero General Public License as published by the Free   *)
9 
(*  Software Foundation, either version 3 of the License, or any later version.   *)
10 
(*                                                                                *)
11 
(*  Fingerboard is distributed in the hope that it will be useful, but WITHOUT    *)
12 
(*  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or         *)
13 
(*  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License   *)
14 
(*  for more details.                                                             *)
15 
(*                                                                                *)
16 
(*  You should have received a copy of the GNU Affero General Public License      *)
17 
(*  along with Fingerboard. If not, see <https://www.gnu.org/licenses/>.          *)
18 
(**********************************************************************************)
19 









20



type t = float










21












22



let compare = Float.compare










23



let equal = Float.equal










24



let to_dyn = Dyn.float










25












26



let check_exn f =











27



  match Float.compare f 0. with




433✔






NEW


28



  | Eq | Gt -> ()




×








NEW


29



  | Lt -> Code_error.raise "Out of bounds." [ "f", f |> Dyn.float ]




×







30



;;










31












32



let of_float_exn f =










33



  check_exn f;




433✔





34



  f




433✔





35



;;










36












37



let to_float f = f




459✔





38



let a4_440 = 440.
























    

  • 

    •