-

play-test.rkt

@@ -9,8 +9,8 @@
   (when (eq? os 'unix)
     (set! test-file3 "/muziek/Klassiek-Viool/Alina Ibragimova/Paganini_24 Caprices (2021)/24. 24 Caprices, Op 1 - No. 24 in A minor- Tema con variazioni. Quasi presto.flac"))
   (when (eq? os 'windows)
-    (set! test-file3 "C:\\Muziek\\Klassiek-Strijkkwartet\\Quatuor Zaïde\\Franz\\01 Erlkönig, D. 328 (Arr. For String Quartet by Eric Mouret).flac")
-    ;(set! test-file3 "C:\\Muziek\\Klassiek-Viool\\Janine Jansen\\Janine Jansen - Sibelius en Prokovief 1 (2024)\\02 - Violin Concerto in D Minor, Op. 47 II. Adagio di molto.flac")
+    ;(set! test-file3 "C:\\Muziek\\Klassiek-Strijkkwartet\\Quatuor Zaïde\\Franz\\01 Erlkönig, D. 328 (Arr. For String Quartet by Eric Mouret).flac")
+    (set! test-file3 "C:\\Muziek\\Klassiek-Viool\\Janine Jansen\\Janine Jansen - Sibelius en Prokovief 1 (2024)\\02 - Violin Concerto in D Minor, Op. 47 II. Adagio di molto.flac")
     )
   )
 
@@ -28,6 +28,7 @@
          (bytes-per-sample (/ bits-per-sample 8))
          (channels (hash-ref frame 'channels))
          (bytes-per-sample-all-channels (* channels bytes-per-sample))
+         (duration (hash-ref frame 'duration))
          )
     (when (eq? ao-h #f)
       (let ((fmt (ao-mk-format bits-per-sample rate channels 'big-endian)))
@@ -38,8 +39,14 @@
                               (when (> s current-seconds)
                                 (set! current-seconds s)
                                 (let ((minutes (quotient s 60))
-                                      (seconds (remainder s 60)))
-                                (displayln (format "At time: ~a:~a" minutes seconds))))))))
+                                      (seconds (remainder s 60))
+                                      (tminutes (quotient duration 60))
+                                      (tseconds (remainder duration 60))
+                                      )
+                                (displayln (format "At time: ~a:~a (~a:~a)"
+                                                   minutes seconds
+                                                   tminutes tseconds
+                                                   ))))))))
       (let* ((buf-size (ao-bufsize-async ao-h))
              (buf-seconds (exact->inexact (/ buf-size bytes-per-sample-all-channels rate))))
         (second-printer)