deprecate SCViewHolder-layRight

[supercollider.git] / SCClassLibrary / Common / Collections / Scale.sc

Scale {

        var <degrees, <pitchesPerOctave, <tuning, <>name;

        *new { | degrees, pitchesPerOctave, tuning, name = "Unknown Scale" |
                ^super.new.init(degrees ? \ionian, pitchesPerOctave, tuning, name);
        }

        init { | inDegrees, inPitchesPerOctave, inTuning, inName |
                degrees = inDegrees.asArray.asInteger;
                pitchesPerOctave = inPitchesPerOctave ? this.guessPPO(degrees);
                name = inName;
                ^this.tuning_(inTuning ? Tuning.default(pitchesPerOctave));
        }

        *newFromKey { |key, tuning|
                var scale = ScaleInfo.at(key);
                scale ?? { ("Unknown scale " ++ key.asString).warn; ^nil };
                tuning !? { scale.tuning_(tuning.asTuning) };
                ^scale
        }

        checkTuningForMismatch { |aTuning|
                ^pitchesPerOctave == aTuning.size;
        }

        tuning_ { | inTuning |
                inTuning = inTuning.asTuning;
                if(this.checkTuningForMismatch(inTuning)) {
                        tuning = inTuning
                } {
                        "Scale steps per octave % does not match tuning size ".format(pitchesPerOctave).warn;
                }
        }

        guessPPO {
                // most common flavors of ET
                // pick the smallest one that contains all scale degrees
                var etTypes = #[12, 19, 24, 53, 128];
                ^etTypes[etTypes.indexInBetween(degrees.maxItem).ceil];
        }

        as { |class|
                ^this.semitones.as(class)
        }

        size {
                ^degrees.size
        }

        semitones {
                ^degrees.collect(tuning.wrapAt(_));
        }

        cents {
                ^this.semitones * 100
        }

        ratios {
                ^this.semitones.midiratio
        }

        at { |index|
                ^tuning.at(degrees.wrapAt(index))
        }

        wrapAt { |index|
                ^tuning.wrapAt(degrees.wrapAt(index))
        }

        performDegreeToKey { | scaleDegree, stepsPerOctave, accidental = 0 |
                var baseKey;
                stepsPerOctave = stepsPerOctave ? tuning.stepsPerOctave;
                baseKey = (stepsPerOctave * (scaleDegree div: this.size)) + this.wrapAt(scaleDegree);
                ^if(accidental == 0) { baseKey } { baseKey + (accidental * (stepsPerOctave / 12.0)) }
        }

        performKeyToDegree { | degree, stepsPerOctave = 12 |
                ^degrees.performKeyToDegree(degree, stepsPerOctave)
        }

        performNearestInList { | degree |
                ^degrees.performNearestInList(degree)
        }

        performNearestInScale { | degree, stepsPerOctave=12 | // collection is sorted
                ^degrees.performNearestInScale(degree, stepsPerOctave)
        }

        degreeToRatio { |degree, octave = 0|
                ^this.ratios.at(degree) * (this.octaveRatio ** octave);
        }

        degreeToFreq { |degree, rootFreq, octave|
                ^this.degreeToRatio(degree, octave) * rootFreq;
        }

        *choose { |size = 7, pitchesPerOctave = 12|
                var scale = ScaleInfo.choose({
                        |x| (x.size == size) && (x.pitchesPerOctave == pitchesPerOctave)
                });
                scale.isNil.if({
                        ("No known scales with size " ++ size.asString ++
                                " and pitchesPerOctave " ++ pitchesPerOctave.asString).warn;
                        ^nil
                });
                ^scale
        }

        *doesNotUnderstand { |selector, args|
                var scale = this.newFromKey(selector, args);
                ^scale ?? { super.doesNotUnderstand(selector, args) };
        }


        *directory {
                ^ScaleInfo.directory
        }

        octaveRatio {
                ^tuning.octaveRatio
        }

        stepsPerOctave {
                ^tuning.stepsPerOctave
        }

        == { |scale|
                ^degrees == scale.degrees and: { tuning == scale.tuning }
        }

        hash {
                ^degrees.hash bitXor: tuning.hash
        }

        storeOn { |stream|
                var storedKey = this.storedKey;
                stream << this.class.name;
                if(storedKey.notNil) { stream << "." << storedKey } { this.storeParamsOn(stream) }
        }

        storedKey {
                // can be optimised later
                var stored = ScaleInfo.scales.detect(_ == this);
                ^stored !? { ScaleInfo.scales.findKeyForValue(stored) }
        }

        storeArgs { ^[degrees, pitchesPerOctave, tuning, name] }


        printOn { |stream|
                this.storeOn(stream)
        }


}

Tuning {

        var <tuning, <octaveRatio, <>name;

        *new { | tuning, octaveRatio = 2.0, name = "Unknown Tuning" |
                ^super.newCopyArgs(tuning, octaveRatio, name);
        }

        *newFromKey { | key |
                ^TuningInfo.at(key)
        }

        *default { | pitchesPerOctave |
                ^this.et(pitchesPerOctave);
        }

        *et { |pitchesPerOctave = 12 |
                ^this.new(this.calcET(pitchesPerOctave), 2.0, this.etName(pitchesPerOctave));
        }

        *calcET { | pitchesPerOctave |
                ^(0..(pitchesPerOctave - 1)) * (12/pitchesPerOctave)
        }

        *etName { |pitchesPerOctave|
                ^"ET" ++ pitchesPerOctave.asString
        }

        *choose { |size = 12|
                ^TuningInfo.choose({ |x| x.size == size })
        }

        ratios {
                ^tuning.midiratio
        }

        semitones {
                ^tuning
        }

        cents {
                ^this.semitones * 100
        }

        as { |class|
                ^this.semitones.as(class)
        }

        size {
                ^tuning.size
        }

        at { |index|
                ^tuning.at(index)
        }

        wrapAt { |index|
                ^tuning.wrapAt(index)
        }

        == { |argTuning|
                ^tuning == argTuning.tuning and: { octaveRatio == argTuning.octaveRatio }       }

        hash {
                ^tuning.hash bitXor: octaveRatio.hash
        }

        *doesNotUnderstand { |selector, args|
                var tuning = this.newFromKey(selector, args);
                ^tuning ?? { super.doesNotUnderstand(selector, args) }
        }

        *directory {
                ^TuningInfo.directory
        }

        stepsPerOctave {
                ^octaveRatio.log2 * 12.0
        }

        asTuning {
                ^this
        }

        printOn { |stream|
                this.storeOn(stream)
        }

        storeOn { |stream|
                var storedKey = this.storedKey;
                stream << this.class.name;
                if(storedKey.notNil) { stream << "." << storedKey } { this.storeParamsOn(stream) }
        }

        storedKey {
                // can be optimised later
                var stored = TuningInfo.tunings.detect(_ == this);
                ^stored !? { TuningInfo.tunings.findKeyForValue(stored) }
        }

        storeArgs {
                ^[tuning, octaveRatio, name]
        }

}

ScaleAD : Scale {
        var <>descScale;
        *new { | degrees, pitchesPerOctave, descDegrees, tuning, name = "Unknown Scale" |
                ^super.new.init(degrees ? \ionian, pitchesPerOctave, tuning, name)
                        .descScale_(Scale(descDegrees ? \ionian, pitchesPerOctave, tuning, name ++ "desc"))
                ;
        }
        asStream { ^ScaleStream(this, 0) }
        embedInStream { ScaleStream(this).yield }

}

ScaleStream {
        var <>scale, <>curDegree;

        *new { | scale, startDegree = 0 | ^super.newCopyArgs(scale, startDegree) }

        chooseScale { |scaleDegree |
                if (scaleDegree >= curDegree) {
                        curDegree = scaleDegree;
                        ^scale
                } {
                        curDegree = scaleDegree;
                        ^scale.descScale
                }
        }
        performDegreeToKey { | degree, stepsPerOctave, accidental = 0 |
                ^this.chooseScale(degree).performDegreeToKey(degree, stepsPerOctave, accidental);
        }


        performKeyToDegree { | degree, stepsPerOctave = 12 |
                ^this.chooseScale(degree).performKeyToDegree(degree, stepsPerOctave)
        }

        performNearestInList { | degree |
                ^this.chooseScale(degree).performNearestInList(degree)
        }

        performNearestInScale { | degree, stepsPerOctave=12 | // collection is sorted
                ^this.chooseScale(degree).performNearestInScale(degree, stepsPerOctave)
        }
}

ScaleInfo {

        classvar <scales, dirDoc;

        *initClass {

                Class.initClassTree(TuningInfo);

                scales = IdentityDictionary[

                        // TWELVE TONES PER OCTAVE
                        // 5 note scales
                        \minorPentatonic -> Scale.new(#[0,3,5,7,10], 12, name: "Minor Pentatonic"),
                        \majorPentatonic -> Scale.new(#[0,2,4,7,9], 12, name: "Major Pentatonic"),
                        // another mode of major pentatonic
                        \ritusen -> Scale.new(#[0,2,5,7,9], 12, name: "Ritusen"),
                        // another mode of major pentatonic
                        \egyptian -> Scale.new(#[0,2,5,7,10], 12, name: "Egyptian"),

                        \kumoi -> Scale.new(#[0,2,3,7,9], 12, name: "Kumai"),
                        \hirajoshi -> Scale.new(#[0,2,3,7,8], 12, name: "Hirajoshi"),
                        \iwato -> Scale.new(#[0,1,5,6,10], 12, name: "Iwato"), // mode of hirajoshi
                        \chinese -> Scale.new(#[0,4,6,7,11], 12, name: "Chinese"), // mode of hirajoshi
                        \indian -> Scale.new(#[0,4,5,7,10], 12, name: "Indian"),
                        \pelog -> Scale.new(#[0,1,3,7,8], 12, name: "Pelog"),

                        \prometheus -> Scale.new(#[0,2,4,6,11], 12, name: "Prometheus"),
                        \scriabin -> Scale.new(#[0,1,4,7,9], 12, name: "Scriabin"),

                        // han chinese pentatonic scales
                        \gong -> Scale.new(#[0,2,4,7,9], 12, name: "Gong"),
                        \shang -> Scale.new(#[0,2,5,7,10], 12, name: "Shang"),
                        \jiao -> Scale.new(#[0,3,5,8,10], 12, name: "Jiao"),
                        \zhi -> Scale.new(#[0,2,5,7,9], 12, name: "Zhi"),
                        \yu -> Scale.new(#[0,3,5,7,10], 12, name: "Yu"),


                        // 6 note scales
                        \whole -> Scale.new((0,2..10), 12, name: "Whole Tone"),
                        \augmented -> Scale.new(#[0,3,4,7,8,11], 12, name: "Augmented"),
                        \augmented2 -> Scale.new(#[0,1,4,5,8,9], 12, name: "Augmented 2"),

                        // Partch's Otonalities and Utonalities
                        \partch_o1 -> Scale.new(#[0,8,14,20,25,34], 43,
                                Tuning.partch, "Partch Otonality 1"),
                        \partch_o2 -> Scale.new(#[0,7,13,18,27,35], 43,
                                Tuning.partch, "Partch Otonality 2"),
                        \partch_o3 -> Scale.new(#[0,6,12,21,29,36], 43,
                                Tuning.partch, "Partch Otonality 3"),
                        \partch_o4 -> Scale.new(#[0,5,15,23,30,37], 43,
                                Tuning.partch, "Partch Otonality 4"),
                        \partch_o5 -> Scale.new(#[0,10,18,25,31,38], 43,
                                Tuning.partch, "Partch Otonality 5"),
                        \partch_o6 -> Scale.new(#[0,9,16,22,28,33], 43,
                                Tuning.partch, "Partch Otonality 6"),
                        \partch_u1 -> Scale.new(#[0,9,18,23,29,35], 43,
                                Tuning.partch, "Partch Utonality 1"),
                        \partch_u2 -> Scale.new(#[0,8,16,25,30,36], 43,
                                Tuning.partch, "Partch Utonality 2"),
                        \partch_u3 -> Scale.new(#[0,7,14,22,31,37], 43,
                                Tuning.partch, "Partch Utonality 3"),
                        \partch_u4 -> Scale.new(#[0,6,13,20,28,38], 43,
                                Tuning.partch, "Partch Utonality 4"),
                        \partch_u5 -> Scale.new(#[0,5,12,18,25,33], 43,
                                Tuning.partch, "Partch Utonality 5"),
                        \partch_u6 -> Scale.new(#[0,10,15,21,27,34], 43,
                                Tuning.partch, "Partch Utonality 6"),

                        // hexatonic modes with no tritone
                        \hexMajor7 -> Scale.new(#[0,2,4,7,9,11], 12, name: "Hex Major 7"),
                        \hexDorian -> Scale.new(#[0,2,3,5,7,10], 12, name: "Hex Dorian"),
                        \hexPhrygian -> Scale.new(#[0,1,3,5,8,10], 12, name: "Hex Phrygian"),
                        \hexSus -> Scale.new(#[0,2,5,7,9,10], 12, name: "Hex Sus"),
                        \hexMajor6 -> Scale.new(#[0,2,4,5,7,9], 12, name: "Hex Major 6"),
                        \hexAeolian -> Scale.new(#[0,3,5,7,8,10], 12, name: "Hex Aeolian"),

                        // 7 note scales
                        \major -> Scale.new(#[0,2,4,5,7,9,11], 12, name: "Major"),
                        \ionian -> Scale.new(#[0,2,4,5,7,9,11], 12, name: "Ionian"),
                        \dorian -> Scale.new(#[0,2,3,5,7,9,10], 12, name: "Dorian"),
                        \phrygian -> Scale.new(#[0,1,3,5,7,8,10], 12, name: "Phrygian"),
                        \lydian -> Scale.new(#[0,2,4,6,7,9,11], 12, name: "Lydian"),
                        \mixolydian -> Scale.new(#[0,2,4,5,7,9,10], 12, name: "Mixolydian"),
                        \aeolian -> Scale.new(#[0,2,3,5,7,8,10], 12, name: "Aeolian"),
                        \minor -> Scale.new(#[0,2,3,5,7,8,10], 12, name: "Natural Minor"),
                        \locrian -> Scale.new(#[0,1,3,5,6,8,10], 12, name: "Locrian"),

                        \harmonicMinor -> Scale.new(#[0,2,3,5,7,8,11], 12, name: "Harmonic Minor"),
                        \harmonicMajor -> Scale.new(#[0,2,4,5,7,8,11], 12, name: "Harmonic Major"),

                        \melodicMinor -> Scale.new(#[0,2,3,5,7,9,11], 12, name: "Melodic Minor"),
                        \melodicMinorDesc -> Scale.new(#[0,2,3,5,7,8,10], 12,
                                name: "Melodic Minor Descending"),
                        \melodicMajor -> Scale.new(#[0,2,4,5,7,8,10], 12, name: "Melodic Major"),

                        \bartok -> Scale.new(#[0,2,4,5,7,8,10], 12, name: "Bartok"),
                        \hindu -> Scale.new(#[0,2,4,5,7,8,10], 12, name: "Hindu"),

                        // raga modes
                        \todi -> Scale.new(#[0,1,3,6,7,8,11], 12, name: "Todi"),
                        \purvi -> Scale.new(#[0,1,4,6,7,8,11], 12, name: "Purvi"),
                        \marva -> Scale.new(#[0,1,4,6,7,9,11], 12, name: "Marva"),
                        \bhairav -> Scale.new(#[0,1,4,5,7,8,11], 12, name: "Bhairav"),
                        \ahirbhairav -> Scale.new(#[0,1,4,5,7,9,10], 12, name: "Ahirbhairav"),

                        \superLocrian -> Scale.new(#[0,1,3,4,6,8,10], 12, name: "Super Locrian"),
                        \romanianMinor -> Scale.new(#[0,2,3,6,7,9,10], 12, name: "Romanian Minor"),                     \hungarianMinor -> Scale.new(#[0,2,3,6,7,8,11], 12, name: "Hungarian Minor"),
                        \neapolitanMinor -> Scale.new(#[0,1,3,5,7,8,11], 12, name: "Neapolitan Minor"),
                        \enigmatic -> Scale.new(#[0,1,4,6,8,10,11], 12, name: "Enigmatic"),
                        \spanish -> Scale.new(#[0,1,4,5,7,8,10], 12, name: "Spanish"),

                        // modes of whole tones with added note ->
                        \leadingWhole -> Scale.new(#[0,2,4,6,8,10,11], 12, name: "Leading Whole Tone"),
                        \lydianMinor -> Scale.new(#[0,2,4,6,7,8,10], 12, name: "Lydian Minor"),
                        \neapolitanMajor -> Scale.new(#[0,1,3,5,7,9,11], 12, name: "Neapolitan Major"),
                        \locrianMajor -> Scale.new(#[0,2,4,5,6,8,10], 12, name: "Locrian Major"),

                        // 8 note scales
                        \diminished -> Scale.new(#[0,1,3,4,6,7,9,10], 12, name: "Diminished"),
                        \diminished2 -> Scale.new(#[0,2,3,5,6,8,9,11], 12, name: "Diminished 2"),

                        // 12 note scales
                        \chromatic -> Scale.new((0..11), 12, name: "Chromatic"),

                        // TWENTY-FOUR TONES PER OCTAVE

                        \chromatic24 -> Scale.new((0..23), 24, name: "Chromatic 24"),

                        // maqam ajam
                        \ajam -> Scale.new(#[0,4,8,10,14,18,22], 24, name: "Ajam"),
                        \jiharkah -> Scale.new(#[0,4,8,10,14,18,21], 24, name: "Jiharkah"),
                        \shawqAfza -> Scale.new(#[0,4,8,10,14,16,22], 24, name: "Shawq Afza"),

                        // maqam sikah
                        \sikah -> Scale.new(#[0,3,7,11,14,17,21], 24, name: "Sikah"),
                        \sikahDesc -> Scale.new(#[0,3,7,11,13,17,21], 24, name: "Sikah Descending"),
                        \huzam -> Scale.new(#[0,3,7,9,15,17,21], 24, name: "Huzam"),
                        \iraq -> Scale.new(#[0,3,7,10,13,17,21], 24, name: "Iraq"),
                        \bastanikar -> Scale.new(#[0,3,7,10,13,15,21], 24, name: "Bastanikar"),
                        \mustar -> Scale.new(#[0,5,7,11,13,17,21], 24, name: "Mustar"),

                        // maqam bayati
                        \bayati -> Scale.new(#[0,3,6,10,14,16,20], 24, name: "Bayati"),
                        \karjighar -> Scale.new(#[0,3,6,10,12,18,20], 24, name: "Karjighar"),
                        \husseini -> Scale.new(#[0,3,6,10,14,17,21], 24, name: "Husseini"),

                        // maqam nahawand
                        \nahawand -> Scale.new(#[0,4,6,10,14,16,22], 24, name: "Nahawand"),
                        \nahawandDesc -> Scale.new(#[0,4,6,10,14,16,20], 24, name: "Nahawand Descending"),
                        \farahfaza -> Scale.new(#[0,4,6,10,14,16,20], 24, name: "Farahfaza"),
                        \murassah -> Scale.new(#[0,4,6,10,12,18,20], 24, name: "Murassah"),
                        \ushaqMashri -> Scale.new(#[0,4,6,10,14,17,21], 24, name: "Ushaq Mashri"),

                        // maqam rast
                        \rast -> Scale.new(#[0,4,7,10,14,18,21], 24, name: "Rast"),
                        \rastDesc -> Scale.new(#[0,4,7,10,14,18,20], 24, name: "Rast Descending"),
                        \suznak -> Scale.new(#[0,4,7,10,14,16,22], 24, name: "Suznak"),
                        \nairuz -> Scale.new(#[0,4,7,10,14,17,20], 24, name: "Nairuz"),
                        \yakah -> Scale.new(#[0,4,7,10,14,18,21], 24, name: "Yakah"),
                        \yakahDesc -> Scale.new(#[0,4,7,10,14,18,20], 24, name: "Yakah Descending"),
                        \mahur -> Scale.new(#[0,4,7,10,14,18,22], 24, name: "Mahur"),

                        // maqam hijaz
                        \hijaz -> Scale.new(#[0,2,8,10,14,17,20], 24, name: "Hijaz"),
                        \hijazDesc -> Scale.new(#[0,2,8,10,14,16,20], 24, name: "Hijaz Descending"),
                        \zanjaran -> Scale.new(#[0,2,8,10,14,18,20], 24, name: "Zanjaran"),

                        // maqam hijazKar
                        \zanjaran -> Scale.new(#[0,2,8,10,14,16,22], 24, name: "Zanjaran"),

                        // maqam saba
                        \saba -> Scale.new(#[0,3,6,8,12,16,20], 24, name: "Saba"),
                        \zamzam -> Scale.new(#[0,2,6,8,14,16,20], 24, name: "Zamzam"),

                        // maqam kurd
                        \kurd -> Scale.new(#[0,2,6,10,14,16,20], 24, name: "Kurd"),
                        \kijazKarKurd -> Scale.new(#[0,2,8,10,14,16,22], 24, name: "Kijaz Kar Kurd"),

                        // maqam nawa Athar
                        \nawaAthar -> Scale.new(#[0,4,6,12,14,16,22], 24, name: "Nawa Athar"),
                        \nikriz -> Scale.new(#[0,4,6,12,14,18,20], 24, name: "Nikriz"),
                        \atharKurd -> Scale.new(#[0,2,6,12,14,16,22], 24, name: "Athar Kurd"),


                        // Ascending/descending scales
                        \melodicMinor -> ScaleAD(#[0,2,3,5,7,9,11], 12, #[0,2,3,5,7,8,10], name: "Melodic Minor"),
                        \sikah -> ScaleAD(#[0,3,7,11,14,17,21], 24, #[0,3,7,11,13,17,21], name: "Sikah"),
                        \nahawand -> ScaleAD(#[0,4,6,10,14,16,22], 24, #[0,4,6,10,14,16,20], name: "Nahawand"),
                ];

        }

        *at { |key|
                var res = scales[key];
                ^res !? { res.deepCopy };
        }

        *choose {
                |selectFunc|
                ^scales.values.select(selectFunc ? { true }).choose.deepCopy;
        }

        *names {
                ^scales.keys.asArray.sort
        }
        *directory {
                var dirString = scales.keys.asArray.sort.collect({ |k|
                        "\\" ++ k ++ ": " ++ scales.at(k).name
                }).join("\n");

                dirDoc = dirDoc ?? {
                                Document.new("Tuning Directory", dirString)
                                .onClose_({ dirDoc.free; dirDoc = nil });
                };
                dirDoc.front;
                dirDoc.string = dirString;

        }
}

TuningInfo {

        classvar <tunings, dirDoc;

        *initClass {

                tunings = IdentityDictionary[

                        //TWELVE-TONE TUNINGS
                        \et12 -> Tuning.new((0..11), 2, "ET12"),

                        \pythagorean -> Tuning.new([1, 256/243, 9/8, 32/27, 81/64, 4/3, 729/512, 3/2,
                                128/81, 27/16, 16/9, 243/128].ratiomidi, 2, "Pythagorean"),
                        \just -> Tuning.new([1, 16/15, 9/8, 6/5, 5/4, 4/3, 45/32, 3/2, 8/5, 5/3,
                                9/5, 15/8].ratiomidi, 2, "5-Limit Just Intonation"),
                        \sept1 -> Tuning.new([1, 16/15, 9/8, 6/5, 5/4, 4/3, 7/5, 3/2, 8/5, 5/3,
                                9/5, 15/8].ratiomidi, 2, "Septimal Tritone Just Intonation"),
                        \sept2 -> Tuning.new([1, 16/15, 9/8, 6/5, 5/4, 4/3, 7/5, 3/2, 8/5, 5/3,
                                7/4, 15/8].ratiomidi, 2, "7-Limit Just Intonation"),
                        \mean4 -> Tuning.new(#[0, 0.755, 1.93, 3.105, 3.86, 5.035, 5.79, 6.965,
                                7.72, 8.895, 10.07, 10.82], 2, "Meantone, 1/4 Syntonic Comma"),
                        \mean5 -> Tuning.new(#[0, 0.804, 1.944, 3.084, 3.888, 5.028, 5.832, 6.972,
                                7.776, 8.916, 10.056, 10.86], 2, "Meantone, 1/5 Pythagorean Comma"),
                        \mean6 -> Tuning.new(#[0, 0.86, 1.96, 3.06, 3.92, 5.02, 5.88, 6.98, 7.84,
                                8.94, 10.04, 10.9], 2, "Meantone, 1/6 Pythagorean Comma"),
                        \kirnberger -> Tuning.new([1, 256/243, (5.sqrt)/2, 32/27, 5/4, 4/3,
                                45/32, 5 ** 0.25, 128/81, (5 ** 0.75)/2, 16/9, 15/8].ratiomidi, 2,
                                "Kirnberger III"),
                        \werckmeister -> Tuning.new(#[0, 0.92, 1.93, 2.94, 3.915, 4.98, 5.9, 6.965,
                                7.93, 8.895, 9.96, 10.935], 2, "Werckmeister III"),
                        \vallotti -> Tuning.new(#[0, 0.94135, 1.9609, 2.98045, 3.92180, 5.01955,
                                5.9218, 6.98045, 7.9609, 8.94135, 10, 10.90225], 2, "Vallotti"),
                        \young -> Tuning.new(#[0, 0.9, 1.96, 2.94, 3.92, 4.98, 5.88, 6.98, 7.92,
                                8.94, 9.96, 10.9], 2, "Young"),
                        \reinhard -> Tuning.new([1, 14/13, 13/12, 16/13, 13/10, 18/13, 13/9,
                                20/13, 13/8, 22/13, 13/7, 208/105].ratiomidi, 2, "Mayumi Reinhard"),
                        \wcHarm -> Tuning.new([1, 17/16, 9/8, 19/16, 5/4, 21/16, 11/8, 3/2, 13/8,
                                27/16, 7/4, 15/8].ratiomidi, 2, "Wendy Carlos Harmonic"),
                        \wcSJ -> Tuning.new([1, 17/16, 9/8, 6/5, 5/4, 4/3, 11/8, 3/2, 13/8, 5/3,
                                7/4, 15/8].ratiomidi, 2, "Wendy Carlos Super Just"),

                        //MORE THAN TWELVE-TONE ET
                        \et19 -> Tuning.new((0 .. 18) * 12/19, 2, "ET19"),
                        \et22 -> Tuning.new((0 .. 21) * 6/11, 2, "ET22"),
                        \et24 -> Tuning.new((0 .. 23) * 0.5, 2, "ET24"),
                        \et31 -> Tuning.new((0 .. 30) * 12/31, 2, "ET31"),
                        \et41 -> Tuning.new((0 .. 40) * 12/41, 2, "ET41"),
                        \et53 -> Tuning.new((0 .. 52) * 12/53, 2, "ET53"),

                        //NON-TWELVE-TONE JI
                        \johnston -> Tuning.new([1, 25/24, 135/128, 16/15, 10/9, 9/8, 75/64, 6/5,
                                5/4, 81/64, 32/25, 4/3, 27/20, 45/32, 36/25, 3/2, 25/16, 8/5, 5/3,
                                27/16, 225/128, 16/9, 9/5, 15/8, 48/25].ratiomidi, 2, "Ben Johnston"),
                        \partch -> Tuning.new([1, 81/80, 33/32, 21/20, 16/15, 12/11, 11/10, 10/9, 9/8,
                                8/7, 7/6, 32/27, 6/5, 11/9, 5/4, 14/11, 9/7, 21/16, 4/3, 27/20, 11/8,
                                7/5, 10/7, 16/11, 40/27, 3/2, 32/21, 14/9, 11/7, 8/5, 18/11, 5/3, 27/16,
                                12/7, 7/4, 16/9, 9/5, 20/11, 11/6, 15/8, 40/21, 64/33, 160/81].ratiomidi, 2,
                                "Harry Partch"),
                        \catler -> Tuning.new([1, 33/32, 16/15, 9/8, 8/7, 7/6, 6/5, 128/105, 16/13,
                                5/4, 21/16, 4/3, 11/8, 45/32, 16/11, 3/2, 8/5, 13/8, 5/3, 27/16, 7/4,
                                16/9, 24/13, 15/8].ratiomidi, 2, "Jon Catler"),
                        \chalmers -> Tuning.new([1, 21/20, 16/15, 9/8, 7/6, 6/5, 5/4, 21/16, 4/3, 7/5,
                                35/24, 3/2, 63/40, 8/5, 5/3, 7/4, 9/5, 28/15, 63/32].ratiomidi, 2,
                                "John Chalmers"),
                        \harrison -> Tuning.new([1, 16/15, 10/9, 8/7, 7/6, 6/5, 5/4, 4/3, 17/12, 3/2,
                                8/5, 5/3, 12/7, 7/4, 9/5, 15/8].ratiomidi, 2, "Lou Harrison"),
                        \sruti -> Tuning.new([1, 256/243, 16/15, 10/9, 9/8, 32/27, 6/5, 5/4, 81/64,
                                4/3, 27/20, 45/32, 729/512, 3/2, 128/81, 8/5, 5/3, 27/16, 16/9, 9/5,
                                15/8, 243/128].ratiomidi, 2, "Sruti"),

                        //HARMONIC SERIES -- length arbitary
                        \harmonic -> Tuning.new((1 .. 24).ratiomidi, 2, "Harmonic Series 24"),

                        //STRETCHED/SHRUNK OCTAVE
                        //Bohlen-Pierce
                        \bp -> Tuning.new((0 .. 12) * (3.ratiomidi/13), 3.0, "Bohlen-Pierce"),

                        \wcAlpha -> Tuning.new((0 .. 14) * 0.78, (15 * 0.78).midiratio, "Wendy Carlos Alpha"),
                        \wcBeta -> Tuning.new((0 .. 18) * 0.638, (19 * 0.638).midiratio, "Wendy Carlos Beta"),
                        \wcGamma -> Tuning.new((0 .. 33) * 0.351, (34 * 0.351).midiratio,
                                "Wendy Carlos Gamma")
                ];


        }

        *choose { |selectFunc|
                ^tunings.values.select(selectFunc ? { true }).choose;
        }

        *names {
                ^tunings.keys.asArray.sort
        }

        *at { |key|
                var res = tunings[key];
                ^res !? { res.deepCopy };
        }

        *directory {
                var dirString = tunings.keys.asArray.sort.collect({ |k|
                        "\\" ++ k ++ ": " ++ tunings.at(k).name
                }).join("\n");

                dirDoc = dirDoc ?? {
                                Document.new("Tuning Directory", dirString)
                                .onClose_({ dirDoc.free; dirDoc = nil });
                };
                dirDoc.front;
                dirDoc.string = dirString;

        }
}