Progrest Source Code

Tempo 92
Time 4
KeySig C Major
RndSeed 666

Begin Aria
    Voice Flute
    Volume f
    Define D1       1 16 90          // Hit on 1
    Define D8       D1 * 8          // 8 hits
    Define D16      D1 * 16         // 16ths ... a roll?
    Sequence D16
    ScaleType Chord
    Octave 5
    Range 1
    Direction r
    RSkip 50
End

Set gb Ballad
Set gl $gb $gb + Sus $gb + Plus $gb + SusPlus
Set gc 1

Groove $gc $gl
1   z
1   z

Repeat
    Repeat
        Groove $gc $gl
        print $gc , $_Groove
        Inc gc

        Repeat
            1   Em
            3   C
            2   D
            4   Bm
        RepeatEnd

        Repeat
            8   Am
            5   Em
            6   F
            7   G
        RepeatEnd

        Set tn $( ( $_Transpose + 3 ) % 12 )
        Transpose $tn

    RepeatEnd 1

    Set gb Ballad1
    Set gl $gb $gb + Sus $gb + Plus $gb + SusPlus
    Set gc 1

RepeatEnd

9   AM7
10  /
11  A z!