Initial working demonstration of 'snap' transition

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))))