aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2021-05-28 17:18:50 +0200
committerThomas White <taw@physics.org>2021-05-28 17:18:50 +0200
commit0aeadc0d635e0cd72f1a0f94f4af3930ef6aaa06 (patch)
tree7ac6508f544c46e81961d3bd86bee2c734c595e8 /guile/starlet
parent07c3820a7d5585e8943751ae447ac59074f7b8dd (diff)
Add "cut!" (cut forwards)
Diffstat (limited to 'guile/starlet')
-rw-r--r--guile/starlet/playback.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 65f808b..e9ad81a 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -40,6 +40,7 @@
get-playback-cue-number
run-cue-number!
go!
+ cut!
stop!
back!
cue-list
@@ -232,6 +233,10 @@
'no-more-cues-in-list)))))
+(define (cut! pb)
+ (cut-to-cue-index! pb (get-next-cue-index pb)))
+
+
(define (stop! pb)
(let ((clock (get-cue-clock pb)))
(when (and clock