HexoDSP/tests/node_pverb.rs

// Copyright (c) 2021 Weird Constructor <weirdconstructor@gmail.com>
// This file is a part of HexoDSP. Released under GPL-3.0-or-later.
// See README.md and COPYING for details.

mod common;
use common::*;

fn trig_env(matrix: &mut Matrix, node_exec: &mut NodeExecutor) {
    let ad_1    = NodeId::Ad(0);
    pset_n(matrix, ad_1, "trig", 1.0);
    run_for_ms(node_exec, 7.0); // Wait for attack start.
    pset_n(matrix, ad_1, "trig", 0.0);
}

fn setup_pverb(matrix: &mut Matrix) {
    let sin_1   = NodeId::Sin(0);
    let ad_1    = NodeId::Ad(0);
    let pverb_1 = NodeId::PVerb(0);
    let out_1   = NodeId::Out(0);
    matrix.place(0, 0,
        Cell::empty(sin_1)
        .input(None, None, None)
        .out(None, None, sin_1.out("sig")));
    matrix.place(0, 1,
        Cell::empty(ad_1)
        .input(ad_1.inp("inp"), None, None)
        .out(ad_1.out("sig"), None, None));
    matrix.place(1, 0,
        Cell::empty(pverb_1)
        .input(None, None, pverb_1.inp("in_l"))
        .out(None, None, pverb_1.out("sig_l")));
    matrix.place(1, 1,
        Cell::empty(out_1)
        .input(out_1.inp("ch1"), None, None)
        .out(None, None, None));
    pset_n(matrix, ad_1, "ashp", 0.870);
    pset_n(matrix, ad_1, "dshp", 0.870);
    pset_d(matrix, ad_1, "atk", 6.0);
    pset_d(matrix, ad_1, "dcy", 100.0);
    pset_n(matrix, pverb_1, "mix", 1.000);
}

#[test]
fn check_node_pverb_dcy_1() {
    init_test!(matrix, node_exec, 3);

    let ad_1    = NodeId::Ad(0);
    let pverb_1 = NodeId::PVerb(0);

    setup_pverb(matrix);
    matrix.sync().unwrap();

//    pset_n(&mut matrix, pverb_1, "dcy", 0.675);
//    pset_n(&mut matrix, pverb_1, "dif", 1.000);
//    pset_n(&mut matrix, pverb_1, "ihpf", -1.543);
//    pset_n(&mut matrix, pverb_1, "ilpf", 0.565);
//    pset_n(&mut matrix, pverb_1, "in_l", 0.000);
//    pset_n(&mut matrix, pverb_1, "in_r", 0.000);
//    pset_n(&mut matrix, pverb_1, "mdepth", 0.200);
//    pset_n(&mut matrix, pverb_1, "mshp", 0.500);
//    pset_n(&mut matrix, pverb_1, "mspeed", 0.075);
//    pset_n(&mut matrix, pverb_1, "predly", 0.000);
//    pset_n(&mut matrix, pverb_1, "rhpf", -1.543);
//    pset_n(&mut matrix, pverb_1, "rlpf", 0.565);
//    pset_n(&mut matrix, pverb_1, "size", 0.330);

    // Dry mix:
    pset_n_wait(matrix, node_exec, pverb_1, "mix", 0.000);
    trig_env(matrix, node_exec);

    let spec = run_fft_spectrum_each_47ms(node_exec, 5, 4);
    //d// for s in &spec { println!("{:?}", s); }

    // We see the sine decaying with the AD envelope:
    assert_eq!(spec[0], vec![(345, 6), (388, 85), (431, 240), (474, 164), (517, 13)]);
    assert_eq!(spec[1], vec![(388, 65), (431, 185), (474, 126), (517, 10)]);
    assert_eq!(spec[2], vec![(345, 11), (388, 24), (431, 32),  (474, 29), (517, 16), (560, 6)]);
    assert_eq!(spec[3], vec![]);

    // Wet mix & clear out the reset in the tank:
    pset_n(matrix, pverb_1, "mix", 0.000);
    pset_n(matrix, pverb_1, "dcy", 0.000);
    run_for_ms(node_exec, 100.0); // Wait flor clearance

    // Check that there is nothing playing:
    let spec = run_fft_spectrum_each_47ms(node_exec, 20, 1);
    assert_eq!(spec[0], vec![]);

    // Wet mix and decay:
    pset_n(matrix, pverb_1, "dcy", 0.2);
    pset_n_wait(matrix, node_exec, pverb_1, "mix", 1.0);
    trig_env(matrix, node_exec);

    let spec = run_fft_spectrum_each_47ms(node_exec, 5, 20);
    for (i, s) in spec.iter().enumerate() { println!("{:2} {:?}", i, s); }

    //  0 [(388, 19), (431, 74), (474, 61), (517, 10)]
    //  1 [(388, 64), (431, 150), (474, 92), (517, 11)]
    //  2 [(345, 5), (388, 72), (431, 205), (474, 138), (517, 11), (560, 5)]
    //  3 [(388, 82), (431, 220), (474, 146), (517, 8)]
    //  4 [(345, 6), (388, 54), (431, 161), (474, 109), (517, 9)]
    //  5 [(388, 9), (431, 37), (474, 26)]
    //  6 [(388, 12), (431, 11), (474, 6)]
    //  7 [(388, 10), (431, 23), (474, 11)]
    //  8 [(388, 14), (431, 37), (474, 26)]
    //  9 [(388, 18), (431, 50), (474, 37), (517, 5)]
    // 10 [(388, 10), (431, 18), (474, 7)]
    // 11 [(388, 15), (431, 34), (474, 27), (517, 7)]
    // 12 [(431, 15), (474, 16)]
    // 13 [(388, 9), (431, 29), (474, 24)]
    // 14 [(388, 18), (431, 47), (474, 30)]
    // 15 [(388, 7), (431, 18), (474, 12)]
    // 16 [(431, 6)]
    // 17 [(388, 7), (431, 19), (474, 12)]
    // 18 [(388, 7), (431, 24), (474, 17)]
    // 19 []

    // Now we see a very much longer tail:
    assert_eq!(spec[0], vec![(388, 19), (431, 74), (474, 61), (517, 10)]);
    assert_eq!(spec[5], vec![(388, 9), (431, 37), (474, 26)]);
    assert_eq!(spec[9], vec![(388, 18), (431, 50), (474, 37), (517, 5)]);
    assert_eq!(spec[19], vec![(388, 7), (431, 15), (474, 8)]);
}

#[test]
fn check_node_pverb_dcy_2() {
    init_test!(matrix, node_exec, 3);
    let pverb_1 = NodeId::PVerb(0);

    setup_pverb(matrix);
    matrix.sync().unwrap();

    // Small room, short decay:
    pset_n_wait(matrix, node_exec, pverb_1, "dcy", 0.2);
    pset_n_wait(matrix, node_exec, pverb_1, "size", 0.1);
    trig_env(matrix, node_exec);

    let rms_spec = run_and_get_rms_mimax(node_exec, 500.0, 100.0);
    //d// dump_table!(rms_spec);
    assert_vec_feq!(rms_spec.iter().map(|rms| rms.0).collect::<Vec<f32>>(),
    // Decay over 500 ms:
    vec![
        0.2108,
        0.5744,
        0.0881,
        0.0021,
        0.0006
    ]);
}

#[test]
fn check_node_pverb_dcy_3() {
    init_test!(matrix, node_exec, 3);
    let pverb_1 = NodeId::PVerb(0);

    setup_pverb(matrix);
    matrix.sync().unwrap();

    // Small room, long decay:
    pset_n_wait(matrix, node_exec, pverb_1, "dcy", 0.8);
    pset_n_wait(matrix, node_exec, pverb_1, "size", 0.1);
    trig_env(matrix, node_exec);

    let rms_spec = run_and_get_rms_mimax(node_exec, 5000.0, 1000.0);
    //d// dump_table!(rms_spec);
    assert_vec_feq!(rms_spec.iter().map(|rms| rms.0).collect::<Vec<f32>>(),
    // Decay over 5000 ms:
    vec![
        0.6254,
        0.2868,
        0.0633,
        0.0385,
        0.0186,
    ]);
}

#[test]
fn check_node_pverb_dcy_4() {
    init_test!(matrix, node_exec, 3);
    let pverb_1 = NodeId::PVerb(0);

    setup_pverb(matrix);
    matrix.sync().unwrap();

    // Big room, long decay:
    pset_n_wait(matrix, node_exec, pverb_1, "dcy", 0.8);
    pset_n_wait(matrix, node_exec, pverb_1, "size", 0.5);
    trig_env(matrix, node_exec);

    let rms_spec = run_and_get_rms_mimax(node_exec, 5000.0, 1000.0);
    //d// dump_table!(rms_spec);
    assert_vec_feq!(rms_spec.iter().map(|rms| rms.0).collect::<Vec<f32>>(),
    // Decay over 10000 ms:
    vec![
        0.1313,
        0.0995,
        0.0932,
        0.0507,
        0.0456,
    ]);
}