[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: re-attacked glissandi
From: |
padovani |
Subject: |
Re: re-attacked glissandi |
Date: |
Wed, 30 May 2012 17:27:33 -0300 |
User-agent: |
Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:12.0) Gecko/20120428 Thunderbird/12.0.1 |
I have already sent this to Bernardo, but maybe it could be helpful to
somebody else...
(just did not wrote the markups and the TextSpanner that are in the
original version)
josé
\version "2.15.38"
olosbhead = {
\once \override NoteHead #'stem-attachment = #'(1 . -0.05)
\once \override NoteHead #'X-offset = #0.035
\once \override NoteHead #'stencil = #ly:text-interface::print
\once \override NoteHead #'text = \markup { \musicglyph
#"noteheads.s0miThin"}
}
noNote = {
\override NoteHead #'transparent = ##t
\override NoteHead #'no-ledgers = ##t
\override Accidental #'stencil = ##f
\override Dots #'transparent = ##t
\override Stem #'transparent = ##t
\override Flag #'transparent = ##t
\override Beam #'transparent = ##t
\override Flag #'style = #'no-flag
}
sNote = {
\override NoteHead #'transparent = ##f
\override NoteHead #'no-ledgers = ##f
\override Accidental #'stencil = ##t
\override Dots #'transparent = ##f
\override Stem #'transparent = ##f
\override Flag #'transparent = ##f
\override Beam #'transparent = ##f
\revert Flag #'style
}
noHead = {
\override NoteHead #'transparent = ##t
\override NoteHead #'no-ledgers = ##t
\override Accidental #'stencil = ##f
}
sHead = {
\override NoteHead #'transparent = ##f
\override NoteHead #'no-ledgers = ##f
\override Accidental #'stencil = ##t
\revert Flag #'style
\override Dots #'transparent = ##f
}
ztupnum = #(define-music-function (parser location tx figura)
(string? ly:music?)
#{
\once \override TupletNumber #'text = \markup {\line {
\general-align #Y #UP $tx
\translate #'(-0.75 . 0)
\score {
\new Staff \with {
\remove "Time_signature_engraver"
fontSize = #-7
\override StaffSymbol #'staff-space = #(magstep -10)
firstClef = ##f }{
\relative c' {
\override Flag #'stencil = #modern-straight-flag
\override Staff.StaffSymbol #'line-count = #0
$figura
} }
\layout {
ragged-right= ##t
indent = 0
\context {
\Staff
\remove "Clef_engraver"
\remove "Time_signature_engraver"
\remove "Ledger_line_engraver" }
}
}
}
}
#}
)
\layout {
\context {
\Score
\override Glissando #'thickness = #3
\override TupletBracket #'bracket-visibility = ##t
}}
\score{
\new Staff {
\relative c' {
\set Score.proportionalNotationDuration = #(ly:make-moment 1 50)
\time 5/16
<<{
\noNote
\shiftOff
fih64*5/4*15\glissando
eeh64*5/4\glissando
%2
\time 4/8
c'16
}\\{
\noNote
\shiftOff
c!64*5/4*14\glissando
aih64*5/4*2\glissando
%2
%\time 4/8
f'16
}\\{
\sNote
\shiftOff
%%% \once \override TupletNumber #'text =
%%% #(tuplet-number::append-note-wrapper
%%% (tuplet-number::non-default-tuplet-fraction-text 5 4) "16")
\ztupnum #'"4:5" c16
\times 5/4 {
<fih, c'!>16[
\noHead
f64 b16
f64 b64 f64 b64 f64
\sHead \olosbhead aih64 \olosbhead eeh64]
}
%2
% etc..
}>>
}
}
}
--
http://zepadovani.info