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

Functor

intonation-funcs ("intonation-funcs.oz")

Import

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

Export

• inMajorKey:<P/2:InMajorKey>
• inMinorKey:<P/2:InMinorKey>
• hasMinor:<P/2:HasMinor>
• firstPos:<P/1:FirstPosition>
• changeToOpenString:<P/2:ChangeToOpenString>
• changeOneString:<P/1:ChangeOneString>
• changeTwoOpen:<P/2:ChangeTwoOpen>
• changeFingerOrPosition:<P/3:ChangeFingerOrPosition>
• noFingeredFifths:<P/2:NoFingeredFifths>
• atLeast:<P/3:AtLeast>
• atLeastTwin:<P/5:AtLeastTwin>
• atMostTwin:<P/5:AtMostTwin>
• atMost:<P/3:AtMost>
• minChanges:<P/2:MinChanges>
• thirdPositionNoStretchBack:<P/3:ThirdPositionNoStretchBack>

Define

proc{InMajorKey Pitches Tonic}
proc{InMinorKey Pitches Tonic}
proc{HasMinor Pitches Tonic}
proc{FirstPosition Positions}
proc{ChangeToOpenString Strings Fingers}
proc{ChangeOneString Strings}
proc{ChangeTwoOpen Strings Fingers}
proc{ChangeFingerOrPosition Fingers Positions Strings}
proc{NoFingeredFifths Strings Fingers}
proc{AtLeast List Is Number}
proc{AtLeastTwin ListOne IsOne ListTwo IsTwo Number}
proc{AtMostTwin ListOne IsOne ListTwo IsTwo Number}
proc{AtMost List Is Number}
proc{MinChanges List Number}
proc{ThirdPositionNoStretchBack Pitches Positions Fingers}

End