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

use crate::prelude::Beat;
use ::rand::distributions;
use core::future::Future;
use once_cell::sync::Lazy;

pub use bach::rand::*;

pub fn rhythm(length: Beat, durations: impl IntoIterator<Item = Beat>) -> Vec<Beat> {
    let durations: Vec<_> = durations.into_iter().collect();
    let mut beats = vec![];
    let mut total = Beat(0, 1);
    while total < length {
        let b = *one_of(&durations);
        let new_total = total + b;
        if new_total > length {
            let b = length - total;
            beats.push(b);
            break;
        } else {
            total = new_total;
            beats.push(b);
        }
    }
    beats
}

pub fn with_seed<F: FnOnce() -> R, R>(seed: u64, f: F) -> R {
    scope::with(Scope::new(seed), f)
}

pub static SEED: Lazy<u64> = Lazy::new(|| {
    if let Ok(seed) = std::env::var("EUPHONY_SEED") {
        u64::from_str_radix(&seed, 16).unwrap()
    } else {
        0
    }
});

pub trait OneOfExt<'a> {
    type Output;

    fn one_of(&'a self) -> Self::Output;

    fn pick(&'a self) -> Self::Output {
        self.one_of()
    }
}

impl<'a, T: 'a> OneOfExt<'a> for [T] {
    type Output = &'a T;

    fn one_of(&'a self) -> Self::Output {
        one_of(self)
    }
}

impl<'a> OneOfExt<'a> for usize {
    type Output = usize;

    fn one_of(&'a self) -> Self::Output {
        (0..*self).one_of()
    }
}

impl<'a> OneOfExt<'a> for u64 {
    type Output = u64;

    fn one_of(&'a self) -> Self::Output {
        (0..*self).one_of()
    }
}

macro_rules! one_of_range {
    ($range:ident) => {
        impl<'a, T> OneOfExt<'a> for core::ops::$range<T>
        where
            core::ops::$range<T>: distributions::uniform::SampleRange<T>,
            T: Copy + distributions::uniform::SampleUniform + PartialOrd,
        {
            type Output = T;

            fn one_of(&'a self) -> Self::Output {
                gen_range(self.clone())
            }
        }
    };
}

one_of_range!(Range);
one_of_range!(RangeTo);
one_of_range!(RangeInclusive);
one_of_range!(RangeToInclusive);

pub trait TaskExt: Sized {
    fn seed(self, seed: u64) -> Task<Self>;
    fn inhert_seed(self) -> Task<Self>;
}

impl<T> TaskExt for T
where
    T: Future,
{
    fn seed(self, seed: u64) -> Task<Self> {
        Task::new(self, Scope::new(seed))
    }

    fn inhert_seed(self) -> Task<Self> {
        Task::new(self, scope::borrow_with(|v| v.clone()))
    }
}