exprosic

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

向往已久的lilypond

现在开始动笔

 

学到的东西:

\header {tagline = ##f}   % 去掉默认的末页页脚

\accidentalStyle piano    % 自动添加还原号

                    [ ]   % 手动控制符尾

               \nobreak   % 控制小节长度 (笨)

                 d\rest   % 控制休止符高度

                     R1   % 居中的全音符

              \arpeggio   % 琶音

\with {\consists "Span_arpeggio_engraver"} ... \set Staff.connectArpeggios=##t % 连接同拍不同声部的琶音号

\ottava #1 \set Staff.ottavation=#"8" ... \ottava #0 % 高八度

               \fermata   % 延长号

              \bar "|."   % 结尾小节线

 

效果:

% 为毛 cnblos 连 tex 高亮都没有 ...

% 此为 frescobaldi 高亮

 

\version"2.18.0"

\header {

  tagline = ##f

}

 

\score {

  \newPianoStaff <<

    \newStaff \with {\consists "Span_arpeggio_engraver"}\relative c' {

      \cleftreble

      \time2/2

      \key g \major

      \accidentalStyle piano

      R1\p

      | \noBreak

      R1

      | \noBreak

      d4.^> r8

      <g b>4. r16 <c e>(

      |

      <b d>2.) r8 r16 <e c'>(

      | \noBreak

      <d b'>1\>

      | \noBreak

      <b g'>2)\! r

      |

     

      <<

        \set Staff.connectArpeggios = ##t

        {

          fis'=''2...( e16 | \noBreak

          a2)\arpeggio s | \noBreak

          fis=''2...( e16 |

          a2)\arpeggio s | \noBreak

        }

        \\

        {

          <g,=' a cis>1 | <fis d'>4\arpeggio r r2 |

          <g=' a cis>1 | <fis c'>4\arpeggio r r2 |

        }

      >>

      |

      r4 r8 r16 <a'='' c>(   <c, e>4.) r16 <c d>(

      | \noBreak

      d,4.) r8 <g b>4. r16 <c e>(

      |

      <b d>2.) r8 r16 <e c'>(

      | \noBreak

      <d b'>1\>

      | \noBreak

      <b g'>2 \!) r

      |

     

      <<

        {

          f'=''2\( f4.. f16

          | \noBreak

          f4..\grace{f16( g)} f16 e4.. dis16

          | \noBreak

          <c e>1~

          |

          <c e>\)

          | \noBreak

         

          c2\( c4.. c16

          | \noBreak

          c2... b16

          |

          b1

          | \noBreak

          a2... b16

          | \noBreak

          <d, g>1\arpeggio\)

          |

          fis2...\( g16

          | \noBreak

          g1\)

          | \noBreak

        }

        \\

        {

          b='1

          |

          b1

          |

          <e, g>1~

          |

          <e g>1

          |

          <e g>1

          |

          <e g>1

          |

          <e g>1~

          |

          <e g>1

          |

          a,4\arpeggio c\rest e2\rest

          |

          <c d>1

          |

          <b d>1

          |

        }

      >>

      R1

      |

      b=16\([ d g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,]

      |

      b[ d g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,]

      |

      b[ d g a]

      g[ a b d,]

      b[ d g a]

      g[ a b d,]

      |

      \override DynamicTextSpanner#'style = #'none

      b\dim[ d g a]

      g[ a b d]

      g[ a b d]

      \ottava#1

      \set Staff.ottavation = #"8"

      g[ a b d]

      |

      b4\!\)

      \ottava#0

      r

      <b,,,= d g b>2\arpeggio

      |

      <b d g b>1\arpeggio\fermata

      |

    }

   

    \newStaff\relative c {

      \clefbass

      \time2/2

      \key g \major

      g16-5([ d'-2 g-1 a-3]

      b-2[ a-3 g-5 e'-1]

      d[ c b-1 a]

      g[ a b-1 d,-2])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

     

      a([ e' a b]

      cis[ b a fis']

      e[ d cis b]

      a[ b cis e,])

      |

      d,([ a' d e]

      fis[ e d b']

      a[ g fis e]

      d[ e fis b,])

      |

      a([ e' a b]

      cis[ b a fis']

      e[ d cis b]

      a[ b cis e,])

      |

      d,([ a' d e]

      fis[ e d b']

      a[ g fis e]

      d[ e fis a,])

      |

      d,([ a' d e]

      fis[ e d b']

      a[ g fis e]

      d[ e fis a,])

      |

      g([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b g,])

      |

      c,([ g' c d]

      e[ d c a']

      g[ f e d]

      c[ d e g,])

      |

      c,([ g' c d]

      e[ d c a']

      g[ f e d]

      c[ d e g,])

      |

      c,([ g' c d]

      e[ d c a']

      g[ f e d]

      c[ d e g,])

      |

      c,([ g' c d]

      e[ d c a']

      g[ f e d]

      c[ d e g,])

      |

      c,([ g' c d]

      e[ d c a']

      g[ fis e d]

      c[ d e g,])

      |

      c,([ g' c d]

      e[ d c a']

      g[ fis e d]

      c[ d e g,])

      |

      d([ a' c d]

      e[ d c b']

      a[ g e d]

      c[ d e a,])

      |

      d,([ a' d e]

      fis[ e d b']

      a[ g fis e]

      d[ e fis a,])

      |

      g([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

      g,([ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,])

      |

     

      g,[ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,]

      |

      g,[ d' g a]

      b[ a g e']

      d[ c b a]

      g[ a b d,]

      |

      g,[ d' g a]

      g[ a b d,]

      g,[ d' g a]

      g[ a b d,]

      |

      g,[ d' g a]

      g[ a b d]

      \cleftreble

      g[ a b d]

      g[ a b d]

      |

      b4 r

      \clefbass

      <g,,,=, d' g>2\arpeggio\sustainOn

      |

      <g d' g>1\arpeggio_\fermata\sustainOff

      |

      \bar"|."

    }

  >>

}

 

 

posted on 2014-02-19 00:36  exprosic  阅读(371)  评论(0)    收藏  举报