-- vim: set foldmethod=marker :

-- {{{1 metadata
{-|
Module      : Arca_musarithmica.Syntagma1.Pinax03b
Description : Data for the ark, syntagma 1, pinax 3b (Dactylicum)
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/ ('s1p3b') is for poetry in Dactylic meter (@`--`--@) with six
syllables per line (dactylic hexameter). It contains four columns, one for
each successive verse line (Kircher's "stropha") of a quatrain. There is only
one rperm for each side, repeated for each column. 

It may be used with any tone, especially 2 and 6.
-}
-- }}}1

module Arca_musarithmica.Syntagma1.Pinax03b (s1p3b) where

import Aedifico
    ( Dur (..)
    , buildPinax
    )

-- | Pinax 3
s1p3b = buildPinax [c0, c1, c2, c3]

-- {{{1 c0
c0 = (c0v, c0r)
-- {{{2 c0v
c0v = [
        [ -- 0
            [5, 5, 5, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [3, 3, 3, 2, 2, 3],
            [1, 1, 1, 5, 5, 1]
        ],
        [ -- 1
            [6, 6, 6, 5, 5, 5],
            [8, 8, 8, 8, 7, 8],
            [4, 4, 4, 2, 2, 3],
            [4, 4, 4, 5, 5, 1]
        ],
        [ -- 2
            [5, 6, 6, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [3, 4, 4, 2, 2, 3],
            [8, 4, 4, 5, 5, 1]
        ],
        [ -- 3
            [3, 5, 5, 5, 4, 5],
            [8, 2, 2, 8, 8, 2],
            [5, 5, 2, 3, 6, 7],
            [8, 7, 7, 6, 6, 5]
        ],
        [ -- 4
            [5, 5, 5, 5, 5, 5],
            [8, 8, 8, 8, 8, 8],
            [3, 3, 3, 3, 3, 3],
            [1, 1, 1, 1, 1, 1]
        ],
        [ -- 5
            [5, 5, 5, 5, 5, 5],
            [2, 2, 2, 2, 2, 2],
            [7, 7, 7, 7, 7, 7],
            [5, 5, 5, 5, 5, 5]
        ],
        [ -- 6 
            [3, 4, 4, 2, 2, 3],
            [8, 8, 8, 7, 7, 8],
            [6, 6, 6, 5, 5, 5],
            [6, 4, 4, 5, 5, 1]
        ],
        [ -- 7
            [3, 4, 3, 2, 2, 3],
            [8, 8, 8, 7, 7, 8],
            [5, 6, 5, 5, 5, 5],
            [8, 4, 1, 5, 5, 1] -- CN for 8, *5, 1, 5, 5, 1
        ],
        [ -- 8 
            [3, 5, 5, 6, 8, 7],
            [8, 2, 2, 8, 6, 2],
            [5, 5, 5, 4, 4, 5], -- CN for *4, 5,  5, *5, *4, 4
            [8, 7, 7, 6, 6, 5]
        ],
        [ -- 9
            [6, 5, 5, 6, 6, 5],
            [8, 8, 8, 8, 8, 8],
            [8, 3, 3, 8, 8, 3],
            [4, 3, 3, 4, 4, 1]
        ]
    ]
-- }}}2
-- {{{2 c0r
c0r = [
        [ -- Duple
            [[SbD, Mn, Sb, SbD, Mn, Sb]],
            [[MnD, Sm, Sb, MnD, Sm, Sb]],
            [[SmD, Fs, Mn, SmD, Fs, Mn]],
            [[Sb, Mn, Mn, Mn, Mn, Sb]],
            [[MnR, Sb, Sm, Sm, SbD, Mn, Sb]],
            [[SmR, Mn, Fs, Fs, SmD, Fs, Mn]],
            [[Sm, Fs, Fs, SmD, Fs, Sb]],
            [[Sm, Sm, Mn, Sm, Sm, Mn]]
        ],
        [ -- TripleMajor
            [[Sb, Sb, Sb, Sb, Sb, Sb]],
            [[SbD, Mn, Sb, SbD, Mn, Sb]],
            [[Br, Sb, Sb, Sb, Sb, BrD]]
        ],
        [ -- TripleMinor
            [[Mn, Mn, Mn, MnD, Sm, Mn]],
            [[Mn, Mn, Mn, Mn, Mn, Mn]],
            [[MnD, Sm, Mn, MnD, Sm, Mn]]
        ]
    ]
-- }}}2
-- }}}1
-- {{{1 c1
c1 = (c1v, c0r)
-- {{{2 c1v
c1v = [
        [ -- 0
            [6, 6, 6, 6, 6, 6],
            [2, 2, 2, 8, 8, 2],
            [4, 4, 4, 3, 3, 4],
            [2, 2, 2, 6, 6, 2]
        ],
        [ -- 1
            [3, 5, 5, 6, 6, 2],
            [8, 2, 2, 8, 8, 7],
            [5, 5, 2, 3, 4, 5],
            [8, 7, 7, 6, 6, 5]
        ],
        [ -- 2
            [4, 3, 3, 2, 2, 2],
            [8, 8, 8, 6, 6, 7],
            [6, 5, 5, 4, 4, 5],
            [4, 1, 1, 2, 2, 5]
        ],
        [ -- 3
            [8, 8, 8, 7, 7, 8],
            [6, 6, 6, 5, 5, 5],
            [3, 4, 4, 2, 2, 3],
            [6, 4, 4, 5, 5, 1]
        ],
        [ -- 4
            [2, 2, 2, 2, 2, 2],
            [7, 7, 7, 7, 7, 7],
            [5, 5, 5, 5, 5, 5],
            [5, 5, 5, 5, 5, 5]
        ],
        [ -- 5
            [6, 6, 6, 5, 5, 5],
            [8, 8, 8, 7, 7, 8], -- CN for 8, 8, 8, *8, 7, 8
            [4, 4, 4, 2, 2, 3],
            [4, 4, 4, 5, 5, 1] -- XXX third "4" is unclear
        ],
        [ -- 6 
            [6, 6, 6, 5, 5, 6],
            [8, 8, 8, 7, 7, 8],
            [3, 3, 3, 3, 3, 3],
            [6, 6, 6, 3, 3, 6]
        ],
        [ -- 7
            [3, 5, 5, 5, 4, 5],
            [8, 2, 2, 8, 8, 2], -- XXX third numeral unclear
            [5, 5, 5, 6, 6, 7],
            [8, 7, 7, 6, 6, 5]
        ],
        [ -- 8 
            [6, 6, 6, 5, 5, 6],
            [8, 8, 8, 7, 7, 8],
            [3, 3, 3, 3, 3, 3],
            [6, 6, 6, 3, 3, 6]
        ],
        [ -- 9
            [5, 6, 6, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [3, 4, 4, 2, 2, 3],
            [8, 4, 4, 5, 5, 1]
        ]
    ]
-- }}}2
-- }}}1
-- {{{1 c2
c2 = (c2v, c0r)
-- {{{2 c2v
c2v = [
        [ -- 0
            [4, 4, 4, 3, 3, 4],
            [8, 8, 8, 8, 8, 8],
            [6, 6, 6, 5, 5, 6],
            [4, 4, 4, 1, 1, 4]
        ],
        [ -- 1
            [6, 5, 5, 4, 4, 3],
            [8, 8, 8, 8, 7, 8], -- XXX should this be 8, 8, 8, *2, 7, 8?
            [4, 5, 5, 6, 4, 5],
            [4, 3, 3, 2, 2, 1]
        ],
        [ -- 2
            [3, 3, 3, 3, 3, 3],
            [8, 8, 8, 7, 7, 8],
            [6, 6, 6, 5, 5, 6],
            [6, 6, 6, 3, 3, 6]
        ],
        [ -- 3
            [4, 3, 3, 2, 2, 2],
            [8, 8, 8, 6, 6, 7], -- CN for 8, 8, 8, 6, 6, *6
            [6, 5, 5, 4, 4, 5],
            [4, 1, 1, 2, 2, 5]
        ],
        [ -- 4
            [6, 6, 6, 6, 6, 6],
            [2, 2, 2, 2, 2, 2],
            [4, 4, 4, 4, 4, 4],
            [2, 2, 2, 2, 2, 2]
        ],
        [ -- 5
            [3, 5, 5, 6, 8, 7],
            [8, 2, 2, 8, 6, 2],
            [5, 5, 5, 5, 4, 5],
            [8, 7, 7, 6, 6, 5]
        ],
        [ -- 6 
            [3, 5, 5, 6, 6, 2],
            [8, 2, 2, 8, 8, 7],
            [5, 2, 2, 3, 4, 5],
            [8, 7, 7, 6, 6, 5]
        ],
        [ -- 7
            [5, 4, 4, 3, 3, 4],
            [2, 2, 2, 8, 8, 2],
            [7, 6, 6, 6, 6, 6],
            [5, 2, 2, 6, 6, 2]
        ],
        [ -- 8 
            [5, 5, 5, 5, 4, 5],
            [2, 2, 2, 2, 2, 2],
            [7, 7, 7, 7, 6, 7],
            [5, 5, 5, 5, 2, 5]
        ],
        [ -- 9
            [8, 3, 2, 3, 3, 3],
            [6, 7, 6, 5, 5, 6],
            [3, 3, 6, 7, 7, 8],
            [6, 5, 4, 3, 3, 6]
        ]
    ]
-- }}}2
-- }}}1
-- {{{1 c3
c3 = (c3v, c0r)
-- {{{2 c3v
c3v = [
        [ -- 0
            [3, 6, 6, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [5, 4, 4, 2, 2, 3],
            [8, 4, 4, 5, 5, 1]
        ],
        [ -- 1
            [5, 5, 5, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [3, 3, 3, 2, 2, 3],
            [1, 1, 1, 5, 5, 1]
        ],
        [ -- 2
            [3, 3, 3, 2, 2, 3],
            [8, 8, 8, 7, 7, 8],
            [5, 5, 5, 5, 5, 5],
            [1, 1, 1, 5, 5, 1]
        ],
        [ -- 3
            [6, 5, 5, 4, 4, 3],
            [8, 8, 8, 8, 8, 8],
            [4, 5, 5, 6, 6, 5],
            [4, 3, 3, 4, 4, 1]
        ],
        [ -- 4
            [3, 4, 3, 2, 2, 3],
            [8, 8, 8, 7, 7, 8],
            [5, 6, 5, 5, 5, 5],
            [8, 4, 1, 5, 5, 1]
        ],
        [ -- 5
            [5, 6, 6, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [3, 4, 4, 2, 2, 3],
            [8, 4, 4, 5, 5, 1]
        ],
        [ -- 6 
            [6, 6, 6, 5, 5, 5],
            [8, 8, 8, 7, 7, 8], -- CN for 8, 8, 8, *8, 7, 8
            [4, 4, 4, 2, 2, 3],
            [4, 4, 4, 5, 5, 1]
        ],
        [ -- 7
            [5, 5, 5, 5, 5, 5],
            [8, 8, 8, 7, 7, 8],
            [3, 3, 3, 2, 2, 3],
            [1, 1, 1, 5, 5, 1] -- XXX first numeral illegible
        ],
        [ -- 8 
            [6, 5, 5, 4, 4, 3],
            [8, 8, 8, 8, 7, 8], -- CN for 8, 8, 8, *7, 7, 8 (cf. #21)
            [4, 5, 5, 6, 4, 5],
            [4, 3, 3, 2, 2, 1]
        ],
        [ -- 9
            [6, 5, 5, 4, 4, 3],
            [8, 8, 8, 8, 8, 8],
            [4, 5, 5, 6, 6, 5],
            [4, 3, 3, 4, 4, 1]
        ]
    ]
-- }}} 2
-- }}}1