rill-digital-effects 0.5.0-beta.2

use rill_core::{
    buffer::TapeLoop,
    math::Transcendental,
    traits::{NodeCategory, NodeMetadata, NodeState, Processor, SignalNode},
    ClockTick, NodeId, ParamValue, ParameterId, Port, ProcessError, ProcessResult,
};

// Raw pointer to TapeLoop — safe because the graph is single-threaded.
#[allow(unsafe_code)]
unsafe impl<T: Transcendental, const B: usize> Send for WriteHead<T, B> {}
#[allow(unsafe_code)]
unsafe impl<T: Transcendental, const B: usize> Sync for WriteHead<T, B> {}

/// Write head node — mixes input signal with feedback and writes into a
/// shared [`TapeLoop`] that [`ReadHead`](crate::read_head::ReadHead) nodes
/// read from.
///
/// The tape loop is allocated by the graph's resource registry during
/// node initialization.
///
/// # Signal ports
/// - 1 audio input (dry)
/// - 1 feedback input (from feedback loop)
/// - 1 main output (forward path passthrough)
///
/// # Parameters
/// - `delay_time` (0.01 – 2.0 s)
/// - `feedback`   (0.0 – 0.99)
pub struct WriteHead<T: Transcendental, const BUF_SIZE: usize> {
    id: NodeId,
    metadata: NodeMetadata,
    inputs: Vec<Port<T, BUF_SIZE>>,
    outputs: Vec<Port<T, BUF_SIZE>>,
    state: NodeState<T, BUF_SIZE>,

    tape: *mut TapeLoop<T>,
    delay_time: f32,
    feedback: f32,
    sample_rate: f32,
}

impl<T: Transcendental, const BUF_SIZE: usize> WriteHead<T, BUF_SIZE> {
    /// Create a new `WriteHead` with default delay (0.5 s) and feedback (0.3).
    pub fn new(sample_rate: f32) -> Self {
        let mut metadata = NodeMetadata::new("WriteHead", NodeCategory::Processor);
        metadata.parameters = vec![
            rill_core::ParamMetadata::new(
                "delay_time",
                rill_core::ParamType::Float,
                ParamValue::Float(0.5),
            )
            .with_range(0.01, 2.0, 0.01),
            rill_core::ParamMetadata::new(
                "feedback",
                rill_core::ParamType::Float,
                ParamValue::Float(0.3),
            )
            .with_range(0.0, 0.99, 0.01),
        ];

        let mut inputs = Vec::new();
        let mut outputs = Vec::new();
        inputs.push(Port::input(NodeId(0), 0, "signal_in"));
        inputs.push(Port::input(NodeId(0), 1, "feedback_in"));
        outputs.push(Port::output(NodeId(0), 0, "main_out"));

        Self {
            id: NodeId(0),
            metadata,
            inputs,
            outputs,
            state: NodeState::new(sample_rate),
            tape: std::ptr::null_mut(),
            delay_time: 0.5,
            feedback: 0.3,
            sample_rate,
        }
    }

    /// Return a raw pointer to the tape loop for read heads.
    #[inline(always)]
    pub fn tape_ptr(&self) -> *const TapeLoop<T> {
        self.tape as *const TapeLoop<T>
    }
}

// ── Processor trait ──────────────────────────────────────────────────────

impl<T: Transcendental, const BUF_SIZE: usize> Processor<T, BUF_SIZE> for WriteHead<T, BUF_SIZE> {
    fn process(
        &mut self,
        _clock: &ClockTick,
        _signal_inputs: &[&[T; BUF_SIZE]],
        _control_inputs: &[T],
        _clock_inputs: &[ClockTick],
        feedback_inputs: &[&[T; BUF_SIZE]],
    ) -> ProcessResult<()> {
        debug_assert!(!self.tape.is_null(), "WriteHead: tape not set");
        let tape = unsafe { &mut *self.tape };

        let input_buf = *self.inputs[0].buffer.as_array();
        let fb_gain = T::from_f32(self.feedback);
        let zero_buf = [T::ZERO; BUF_SIZE];
        let fb_buf = feedback_inputs.first().copied().unwrap_or(&zero_buf);

        for i in 0..BUF_SIZE {
            tape.write(input_buf[i] + fb_buf[i] * fb_gain);
        }

        self.outputs[0]
            .buffer
            .as_mut_array()
            .copy_from_slice(&input_buf);
        self.state.advance();
        Ok(())
    }

    fn latency(&self) -> usize {
        0
    }
}

// ── SignalNode trait ─────────────────────────────────────────────────────

impl<T: Transcendental, const BUF_SIZE: usize> SignalNode<T, BUF_SIZE> for WriteHead<T, BUF_SIZE> {
    fn node_type_id(&self) -> rill_core::NodeTypeId
    where
        Self: 'static + Sized,
    {
        rill_core::NodeTypeId::of::<Self>()
    }
    fn id(&self) -> NodeId {
        self.id
    }
    fn set_id(&mut self, id: NodeId) {
        self.id = id;
    }
    fn metadata(&self) -> NodeMetadata {
        self.metadata.clone()
    }
    fn init(&mut self, sample_rate: f32) {
        self.sample_rate = sample_rate;
        self.state.sample_rate = sample_rate;
    }
    fn reset(&mut self) {
        self.state.sample_pos = 0;
        self.state.blocks_processed = 0;
    }

    fn get_parameter(&self, id: &ParameterId) -> Option<ParamValue> {
        match id.as_str() {
            "delay_time" => Some(ParamValue::Float(self.delay_time)),
            "feedback" => Some(ParamValue::Float(self.feedback)),
            _ => None,
        }
    }

    fn set_parameter(&mut self, id: &ParameterId, value: ParamValue) -> ProcessResult<()> {
        let name = id.as_str();
        if let Some(v) = value.as_f32() {
            match name {
                "delay_time" => {
                    self.delay_time = v.clamp(0.01, 2.0);
                    Ok(())
                }
                "feedback" => {
                    self.feedback = v.clamp(0.0, 0.99);
                    Ok(())
                }
                _ => Err(ProcessError::parameter(format!(
                    "Unknown parameter: {}",
                    name
                ))),
            }
        } else {
            Err(ProcessError::parameter("Expected float value"))
        }
    }

    fn input_port(&self, i: usize) -> Option<&Port<T, BUF_SIZE>> {
        self.inputs.get(i)
    }
    fn input_port_mut(&mut self, i: usize) -> Option<&mut Port<T, BUF_SIZE>> {
        self.inputs.get_mut(i)
    }
    fn output_port(&self, i: usize) -> Option<&Port<T, BUF_SIZE>> {
        self.outputs.get(i)
    }
    fn output_port_mut(&mut self, i: usize) -> Option<&mut Port<T, BUF_SIZE>> {
        self.outputs.get_mut(i)
    }
    fn control_port(&self, _: usize) -> Option<&Port<T, BUF_SIZE>> {
        None
    }
    fn control_port_mut(&mut self, _: usize) -> Option<&mut Port<T, BUF_SIZE>> {
        None
    }
    fn num_signal_inputs(&self) -> usize {
        2
    }
    fn num_signal_outputs(&self) -> usize {
        1
    }
    fn num_feedback_ports(&self) -> usize {
        0
    }
    fn state(&self) -> &NodeState<T, BUF_SIZE> {
        &self.state
    }
    fn state_mut(&mut self) -> &mut NodeState<T, BUF_SIZE> {
        &mut self.state
    }
}

#[cfg(test)]
mod tests {
    use super::*;

    #[test]
    fn test_write_head_creation() {
        let wh = WriteHead::<f32, 64>::new(44100.0);
        assert!((wh.delay_time - 0.5).abs() < 1e-6);
        assert!((wh.feedback - 0.3).abs() < 1e-6);
        assert_eq!(wh.inputs.len(), 2);
        assert_eq!(wh.outputs.len(), 1);
    }

    #[test]
    fn test_write_head_params() {
        let mut wh = WriteHead::<f32, 64>::new(44100.0);
        wh.set_parameter(
            &ParameterId::new("feedback").unwrap(),
            ParamValue::Float(0.5),
        )
        .unwrap();
        assert!((wh.feedback - 0.5).abs() < 1e-6);
    }
}