diff options
| author | Thomas White <taw@physics.org> | 2021-05-28 17:18:50 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-05-28 17:18:50 +0200 |
| commit | 0aeadc0d635e0cd72f1a0f94f4af3930ef6aaa06 (patch) | |
| tree | 7ac6508f544c46e81961d3bd86bee2c734c595e8 | |
| parent | 07c3820a7d5585e8943751ae447ac59074f7b8dd (diff) | |
Add "cut!" (cut forwards)
| -rw-r--r-- | guile/starlet/playback.scm | 5 |
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 |