{-|
Module      : Arca_musarithmica.Syntagma2.Pinax06
Description : Data for the ark, syntagma 2, pinax 6 (Sapphic, Hendecasyllabic)
Copyright   : Data from Kircher, 1650; implementation (c)  2022 Andrew A. Cashner
Stability   : Experimental

Sub-structures used by @Arca_musarithmica@ to build Kircher's ark.
This /pinax/ ('s2p6') contains /three/ columns for successive strophes
(actually meaning verse lines). Each contains pairs of four-voice vperms and
four-voice rperms.

Kircher intends this for Saphhic meters with 11-syllable lines (p. 119), with
the paradigm being /Ut queant laxis resonare fibris/. Elsewhere he says it is
for "Phaleucic/Hendecasyllabic and Sapphic meters".

> "PINAX VI. Musarithmos Melothesias Floridae & artificiosae continens. Pro
metris sapphicis quibuslibet Hendecasyllabis."

This pinax is for /toni/ (tones) 1, 2, 3, 4, 9, and 10 in all three "strophes."

__TODO__: The problem is that in Sapphic meter there are stanzas of four
lines, where the first three are 11 syllables, and the last is five (Adonic).
In Syntagma I, Kircher builds this into the pinax, but this one only accounts
for those first three lines.  We would have to switch to a different pinax for
every fourth line.

-}

module Arca_musarithmica.Syntagma2.Pinax06 (s2p6) where

import Aedifico
    ( Dur (..)
    , buildPinax
    )

-- | Pinax 5
s2p6 = buildPinax [c0, c1, c2]

-- {{{1 c0
c0 = (c0v, c0r)

-- {{{2 c0v
c0v = [
        [ -- 0
            [3, 2, 3, 5, 4, 3, 4, 5, 5, 4, 3, 4, 2, 3, 2, 3],
            [8, 7, 8, 8, 7, 5, 8, 7, 6, 5, 6, 7, 1, 7, 7],
            [5, 5, 3, 3, 2, 8, 2, 3, 8, 2, 5, 3, 6, 5, 4, 5],
            [8, 5, 8, 6, 5, 3, 4, 5, 6, 7, 3]
        ],
        [ -- 1
            [5, 5, 4, 3, 2, 3, 3, 3, 2, 3, 4, 3],
                -- CN: last value is 4 XXX
            [7, 7, 2, 1, 7, 8, 8, 6, 7, 6, 5, 6, 8],
                -- CN: last value is 7
            [5, 5, 5, 5, 5, 5, 5, 1, 7, 1, 3],
                -- CN: last value is 2
            [3, 3, 7, 1, 5, 3, 3, 4, 5, 4, 1]
        ],
        [ --2
            [8, 7, 8, 8, 7, 3, 5, 4, 3, 6, 5, 4, 5],
            [5, 5, 5, 4, 5, 5, 5, 6, 5, 8, 2, 3, 2, 3],
            [3, 2, 3, 2, 8, 2, 8, 8, 7, 3, 4, 5, 6, 7, 7],
            [1, 5, 8, 6, 5, 3, 4, 5, 6, 7, 3]
        ],
        [ --3
            [3, 3, 3, 4, 5, 4, 3, 2, 2, 1, 7, 6, 7, 1],
            [5, 5, 5, 6, 5, 1, 7, 6, 5, 5, 4, 5, 5],
            [8, 8, 8, 8, 8, 7, 7, 8, 2, 3, 2, 1, 2, 3],
            [1, 4, 3, 4, 1, 5, 5, 6, 6, 5, 1]
        ],
        [ --4
            [4, 4, 5, 3, 2, 5, 5, 4, 2, 2, 2, 8, 2, 3, 3, 2, 2, 8, 2, 3, 4, 7, 5, 5, 4, 3, 2, 1, 7, 1, 7],
            [7, 7, 5, 8, 7, 3, 3, 7, 7, 7, 7, 5, 7, 7, 7, 7, 7, 5, 5, 8, 7, 6, 6, 5, 7, 7, 1, 7, 1, 5, 5, 4, 3, 4, 5],
            [4, 4, 5, 3, 4, 5, 5, 4, 5, 3, 2, 8, 3, 3, 2, 3, 5, 5, 4, 3, 2, 8, 2],
            [7, 7, 5, 8, 7, 3, 3, 7, 5, 8, 7, 6, 5, 4, 4, 3, 3, 3, 2, 1, 5, 1, 5, 6, 5]
        ],
        [ -- 5
            [8, 8, 8, 8, 7, 4, 4, 7, 7, 7, 7],
            [5, 5, 5, 5, 5, 6, 6, 5, 5, 4, 5],
            [3, 3, 3, 3, 2, 3, 2, 8, 2, 2, 3, 3, 3, 2, 8, 2, 3],
            [1, 1, 1, 1, 5, 4, 4, 3, 4, 5, 6, 7, 3]
        ],
        [ --6
            [7, 6, 7, 8, 7, 8, 8, 2, 3, 3, 2, 3],
            [5, 6, 5, 5, 5, 5, 5, 6, 5, 6, 7, 7],
            [2, 2, 2, 3, 2, 3, 3, 8, 3, 4, 5, 4, 5],
            [5, 4, 5, 1, 5, 3, 3, 4, 1, 7, 3]
        ],
        [ -- 7
            [2, 3, 2, 1, 7, 1, 7, 1, 2, 3, 2, 5, 4, 3, 4, 3, 2, 3],
            [7, 7, 7, 5, 5, 4, 5, 5, 5, 7, 6, 7, 6, 5, 6, 5, 5],
            [5, 5, 4, 3, 2, 8, 3, 3, 3, 4, 5, 4, 3, 4, 3, 8, 2, 8, 7, 8, 7, 8],
            [5, 3, 7, 1, 5, 6, 3, 3, 3, 2, 1, 7, 3, 4, 5, 1]
        ],
        [ -- 8
            [3, 3, 3, 2, 1, 2, 2, 5, 8, 4, 2, 7, 3, 2, 1, 1, 5, 1, 7, 1],
            [5, 5, 1, 7, 1, 7, 6, 7, 1, 6, 7, 5, 5, 6, 5, 5, 5],
            [8, 8, 8, 5, 6, 5, 3, 4, 2, 2, 8, 4, 4, 3, 2, 3],
            [5, 1, 4, 7, 5, 1, 4, 5, 5, 1]
        ],
        [ --9
            [7, 7, 7, 1, 2, 3, 3, 2, 7, 1, 7, 1, 7, 1],
            [5, 5, 5, 5, 4, 5, 8, 4, 5, 5, 4, 3, 4, 5, 5],
            [2, 2, 2, 1, 7, 7, 6, 5, 6, 6, 7, 3, 3, 2, 8, 2, 8, 2, 3],
            [5, 5, 5, 3, 2, 1, 1, 7, 3, 6, 5, 1]
        ]
    ]
-- }}}2
-- {{{2 c0r
c0r = [
        [ -- duple 
            [ -- 0
                [Sb, Mn, Sm, Mn, Fs, Fs, Mn, Sb, MnD, Mn, Mn, Sm, Sm, Mn, Sm, Sb],
                    -- correction: last value is Mn
                [Sb, Mn, Mn, Sb, Mn, Sm, SmD, Fs, Fs, Fs, Mn, Mn, Mn, Sb, Sb],
                [SbD, Sm, Sm, Mn, Sm, Sm, Mn, Sb, Sm, Mn, Sm, Sm, Mn, Sm, Mn, Sb],
                [Sb, Mn, Mn, Sb, Mn, Sb, Mn, Mn, Mn, Sb, Sb]
            ],
            [ -- 1
                [Mn, SmD, Fs, Mn, Mn, SmD, Fs, Sm, Fs, Fs, Sb, Sb],
                [Mn, Sm, Sm, Mn, Mn, SmD, Fs, Sm, Mn, Fs, Fs, Mn, Sb],
                [Mn, Sm, Sm, Mn, Mn, SmD, Fs, Sm, Sm, Sb, Sb],
                [Mn, Sm, Sm, Mn, Mn, SmD, Fs, Sm, Sm, Sb, Sb]
            ],
            [ -- 2
                [Sb, Mn, Mn, Sb, Mn, Mn, Mn, Mn, MnD, Mn, Sm, Mn, Sb],
                [Sb, Mn, Sb, Mn, Mn, MnD, Sm, Mn, Mn, Mn, Sm, Mn, Sm, Sb],
                [Sb, Mn, Sb, Sm, Sm, Mn, Mn, Sb, Mn, Sm, Mn, Fs, Fs, Mn, Sb],
                [Sb, Mn, Mn, Sb, Mn, Sb, Mn, Mn, Mn, Sb, Sb]
            ],
            [ -- 3
                [Mn, Sm, Sm, Mn, MnD, Mn, Sm, Sm, Sm, MnD, Fs, Fs, Mn, Sb],
                [Mn, Sm, Sm, Mn, Sm, Fs, Fs, Mn, Mn, MnD, Sm, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, SmD, Fs, Sm, Fs, Fs, Mn, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb]
            ],
            [ -- 4
                [Sb, Mn, Mn, Mn, Mn, MnD, Sm, Mn, MnD, Sm, Mn, Mn, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Sb, Sb, Mn, Mn, MnD, Sm, Mn, Mn, Mn, Mn, Sb, Sb],
                [MnR, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, MnD, Sm, Mn, Mn, Mn, MnD, Sm, Mn, Mn, Mn, Mn, Mn, Mn, MnD, Sm, Sb, Mn, Mn, Mn, Mn, Sm, Sm, MnD, Fs, Fs, Mn, Sb],
                [LgR, MnR, Mn, Mn, Mn, Mn, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Mn, Mn, Sb, MnR, Mn, MnD, Sm, Mn, Mn, Sb, Sb],
                [LgR, MnR, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Mn, Mn, Sb, Sb]
            ],
            [ -- 5
                [Mn, Sm, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Sb, Sb],
                [Mn, Sm, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Sb, Sb],
                [Mn, Sm, Sm, Mn, Sm, Mn, Fs, Fs, Sm, Sm, Mn, Mn, Sm, Fs, Fs, Mn, Sb],
                [Mn, Sm, Sm, Mn, Mn, MnD, Sm, Sm, Sm, Sm, Sm, Sb, Sb] -- unclear
            ],
            [ -- 6
                [SmR, Sm, Sm, Sm, Mn, Sm, SmR, SmR, Fs, Fs, Sm, Sm, Sm, Sm, Mn],
                [SmR, Sm, Sm, Sm, Mn, Sm, Fs, Fs, Sm, Fs, Fs, Sb, Mn],
                [SmR, Sm, Sm, Sm, Mn, Sm, Fs, Fs, Sm, Sm, Sm, Sm, Mn, Mn],
                [SmR, Sm, Sm, Sm, Mn, Sm, Fs, Fs, Sm, Sm, Sb, Mn]
            ],
            [ -- 7
                [MnD, Sm, Mn, Mn, Mn, Sb, Mn, Mn, Mn, Sb, Mn, MnD, Fs, Fs, MnD, Sm, Mn, Sb],
                [MnD, Sm, Mn, Mn, MnD, Sm, Mn, MnD, Sm, Sb, Mn, MnD, Fs, Fs, Sb, Sb, Sb],
                [MnD, Sm, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Sm, Sm, Mn, Mn, MnD, Fs, Fs, Sm, Mn, Sm, Sb],
                [MnD, Sm, Mn, Mn, Mn, Mn, Mn, MnD, Sm, Mn, Sb, Mn, Mn, Sb, Sb, Sb]
            ],
            [ -- 8
                [MnR, SmR, Sm, Sm, Sm, Sm, Sm, Mn, Sm, Mn, Mn, Sm, Mn, Mn, MnD, Fs, Fs, Sm, Sm, Sb, Mn, Sb],
                [MnR, SmR, Sm, Sm, Sm, Sm, Mn, Fs, Fs, Mn, Mn, Mn, Mn, MnD, Sm, Mn, Sb, Sb, Sb],
                [MnR, SmR, Sm, Sm, Sm, Sm, Sm, Sb, Mn, MnD, Mn, Sm, MnD, Sm, Mn, Mn, Sb, Sb],
                [BrR, MnR, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Sb, Sb, Sb]
            ],
            [ -- 9
                [Mn, Sm, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Sb, Mn, Sb, Mn, Sb],
                [Mn, Sm, Sm, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Sb, Sm, Sm, Sb, Sb],
                [Mn, Sm, Sm, MnD, Sm, Sm, Fs, Fs, Sm, Sm, MnD, Sm, Mn, Sm, Sm, Mn, Mn, Sb, Sb],
                    -- correction: penultimate value is Mn
                [Mn, Sm, Sm, Mn, Mn, Mn, Mn, Mn, Mn, Sb, Br, Sb]
            ]
        ]
    ]
-- }}}2
-- }}}1
-- {{{1 c1
c1 = (c1v, c1r)

-- {{{2 c1v
c1v = [
        [ -- 0
            [5, 5, 4, 3, 2, 1, 2, 1, 7, 6, 6, 6, 7],
            [7, 7, 1, 2, 1, 5, 5, 4, 5, 4, 5],
            [5, 5, 6, 7, 5, 4, 3, 2, 8, 2, 2, 3, 2, 2],
            [5, 3, 7, 8, 6, 7, 8, 5, 2, 1, 2, 5] -- CN *2, 3...
        ],
        [ -- 1
            [2, 3, 3, 2, 2, 8, 7, 6, 6, 5, 5, 5],
            [7, 7, 8, 7, 7, 5, 5, 4, 4, 4, 3, 2, 3, 2],
            [4, 5, 4, 4, 4, 3, 2, 1, 1, 7, 1, 7],
            [7, 5, 6, 7, 7, 3, 3, 4, 4, 5, 1, 5]
        ],
        [ --2
            [7, 1, 2, 3, 4, 8, 8, 2, 4, 3, 2, 1, 7, 1, 7, 6, 7, 1],
            [5, 7, 6, 5, 4, 2, 5, 5, 4, 5, 5],
            [2, 7, 1, 1, 7, 6, 7, 1, 2, 3, 3, 2, 8, 2, 3],
            [5, 4, 3, 2, 1, 8, 6, 5, 1]
        ],
        [ --3
            [3, 3, 2, 1, 7, 7, 1, 1, 1, 7, 6, 7],
            [7, 7, 6, 5, 5, 5, 5, 4, 5, 5, 4, 5],
            [5, 5, 5, 4, 3, 2, 2, 2, 3, 2, 2],
            [3, 3, 4, 5, 5, 1, 1, 2, 5, 1, 2, 5]
        ],
        [ --4   
            [5, 5, 5, 4, 3, 2, 8, 2, 3, 3, 3, 4, 7],
            [7, 7, 7, 7, 5, 6, 7, 7, 1, 7, 6, 5],
            [3, 3, 3, 2, 3, 4, 5, 3, 3, 2, 8, 2, 3],
            [3, 3, 3, 7, 1, 7, 3, 6, 5, 4, 3]
        ],
        [ -- 5
            [2, 3, 1, 2, 2, 5, 5, 4, 3, 2, 3, 2, 8, 2], -- CN 2, 3, *3
            [7, 7, 6, 7, 7, 7, 7, 6, 5, 5, 5], -- CN 7, 7, *7
            [4, 5, 4, 4, 4, 3, 3, 1, 7, 1, 5, 1, 7, 6, 7],
            [7, 5, 6, 7, 7, 3, 3, 4, 5, 1, 5]
        ],
        [ --6
            [1, 1, 2, 1, 7, 3, 3, 3, 5, 4, 5],
            [5, 5, 5, 5, 5, 7, 7, 1, 7, 7, 7],
            [3, 3, 2, 3, 2, 5, 5, 3, 3, 3, 2, 3],
            [1, 1, 7, 1, 5, 3, 3, 6, 3, 7, 3]
        ],
        [ -- 7
            [8, 8, 8, 7, 3, 3, 2, 7, 1, 1, 7, 1],
            [5, 5, 4, 5, 5, 6, 6, 5, 5, 5, 5],
            [3, 3, 2, 8, 2, 8, 8, 4, 3, 2, 3],
            [8, 6, 6, 5, 3, 4, 4, 5, 1, 5, 1]
        ],
        [ -- 8
            [4, 3, 2, 8, 2, 4, 3, 3, 4, 5, 4, 3, 2, 1, 7, 1, 7, 1],
            [2, 1, 7, 6, 7, 6, 7, 6, 5, 6, 7, 1, 1, 3, 2, 7, 6, 5, 4, 5, 5],
            [4, 3, 2, 8, 2, 5, 5, 7, 6, 5, 4, 3, 2, 8, 2, 3],
            [7, 6, 5, 4, 4, 4, 3, 2, 1, 1, 1, 2, 3, 4, 5, 6, 5, 1]
        ],
        [ --9
            [8, 8, 2, 7, 8, 6, 6, 5, 5, 5, 5],
            [5, 6, 6, 5, 5, 4, 4, 4, 3, 2, 3],
            [3, 4, 4, 4, 3, 1, 1, 7, 1, 1, 7, 1],
            [8, 4, 4, 5, 1, 4, 4, 5, 1, 5, 1]
        ]
    ]
-- }}}2
-- {{{2 c1r
c1r = [
        [ -- duple 
            [ -- 0
                [Sb, MnD, Sm, MnD, Fs, Fs, Mn, Sb, Mn, Mn, Mn, Sb, Sb],
                [Sb, Sm, Sm, Mn, Sb, Sb, Sb, Mn, Sb, Mn, Sb],
                [Sb, Sm, Sm, Mn, Mn, Sb, MnD, Fs, Fs, Mn, Mn, Mn, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Mn, Mn, Sb, Mn, Mn, Sb, Sb]
            ],
            [ -- 1
                [Mn, Sm, Sm, Sm, Sm, SmD, Fs, Sm, Sm, Mn, Sb, Sb],
                [Mn, Sm, Sm, Sm, Sm, Sm, Sm, Sm, Sm, Sm, Fs, Fs, Sb, Sb],
                    -- correction? value 1 looks like Sb
                [Mn, Sm, Sm, Sm, Sm, SmD, Fs, Sm, Sm, Mn, Sb, Sb],
                [Mn, Sm, Sm, Sm, Sm, Sm, Sm, Sm, Sm, Mn, Sb, Sb]
            ],
            [ -- 2
                [SmD, Fs, Sm, Sm, Mn, Sm, Sm, MnD, Sm, MnD, Sm, Sm, Sm, MnD, Fs, Fs, Mn, Sb],
                [Mn, Mn, Mn, Mn, Mn, Mn, Sb, MnD, Sm, Sb, Sb],
                [Mn, Mn, Mn, MnD, Fs, Fs, Mn, Sm, Sm, Mn, MnD, Fs, Fs, Sb, Sb],
                [Sb, Mn, Mn, Sb, Mn, Sb, Mn, Sb, Sb]
            ],
            [ -- 3
                [Sb, Mn, Sm, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sb, Sb],
                [Sb, Mn, Mn, Sm, Sm, Sm, Sm, Mn, Mn, Mn, Mn, Sb],
                [Sb, Sm, Sm, Sb, Mn, Sm, Sm, Mn, Mn, Mn, Sb],
                [Sb, Mn, Mn, Sm, Sm, Sm, Sm, Mn, Mn, Mn, Mn, Sb]
            ],
            [ -- 4
                [Sb, Mn, Mn, Mn, MnD, Fs, Fs, Mn, Mn, Sb, Mn, Sb, Sb],
                [Sb, Mn, Mn, Mn, Sm, Sm, Sb, Mn, Sb, Mn, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sb, Mn, Sb, MnD, Fs, Fs, Mn, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sb, Mn, Sb, Mn, Sb, Sb]
            ],
            [ -- 5
                [SmR, Sm, SmD, Fs, Sm, Sm, Sm, Sm, Mn, Sm, Sm, SbD, Sm, Sm, Sb],
                [SmR, Sm, SmD, Fs, Sm, Sm, Sm, Sm, Mn, Mn, Br, Sb],
                [SmR, Sm, SmD, Fs, Sm, Sm, Sm, Sm, Mn, Mn, Sm, Sm, Sb, Sm, Sm, Sb],
                [SmR, Sm, SmD, Fs, Sm, Sm, Sm, Sm, Mn, Mn, Sb, Br]
            ],
            [ -- 6
                [SmR, Sm, Sm, Sm, Mn, Mn, MnD, Sm, Sm, Sm, Mn, Sb],
                [SmR, Sm, Sm, Sm, Mn, Mn, MnD, Sm, Sm, Sm, Mn, Sb],
                [SmR, Sm, Sm, Sm, Mn, Mn, MnD, Sm, Sm, Sm, Sm, Sm, Sb],
                [SmR, Sm, Sm, Sm, Mn, Mn, MnD, Sm, Sm, Sm, Mn, Sb]
            ],
            [ -- 7
                [Sb, MnD, Sm, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Sb],
                [Sb, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Mn, Sb, Sb],
                [Sb, Mn, Sm, Sm, Mn, Mn, Mn, Sb, Mn, Sb, Sb],
                [Sb, MnD, Sm, Mn, Mn, Mn, Mn, Mn, Mn, Sb, Sb]
            ],
            [ -- 8
                [MnR, MnD, Fs, Fs, Sm, Sm, Sb, Mn, Sm, Sm, Sm, Sm, Sm, Fs, Fs, Sm, Mn, Sm, Sb],
                [MnD, Fs, Fs, Sm, Sm, Sm, Mn, Fs, Fs, Sm, Sm, Mn, Mn, Sm, Sm, Sm, Sm, Sm, Sm, Mn, Sb],
                [SbR, MnD, Fs, Fs, MnD, Sm, Mn, MnD, Fs, Fs, Sm, Fs, Fs, Sm, Sm, Mn, Sb],
                [MnD, Fs, Fs, Mn, Mn, MnD, Fs, Fs, Mn, Mn, Sm, Sm, Sm, Sm, Sm, Sm, Mn, Sb]
            ],
            [ -- 9
                [Mn, Sm, Sm, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb],
                [Mn, Sm, Sm, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb],
                [Mn, Sm, Sm, Mn, Mn, Sm, Sm, Sm, Sm, Mn, Mn, Sb],
                [Mn, Sm, Sm ,Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb]
            ]
        ]
    ]
-- }}}2
-- }}}1
-- {{{1 c2
c2 = (c2v, c2r)

-- {{{2 c2v
c2v = [
        [ -- 0
            [3, 2, 1, 7, 1, 6, 7, 1, 1, 1, 7, 1],
            [7, 7, 5, 5, 5, 4, 4, 3, 4, 5, 5],
            [5, 4, 3, 2, 3, 8, 8, 8, 2, 3, 2, 8, 2, 3],
            [3, 7, 8, 5, 3, 4, 4, 6, 6, 5, 1]
        ],
        [ -- 1
            [3, 4, 4, 4, 4, 3, 2, 7, 7, 1, 7, 6, 7, 1],
            [5, 6, 6, 7, 7, 1, 6, 5, 4, 5, 5],
            [8, 8, 8, 2, 2, 5, 4, 2, 8, 2, 3],
            [1, 4, 2, 3, 4, 5, 5, 6, 6, 5, 1]
        ],
        [ --2
            [2, 3, 3, 2, 3, 5, 5, 5, 6, 5, 5],
            [7, 8, 8, 8, 7, 8, 8, 8, 8, 8, 7, 8, 7, 8],
            [5, 5, 5, 5, 5, 3, 3, 3, 4, 4, 3, 2, 3],
            [5, 3, 1, 5, 1, 8, 8, 8, 4, 5, 1]
        ],
        [ --3
            [5, 6, 5, 3, 5, 4, 4, 3, 3, 2, 3],
            [1, 1, 7, 1, 7, 6, 6, 5, 5, 5, 5],
            [3, 4, 2, 8, 3, 8, 8, 8, 8, 8, 7, 8],
            [1, 4, 5, 6, 3, 4, 4, 1, 1, 5, 1]
        ],
        [ --4
            [3, 3, 2, 8, 7, 8, 2, 3, 6, 5, 5],
            [7, 7, 7, 5, 5, 5, 5, 1, 1, 7, 1, 7, 1],
            [5, 5, 4, 3, 2, 3, 2, 8, 4, 3, 2, 3],
            [3, 3, 7, 8, 5, 8, 7, 6, 4, 5, 1]
        ],
        [ -- 5
            [3, 3, 3, 2, 1, 7, 1, 1, 2, 7, 1, 7, 1],
            [7, 7, 7, 7, 5, 5, 5, 6, 6, 5, 5],
            [5, 5, 5, 4, 3, 2, 3, 8, 4, 3, 2, 3],
            [3, 3, 3, 7, 8, 5, 3, 4, 4, 5, 1]
        ],
        [ --6
            [3, 3, 3, 2, 2, 4, 5, 5, 4, 3, 2, 3],
            [5, 5, 6, 7, 7, 1, 7, 6, 5, 5, 5],
            [3, 3, 3, 4, 4, 8, 8, 3, 3, 1, 7, 1],
            [8, 8, 8, 7, 7, 6, 3, 4, 1, 5, 1]
        ],
        [ -- 7
            [3, 3, 3, 2, 8, 7, 7, 2, 2, 2, 8, 7, 6, 7, 1, 1, 7, 3, 3, 3, 2, 1, 7, 1, 1, 4, 3, 2, 3],
            [5, 5, 5, 5, 4, 5, 5, 7, 7, 7, 6, 5, 4, 3, 4, 5, 4, 5, 7, 7, 7, 7, 5, 5, 5, 6, 5, 5],
            [5, 5, 7, 1, 1, 2, 2, 1, 7, 6, 5, 5, 5, 5, 4, 3, 2, 3, 1, 2, 7, 1, 7, 1],
            [8, 8, 8, 7, 6, 5, 5, 5, 3, 3, 3, 7, 8, 5, 3, 4, 4, 5, 1]
        ],
        [ -- 8
            [5, 6, 5, 4, 3, 4, 5, 4, 8, 4, 3, 2, 3],
            [8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8],
            [3, 4, 3, 6, 5, 6, 5, 6, 6, 5, 4, 5],
            [1, 4, 8, 4, 1, 4, 3, 4, 4, 1, 1]
        ],
        [ --9
            [3, 3, 2, 1, 7, 1, 1, 7, 6, 5, 5, 3, 5, 4, 3, 7, 1, 7, 3, 2, 7, 1, 7, 1],
            [7, 7, 7, 5, 5, 3, 4, 5, 4, 3, 2, 3, 7, 7, 7, 5, 5, 3, 4, 5, 6, 5, 5],
            [5, 5, 4, 3, 2, 8, 8, 3, 1, 2, 7, 1, 7, 1, 5, 3, 2, 3, 2, 8, 3, 8, 4, 3, 2, 3],
            [3, 3, 7, 8, 5, 6, 6, 3, 4, 5, 1, 3, 3, 7, 8, 5, 6, 6, 3, 4, 5, 1]
        ]
    ]
-- }}}2
-- {{{2 c2r
c2r = [
        [ -- duple 
            [ -- 0
                [Sb, Mn, Mn, Mn, Mn, SmD, Fs, Sm, Sm, Mn, Mn, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, SmD, Fs, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, SmD, Fs, Sm, Fs, Fs, Mn, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb]
            ],
            [ -- 1
                [Sb, Sm, Sm, Sm, Sm, MnD, Sm, Sm, Sm, MnD, Fs, Fs, Mn, Sb],
                [Sb, Sm, Sm, Sm, Sm, MnD, Sm, MnD, Sm, Sb, Sb],
                [Sb, Sm, Sm, Sm, Sm, MnD, Sm, Mn, Mn, Sb, Sb],
                [Sb, Mn, Mn, MnD, Sm, Sm, Sm, Sm, Sm, Sb, Sb]
            ],
            [ -- 2
                [Sb, Mn, Mn, Sb, Sb, SmD, Fs, Sm, Sm, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sb, SmD, Fs, Sm, Sm, Sm, Mn, Sm, Sb],
                [Sb, Mn, Mn, Sb, Sb, SmD, Fs, Sm, Sm, Sm, Sm, Mn, Sb],
                [Sb, Mn, Mn, Sb, Sb, SmD, Fs, Sm, Sm, Sb, Sb]
            ],
            [ -- 3
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Sm, Mn, Mn, Sb],
                [Sb, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Sm, Sb, Sb]
            ],
            [ -- 4
                [Mn, Sm, Sm, Mn, Mn, SmD, Fs, Sm, Sm, Sb, Sb],
                [Mn, Sm, Sm, Mn, Mn, SmD, Fs, Sm, Sm, Sm, Mn, Sm, Sb],
                [Mn, Sm, Sm, Mn, Mn, SmD,Fs, Sm, Mn, Sm, Mn, Sb],
                [Mn, Sm, Sm, Mn, Mn, SmD, Fs, Sm, Sm, Sb, Sb]
            ],
            [ -- 5  
                [SmR, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sm, Sm, Sm, Mn, Sm, Sb],
                [SmR, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sm, Sm, Sb, Sb],
                [SmR, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sm, Mn, Sm, Mn, Sb],
                [SmR, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sm, Sm, Sb, Sb]
            ],
            [ -- 6
                [Sm, Fs, Fs, Sm, Sm, SmD, Fs, SmD, Fs, Sm, Sm, Mn, Sb],
                [Sm, Fs, Fs, Sm, Sm, Mn, Mn, Sm, Sm, Mn, Sb],
                [Sm, Fs, Fs, Sm, Sm, Sm, Sm, Sm, Sm, MnD, Sm, Sb],
                [Sm, Fs, Fs, Sm, Sm, Mn, Mn, Sm, Sm, Mn, Sb]
            ],
            [ -- 7
                [SmR, SmD, Fs, Sm, Sm, Sm, Mn, Sm, SmD, Fs, Sm, SmD, Fs, SmD, Fs, Mn, Mn, Sm ,SmD, Fs, Sm, Sm, Sm, Sm, Sm, MnD, Mn, Sm, Mn, Sb],
                [SmR, SmD, Fs, Sm, SmD, Fs, Mn, Sm, SmD, Fs, Sm, Sm, Mn, Sm, Fs, Fs, Mn, Sm, Sm, SmD, Fs, Sm, Sm, Sm, Sm, Sm, Sb, Sb, Sb],
                [BrR, SmR, SmD, Fs, Sm, Sm, Sm, Sm, Sm, SmD, Fs, Mn, Sm, SmD, Fs, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sm, Mn, Sm, Sb],
                [SmR, SmD, Fs, Sm, Sm, Sm, SmD, Fs, Sb, BrR, SmR, SmD, Fs, Sm, Sm, Sm, Sm, Sm, Mn, Mn, Sb, Sb]
            ],
            [ -- 8
                [MnR, Mn, Mn, Mn, Sb, Mn, Sb, Mn, Sm, Sm, Sb, Sm, Sm, Sb],
                [MnR, Mn, Mn, Mn, Sb, Mn, Mn, Mn, Mn, Sb, Sb, Sb],
                [MnR, Mn, Mn, Mn, Sb, Mn, Sb, Mn, Sb, Mn, Sm, Sm, Sb],
                [MnR, Mn, Mn, Mn, Sb, Mn, Sb, Mn, Mn, Mn, Sb, Sb]
            ],
            [ -- 9
                [MnR, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Sb, Sb, MnR, Mn, MnD, Sm, Mn, Mn, Sb, Mn, Sb, Mn, Mn, Sb, Mn, Sb],
                [MnR, Mn, MnD, Sm, Mn, Mn, MnD, Sm, MnD, Mn, Sm, Mn, Sb, MnR, Mn, MnD, Sm, Mn, Mn, Mn, Mn, Sb, Sb, Br, Sb],
                [MnR, Mn, MnD, Sm, Mn, Mn, Mn, Mn, Mn, Sm, Sm, Sm, Mn, Sm, Sb, MnR, Mn, MnD, Sm, Mn, Mn, Sb, Mn, Sb, Sb, Mn, Sb, Sb],
                [MnR, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Mn, Mn, Sb, Sb, MnR, Mn, MnD, Sm, Mn, Mn, MnD, Sm, Sb, Sb, Br, Sb] -- unclear
            ]
        ]
    ]
-- }}}2
-- }}}1