Browse Source

add tapedelay cmd (broken)

better-lilv
Luna 8 months ago
parent
commit
a0a75579dd
5 changed files with 50 additions and 0 deletions
  1. +19
    -0
      doc/README.md
  2. +3
    -0
      examples/tapedelay.scri
  3. +2
    -0
      src/lang.zig
  4. +1
    -0
      src/printer.zig
  5. +25
    -0
      src/runner.zig

+ 19
- 0
doc/README.md View File

@@ -292,3 +292,22 @@ GVerb algorithm from SWH plugins.
## `invert split index`

> A utility plugin that inverts the signal, also (wrongly) known as a 180 degree phase shift.

## `tapedelay split index`

**TODO:** gives 0 output

> Correctly models the tape motion and some of the smear effect, there is no simulation fo the head saturation yet, as I don't have a good model of it. When I get one I will add it.

> The way the tape accelerates and decelerates gives a nicer delay effect for many purposes.

- speed (inches/sec, 1=normal): 0..10, default 1
- da\_db (dry level, dB): -90..0, default -90
- t1d (tap 1 distance, inches): 0..4, default 0
- t1a\_db (tap 1 level, dB): -90..0, default 0
- t2d (tap 2 distance, inches): 0..4, default 1
- t2a\_db (tap 2 level, dB): -90..0, default -90
- t3d (tap 3 distance, inches): 0..4, default 2
- t3a\_db (tap 3 level, dB): -90..0, default -90
- t4d (tap 4 distance, inches): 0..4, default 3
- t4a\_db (tap 4 level, dB): -90..0, default -90

+ 3
- 0
examples/tapedelay.scri View File

@@ -0,0 +1,3 @@
load :0;
tapedelay 3 1 1 -90 0 0 1 -90 2 -90 3 -90;
quicksave;

+ 2
- 0
src/lang.zig View File

@@ -37,6 +37,7 @@ pub const CommandType = enum {
Foverdrive,
Gverb,
Invert,
TapeDelay,

Noise,
WildNoise,
@@ -203,6 +204,7 @@ pub const Lang = struct {
_ = try self.keywords.put("foverdrive", .Foverdrive);
_ = try self.keywords.put("gverb", .Gverb);
_ = try self.keywords.put("invert", .Invert);
_ = try self.keywords.put("tapedelay", .TapeDelay);

// custom implementations (not lv2)
_ = try self.keywords.put("noise", .Noise);


+ 1
- 0
src/printer.zig View File

@@ -31,6 +31,7 @@ pub fn printList(list: langs.CommandList, stream: var) !void {
.Foverdrive => "foverdrive",
.Gverb => "gverb",
.Invert => "invert",
.TapeDelay => "tapedelay",

.Noise => "noise",
.WildNoise => "wildnoise",


+ 25
- 0
src/runner.zig View File

@@ -349,6 +349,11 @@ pub const Runner = struct {
try image.runPlugin("http://plugin.org.uk/swh-plugins/inv", pos, params);
}

fn tapedelayCmd(self: *Runner, pos: Position, params: ParamList) !void {
var image = try self.getImage();
try image.runPlugin("http://plugin.org.uk/swh-plugins/tapeDelay", pos, params);
}

fn runCommand(self: *Runner, cmd: *lang.Command) !void {
var params = ParamList.init(self.allocator);
defer params.deinit();
@@ -639,6 +644,26 @@ pub const Runner = struct {
try self.gverbCmd(pos, params);
},

.TapeDelay => {
const pos = try cmd.consumePosition();
try cmd.appendParam(&params, "speed");
try cmd.appendParam(&params, "da_db");

try cmd.appendParam(&params, "t1d");
try cmd.appendParam(&params, "t1a_db");

try cmd.appendParam(&params, "t2d");
try cmd.appendParam(&params, "t2a_db");

try cmd.appendParam(&params, "t3d");
try cmd.appendParam(&params, "t3a_db");

try cmd.appendParam(&params, "t4d");
try cmd.appendParam(&params, "t4a_db");

try self.tapedelayCmd(pos, params);
},

else => blk: {
std.debug.warn("Unsupported command: {}\n", .{cmd.command});
break :blk RunError.UnknownCommand;


Loading…
Cancel
Save