mwinter
/
counterfeiting_in_colonial_connecticut
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

commit 2020.06.03.01.02

Browse Source
main
Michael Winter 5 years ago
parent f23cbea76c
commit e05fd66fdb
9 changed files with 109 additions and 85 deletions
Show Stats Download Patch File Download Diff File

BIN
lilypond/counterfeit_in_colonial_connecticut_score.midi
View File

Binary file not shown.

BIN
lilypond/counterfeit_in_colonial_connecticut_score.pdf
View File

Binary file not shown.

20
lilypond/includes/cicc_guitar.ly
View File

File diff suppressed because one or more lines are too long

24
lilypond/includes/cicc_high.ly
Unescape Escape View File

@ -5,34 +5,34 @@
\clef "treble^8" \clef "treble^8"
\bar "||" \mark \markup { \bold \box 1.1 } \bar "||" \mark \markup { \bold \box 1.1 }
\time 2/2 \time 2/2
f''''1 ~ | f''''2 r2 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''4 r2. | r2. f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r4 f''''4 ~ | f''''2. ~ f''''8 [ r8 ] | r4 f''''2. ~ | f''''1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.2 }d''''1 ~ | d''''2. r4 | R1 | r4 d''''2. ~ | d''''2 ~ d''''8 [ r8 ] r4 | r2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''8 [ r8 ] r4 d''''2 ~ | d''''1 ~ | d''''2 ~ d''''8 [ r8 ] r4 | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.3 }r2. f''''4 ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r2 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | f''''1 ~ | f''''4 r2. | R1 | r2 f''''2 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 | R1 | R1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | R1 | R1 | f''''1 ~ | f''''1 ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | R1 | r2 f''''2 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 ~ | f''''4 r2. | R1 | \bar "||" \mark \markup { \bold \box 1.2 }r1 | r4 d''''2. ~ | d''''2. r4 | R1 | r4 r8 [ d''''8 ] ~ d''''2 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] d''''2 ~ | d''''1 ~ | d''''2. ~ d''''8 [ r8 ] | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.3 }r1 | R1 | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r2. f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2 r2 | R1 | r2 f''''2 ~ | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | f''''1 ~ | f''''2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''1 ~ | f''''4 r2. | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar ".|" \mark \markup { \bold \box 1.4 } R1*3/2 | \bar ".|" \mark \markup { \bold \box 1.4 }
\time 2/2 \time 2/2
f''''1 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | r4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 ~ | f''''2. r4 | r8 [ f''''8 ] ~ f''''2. ~ | f''''2. r4 | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | R1 | R1 | r1 | R1 | f''''1 ~ | f''''2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r2 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''2 r2 | R1 | R1 | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''4 ~ f''''8 [ r8 ] r2 | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar "|.|" \mark \markup { \bold \box 2.1 } R1*3/2 | \bar "|.|" \mark \markup { \bold \box 2.1 }
\pageBreak \pageBreak
\time 2/2 \time 2/2
r2. f''''4 ~ | f''''1 ~ | f''''8 [ r8 ] r4 f''''2 ~ | f''''1 ~ | f''''2. r4 | r8 [ f''''8 ] ~ f''''2. ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r2 f''''2 ~ | f''''1 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2. r4 | r8 [ f''''8 ] ~ f''''2. ~ | f''''2 ~ f''''8 [ r8 ] r4 | f''''1 ~ | f''''4 r4 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r2 | R1 | r4 f''''2. ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | R1 | R1 | \bar "||" \mark \markup { \bold \box 2.2 }r2. d''''4 ~ | d''''1 ~ | d''''8 [ r8 ] r4 d''''2 ~ | d''''1 ~ | d''''2. r4 | R1 | R1 | d''''1 ~ | d''''2. r4 | R1 | r2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''8 [ r8 ] r2. | r4 r8 [ d''''8 ] ~ d''''2 ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] r2 | \bar "||" \mark \markup { \bold \box 2.3 }r1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2. r4 | R1 | r4 f''''2. ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | f''''1 ~ | f''''1 ~ | f''''4 r2. | r2. f''''4 ~ | f''''1 ~ | f''''8 [ r8 ] r4 f''''2 ~ | f''''1 ~ | f''''4 r2. | R1 | R1 | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 2.4 }r1 | r2 f''''2 ~ | f''''2. r4 | R1 | R1 | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''8 [ r8 ] r4 f''''2 ~ | f''''2. r4 | r8 [ f''''8 ] ~ f''''2. ~ | f''''1 ~ | f''''4 r2. | r2. f''''4 ~ | f''''1 ~ | f''''2 r2 | R1 | \bar "|.|" \mark \markup { \bold \box 3.1 } r2 f''''2 ~ | f''''1 ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2 r2 | R1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''2 ~ f''''8 [ r8 ] r4 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 | R1 | r2 f''''2 ~ | f''''1 ~ | f''''4 r2. | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''2. r4 | \bar "||" \mark \markup { \bold \box 2.2 }r1 | R1 | r4 d''''2. ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] r2 | R1 | r2 r8 [ d''''8 ] ~ d''''4 ~ | d''''1 ~ | d''''2 r2 | R1 | R1 | R1 |
\pageBreak
r1 | r2 f''''2 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''2. r4 | r8 [ f''''8 ] ~ f''''2. ~ | f''''1 ~ | f''''8 [ r8 ] r2. |
\time 3/2 \time 3/2
R1*3/2 | \bar "||" \mark \markup { \bold \box 3.2 } R1*3/2 | \bar "||" \mark \markup { \bold \box 2.3 }
\time 2/2 \time 2/2
r2. d''''4 ~ | d''''1 ~ | d''''2. r4 | R1 | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''2. ~ d''''8 [ r8 ] | r4 d''''2. ~ | d''''1 | R1 | R1 | r4 d''''2. ~ | d''''1 ~ | d''''2 r2 | r2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''8 [ r8 ] r2. | R1 | r4 r8 [ d''''8 ] ~ d''''2 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''2 ~ d''''8 [ r8 ] r4 | r2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''2. r4 | R1 | r2 d''''2 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''4 r2. | r2 r8 [ d''''8 ] ~ d''''4 ~ | d''''1 ~ | d''''2. r4 | R1 | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''8 [ r8 ] r4 d''''2 ~ | d''''1 ~ | d''''2. ~ d''''8 [ r8 ] | R1 | r4 f''''2. ~ | f''''1 ~ | f''''2 r2 | R1 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] f''''2 ~ | f''''1 ~ | f''''4 r2. | R1 | r4 f''''2. ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | R1 | f''''1 ~ | f''''1 | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 2.4 }r1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''1 | R1 | r2. f''''4 ~ | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 r2. | \bar "|.|" \mark \markup { \bold \box 3.1 }
\pageBreak
r4 f''''2. ~ | f''''2 ~ f''''8 [ r8 ] f''''4 ~ | f''''1 ~ | f''''2. r4 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 3.2 }r2. d''''4 ~ | d''''1 ~ | d''''1 ~ | d''''8 [ r8 ] d''''2. ~ | d''''2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''1 ~ | d''''4 r2. | R1 | r2 r8 [ d''''8 ] ~ d''''4 ~ | d''''1 ~ | d''''1 ~ | d''''1 | R1 | r2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] r2 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 3.3 }r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. r4 | R1 | r4 f''''2. ~ | f''''2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''8 [ r8 ] f''''2. ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r2 | R1 | r4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 ~ | f''''4 r2. | R1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''2. ~ f''''8 [ r8 ] | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] f''''2 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | R1 | r4 f''''2. ~ | f''''1 ~ | f''''1 ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 |
\time 3/2 \time 3/2
R1*3/2 | \bar "||" \mark \markup { \bold \box 3.3 } R1*3/2 | \bar ".|" \mark \markup { \bold \box 3.4 }
\time 2/2 \time 2/2
r1 | r2 f''''2 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | r2 f''''2 ~ | f''''1 ~ | f''''4 r4 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2 r4 r8 [ f''''8 ] ~ | f''''1 ~ | f''''1 ~ | f''''1 | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | R1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''1 | R1 | R1 | r4 f''''2. ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. r4 | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 3.4 }f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. r4 | R1 | R1 | f''''1 ~ | f''''4 r4 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 | R1 | r2. f''''4 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] f''''4 ~ | f''''1 ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2 r2 | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''8 [ r8 ] r2. | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar "|.|" \mark \markup { \bold \box 4.1 } R1*3/2 | \bar "|.|" \mark \markup { \bold \box 4.1 }
\pageBreak \pageBreak
\time 2/2 \time 2/2
r1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''4 r4 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''8 [ r8 ] r4 f''''2 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''8 [ r8 ] r4 f''''2 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | R1 | R1 | f''''1 ~ | f''''4 r4 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r2. f''''4 ~ | f''''1 ~ | f''''8 [ r8 ] r4 f''''2 ~ | f''''1 | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r4 f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 r2. | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 4.2 }d''''1 ~ | d''''1 ~ | d''''8 [ r8 ] r2. | r2. d''''4 ~ | d''''1 ~ | d''''1 | r4 r8 [ d''''8 ] ~ d''''2 ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] r2 | r2. d''''4 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''4 r2. | \bar "||" \mark \markup { \bold \box 4.3 }r2. f''''4 ~ | f''''1 | R1 | r4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] r4 | f''''1 ~ | f''''1 ~ | f''''4 r2. | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''2. ~ f''''8 [ r8 ] | r4 f''''2. ~ | f''''1 ~ | f''''4 r2. | r1 | f''''1 ~ | f''''2 r2 | R1 | r8 [ f''''8 ] ~ f''''2. ~ | f''''2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''4 r8 [ f''''8 ] ~ f''''2 ~ | f''''1 ~ | f''''4 r2. | R1 | r2 r8 [ f''''8 ] ~ f''''4 ~ | f''''1 ~ | f''''1 | R1 | r2 f''''2 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | R1 | r4 f''''2. ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2. ~ f''''8 [ r8 ] | R1 | r4 f''''2. ~ | f''''1 ~ | f''''4 r2. | R1 | R1 | R1 | R1 | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar ".|" \mark \markup { \bold \box 4.4 } R1*3/2 | \bar "||" \mark \markup { \bold \box 4.2 }
\time 2/2 \time 2/2
r1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 ] \bar "|." } r2 r8 [ d''''8 ] ~ d''''4 ~ | d''''1 | r8 [ d''''8 ] ~ d''''2. ~ | d''''1 ~ | d''''1 ~ | d''''2. r8 [ d''''8 ] ~ | d''''1 ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] d''''2 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''4 ~ d''''8 [ r8 ] r2 | r2 r8 [ d''''8 ] ~ d''''4 ~ | d''''1 ~ | d''''4 r8 [ d''''8 ] ~ d''''2 ~ | d''''2 ~ d''''8 [ r8 ] d''''4 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 ~ | d''''1 | R1 | R1 | r4 r8 [ d''''8 ] ~ d''''2 ~ | d''''2 ~ d''''8 [ r8 ] r4 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 4.3 }r1 | R1 | r4 f''''2. ~ | f''''2. r4 | R1 | r2. f''''4 ~ | f''''1 ~ | f''''1 ~ | f''''1 ~ | f''''2 ~ f''''8 [ r8 ] f''''4 ~ | f''''1 ~ | f''''2. r8 [ f''''8 ] ~ | f''''1 ~ | f''''4 ~ f''''8 [ r8 ] r2 | R1 | r2 f''''2 ~ | f''''1 ~ | f''''2 r2 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 4.4 }r1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 ] \bar "|." }

22
lilypond/includes/cicc_low.ly
Unescape Escape View File

@ -5,7 +5,7 @@
\clef bass \clef bass
\bar "||" \mark \markup { \bold \box 1.1 } \bar "||" \mark \markup { \bold \box 1.1 }
\time 2/2 \time 2/2
<<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.2 } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | r2 <<{ a,,4 ^ \markup{ 4.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | r2. <<{ a,,4 ^ \markup{ 3.6 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | r2. <<{ a,,4 ^ \markup{ 2.9 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | <<{ a,,4 ^ \markup{ 2.1 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 1.4 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | r2. <<{ a,,4 ^ \markup{ 0.7 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.3 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r4 <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice r2 | R1 | R1 | R1 | R1 | r2. <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice | R1 | R1 | R1 | <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.2 } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | r2 <<{ a,,4 ^ \markup{ 4.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | r2. <<{ a,,4 ^ \markup{ 3.6 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | r2. <<{ a,,4 ^ \markup{ 2.9 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | <<{ a,,4 ^ \markup{ 2.1 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 1.4 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | r2. <<{ a,,4 ^ \markup{ 0.7 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | \bar "||" \mark \markup { \bold \box 1.3 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r2 <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice r4 | R1 | R1 | R1 | R1 | <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice r2. | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar ".|" \mark \markup { \bold \box 1.4 } R1*3/2 | \bar ".|" \mark \markup { \bold \box 1.4 }
\time 2/2 \time 2/2
@ -15,24 +15,24 @@ R1*3/2 | \bar "|.|" \mark \markup { \bold \box 2.1 }
\pageBreak \pageBreak
\time 2/2 \time 2/2
<<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 2.2 } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | <<{ a,,4 ^ \markup{ 4.2 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 3.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 2.5 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 1.7 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 0.8 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 2.3 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r2. <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice | R1 | R1 | R1 | <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice r2. | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 2.4 } <<{ d,4 ^ \markup{ -36.7 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "|.|" \mark \markup { \bold \box 3.1 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 2.2 } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | r2 <<{ a,,4 ^ \markup{ 4.4 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | r4 <<{ a,,4 ^ \markup{ 3.8 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | r2 <<{ a,,4 ^ \markup{ 3.1 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | r4 <<{ a,,4 ^ \markup{ 2.5 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | r4 <<{ a,,4 ^ \markup{ 1.9 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | r4 <<{ a,,4 ^ \markup{ 1.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 |
\pageBreak
<<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar "||" \mark \markup { \bold \box 3.2 } r2. <<{ a,,4 ^ \markup{ 0.6 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | \bar "||" \mark \markup { \bold \box 2.3 }
\time 2/2 \time 2/2
<<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | r2 <<{ a,,4 ^ \markup{ 4.4 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | R1 | r4 r8. <<{ a,,16 ^ \markup{ 3.9 } } \new Voice { \voiceTwo a,,16 }>> \oneVoice <<{ a,,8. ^ \markup{ 3.9 } } \new Voice { \voiceTwo a,,8. }>> \oneVoice r16 r4 | R1 | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 3.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | R1 | r2 <<{ a,,4 ^ \markup{ 2.8 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 2.2 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 1.7 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | R1 | R1 | R1 | r2 <<{ a,,4 ^ \markup{ 1.1 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | R1 | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 0.6 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | R1 | R1 | <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | r4 <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice r2 | R1 | R1 | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 2.4 } <<{ d,4 ^ \markup{ -36.7 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "|.|" \mark \markup { \bold \box 3.1 }
\pageBreak
<<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 3.2 } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | r2 <<{ a,,4 ^ \markup{ 4.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 3.6 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | <<{ a,,4 ^ \markup{ 2.9 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | <<{ a,,4 ^ \markup{ 2.1 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | r2. <<{ a,,4 ^ \markup{ 1.4 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 0.7 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 3.3 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r2. <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice | R1 | R1 | R1 | R1 | r4 <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice r2 | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar "||" \mark \markup { \bold \box 3.3 } R1*3/2 | \bar ".|" \mark \markup { \bold \box 3.4 }
\time 2/2 \time 2/2
<<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r2. <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice | R1 | R1 | R1 | r2. <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 3.4 } <<{ d,4 ^ \markup{ -36.7 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | <<{ d,4 ^ \markup{ -36.7 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar "|.|" \mark \markup { \bold \box 4.1 } R1*3/2 | \bar "|.|" \mark \markup { \bold \box 4.1 }
\pageBreak \pageBreak
\time 2/2 \time 2/2
<<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 4.2 } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | r4 <<{ a,,4 ^ \markup{ 4.2 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | <<{ a,,4 ^ \markup{ 3.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | r2 <<{ a,,4 ^ \markup{ 2.5 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 1.7 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | <<{ a,,4 ^ \markup{ 0.8 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | \bar "||" \mark \markup { \bold \box 4.3 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r2 <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice r4 | R1 | R1 | r2. <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice | R1 | R1 | R1 | <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 |
\time 3/2 \time 3/2
R1*3/2 | \bar ".|" \mark \markup { \bold \box 4.4 } R1*3/2 | \bar "||" \mark \markup { \bold \box 4.2 }
\time 2/2 \time 2/2
<<{ d,4 ^ \markup{ -36.7 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 ] \bar "|." } <<{ a,,4 ^ \markup{ 5.0 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 4.4 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | <<{ a,,4 ^ \markup{ 3.8 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2. | R1 | R1 | R1 | r2. <<{ a,,4 ^ \markup{ 3.1 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 2.5 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | r2 <<{ a,,4 ^ \markup{ 1.9 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r4 | R1 | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 1.3 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | r4 <<{ a,,4 ^ \markup{ 0.6 } } \new Voice { \voiceTwo a,,4 }>> \oneVoice r2 | R1 | R1 | R1 | \bar "||" \mark \markup { \bold \box 4.3 } <<{ d,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | r2 <<{ f,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo f,,4 }>> \oneVoice r4 | R1 | R1 | R1 | r2 <<{ e,,4 ^ \markup{ 0.0 } } \new Voice { \voiceTwo e,,4 }>> \oneVoice r4 | R1 | R1 | R1 | R1 | \bar ".|" \mark \markup { \bold \box 4.4 } <<{ d,4 ^ \markup{ -36.7 } } \new Voice { \voiceTwo d,4 }>> \oneVoice r2. | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 | R1 ] \bar "|." }

5
supercollider/cicc_main.scd
Unescape Escape View File

@ -46,11 +46,12 @@ appEnvironment.push;
//appEnvironment.pop; //appEnvironment.pop;
) )
~fader = Synth(\crossFade, [\sel, 0, \busA, ~busA.index, \busB, ~busB.index]); ~fader = Synth(\crossFade, [\sel, 0, \busA, ~busA.index, \busB, ~busB.index]);
~patterns[0].play ~play.set(\sel, 1);
~patterns[1].play(quant: 0)
~transcribe.value(~scoreData) ~transcribe.value(~scoreData)
~patterns[0].stop ~patterns[0].stop
~player = Ptpar(([~sectionOffsets.postln * 0.08, ~patterns].flop.flat ++ [0, ~faderPattern])).postln ~player = Ptpar(([~sectionOffsets.postln * 0.08, ~patterns].flop.flat ++ [0, ~faderPattern]))

32
supercollider/cicc_musical_data_generator.scd
Unescape Escape View File

@ -119,7 +119,7 @@ genInitSeq = {
finalizeSeqs = {arg initSeq; finalizeSeqs = {arg initSeq;
var extendToBeat, insertTS, var extendToBeat, insertTS,
timeStampSection, timeStampTotal, timeStampSectionStart, lastDur, lastPos, timeStampSection, timeStampTotal, timeStampSectionStart, lastDur, lastPos,
sectionSeq, timeSigInsSeq, sectionLen, sectionPosLimit, state, guitarSeq; sectionSeq, timeSigInsSeq, sectionPosLimit, state, guitarSeq;
extendToBeat = {arg seq, round = 4; extendToBeat = {arg seq, round = 4;
var timeStampTotal, altEndDur; var timeStampTotal, altEndDur;
@ -128,7 +128,7 @@ finalizeSeqs = {arg initSeq;
altEndDur = timeStampTotal.round(round) - timeStampTotal; altEndDur = timeStampTotal.round(round) - timeStampTotal;
//if(altEndDur < 0, {altEndDur = altEndDur + round}); //if(altEndDur < 0, {altEndDur = altEndDur + round});
seq.last[2] = seq.last[2] + altEndDur; seq.last[2] = seq.last[2] + altEndDur;
if(altEndDur < 0, {seq.last[2].postln}); if(altEndDur < 0, {seq.last[2]});
[seq, altEndDur]; [seq, altEndDur];
}; };
@ -160,7 +160,6 @@ finalizeSeqs = {arg initSeq;
sectionSeq = [[0, 0, true]]; //sequence of times for each section (used for double bars in score) sectionSeq = [[0, 0, true]]; //sequence of times for each section (used for double bars in score)
timeSigInsSeq = [[0, 4]]; //sequence for insertion of time signatures and double bars; timeSigInsSeq = [[0, 4]]; //sequence for insertion of time signatures and double bars;
//sectionLen = 128;
sectionPosLimit = 3 + 6.rand; sectionPosLimit = 3 + 6.rand;
state = 0; state = 0;
@ -181,7 +180,6 @@ finalizeSeqs = {arg initSeq;
timeStampSection = timeStampSection + seqExtPair[1]; timeStampSection = timeStampSection + seqExtPair[1];
insertTS.value(guitarSeq, timeStampSectionStart, if(pos == [0, 0, 0, 0, 0, 0], {1}, {-1}), false); insertTS.value(guitarSeq, timeStampSectionStart, if(pos == [0, 0, 0, 0, 0, 0], {1}, {-1}), false);
timeStampSectionStart = guitarSeq.slice(nil, 2).sum; timeStampSectionStart = guitarSeq.slice(nil, 2).sum;
//if(((sectionLen - timeStampSection) < (16 * 8)) && (pos != [0, 0, 0, 0, 0, 0]), {sectionLen = sectionLen + (16 * 8)});
}); });
if(sectionBorder, { if(sectionBorder, {
@ -202,11 +200,6 @@ finalizeSeqs = {arg initSeq;
// grabs a figure and repeats it altering it subtly // grabs a figure and repeats it altering it subtly
var rec, reps, noMeasures; var rec, reps, noMeasures;
// this makes sure it the length of the section
//timeStampTotal = guitarSeq.slice(nil, 2).sum;
//altEndDur = sectionLen - timeStampSection;
//guitarSeq.last[2] = guitarSeq.last[2] + altEndDur;
guitarSeq = extendToBeat.value(guitarSeq, 8)[0]; guitarSeq = extendToBeat.value(guitarSeq, 8)[0];
timeStampTotal = guitarSeq.slice(nil, 2).sum; timeStampTotal = guitarSeq.slice(nil, 2).sum;
insertTS.value(guitarSeq, timeStampSectionStart, 0, true); insertTS.value(guitarSeq, timeStampSectionStart, 0, true);
@ -253,7 +246,6 @@ finalizeSeqs = {arg initSeq;
timeStampSection = 0; timeStampSection = 0;
timeStampSectionStart = guitarSeq.slice(nil, 2).sum; timeStampSectionStart = guitarSeq.slice(nil, 2).sum;
sectionLen = ((20 + 60.rand) / 0.08).asInteger.round(16);
lastDur = initSeq[index + 1][2]; lastDur = initSeq[index + 1][2];
state = 2; state = 2;
}); });
@ -267,12 +259,10 @@ finalizeAccompHigh = {arg sectionSeq;
accompHighSeq = []; accompHighSeq = [];
timeStamp = 0; timeStamp = 0;
secType = 0; secType = 0;
//sectionSeq.postln;
//(sectionSeq.select({arg item; item.last == true}).slice(nil, 0) * 0.08).do({arg secEnd, secIndex;
sectionSeq.do({arg secData; sectionSeq.do({arg secData;
var secEnd, freq, noRestCount, shortCount; var secEnd, freq, noRestCount, shortCount;
secEnd = secData[0] * 0.08; secEnd = secData[0];
freq = if(secType == 0, {62.midicps * 8}, {62.midicps * 8 * 6/5}); freq = if(secType == 0, {62.midicps * 8}, {62.midicps * 8 * 6/5});
if(secData.last, {secType = ((secType + 1) % 2)}); if(secData.last, {secType = ((secType + 1) % 2)});
noRestCount = 0; noRestCount = 0;
@ -288,25 +278,25 @@ finalizeAccompHigh = {arg sectionSeq;
insertRest = [true, noRestCount > 3].wchoose([1, 1].normalizeSum); insertRest = [true, noRestCount > 3].wchoose([1, 1].normalizeSum);
if(isShort, { if(isShort, {
sus = (1.5.rand + 1.5).round(0.16); sus = (20.rand + 20).round(2);
shortCount = shortCount + 1; shortCount = shortCount + 1;
}, { }, {
sus = (5.rand + 4).round(0.16); sus = (62.rand + 50).round(2);
shortCount = 0; shortCount = 0;
}); });
if(insertRest, { if(insertRest, {
dur = sus + (1.5.rand + 1.5).round(0.16); dur = sus + (20.rand + 20).round(2);
noRestCount = 0; noRestCount = 0;
}, { }, {
dur = sus + 0.5.round(0.16); dur = sus + 2;
noRestCount = noRestCount + 1; noRestCount = noRestCount + 1;
}); });
if((timeStamp + dur) < secEnd, { if((timeStamp + dur) < secEnd, {
accompHighSeq = accompHighSeq.add([freq, dur, sus.clip(0, dur)]); accompHighSeq = accompHighSeq.add([freq, dur, sus.clip(0, dur)]);
}, { }, {
dur = ((secEnd - timeStamp) + 3.rand).clip(0.16, 1000).round(0.16); dur = ((secEnd - timeStamp) + 38.rand).clip(2, 1000).round(2);
accompHighSeq = accompHighSeq.add([freq, dur, 0]); accompHighSeq = accompHighSeq.add([freq, dur, 0]);
}); });
timeStamp = timeStamp + dur; timeStamp = timeStamp + dur;
@ -342,16 +332,14 @@ finalizeAccompLow = {arg guitarSeq, sectionSeq;
if(section[1] == 1, { if(section[1] == 1, {
var curTime = section[0]; var curTime = section[0];
accompLowSeq = accompLowSeq.add([62.midicps / 4, 62.midicps / 8, curTime]); accompLowSeq = accompLowSeq.add([62.midicps / 4, 62.midicps / 8, curTime]);
curTime = curTime - ((4.rand + 4) / 0.08).round(4).asInteger; curTime = curTime - (50.rand + 50).round(4).asInteger;
accompLowSeq = accompLowSeq.add([64.midicps / 8, 64.midicps / 8, curTime]); accompLowSeq = accompLowSeq.add([64.midicps / 8, 64.midicps / 8, curTime]);
curTime = curTime - ((4.rand + 4) / 0.08).round(4).asInteger; curTime = curTime - (50.rand + 50).round(4).asInteger;
accompLowSeq = accompLowSeq.add([65.midicps / 8, 65.midicps / 8, curTime]); accompLowSeq = accompLowSeq.add([65.midicps / 8, 65.midicps / 8, curTime]);
}); });
if(section[1] == -1, { if(section[1] == -1, {
var curTime = section[0]; var curTime = section[0];
accompLowSeq = accompLowSeq.add([62.midicps / 4, 62.midicps / 4, curTime]); accompLowSeq = accompLowSeq.add([62.midicps / 4, 62.midicps / 4, curTime]);
//curTime = curTime - ((4.rand + 4) / 0.08).round(4).asInteger;
//accompLowSeq = accompLowSeq.add([69.midicps / 8, 69.midicps / 8, curTime]);
}); });
}); });

87
supercollider/cicc_sonifier.scd
Unescape Escape View File

@ -8,6 +8,10 @@
~accompLowBusA = Bus.audio(s, 1); ~accompLowBusA = Bus.audio(s, 1);
~accompLowBusB = Bus.audio(s, 1); ~accompLowBusB = Bus.audio(s, 1);
~guitarBus = Bus.audio(s, 1);
~accompHighBus = Bus.audio(s, 1);
~accompLowBus = Bus.audio(s, 1);
SynthDef(\masterPlayerControl, { SynthDef(\masterPlayerControl, {
arg sel = 0, arg sel = 0,
@ -19,9 +23,19 @@ SynthDef(\masterPlayerControl, {
guitarSigPanned, accompHighSigPanned, accompLowSigPanned, guitarSigPanned, accompHighSigPanned, accompLowSigPanned,
masterSig, imp; masterSig, imp;
guitarSig = SelectX.ar(sel, [In.ar(~guitarBusA), In.ar(~guitarBusB)]) * guitarVol; //guitarSig = SelectX.ar(sel, [In.ar(~guitarBusA), In.ar(~guitarBusB)]) * guitarVol;
accompHighSig = SelectX.ar(sel, [In.ar(~accompHighBusA), In.ar(~accompHighBusB)]) * accompHighVol; //accompHighSig = SelectX.ar(sel, [In.ar(~accompHighBusA), In.ar(~accompHighBusB)]) * accompHighVol;
accompLowSig = SelectX.ar(sel, [In.ar(~accompLowBusA), In.ar(~accompLowBusB)]) * accompLowVol; //accompLowSig = SelectX.ar(sel, [In.ar(~accompLowBusA), In.ar(~accompLowBusB)]) * accompLowVol;
guitarSig = In.ar(~guitarBus) * guitarVol;
accompHighSig = In.ar(~accompHighBus) * accompHighVol;
//accompLowSig = SelectX.ar(sel, [In.ar(~accompLowBusA), In.ar(~accompLowBusB)]) * accompLowVol;
accompLowSig = Mix.ar(
[
In.ar(~accompLowBusA) * EnvGen.kr(Env.asr(0.001, 1, 0.1), (sel + 1) % 2).poll,
In.ar(~accompLowBusB) * EnvGen.kr(Env.asr(0.001, 1, 0.1), sel)
]
) * accompLowVol;
guitarSigPanned = Pan2.ar(guitarSig * guitarMute, guitarPan); guitarSigPanned = Pan2.ar(guitarSig * guitarMute, guitarPan);
accompHighSigPanned = Pan2.ar(accompHighSig * accompHighMute, accompHighPan); accompHighSigPanned = Pan2.ar(accompHighSig * accompHighMute, accompHighPan);
@ -40,9 +54,10 @@ SynthDef(\masterPlayerControl, {
}).add; }).add;
SynthDef(\transport, {arg beat; SynthDef(\transport, {arg beat, fin;
SendReply.kr(Changed.kr(beat),'/measureClock', values: [beat]); SendReply.kr(Changed.kr(beat * (beat < fin)),'/measureClock', values: [beat]);
SendReply.kr(TDelay.kr(Changed.kr(beat), 0.25),'/measureClockReset', values: [beat]); SendReply.kr(TDelay.kr(Changed.kr(beat * (beat < fin)), 0.25),'/measureClockReset', values: [beat]);
SendReply.kr(Changed.kr(beat.poll < fin.poll),'/playNextSubsection');
}).add; }).add;
@ -50,25 +65,27 @@ SynthDef(\transport, {arg beat;
SynthDef(\karplus, {arg freq, gate = 1, amp = 0.5, bus; SynthDef(\karplus, {arg freq, gate = 1, amp = 0.5, bus;
Out.ar(bus, Out.ar(bus,
Pluck.ar(WhiteNoise.ar(0.1), Impulse.kr(0), 220.reciprocal, freq.reciprocal, 10, coef:0) * Pluck.ar(WhiteNoise.ar(0.1), Impulse.kr(0), 220.reciprocal, freq.reciprocal, 10, coef:0) *
Linen.kr(gate, doneAction: Done.freeSelf) * amp Linen.kr(gate, doneAction: 2) * amp
) )
}).add; }).add;
//~~~~accompaniment //~~~~accompaniment
SynthDef(\accompBass, {arg freq1 = 100, freq2 = 100, gate = 1, amp = 0.5, bus; SynthDef(\accompBass, {arg freq1 = 100, freq2 = 100, gate = 1, amp = 0.5, bus, cutoff = 0;
var bassDrop; var bassDrop;
bassDrop = Mix.ar([SinOsc.ar(freq1, 0, 0.5), SinOsc.ar(freq2, 0, 0.5)]) * bassDrop = Mix.ar([SinOsc.ar(freq1, 0, 0.5), SinOsc.ar(freq2, 0, 0.5)]) *
EnvGen.kr(Env.perc(0.1, 10, level: amp), Impulse.kr(0) + Changed.kr(freq2)); EnvGen.kr(Env.perc(0.1, 10, level: amp), Impulse.kr(0) + Changed.kr(freq2));
//EnvGen.kr(Env.cutoff(0.1, level: amp), cutoff);
Out.ar(bus, bassDrop) Out.ar(bus, bassDrop)
}).add; }).add;
//this is not releasing properly
SynthDef(\accompTreble, {arg freq, gate = 1, sustain, amp, bus; SynthDef(\accompTreble, {arg freq, gate = 1, sustain, amp, bus;
var treble; var treble;
treble = SinOsc.ar( treble = SinOsc.ar(
freq, 0, freq, 0,
EnvGen.kr(Env.sine(sustain, amp * 0.1), gate)); EnvGen.kr(Env.sine(sustain, amp * 0.1), gate, doneAction: 2));
Out.ar(bus, treble) Out.ar(bus, treble)
}).add; }).add;
@ -99,8 +116,14 @@ SynthDef(\droneOut, {arg gate, bus;
\bus, ~droneBus.index \bus, ~droneBus.index
); );
OSCFunc({ arg msg, time;
~play.set(\sel, 0);
~patterns[2].play(quant: 0)
},'/playNextSubsection', s.addr);
//~~~~gen music //~~~~gen music
~genPatterns = {arg guitarSeqIn, accompLowSeqIn, accompHighSeqIn, sectionSeqIn; ~genPatterns = {arg guitarSeqIn, accompLowSeqIn, accompHighSeqIn, sectionSeqIn, tempo = 0.08;
var calcSustains, genSectionSec, sectionLimits; var calcSustains, genSectionSec, sectionLimits;
//~~~~helper sus function //~~~~helper sus function
@ -130,34 +153,34 @@ SynthDef(\droneOut, {arg gate, bus;
//sectionSeq.postln; //sectionSeq.postln;
durSum = 0; durSum = 0;
resSeqs = []; resSeqs = [];
inSecs = switch(type, 0, {false}, 1, {false}, 2, {true});
mult = if(inSecs, {1}, {0.08});
seq.do({arg item; seq.do({arg item;
if(((durSum * mult) >= (startTime * 0.08)) && ((durSum * mult) < (endTime * 0.08)), { if((durSum >= startTime) && (durSum < endTime), {
var dur = (durSum * mult) - (startTime * 0.08); var dur = durSum - startTime;
if((resSeqs.size == 0) && (dur > 0), { if((resSeqs.size == 0) && (dur > 0), {
switch(type, switch(type,
0, {resSeqs = resSeqs.add([Rest(-1), Rest(-1), dur])}, 0, {resSeqs = resSeqs.add([Rest(-1), Rest(-1), dur])},
1, {resSeqs = resSeqs.add([Rest(-1), Rest(-1), dur])}, 1, {resSeqs = resSeqs.add([Rest(-1), Rest(-1), dur])},
2, {resSeqs = resSeqs.add([Rest(-1), dur.round(0.08), dur.round(0.08)])}) 2, {resSeqs = resSeqs.add([Rest(-1), dur, dur])})
}); });
resSeqs = resSeqs.add(item); resSeqs = resSeqs.add(item);
}); });
durSum = durSum + if(type == 2, {item[1]}, {item[2]}); durSum = durSum + if(type == 2, {item[1]}, {item[2]});
}); });
//if(type == 1, {resSeqs = resSeqs.add([0, 0, 16])}); //if(type == 1, {resSeqs = resSeqs.add([0, 0, 16])});
resSeqs.postln;
resSeqs resSeqs
}; };
sectionLimits = []; sectionLimits = [];
sectionSeqIn.slice(nil, 0).add(100000).doAdjacentPairs({arg a, b; sectionLimits = sectionLimits.add([a, b])}); sectionSeqIn.slice(nil, 0).add(100000).doAdjacentPairs({arg a, b; sectionLimits = sectionLimits.add([a, b])});
sectionLimits.collect({arg timePair, secIndex; sectionLimits.collect({arg timePair, secIndex;
var startTime, endTime, var startTime, endTime, endBeat,
guitarSecSeq, accompLowSecSeq, accompHighSecSeq, guitarSecSeq, accompLowSecSeq, accompHighSecSeq,
stringSeq, fretSeq, durSeq, susSeq, trigSeq, openStrings, pattern; stringSeq, fretSeq, durSeq, susSeq, trigSeq, openStrings, pattern;
startTime = timePair[0]; startTime = timePair[0];
endTime = timePair[1]; endTime = timePair[1];
endBeat = endTime - startTime;
guitarSecSeq = genSectionSec.value(guitarSeqIn, startTime, endTime, 0); guitarSecSeq = genSectionSec.value(guitarSeqIn, startTime, endTime, 0);
accompLowSecSeq = genSectionSec.value(accompLowSeqIn, startTime, endTime, 1); accompLowSecSeq = genSectionSec.value(accompLowSeqIn, startTime, endTime, 1);
@ -174,6 +197,11 @@ SynthDef(\droneOut, {arg gate, bus;
fretSeq = guitarSecSeq.slice(nil, 1); fretSeq = guitarSecSeq.slice(nil, 1);
durSeq = guitarSecSeq.slice(nil, 2); durSeq = guitarSecSeq.slice(nil, 2);
susSeq = calcSustains.value(stringSeq, durSeq); susSeq = calcSustains.value(stringSeq, durSeq);
susSeq.last.postln;
durSeq.last.postln;
accompLowSecSeq.last.postln;
accompHighSecSeq.last.postln;
//trigSeq = guitarSeq.slice(nil, 3); //trigSeq = guitarSeq.slice(nil, 3);
//~player = EventPatternProxy.new; //~player = EventPatternProxy.new;
pattern = EventPatternProxy.new; pattern = EventPatternProxy.new;
@ -181,39 +209,46 @@ SynthDef(\droneOut, {arg gate, bus;
Pbind( Pbind(
\instrument, \karplus, \instrument, \karplus,
\amp, 0.3, \amp, 0.3,
\dur, Pseq(durSeq * 0.08), \dur, Pseq(durSeq * tempo),
\sustain, Pseq(susSeq * 0.08), \sustain, Pseq(susSeq * tempo),
\freq, Pseq(stringSeq.collect({arg string, index; \freq, Pseq(stringSeq.collect({arg string, index;
if(string.isRest, {Rest()}, { if(string.isRest, {Rest()}, {
((62.midicps * openStrings[string]).cpsmidi + fretSeq[index]).midicps})})), ((62.midicps * openStrings[string]).cpsmidi + fretSeq[index]).midicps})})),
\bus, if(secIndex % 2 == 0, {~guitarBusA.index}, {~guitarBusB.index})), //\bus, if(secIndex % 2 == 0, {~guitarBusA.index}, {~guitarBusB.index})),
\bus, ~guitarBus.index),
if(accompLowSecSeq.size > 1, { if(accompLowSecSeq.size > 1, {
Pmono( Pmono(
\accompBass, \accompBass,
\amp, 0.5, \amp, 0.5,
\freq1, Pseq(accompLowSecSeq.slice(nil, 0)), \freq1, Pseq(accompLowSecSeq.slice(nil, 0)),
\freq2, Pseq(accompLowSecSeq.slice(nil, 1)), \freq2, Pseq(accompLowSecSeq.slice(nil, 1)),
\dur, Pseq(accompLowSecSeq.slice(nil, 2)) * 0.08, \dur, Pseq(accompLowSecSeq.slice(nil, 2)) * tempo,
//\cutoff, Pseq(accompLowSecSeq.drop(-1).size.collect({0}).add(1)),
\bus, if(secIndex % 2 == 0, {~accompLowBusA.index}, {~accompLowBusB.index})) \bus, if(secIndex % 2 == 0, {~accompLowBusA.index}, {~accompLowBusB.index}))
//\bus, ~accompLowBus)
}, { }, {
Pmono( Pmono(
\accompBass, \accompBass,
\amp, 0.5, \amp, 0.5,
\freq1, Pseq([accompLowSecSeq[0][0]]), \freq1, Pseq([accompLowSecSeq[0][0]]),
\freq2, Pseq([accompLowSecSeq[0][1]]), \freq2, Pseq([accompLowSecSeq[0][1]]),
\dur, Pseq([accompLowSecSeq[0][2]]) * 0.08, \dur, Pseq([accompLowSecSeq[0][2]]) * tempo,
//\cutoff, Pseq(accompLowSecSeq.drop(-1).size.collect({0}).add(1)),
\bus, if(secIndex % 2 == 0, {~accompLowBusA.index}, {~accompLowBusB.index})) \bus, if(secIndex % 2 == 0, {~accompLowBusA.index}, {~accompLowBusB.index}))
//\bus, ~accompLowBus)
}), }),
Pbind( Pbind(
\instrument, \accompTreble, \instrument, \accompTreble,
\freq, Pseq(accompHighSecSeq.slice(nil, 0)), \freq, Pseq(accompHighSecSeq.slice(nil, 0)),
\dur, Pseq(accompHighSecSeq.slice(nil, 1)), \dur, Pseq(accompHighSecSeq.slice(nil, 1) * tempo),
\sustain, Pseq(accompHighSecSeq.slice(nil, 2)), \sustain, Pseq(accompHighSecSeq.slice(nil, 2) * tempo),
\amp, 0.5, \amp, 0.5,
\bus, if(secIndex % 2 == 0, {~accompHighBusA.index}, {~accompHighBusB.index})), //\bus, if(secIndex % 2 == 0, {~accompHighBusA.index}, {~accompHighBusB.index})),
\bus, ~accompHighBus.index),
Pmono(\transport, Pmono(\transport,
\beat, Pseq((0..((endTime / 0.16).asInteger - 2))), \beat, Pseq((0..((endBeat / 8).asInteger))),
\dur, 0.08 * 8; \dur, tempo * 8,
\fin, ((endBeat / 8).asInteger).postln
) )
]); ]);
pattern pattern

4
supercollider/cicc_transcriber.scd
Unescape Escape View File

@ -137,7 +137,7 @@
if((i == (timeSigData[timeSigIndex][0] / 4)) && (g == 0),{ if((i == (timeSigData[timeSigIndex][0] / 4)) && (g == 0),{
timeSigData[timeSigIndex][0]; timeSigData[timeSigIndex][0];
curTimeSig = timeSigData[timeSigIndex][1]; curTimeSig = timeSigData[timeSigIndex][1];
if(curTimeSig.postln % 2 == 0, { if(curTimeSig % 2 == 0, {
lilyString = lilyString + "\n\\time " ++ (curTimeSig / 2).asInteger.asString ++ "/2\n"; lilyString = lilyString + "\n\\time " ++ (curTimeSig / 2).asInteger.asString ++ "/2\n";
}, { }, {
lilyString = lilyString + "\n\\time " ++ curTimeSig.asString ++ "/4\n"; lilyString = lilyString + "\n\\time " ++ curTimeSig.asString ++ "/4\n";
@ -279,7 +279,7 @@
durSeq = guitarSeq.slice(nil, 2); durSeq = guitarSeq.slice(nil, 2);
partData = [ partData = [
[stringSeq, fretSeq, durSeq, durSeq].flop, [stringSeq, fretSeq, durSeq, durSeq].flop,
accompHighSeq.collect({arg item; [item[0], (item[1] / 0.08).round.asInteger, (item[2] / 0.08).round.asInteger]}), accompHighSeq,
accompLowSeq accompLowSeq
]; ];
timeSigData = timeSigInsSeq; timeSigData = timeSigInsSeq;

Write Preview
Loading…
Cancel
Save