Mercurial > hg > sonic-lineup

changeset 432:727e9bbdbd71 pitch-align

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Subrepo update with various aligner fixes
author Chris Cannam
date Mon, 01 Jun 2020 17:14:20 +0100
parents f45838051d29
children 8feaeeb1de5c
files pitch-track-align/pitch-track-align.sml repoint-lock.json
diffstat 2 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/pitch-track-align/pitch-track-align.sml	Fri May 29 17:39:48 2020 +0100
+++ b/pitch-track-align/pitch-track-align.sml	Mon Jun 01 17:14:20 2020 +0100
@@ -70,6 +70,16 @@
 
 fun alignSeries s1 s2 =
     let val cumulativeCosts = costSeries s1 s2
+(*        val _ = let open TextIO in
+                    output (stdErr, "Cost matrix:\n");
+                    Vector.app
+                        (fn v =>
+                            (Vector.app
+                                 (fn x => output (stdErr, Real.toString x ^ " ")) v;
+                             output (stdErr, "\n")))
+                        cumulativeCosts
+                end
+*)
         fun cost (j, i) = Vector.sub (Vector.sub (cumulativeCosts, j), i)
         fun trace (j, i) acc =
             if i = 0
--- a/repoint-lock.json	Fri May 29 17:39:48 2020 +0100
+++ b/repoint-lock.json	Mon Jun 01 17:14:20 2020 +0100
@@ -10,7 +10,7 @@
       "pin": "bd1a7c84da8c"
     },
     "svapp": {
-      "pin": "1d6cca5a5621"
+      "pin": "699b5b130ea2"
     },
     "checker": {
       "pin": "e839338d3869"