Jump to content

User talk:Johnrdorazio: Difference between revisions

User talk:Johnrdorazio (view source)

Revision as of 20:46, October 12, 2021

14,163 bytes added ,  2 years ago
→‎Test Score tag in raw lilypond format, with title
VisualWikitext
 
(9 intermediate revisions by the same user not shown)
Line 9: Line 9:
== Test Score tag ==
== Test Score tag ==


<score sound="1">
{ \new PianoStaff << \new Staff \relative c'' { \set Staff.midiInstrument = #"violin" \clef treble \tempo 8 = 126 \time 3/16 r16 <d c a fis d>\f-! r16\fermata | \time 2/16 r <d c a fis d>-! \time 3/16 r <d c a fis d>8-! | r16 <d c a fis d>8-! | \time 2/8 <d c a fis>16-! <e c bes g>->-![ <cis b aes f>-! <c a fis ees>-!] } \new Staff \relative c { \set Staff.midiInstrument = #"violin" \clef bass \time 3/16 d,16-! <bes'' ees,>-! r\fermata | \time 2/16 <d,, d,>-! <bes'' ees,>-! | \time 3/16 d16-! <ees cis>8-! | r16 <ees cis>8-! | \time 2/8 d16\sf-! <ees cis>-!->[ <d c>-! <d c>-!] } >> }
</score>
== Test Score tag in raw lilypond format, with title ==
<score raw="1" lang="lilypond" sound="1">
<score raw="1" lang="lilypond" sound="1">
  \header {
\version "2.10.10"
    tagline = "" % no footer
\header {
    title = "Good Morning"
 
    composer = "trad."
title="WALL STREET \"RAG\""
  }
composer="SCOTT JOPLIN"
  \relative g' {
mutopiatitle = "Wall Street Rag"
    \key g \major \time 3/4
mutopiacomposer = "JoplinS"
     \partial 4 d
mutopiainstrument = "Piano"
    e d g
date = "1909"
    fis2 d4
source = "Seminary Music Co. 112 W. 38th N.Y."
    e d a'
style = "Jazz"
    g2 d4
maintainer = "Benjamin Bloomfield"
    d' b g
maintainerEmail = "bhb123@gmail.com"
    fis e c'
copyright = "Public Domain"
    b g a
lastupdated = "2008/September/12"
    g2 \fermata
 
    \bar "|."
footer = "Mutopia-2008/09/19-1543"
  }
}
  \addlyrics {
 
     Good mor -- ning to you,
    stemExtend = \once \override Stem #'length = #22
    Good mor -- ning to you,
    noStem = \once \override Stem #'length = #0
    Good mor -- ning dear chil -- dren,
    noFlag = \once \override Stem #'flag-style = #'no-flag
     Good mor -- ning to all.
 
  }
 
  </score>
\paper {
between-system-padding = #0
between-system-space = #0.1
ragged-last-bottom=##f
top-margin = 1\mm
bottom-margin = 1\mm
between-title-space = 0\mm
page-top-space = 1\mm
}
 
    upper = \relative c'' {
      \clef treble
      \key c \major
      \time 2/4
\once \override TextScript #'extra-offset = #'( -3 . 2 )      
c8.[^\markup \bold "Very Slow March Time" a16] d,8[ c16 d] | %1
e8 f4 g8 | %2
e8[ d16 e] f[ a8 af16] | %3
g4 <g b g'>8-> r | %4
\break
\repeat volta 2 {
\once \override TextScript #'extra-offset = #'( -4 . 3.0 )
<e c>16[\(^\markup \smaller { "Panic in Wall Street, Brokers feeling melancholy" } <f d> <g e> <a ds,>]\)~ <a ds,>[ <fs ds'>\( <g e'> <e c'>]\) | %5
<< {\stemUp d'8[ d16 e] d16[\( c d, f]\) } \\
    {\stemDown f4~ f8[ c] } >> | \stemNeutral %6
<e c>16[\( <f d> <g e> <a ds,>]\)~ <a ds,>[ <fs ds'>\( <g e'> <e c'>]\) | %7
<< {\stemUp d'8[ e16 d] c16[\( d e g,]\) } \\
    {\stemDown f4~ f8[ e] } >> %8
 
\break
<< { \stemUp gs16[\( e b' e]\)~ e[\( f] e8]\) } \\
    { \stemDown e,8.[ gs16]~ gs8[ gs] } >> | %9
<< { \stemUp a16[\( e c' e]\)~ e[( f e8]) } \\
    { \stemDown e,8.[ <a c>16]~ <a c>8[ <a c>] } >> | %10
<< { \stemUp e'16[\( d fs b]\)~ \stemDown <b fs d>[\( <c fs, e> <b fs d> <a fs c>]\) } \\
    { \stemDown c,8.[ <d fs>16]~ \noStem \noFlag
<d fs> s8. } >> | %11
<b f'! a>16[\( g' f d] <e g,f>[ d g, f]\) %12
 
\break
<e c>16[\( <f d> <g e> <a ds,>]\)~ <a ds,>[ <fs ds'>\( <g e'> <e c'>]\) | %13
<< {\stemUp d'8[ d16 e] d16[\( c d, f]\) } \\
    {\stemDown f4~ f8[ c] } >> | \stemNeutral %14
<e c>16[\( <f d> <g e> <a ds,>]\)~ <a ds,>[ <fs ds'>\( <g e'> <e c'>]\) | %15
<< {\stemUp d'8[ c16 d] c8[ c16 d] } \\
    {\stemDown f,4~ f8[ f] } >> %16
 
\break
<< {\stemUp e'16[\( c g a]\)~ <a cs,>[\( <a cs e a> <bf cs e bf'> <a cs e a>]\) } \\
  {\stemDown e8.[ cs16]~ \noFlag \stemUp cs s8. } >> | %17
\stemNeutral
<e' fs c'! e>8[ <d fs c' d>16 <a c fs a>]~ <a c fs a>[\( <gs gs'> <a fs' a> <c fs c'>]\) | %18
<e g e'>8[ <d f! d'>16 <a' f' a>]~ <a f' a>[\( <g e' g> <e g e'> <d f d'>]\) | %18
}
\alternative {
{ <c e c'>4~ <c e c'>16[ g( d ds]) }
{ << { \stemDown <c' e c'>4~ <c e c'>8[ <c c'>16 <bf bf'>] } \\
    { \stemUp s4. e8 } >> }
}
\stemNeutral
 
\pageBreak
%Page Two
\repeat volta 2 {
\once \override TextScript #'extra-offset = #'( -2 . 1.5 )
<a, c f a>8[^\markup \smaller { "Good times coming." } <a c f a>] <c f a c>[ <c fs a c>] | %22
<c g' c>4
<< { \stemUp b'8[( a]) } \\
  { \stemDown <fs c>4 } >> | %23
<< { \stemUp a8.[ a16] a[( g b a]) } \\
  { \stemDown <f! c>4 <f b,> } >> | %24
<< { \stemUp a8.[ a16] a[( g) <c c,> <bf bf,>] } \\
  { \stemDown <c, e>4 <c e>8[ e] } >> | %25
\stemNeutral
<a, c f a>8[ <a c f a>] <c f a c>[ <c fs a c>] | %26
<c g' c>4
<< { \stemUp b'8[( a]) } \\
  { \stemDown <fs c>4 } >> | %27
%\break
\stemNeutral
<c f! a>8[ <c e a>]
<< { \stemUp gs'8.[( b16]) } \\
  { \stemDown <d, e>4 } >> | %28
\stemNeutral
<c e a>4
<< { \stemUp a'16[( g) <c c,> <bf bf,>] } \\
  { \stemDown <c, e>8[ e] } >> | %29
\stemNeutral
<a, c f a>8[ <a c f a>] <c f a c>[ <c fs a c>] | %30
<c g' c>4
<< { \stemUp b'8[( a]) } \\
  { \stemDown <fs c>4 } >> | %31
<< { \stemUp a8.[ a16] a[( g b a]) } \\
  { \stemDown <f! c>4 <f b,> } >> | %32
 
%\break
<< { \stemUp a8.[ a16] a[( g) <c, c,> <d d,>] } \\
  { \stemDown <c e >4 <c e>8 s } >> | %33
\stemNeutral
<ds, a' c ds>4 <fs a c fs> | %34
<a c ds a'>2 | %35
<< { \stemUp <a a'>8[( <g g'>]) e'16[( d8 e16]) } \\
  { \stemDown <c e>4 <g b>16[ <f b>8.] } >> | %36
\stemNeutral
} % end repeat
\alternative {
{ <e c'>8[ <e e'>16 <f f'>] <fs fs'>[ <g g'> <c e c'> <bf e bf'>] }
%\break
{ <c e,>4~ <c e,>8
  << { \stemUp g16[( gs]) } \\
    { \stemDown <e bf>8 } >> }
}
 
\key f \major
\repeat volta 2 {
\once \override TextScript #'extra-offset = #'( -4 . 1.0 )
<f a>16[^\markup \smaller { "Good times have come." } <g bf> <a c> <f a>]~ <f a>[( <a f c> <a f d>8]) | %39
<< { \stemUp <f a>16[ <c f a> <cs f a> <d f a>]~ <d f a>[( <ef f a>8 <d f a>16])~ | %40
<f a>16[( g f <f g>])~ <df f g>[( <df f,> <df g,> <c a>]) | %41
r <f' a>[ <e a> <d a'>]~ <d a'> r16 r8 | } \\ %42
  { \stemDown s4. s16 \noStem \noFlag d,16~ | %40
d8.[ df16]~ \noStem \noFlag df s8 \noStem \noFlag \stemUp <c a>16~ | %41
\stemDown <c a>4~ <c a>16[ <bf' d>( <a c> <g bf>]) | } >> %42
 
%\break
\stemNeutral
<f a>16[ <g bf> <a c> <f a>]~ <f a>[( <a f c> <a f d>8]) | %43
<< { \stemUp <f a>16[ <c f a> <cs f a> <d f a>]~ <d f a>[ <c ds a'>8 <c e a>16]~ | %44
a'[( g fs g]) } \\
  { \stemDown s4. s16 \noStem \noFlag \stemUp <e c>16~ | %43
\stemDown <e c>4 } >>
\stemNeutral
<f g b>16[ <g b e>8 <f b d>16] | %44
<< { \stemUp d'8[( c]) g[( gs]) } \\
  { \stemDown <e bf'!>4 <e bf> } >> | %45
<f a>16[ <g bf> <a c> <f a>]~ <f a>[( <a f c> <a f d>8]) | %46
 
\pageBreak
% Page 3
 
<< { \stemUp <f a>16[ <c f a> <cs f a> <d f a>]~ <d f a>[ <ef f a>8 <d f a>16]~ | %48
<f a>16[ g f <f g>]~ <d f g>8[ <d e gs>] |} \\ %49
{ \stemDown s4.. \noStem \noFlag d16~ |
d8.[ d16]~ \noStem \noFlag d8 s8 | } >>
<< { \stemUp r16 <a' cs>[ <cs e> <cs a'>]~ <cs a'> r16 r8 } \\
  { \stemDown <a e cs>4~ <a e cs>16[ <e cs> <a cs,>8] } >> |
\stemNeutral
<a d,>8[ <d c fs,>16 <ef c fs,>]~ <ef c fs,>[ d <d fs bf> <c fs a>] |
<< { \stemUp <f! a>[ d f <f g>]~ <f g>[ a <f g>8] } \\
  { \stemDown b,8.[ b16]~ b8[ b] } >> |
 
%\break
<< { \stemUp a'16[ g e c']~ c[ bf d, e] } \\
  { \stemDown <c e>8.[ <c e>16]~ <c e>8[ bf] } >> |
} % end repeat
\alternative {
{ << { \stemDown \noStem \noFlag f'4~ \stemUp f16[( f, g gs]) } \\
{ \stemDown <a c f>4~ <a c>16[ a, <bf e>8] \stemNeutral } >> }
{ <a' c f>4~ <a c f>8 d16[(-^ ds]) }
}
 
\repeat volta 2 {
\once \override TextScript #'padding = #4
e16[^\markup \smaller { "Listening to the strains of genuine negro ragtime," } <g bf c d> d ds] e[ <g bf c d!> d ds] |
e[ <g bf c d>8 <a bf c>16]~ <a bf c>[ g( d e]) |
 
\break
\once \override TextScript #'extra-offset = #'( -8.5 . 2.5 )
f[^\markup \smaller { "brokers forget their cares." } <a c d> d, e] f[ <a c d> d, e] |
f[ <g a c>8 <g a c>16]~ <g a c>[ f( e f]) |
fs[ <a c ef> e! es] fs[ <a c ef!> e! <fs a d>] |
<g bf d>[ <a bf d>8 <a bf d>16]~ <a bf d>[ g( a bf]) |
b[ <d e> gs, a] b[ <d e> gs, <b d e>] |
 
%\break
<a c e>4 <c fs, ds c>8[ d,16( ds]) |
e16[ <g bf c d> d ds] e[ <g bf c d!> d ds] |
e[ <g bf c d>8 <a bf c>16]~ <a bf c>[ g( d e]) |
f[ <a c d> d, e] f[ <a c d> d, e] |
f[ <g a c>8 <g a c>16]~ <g a c>[ f( e f]) |
 
fs[ <a c ef> e! es] fs[ <a c ef!> e! <fs a d>] |
<g bf d>[ <a bf d>8 <a bf d>16]~ <a bf d>[ <g bf d> <gs b f'>8-^] |
<< { \stemUp <c f>16[^^ d c a] a[ g8 e'16] } \\
  { \stemDown a,4 <e c>16[ <e bf>8.] \stemNeutral } >> |
}
\alternative {
{ <a, c f>4~ <a c f>8[ d16-^ ds] }
{ <a c f>4 <f' a c f>8 r \bar "|." }
}
\pageBreak
    }
   
    lower = \relative c' {
      \clef bass
      \key c \major
      \time 2/4
      
c8.[ a16] d,8[ c16 d] | %1
e8 f4 g8 | %2
e8[ d16 e] f[ a8 af16] | %3
g4 <g g,>8-> r | %4
 
%\break
<< { \stemUp g8.[\( fs16] c'8[ g]\) } \\
  { \stemDown c,2 } >> | %5
<< { \stemUp af'4. af8 } \\
  { \stemDown c,2 } >> | %6
<< { \stemUp g'8.[\( fs16] c'8[ g]\) } \\
  { \stemDown c,2 } >> | %7
\stemNeutral <c af'>4. <c g'>8 | %8
 
%\break
<b b'>8[ <gs' d' e>] <e e,>[ <d d,>] |
<c c,>[ <a' c e>] <a a,>[ <g g,>] | %10
<fs fs,>[ <fs c' d>] <d d,>[ <fs c' d>] |
<g g,>[ <g b d>] b,[ <g' b d>] | %12
 
%\break
<< { \stemUp g8.[\( fs16] c'8[ g]\) } \\
  { \stemDown c,2 } >> | %13
<< { \stemUp af'4. af8 } \\
  { \stemDown c,2 } >> | %14
<< { \stemUp g'8.[\( fs16] c'8[ g]\) } \\
  { \stemDown c,2 } >> | %15
<< { \stemUp af'4. af8 } \\
  { \stemDown c,2 } >> | %16
 
%\break
<< { \stemUp g'8[ bf8] } \\
  { \stemDown c,4 } >>
<a a'>8[ <g g'>] | %17
<fs fs'>[ <fs' c' d>] <d d'>[ <c c'>] | %18
<b b'>[ <g' b f'!>] <g g,>[ <g b f'>] | %19
 
<c c,>[ g] c,[ <g' b>] | %20
<c c,>[ g] c,4-- | %21
 
 
\pageBreak
% Page Two
 
<f f,>8[ <a c f>] <f f,>[ <ds ds,>] | %22
<< { \stemUp e[ <g c e>] ef[ <c' ef fs>] | %23
d,[ <c' d f!>] g,[ <b' d f>] | %24
c,[ <g' c e>] } \\
  { \stemDown <e e,>4 <ef ef,> | %23
<d d,> <g, g,> | %24
<c c,> } >>
\stemNeutral
<e e,>8[ <c c,>] | %25
<f f,>[ <a c f>] <f f,>[ <ds ds,>] | %26
<< { \stemUp e8[ <g c e>] ef[ <c' ef fs>] } \\
  { \stemDown <e, e,>4 <ef ef,> } >> %27
\stemNeutral
 
%\break
<d d,>8[ <e e,>]
<< { \stemUp e[ <gs d' e>] } \\
  { \stemDown <e e,>4 } >> | %28
<a a,>16[ e c a] <c c,>4 | %29
<f f,>8[ <a c f>] <f f,>[ <ds ds,>] | %30
<< { \stemUp e[ <g c e>] ef[ <c' ef fs>] | %31
d,[ <c' d f!>] g,[ <b' d f>] | %32
c,[ <g' c e>] e[ <e g>] } \\
  { \stemDown <e e,>4 <ef ef,> | %31
<d d,> <g, g,> | %32
<c c,> <e e,> } >> | %33
\stemNeutral
fs,16[( a fs'8]) ds16[( fs ds'8]) | %34
fs16[\( ds c a] ds c a fs]\) | %35
<< { \stemUp g8[ <c e>] g,[ g'] } \\
  { \stemDown g4 g,] } >> | %36
\stemNeutral
<c g'>8 r r <c c,> | %37
 
%\break
<< { \stemUp g'4~ g8 r } \\
  { \stemDown c,8[ g] c,4 } >> | %38
 
% Good times have come
\key f \major
<< { \stemUp <c' a'>8[ <c f a>] c,[ <c' f>] |
f,[ <c' f>] c,[ <c' f>] } \\
  { \stemDown f,4 c | f c } >> |
\stemNeutral
bf8[( bf']) bf,[( bf']) |
<< { \stemUp f8[ <c' f a>] c,[ <c' e bf'>] |
<c a'>[ <c f a>] c,[ <c' f>] |
f,[( f']) fs,[( fs']) |
g,[( g']) g,[( g']) | } \\
  { \stemDown f,4 c | f c | f fs | g g } >>
\stemNeutral
c4( <c c,>) |
<< { \stemUp <c a'>8[ <c f a>] c,[ <c' f>] |
f,[ <c' f>] c[ <f a>] } \\
  { \stemDown f,4 c | f c' } >> |
%Page 3
\stemNeutral
bf8[ d] <bf bf'>[ <bf bf'>] |
<< { \stemUp a'8[ <a e>] g[ <a e>] } \\
  { \stemDown <a a,>4 <g g,> } >> |
<fs fs,>8[ <d fs c'>] <d d,>[ <fs c' d>] |
<g g,>[ <g b d>] <d d,>[ <ds ds,>] |
 
%\break
<e e,>[ <bf'! c e>] <c, c,>[ <bf' c e>] |
 
%alternative 1
<f f,>8[ <e e,>16 <d d,>] <c c,>4 |
 
%alternative 2
<f f,>8[ a,16 d] <f f,>8[ <fs fs,>]-^ |
 
% Listening to the strains of genuine negro ragtime, brokers forget their cares.
<g g,>8[ <bf c e>] <c, c,>[ <bf' c e>] |
<g g,>[ <bf c e>] <c c,>[ <bf bf,>] |
 
%\break
<a a,>[ <a c f>] <c, c,>[ <a' c f>] |
<f f,>[ <a c f>] <c c,>[ <a c f>] |
<a a,>[ <fs c' d>] <d d'>[ <c c'>] |
<bf bf'>[ <g' bf d>] <g g,>[ <g bf d>] |
<gs gs,> <b d e>] <e, e,>[ <gs d' e>] |
 
%\break
<a a,>[ <a c e>] <a a,>[ <fs fs,>] |
<g g,>8[ <bf c e>] <c, c,>[ <bf' c e>] |
<g g,>[ <bf c e>] <c c,>[ <bf bf,>] |
<a a,>[ <a c f>] <c, c,>[ <a' c f>] |
<f f,>[ <a c f>] <c c,>[ <a c f>] |
 
%\break
<a a,>[ <fs c' d>] <d d'>[ <c c'>] |
<bf bf'>[ <g' bf d>] <d d'>[ <df df'>]-^ |
<c c'>[-^ <a' c f>] <c, c,>[ <bf' c e>] |
 
%alternative 1
<f f,>8[ a,16 c] <f f,>8[-^ <fs fs,>] |
 
%alternative 2
<f f,>[ c] f,8-^ r
    }
   
    dynamics = {
s2\mf | s2 * 3 |
s2\mf | s2 * 3 |
s2 *2 | s4.\< s8\! | s4 s8.\> s16\! |
s2\mf | s2 * 3 |
s2 * 5 |
 
%Page 2
s2\f | s2 * 5 |
s2 * 5 |
s2 * 5 |
s2 | s2\mp | s2 * 3 |
s2 | s4 s8.\< s16\! | s4.\< s16 s16\! | s4 s8\> s8\! | s32 s4...\mp |
 
%Page 3
s2 | s4 s8\< s8\! | s2 | s2\mf | s2 |
s2 | s4 \once \override DynamicLineSpanner #'padding = #3.5 s8.\> s16\! | s2 | s2\mf | s2 |
s2 * 4 | s4..\< s16\! |
s2\f | s32 s4...\mf | s2 * 3 |
s2 * 5 |
    }
   
    pedal = {
%      s2\sustainDown s2\sustainUp
    }
   
    \score {
      \new PianoStaff <<
        \new Staff = "upper" \upper
        \new Dynamics = "dynamics" \dynamics
        \new Staff = "lower" <<
          \clef bass
          \lower
        >>
        \new Dynamics = "pedal" \pedal
      >>
      \layout {
        \context {
          \type "Engraver_group"
          \name Dynamics
          \alias Voice % So that \cresc works, for example.
          \consists "Output_property_engraver"
   
          \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
          pedalSustainStrings = #'("Ped." "*Ped." "*")
          pedalUnaCordaStrings = #'("una corda" "" "tre corde")
   
          \consists "Piano_pedal_engraver"
          \consists "Script_engraver"
          \consists "Dynamic_engraver"
          \consists "Text_engraver"
      
          \override TextScript #'font-size = #2
          \override TextScript #'font-shape = #'italic
          \override DynamicText #'extra-offset = #'(0 . 2.5)
          \override Hairpin #'extra-offset = #'(0 . 2.5)
   
          \consists "Skip_event_swallow_translator"
   
          \consists "Axis_group_engraver"
        }
        \context {
          \PianoStaff
          \accepts Dynamics
          \override VerticalAlignment #'forced-distance = #7
        }
      }
    }
    \score {
      \new PianoStaff <<
        \new Staff = "upper" << \upper \dynamics >>
        \new Staff = "lower" << \lower \dynamics >>
        \new Dynamics = "pedal" \pedal
      >>
      \midi {
        \context {
          \type "Performer_group"
          \name Dynamics
          \consists "Piano_pedal_performer"
        }
        \context {
          \PianoStaff
          \accepts Dynamics
        }
      }
    }
</score>


== Test syntax highlighting ==
== Test syntax highlighting ==
Retrieved from "https://en.seminaverbi.bibleget.io/wiki/Special:MobileDiff/26362...26372"