diff options
Diffstat (limited to 'guile/starlet/cue-list.scm')
| -rw-r--r-- | guile/starlet/cue-list.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guile/starlet/cue-list.scm b/guile/starlet/cue-list.scm index 78fecc5..dd3edbd 100644 --- a/guile/starlet/cue-list.scm +++ b/guile/starlet/cue-list.scm @@ -48,7 +48,8 @@ cue-number-to-index cue-index-to-number current-cue-clock - read-cue-list-file) + read-cue-list-file + num-cues) #:re-export (snap crossfade)) @@ -75,6 +76,10 @@ (cue-clock get-cue-clock)) +(define-method (num-cues (l <vector>)) + (vector-length l)) + + (define (qnum a) (/ (inexact->exact (* a 1000)) 1000)) |