Sophie

Sophie

distrib > Mandriva > 2009.0 > i586 > by-pkgid > 3a7b4dfc766af1222d90c7f03a0844e6 > files > 3067

lilypond-doc-2.11.57-1mdv2009.0.i586.rpm

%% Generated by lilypond-book.py
%% Options: [quote,alt=[image of music],ragged-right,indent=0\mm]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section 
% ****************************************************************



\paper {
  #(define dump-extents #t)
  
  line-width = 160\mm - 2.0 * 0.4\in
  ragged-right = ##t
  indent = 0\mm
  force-assignment = #""
  line-width = #(- line-width (* mm  3.000000))
}

\layout {
  
}



% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefileline 1554
\score {
 <<
%-- Treble Staff --%
  \new Staff = "G" {
% Allow this staff to be placed close to the others
   \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
% Allow the treble clef to overlap the lower staves:
%   \override Staff.Clef #'Y-extent = #'(0 . 0)
   \override Staff.Clef #'stencil = ##f          % No clef required
   \clef "G"
   s1^\markup { "g," \transparent "g" }
   s^ \markup { "b," \transparent "g" }
   s^ \markup { "d"  \transparent "g" }
   s^ \markup { "f"  \transparent "g" }
   s^ \markup { "a"  \transparent "g" }
   s^ \markup { \with-color #red c' \transparent "g"}
   e'^\markup { "e'" \transparent "g" }
   g'^\markup { "g'" \transparent "g" }
   b'^\markup { "b'" \transparent "g" }
   d''^\markup { "d''" \transparent "g" }
   f''^\markup { "f ''" \transparent "g" }
   s
  }
%-- Alto Staff reduced to a single line on middle C --%
  \new Staff = "C" {
   \override Staff.StaffSymbol #'line-count = 1  % One line only
   \override Staff.StaffSymbol #'color = #red    % Coloured red
   \override Staff.Clef #'stencil = ##f          % No clef required
   \clef "C"

% Allow this staff to be placed close to the others
   \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0)
% Specify height to give correct spacing between treble and bass staves
   \override Staff.VerticalAxisGroup #'Y-extent = #'(-1 . 1)

   s1 s s s s  % Space along to align horizonatally
   \override NoteHead #'color = #red
    c'1 % A middle C
    s1 s s s s s % Keep staff (ie the red line) showing
  }
%-- Bass Staff --%
  \new Staff = "F" {
% Allow this staff to be placed close to the others
   \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 2)
   \override Staff.Clef #'stencil = ##f          % No clef required
   \clef "F"
   g,1 b, d f a
   s s s s s s s % Keep staff showing
  }
 >>
 \layout {
% Reduce horizontal spacing so semibreves can be used without exceeding 1 line
  \context { \Score \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 1)
  }
% Reduce apparent vertical size of note heads to permit them to overlap other grobs vertically
  \context { \Score \override NoteHead #'Y-extent = #'(0 . 0)
  }
% Remove all barlines
  \context { \Score \override BarLine #'stencil = ##f
  }
% Remove time signature from all staves
  \context { \Staff \remove Time_signature_engraver
  }
 }  % End layout
}  % End score



% ****************************************************************
% end ly snippet
% ****************************************************************