diff options
Diffstat (limited to 'guile/starlet/cue-list.scm')
-rw-r--r-- | guile/starlet/cue-list.scm | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/guile/starlet/cue-list.scm b/guile/starlet/cue-list.scm index 74e7537..016db5f 100644 --- a/guile/starlet/cue-list.scm +++ b/guile/starlet/cue-list.scm @@ -37,6 +37,12 @@ #:export (cue cue-part cue-list + qnum + get-cue-parts + get-cue-clock + get-tracked-state + get-preset-state + get-transition-effect cue-number-to-index cue-index-to-number current-cue-clock @@ -88,30 +94,6 @@ cue-list)) -(define (match-fix-attr attr-el fix attr) - (cond - - ((fixture? attr-el) - (eq? attr-el fix)) - - ((and (pair? attr-el) - (fixture? (car attr-el)) - (symbol? (cdr attr-el))) - (and (eq? (car attr-el) fix) - (eq? (cdr attr-el) attr))) - - ((list? attr-el) - (and (memq fix attr-el) - (memq attr attr-el))) - - (else #f))) - - -(define (in-cue-part? cue-part fix attr) - (find (lambda (p) (match-fix-attr p fix attr)) - (get-cue-part-attr-list cue-part))) - - (define (fix-attr-eq fa1 fa2) (and (eq? (car fa1) (car fa2)) (eq? (cdr fa1) (cdr fa2)))) |