tek/crates/tek_sequencer/src/scene.rs

use crate::*;

/// A collection of phrases to play on each track.
#[derive(Default)]
pub struct Scene {
    pub name:  Arc<RwLock<String>>,
    pub clips: Vec<Option<usize>>,
}

impl Scene {
    pub fn from_edn <'a, 'e> (args: &[Edn<'e>]) -> Usually<Self> {
        let mut name  = None;
        let mut clips = vec![];
        edn!(edn in args {
            Edn::Map(map) => {
                let key = map.get(&Edn::Key(":name"));
                if let Some(Edn::Str(n)) = key {
                    name = Some(*n);
                } else {
                    panic!("unexpected key in scene '{name:?}': {key:?}")
                }
            },
            Edn::Symbol("_") => {
                clips.push(None);
            },
            Edn::Int(i) => {
                clips.push(Some(*i as usize));
            },
            _ => panic!("unexpected in scene '{name:?}': {edn:?}")
        });
        let scene = Self::new(name.unwrap_or(""), clips);
        Ok(scene)
    }
    pub fn new (name: impl AsRef<str>, clips: impl AsRef<[Option<usize>]>) -> Self {
        let name = Arc::new(RwLock::new(name.as_ref().into()));
        let clips = clips.as_ref().iter().map(|x|x.clone()).collect();
        Self { name, clips, }
    }
    /// Returns the pulse length of the longest phrase in the scene
    pub fn pulses <E: Engine> (&self, tracks: &[Sequencer<E>]) -> usize {
        self.clips.iter().enumerate()
            .filter_map(|(i, c)|c
                .map(|c|tracks
                    .get(i)
                    .map(|track|track
                        .phrases
                        .get(c))))
            .filter_map(|p|p)
            .filter_map(|p|p)
            .fold(0, |a, p|a.max(p.read().unwrap().length))
    }
    /// Returns true if all phrases in the scene are currently playing
    pub fn is_playing <E: Engine> (&self, tracks: &[Sequencer<E>]) -> bool {
        self.clips.iter().enumerate()
            .all(|(track_index, phrase_index)|match phrase_index {
                Some(i) => tracks
                    .get(track_index)
                    .map(|track|track.sequence == Some(*i))
                    .unwrap_or(false),
                None => true
            })
    }
}

pub fn scene_name_max_len (scenes: &[Scene]) -> usize {
    scenes.iter()
        .map(|s|s.name.read().unwrap().len())
        .fold(0, usize::max)
}

pub fn scene_ppqs <E: Engine> (
    tracks: &[Sequencer<E>],
    scenes: &[Scene]
) -> Vec<(usize, usize)> {
    let mut total = 0;
    let mut scenes: Vec<(usize, usize)> = scenes.iter().map(|scene|{
        let pulses = scene.pulses(tracks).max(96);
        total = total + pulses;
        (pulses, total - pulses)
    }).collect();
    scenes.push((0, total));
    scenes
}

impl<E: Engine> Arranger<E> {
    pub fn scene (&self) -> Option<&Scene> {
        self.selected.scene().map(|s|self.scenes.get(s)).flatten()
    }
    pub fn scene_mut (&mut self) -> Option<&mut Scene> {
        self.selected.scene().map(|s|self.scenes.get_mut(s)).flatten()
    }
    pub fn scene_next (&mut self) {
        self.selected.scene_next(self.scenes.len() - 1)
    }
    pub fn scene_prev (&mut self) {
        self.selected.scene_prev()
    }
    pub fn scene_add (&mut self, name: Option<&str>) -> Usually<&mut Scene> {
        let clips = vec![None;self.tracks.len()];
        self.scenes.push(match name {
            Some(name) => Scene::new(name, clips),
            None       => Scene::new(&self.scene_default_name(), clips),
        });
        let index = self.scenes.len() - 1;
        Ok(&mut self.scenes[index])
    }
    pub fn scene_del (&mut self) {
        unimplemented!("Arranger::scene_del");
    }
    pub fn scene_default_name (&self) -> String {
        format!("Scene {}", self.scenes.len() + 1)
    }
}