TODO: general description of Rhythm-funcs. (test of doc-string)

Functor

rhythm-funcs ("rhythm-funcs.oz")

Import

• FD
• LUtils at "x-ozlib://anders/strasheela/source/ListUtils.ozf"
• Pattern at "x-ozlib://anders/strasheela/Pattern/Pattern.ozf"

Export

• eventEvery:<P/2:EventEvery>
• noRests:<P/1:NoRests>
• restsOnlyOnBeats:<P/2:RestsOnlyOnBeats>
• beatsAllSame:<P/2:BeatsAllSame>
• noTwoIdenticalAdjacentBeats:<P/2:NoTwoIdenticalAdjacentBeats>
• noThreeIdenticalAdjacentBeats:<P/2:NoThreeIdenticalAdjacentBeats>
• minDursOnBeats:<P/4:MinDursOnBeats>
• minDurs:<P/3:MinDurs>
• maxDurs:<P/3:MaxDurs>
• atLeastTwin:<P/5:AtLeastTwin>
• noAdjacentRests:<P/2:NoAdjacentRests>

Define

proc{EventEvery List NumEvents}
proc{NoRests List}
proc{RestsOnlyOnBeats Events BeatDivisions}
proc{BeatsAllSame Durs BeatDivisions}
proc{NoTwoIdenticalAdjacentBeats Durs BeatDivisions}
proc{NoThreeIdenticalAdjacentBeats Durs BeatDivisions}
proc{MinDursOnBeats Durs BeatDivisions DurValue NumDurs}
proc{MinDurs Durs DurValue NumDurs}
proc{MaxDurs Durs DurValue NumDurs}
proc{AtLeastTwin ListOne IsOne ListTwo IsTwo Number}
proc{NoAdjacentRests Events Durs}

End