From: Eric Wong <e@80x24.org>
To: dtas-all@nongnu.org
Subject: [PATCH 3/3] splitfx: support tshift directive
Date: Fri, 26 Apr 2024 07:04:15 +0000 [thread overview]
Message-ID: <20240426070416.497972-4-e@80x24.org> (raw)
In-Reply-To: <20240426070416.497972-1-e@80x24.org>
This directive is useful for cutting sections of audio out in
addition to making it easier to share track offsets between
different recordings of the same source.
---
Documentation/dtas-splitfx.pod | 14 ++++++++++++++
lib/dtas/splitfx.rb | 20 +++++++++++++++++---
2 files changed, 31 insertions(+), 3 deletions(-)
diff --git a/Documentation/dtas-splitfx.pod b/Documentation/dtas-splitfx.pod
index 6f8d9ed..88179d7 100644
--- a/Documentation/dtas-splitfx.pod
+++ b/Documentation/dtas-splitfx.pod
@@ -173,6 +173,20 @@ any tracks written to the filesystem, including those using the L</--filter>
switch. These environment variables are intended to affect the specified
L</command> or default L<sox(1)> invocation.
+=item tshift TIME
+
+Increment subsequent time stamps for L</t>, L</skip>, and L</stop>
+directives by the specified TIME offset. TIME can be prefixed by
+C<+=> or C<-=> to adjust the existing C<tshift> value. Negative
+values can be specified by prefixing with C<-> for a backwards
+time shift.
+
+This directive is useful for working with multiple recordings of the
+same source and cutting a section from the middle of a recording after
+initial tracking is done.
+
+Default: 0
+
=item skip TIME - skip a segment starting at TIME
"skip" segments are
diff --git a/lib/dtas/splitfx.rb b/lib/dtas/splitfx.rb
index 1150ee0..b94f54b 100644
--- a/lib/dtas/splitfx.rb
+++ b/lib/dtas/splitfx.rb
@@ -66,6 +66,7 @@ def commit(advance_track_samples)
# $CHANNELS (input)
# $BITS_PER_SAMPLE (input)
def initialize
+ @tshift = 0
@env = {}
@comments = {}
@track_start = 1
@@ -290,7 +291,7 @@ def parse_track(argv)
start_time = argv.shift
title = argv.shift
t = T.new
- t.tbeg = @t2s.call(start_time)
+ t.tbeg = @t2s.call(start_time) + @tshift
t.comments = @comments.dup
title.valid_encoding? or warn "#{title.inspect} encoding invalid"
t.comments["TITLE"] = title
@@ -311,11 +312,24 @@ def parse_track(argv)
prev = @tracks.last and prev.commit(t.tbeg)
@tracks << t
+ when 'tshift'
+ tshift = argv.shift
+ argv.empty? or raise ArgumentError, 'tshift does not take extra args'
+ if tshift.sub!(/\A-=/, '')
+ @tshift = @tshift - @t2s.call(tshift)
+ elsif tshift.sub!(/\A\+=/, '')
+ @tshift = @tshift + @t2s.call(tshift)
+ elsif tshift.sub!(/\A-/, '')
+ @tshift = -@t2s.call(tshift)
+ else
+ tshift.sub!(/\A\+/, '')
+ @tshift = @t2s.call(tshift)
+ end
when "skip"
stop_time = argv.shift
argv.empty? or raise ArgumentError, "skip does not take extra args"
s = Skip.new
- s.tbeg = @t2s.call(stop_time)
+ s.tbeg = @t2s.call(stop_time) + @tshift
# s.comments = {}
# s.env = {}
prev = @tracks.last or raise ArgumentError, "no tracks to skip"
@@ -324,7 +338,7 @@ def parse_track(argv)
when "stop"
stop_time = argv.shift
argv.empty? or raise ArgumentError, "stop does not take extra args"
- samples = @t2s.call(stop_time)
+ samples = @t2s.call(stop_time) + @tshift
prev = @tracks.last and prev.commit(samples)
else
raise ArgumentError, "unknown command: #{xs(cmd)}"
prev parent reply other threads:[~2024-04-26 7:04 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-04-26 7:04 [PATCH 0/3] a small pile of miscellany Eric Wong
2024-04-26 7:04 ` [PATCH 1/3] source/sox: use Process::Status#inspect for diagnostics Eric Wong
2024-04-26 7:04 ` [PATCH 2/3] use CPU rlimit to limit soxi||ffprobe run time Eric Wong
2024-04-26 7:04 ` Eric Wong [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: http://80x24.org/dtas/README
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20240426070416.497972-4-e@80x24.org \
--to=e@80x24.org \
--cc=dtas-all@nongnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
http://80x24.org/dtas.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).