%---------------------------------------------------------------- % _ _ _ _ % | | (_) |_ _ _ __ ___ _ __ __| | % | | | | | | | | '_ \ / _ \| '_ \ / _` | % | |___| | | |_| | |_) | (_) | | | | (_| | % |_____|_|_|\__, | .__/ \___/|_| |_|\__,_| % |___/|_| % % This is a Lilypond source code file. For more information % about the Lilypond music typesetting program, visit % % http://lilypond.org % % The code in this source file is released under % a GPLv3 license. For licensing information visit % % http://www.gnu.org/licenses/quick-guide-gplv3.html % %---------------------------------------------------------------- \version "2.18.0" \header { tagline = "" % removed } \paper { #(set-paper-size "letter") %ragged-last = ##t ragged-right = ##f } #(ly:set-option 'point-and-click #f) #(set-global-staff-size 28) Prefix = \markup { %% uncomment/comment these lines for C, C slashed, B or B slashed prefix : %\roman C \combine \roman C \translate #'(0.65 . -0.25) \override #'(thickness . 1.2) \draw-line #'(0 . 1.8) %\roman B %\combine \roman B \translate #'(0.65 . -0.25) \override #'(thickness . 1.2) \draw-line #'(0 . 1.8) %%%%%%%%%%%% \hspace #0.2 } startBarre = #(define-event-function (parser location str) (string?) (let* ((mrkp (markup #:upright #:concat (str " ")))) (define (width grob text-string) (let* ((layout (ly:grob-layout grob)) (props (ly:grob-alist-chain grob (ly:output-def-lookup layout 'text-font-defaults)))) (interval-length (ly:stencil-extent (interpret-markup layout props (markup text-string)) X)))) #{ \tweak TextSpanner.after-line-breaking #(lambda (grob) (let* ((mrkp-width (width grob mrkp)) (line-thickness (ly:staff-symbol-line-thickness grob))) (ly:grob-set-nested-property! grob '(bound-details left padding) (+ (/ mrkp-width -4) (* line-thickness 2))))) \tweak TextSpanner.font-size -2 \tweak TextSpanner.style #'line \tweak TextSpanner.bound-details.left.text #mrkp \tweak TextSpanner.bound-details.left.padding 0.25 \tweak TextSpanner.bound-details.left.attach-dir -1 \tweak TextSpanner.bound-details.left-broken.text ##f \tweak TextSpanner.bound-details.left-broken.attach-dir -1 %% adjust the numeric values to fit your needs: \tweak TextSpanner.bound-details.left-broken.padding 1.5 \tweak TextSpanner.bound-details.right-broken.padding 0 \tweak TextSpanner.bound-details.right.padding 0.25 \tweak TextSpanner.bound-details.right.attach-dir 2 \tweak TextSpanner.bound-details.right-broken.text ##f \tweak TextSpanner.bound-details.right.text \markup \draw-line #'(0 . -0.75) \startTextSpan #})) stopBarre = \stopTextSpan %% Syntax: note \startBarre #'fret_number' note(s) \stopBarre global = { \time 3/2 \key f \major \set Staff.midiInstrument = "piano" %\override Score.MetronomeMark #'padding = #3.8 %\override Staff.TimeSignature #'stencil = ##f % \set Timing.beamExceptions = #'() % \set Timing.baseMoment = #(ly:make-moment 1/4) % \set Timing.beatStructure = #'(1 1 1 1) % \override Glissando.thickness = #3 } melody = \relative c'' { \global \voiceOne \partial 2 a2 \oneVoice bes2 c a d c f e g c,4 e f1 \bar "||" } middle = \relative c' { \global } bass = \relative c' { \global \voiceTwo \partial 2 \teeny { r4 f4 ~ \hideNotes f4} } %%%%%%%%%%%%%%%%%%%%%%%%%% SCORE BLOCK %%%%%%%%%%%%%%%%%%%%%% \score { \context Staff = "guitar" \with { \consists "Span_arpeggio_engraver" } << \set Staff.midiInstrument = "piano" \set Staff.connectArpeggios = ##t %\numericTimeSignature \set Staff.instrumentName = \markup \center-column { "4." } \context Voice = "melody" \melody %\context Voice = "middle" \middle \context Voice = "bass" \bass >> \layout { \context { \Score \remove "Bar_number_engraver" } } \midi { \tempo 4. = 52 } }