euphony 0.1.1

music composition environment for programmers
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

use crate::{node::Node, output::*};
use euphony_units::{pitch::frequency::Frequency, ratio::Ratio};

#[derive(Clone, Debug)]
pub struct Parameter(pub(crate) ParameterValue);

impl Parameter {
    pub(crate) fn set(&self, target_node: u64, target_parameter: u64) {
        match &self.0 {
            ParameterValue::Unset => emit(SetParameter {
                target_node,
                target_parameter,
                value: 0.0f64.to_bits(),
            }),
            ParameterValue::Constant(value) => emit(SetParameter {
                target_node,
                target_parameter,
                value: value.to_bits(),
            }),
            ParameterValue::Node(ref source) => emit(PipeParameter {
                target_node,
                target_parameter,
                source_node: source.id(),
            }),
        }
    }
}

#[derive(Clone, Debug)]
pub struct Trigger(pub(crate) ParameterValue);

#[derive(Clone, Debug)]
pub(crate) enum ParameterValue {
    Unset,
    Constant(f64),
    Node(Node),
}

impl From<Node> for Parameter {
    #[inline]
    fn from(node: Node) -> Self {
        Self(ParameterValue::Node(node))
    }
}

impl From<&Node> for Parameter {
    #[inline]
    fn from(node: &Node) -> Self {
        Self(ParameterValue::Node(node.clone()))
    }
}

impl From<Trigger> for Parameter {
    #[inline]
    fn from(value: Trigger) -> Self {
        Self(value.0)
    }
}

impl From<&Trigger> for Parameter {
    #[inline]
    fn from(value: &Trigger) -> Self {
        Self(value.0.clone())
    }
}

macro_rules! impl_convert {
    ($name:ident) => {
        impl From<f64> for $name {
            #[inline]
            fn from(value: f64) -> Self {
                Self(ParameterValue::Constant(value))
            }
        }

        impl From<u64> for $name {
            #[inline]
            fn from(value: u64) -> Self {
                Self(ParameterValue::Constant(value as _))
            }
        }

        impl From<Frequency> for $name {
            #[inline]
            fn from(value: Frequency) -> Self {
                Self(ParameterValue::Constant(value.into()))
            }
        }

        impl From<crate::prelude::Beat> for $name {
            #[inline]
            fn from(value: crate::prelude::Beat) -> Self {
                (crate::time::tempo() * value).into()
            }
        }

        impl From<core::time::Duration> for $name {
            #[inline]
            fn from(value: core::time::Duration) -> Self {
                value.as_secs_f64().into()
            }
        }

        impl From<crate::prelude::Interval> for $name {
            #[inline]
            fn from(value: crate::prelude::Interval) -> Self {
                use crate::ext::*;
                value.freq().into()
            }
        }

        impl From<Ratio<u64>> for $name {
            #[inline]
            fn from(value: Ratio<u64>) -> Self {
                (value.0 as f64 / value.1 as f64).into()
            }
        }
    };
}

impl_convert!(Parameter);
impl_convert!(Trigger);