WIP: add stafftab examplesstafftab

4 files changed, 400 insertions, 0 deletions

diff --git a/stafftab-examples/example-score.ly b/stafftab-examples/example-score.ly
new file mode 100644
index 0000000000..9771f1275c
--- /dev/null
+++ b/stafftab-examples/example-score.ly
@@ -0,0 +1,67 @@
+\version "2.14.2"
+\include "stafftab.ly"
+
+\header {
+  copyright = "copyright"
+  title = "StaffTab™ for Lilypond"
+  subtitle = "Album title"
+  composer = "unknown"
+  instrument = "Grand Stick (Classic Tuning)"
+  arranger = "arr. Ricardo Wurmus"
+}
+
+% ------------------------------------------------------
+% Named music
+% ------------------------------------------------------
+
+melody = {
+  \relative f' {
+    c'8-1\4 d-2 e4-3 f\3 g8-4
+    <g-2\2 c,-3\3> ~ <g c,>
+  }
+}
+
+bass = {
+  \relative f {
+    c,8-1\8
+    d e f4 g
+  }
+}
+
+% ------------------------------------------------------
+% Score structure
+% ------------------------------------------------------
+
+\score {
+  % two joined staves
+  \new GrandStaff
+  <<
+    \new StaffTab {
+      \clef "treble_8"
+      \key g \major
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      % upper six strings of the classic 10-string tuning
+      \set Staff.stringTunings = #(stick-string-group
+                                   (ten-string-stick stick-classic-tuning)
+                                   'melody)
+
+      \new StickVoice {
+        \melody
+      }
+    }
+
+    \new StaffTab {
+      \clef "bass_8"
+      \key g \major
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      % lower six strings of the classic 10-string tuning
+      \set Staff.stringTunings = #(stick-string-group
+                                   (ten-string-stick stick-classic-tuning)
+                                   'bass)
+
+      \new StickVoice {
+        \bass
+      }
+    }
+  >>
+}
diff --git a/stafftab-examples/nyan.ly b/stafftab-examples/nyan.ly
new file mode 100644
index 0000000000..3694d6fea4
--- /dev/null
+++ b/stafftab-examples/nyan.ly
@@ -0,0 +1,85 @@
+\version "2.14.2"
+\include "stafftab.ly"
+
+\header {
+  copyright = "copyright"
+  title = "Nyan"
+  subtitle = "Nyan Nyan"
+  composer = "unknown"
+  instrument = "Grand Stick (Classic Tuning)"
+  arranger = "arr. Ricardo Wurmus"
+}
+
+% ------------------------------------------------------
+% Named music
+% ------------------------------------------------------
+
+melody = {
+  \relative f {
+    fis'8-1\2 gis-3\2
+    d16-2\3 dis-3\3 r16
+    b16-4\4 d-2\3 cis-1 b-4\4 r b8-4\4 cis-1\3
+    d16-2\3 r d-2\3 cis-1\3 b-4\4 cis-1\3 d-3\3 fis-1\2
+    gis-2\2 dis-1\3 fis-2\2 cis-1\3 dis-3\3 b-4\4 cis-1\3 b-4\4
+  }
+}
+
+bass = {
+  \relative f {
+    e,,8-4\7 e'-1\9
+    fis,-4\7 fis'-1\9
+    dis-4\8 dis'-1\10
+    gis,,-4\7 gis'-1\9
+    cis,-4\8 cis'-1\10
+    fis,,-4\7 fis'-1\9
+    b,-3\8 b-1\8
+    dis,-3\7 dis-1\7
+  }
+}
+
+% ------------------------------------------------------
+% Score structure
+% ------------------------------------------------------
+
+\score {
+  % two joined staves
+  \new GrandStaff
+  <<
+    \new StaffTab = upper {
+      \clef "treble_8"
+      \key b \major
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      % upper six strings of the classic 12-string tuning
+      \set Staff.stringTunings = #(stick-string-group stick-classic-tuning 'melody)
+
+      \new StickVoice {
+        \melody
+      }
+    }
+    \new StaffTab = lower {
+      \clef "bass_8"
+      \key b \major
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      % lower six strings of the classic 12-string tuning
+      \set Staff.stringTunings = #(stick-string-group stick-classic-tuning 'bass)
+
+      \new StickVoice {
+        \bass
+      }
+    }
+  >>
+  \midi {
+    \context {
+      \Staff
+      \remove "Staff_performer"
+    }
+    \context {
+      \Voice
+      \consists "Staff_performer"
+    }
+    \context {
+      \Score
+      tempoWholesPerMinute = #(ly:make-moment 150 4)
+    }
+  }
+}
diff --git a/stafftab-examples/proclamation.ly b/stafftab-examples/proclamation.ly
new file mode 100644
index 0000000000..3f39d1fb20
--- /dev/null
+++ b/stafftab-examples/proclamation.ly
@@ -0,0 +1,120 @@
+\version "2.19.16"
+\include "stafftab.ly"
+
+\header {
+  copyright = "copyright"
+  title = "Proclamation"
+  subtitle = "The Power and the Glory"
+  composer = "Gentle Giant"
+  instrument = "Grand Stick (12 string matched reciprocal tuning)"
+  arranger = "arr. Ricardo Wurmus"
+}
+
+
+% ------------------------------------------------------
+% Melody
+% ------------------------------------------------------
+intro = \relative f' {
+  \repeat volta 4 {
+    r8
+    < d'-1\1 a-1\2 >16-> b-3\2 f-2\3 r
+    < a-1\2 e-1\3 > f-2\3 r d-4\4 r
+    < as'-1\2 b,-3\4 >16 r8
+    < e-1\3 as,-3\5>16 r
+  }
+}
+
+themeA = \relative f' {
+  \intro
+  \repeat volta 4 {
+    < e'-2\1 a,-1\2 >16 b-3\2 e,-1\3 r
+    < d-1\3 a-1\4 > e-2\3 c-3\4 < b-3\4 g'-1\2 >8 r8
+    < des'-1\1 e,-3\3 >16 r8
+    < a-1\2 des,-3\4>16 r16
+  }
+}
+
+fiddly = \relative f' {
+  \repeat volta 3 {
+    r16 < g-1\2 c-1\1 > a-2\2-> e-3\3-.
+    < d-1\3 g-1\2 >-> e-2\3 c-3\4 r
+
+    < des-2\3 ges-2\2 >-> ges,-1\4 a-3\4
+    < des-2\3 ges-2\2 > ges,-1\4 a-3\4
+    < des-2\3 ges-2\2 > ges,-1\4
+  }
+}
+fiddlyEndA = \relative f' {
+  r16 < g-1\2 c-1\1 > a-2\2-> e-3\3-.
+  < d-1\3 g-1\2 > e-2\3 c-3\4 %r
+  < f-2\2 a,-4\4 >-> c-1\3 f,-4\5
+  < a-1\4 es'-2\3 > b-3\4 ges8-2\5-. ges16
+
+%%  r8 r r r16
+  a16-1\4  ~ a16 b16-3 d-1\3 g-2\2 des-1\3 ges-2\2 r16
+  a,16-1\4 ~ a16 b16-3 d-1\3 g-2\2 c-1\1 as-2\2 r % maybe as-3\2 instead
+}
+
+melody = {
+  \intro
+  \themeA
+  \fiddly
+  \fiddlyEndA
+}
+
+% ------------------------------------------------------
+% Bass
+% ------------------------------------------------------
+bass = {
+  \relative f {
+    d,4-4\8 d'4.-1\10
+  }
+}
+
+
+%% ------------------------------------------------------
+%% Scores
+%% ------------------------------------------------------
+\score {
+  \new GrandStaff
+  <<
+    \new StaffTab {
+      \clef "treble_8"
+      \key d \minor
+      \set Staff.stringTunings = #(stick-string-group stick-matched-reciprocal-tuning 'melody)
+      \new StickVoice { \melody }
+    }
+
+    \new StaffTab {
+      \clef "bass_8"
+      \key d \minor
+      \set Staff.stringTunings = #(stick-string-group stick-matched-reciprocal-tuning 'bass)
+      \new StickVoice { \bass }
+    }
+  >>
+  \layout {}
+}
+
+\score {
+  \new GrandStaff
+  <<
+    \new StaffTab {
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      \new StickVoice { \unfoldRepeats \melody }
+    }
+
+    \new StaffTab {
+      \set Staff.midiInstrument = #"electric bass (finger)"
+      \new StickVoice { \unfoldRepeats \bass }
+    }
+    \drums {
+      \unfoldRepeats \repeat volta 14 { bd8 bd bd bd }
+    }
+  >>
+  \midi {
+    \context {
+      \Score
+      tempoWholesPerMinute = #(ly:make-moment 45 4)
+    }
+  }
+}
diff --git a/stafftab-examples/underground.ly b/stafftab-examples/underground.ly
new file mode 100644
index 0000000000..dea58a142f
--- /dev/null
+++ b/stafftab-examples/underground.ly
@@ -0,0 +1,128 @@
+\version "2.14.2"
+\include "stafftab.ly"
+
+\header {
+  copyright = "copyright"
+  title = "Underground"
+  subtitle = "Civilian (1980)"
+  composer = "Gentle Giant"
+  instrument = "Grand Stick (Classic Tuning)"
+  arranger = "arr. Ricardo Wurmus"
+}
+
+% melody ----------------------------------------------------------------------
+verseTheme = {
+    < b-3\4 e-3\3 >8
+    < g'-1\2 d-1\3 >16 r8 < fis-1\2 des-1\3 >16 r8
+    e,16-1\5 fis-3 g-4 a8.-1\4
+    < b-3\4 e-3\3 >8 ~
+  }
+
+melody = {
+  \relative c' {
+
+    % intro
+    \mark \markup { \box \bold Intro }
+    r1
+    \repeat volta 2 {
+      r1 r1 r1 r1
+    }
+    r1
+
+    r2..
+    < b-3\4 e-3\3 >8 ~
+
+    \repeat volta 2 {
+      \verseTheme
+      \verseTheme
+      \verseTheme
+      \verseTheme
+    }
+
+    %< b-3\4 e-3\3 >
+  }
+}
+
+% bass ------------------------------------------------------------------------
+bassTheme = {
+  e8
+  e,-1\7 fis-2 g16-1 g-2 a8-4 cis-1\8 d-2
+  e-4\8~
+}
+bassThemeNoTie = {
+  e8
+  e,-1\7 fis-2 g16-1 g-2 a8-4 cis-1\8 d-2
+  e-4\8
+}
+
+bass = {
+  \relative f, {
+
+    % intro
+    r2..
+    e8-4\8 ~
+
+    \repeat volta 2 {
+      \bassTheme
+      \bassTheme
+      \bassTheme
+      \bassTheme
+    }
+    e
+    e,8-1\7 e e e e e e
+    e\staccato r8 r4 r4.
+
+    % verse
+    e'8-4\8 ~
+    \repeat volta 2 {
+      \bassTheme
+      \bassTheme
+      \bassTheme
+      \bassTheme
+      \bassTheme
+    }
+    \alternative {
+      {\bassTheme}
+      {\bassThemeNoTie}
+    }
+    a16\9 b a g fis8\staccato
+    fis16 g fis e c8\8 ~ c4
+
+    % "un-der-ground!"...
+
+  }
+}
+
+% ------------------------------------------------------
+% Score structure
+% ------------------------------------------------------
+
+\score {
+  % two joined staves
+  \new GrandStaff
+  <<
+    \new StaffTab {
+      \clef "treble_8"
+      \key g \major
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      % upper six strings of the classic 12-string tuning
+      \set Staff.stringTunings = #(stick-string-group stick-classic-tuning 'melody)
+
+      \new StickVoice = melody {
+        \melody
+      }
+    }
+
+    \new StaffTab {
+      \clef "bass_8"
+      \key g \major
+      \set Staff.midiInstrument = #"electric guitar (jazz)"
+      % lower six strings of the classic 12-string tuning
+      \set Staff.stringTunings = #(stick-string-group stick-classic-tuning 'bass)
+
+      \new StickVoice = bass {
+        \bass
+      }
+    }
+  >>
+}