Or shorter :
\version "2.19.29"
#(set-global-staff-size 15)
\paper {
indent = 0
ragged-right = ##f
}
xen = #(define-scheme-function (parser location music)
(ly:music?)
#{
\markup {
\with-dimensions #'(0 . 0) #'(0 . 0)
\score {
\magnifyMusic 0.8 { $music }
\layout {
indent = 0
\context {
\Score
\omit StaffSymbol
\omit Clef
\omit TimeSignature
\omit Stem
}
}
}
}
#})
\new PianoStaff \with {
\omit TimeSignature
\consists #Span_stem_engraver
} <<
\new Staff \with {
\clef G
\override VerticalAxisGroup.staff-staff-spacing =
#'((basic-distance . 15))
} <<
\new Voice \relative {
\voiceOne
\override Beam.positions = #'(10 . 10)
\override NoteHead.stencil = ##f
c'16 16 8 8 16 16 16 8 16
\set subdivideBeams = ##t
\set baseMoment = #(ly:make-moment 1/8)
\repeat unfold 5 { c16 c c c }
}
\new Voice \relative {
\voiceTwo
\override TextScript.padding = #'()
s16 s
-\tweak extra-offset #'(-2 . -11)
^\xen { a''!4 }
-\tweak extra-offset #'(-1 . -11.5)
^\xen { b''4 }
}
>>
\new Dynamics { s1-\tweak extra-offset #'(1.8 . -1.8) \p s }
\new Staff \with { \clef F } <<
\new Voice \relative {
\voiceOne
\override Beam.stencil = ##f
\override NoteHead.stencil = ##f
\crossStaff {
e,16 16 8 8 16 16 16 8 16
\set subdivideBeams = ##t
\set baseMoment = #(ly:make-moment 1/8)
\repeat unfold 5 { e16 e e e }
}
}
\new Voice {
\voiceTwo
s16
-\tweak extra-offset #'(-1 . 1.5)
_\xen {
c''4
-\tweak extra-offset #'(-1 . -2)
_\markup\concat {
\lower #.2 \italic "8"
\path #0.15 #'((lineto 7 0)(lineto 7 1))
}
}
-\tweak extra-offset #'(1.8 . 2)
_\xen { gis'4 }
-\tweak extra-offset #'(4 . 3.5)
_\xen { fis4 }
}
\new Voice {
\voiceThree
s1 \bar "" s
}
>>
>>
Cheers,
Pierre
2015-10-25 13:58 GMT+01:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:
> Hi Ryan,
>
> As each note head has its proper alignment, I don't see how this can be
> achieved without using markups.
> Long work though...
>
> Something like :
>
> \version "2.19.29"
> #(set-global-staff-size 15)
> \paper {
> indent = 0
> ragged-right = ##f
> }
>
> \new PianoStaff \with {
> \omit TimeSignature
> \consists #Span_stem_engraver
> } <<
> \new Staff \with {
> \clef G
> \override VerticalAxisGroup.staff-staff-spacing =
> #'((basic-distance . 15))
> } <<
> \new Voice \relative {
> \voiceOne
> \override Beam.positions = #'(10 . 10)
> \override NoteHead.stencil = ##f
> c'16 16 8 8 16 16 16 8 16
> \set subdivideBeams = ##t
> \set baseMoment = #(ly:make-moment 1/8)
> \repeat unfold 5 { c16 c c c }
> }
> \new Voice \relative {
> \voiceTwo
> \override TextScript.padding = #'()
> s16 s
> -\tweak extra-offset #'(-2 . -11)
> ^\markup {
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \score {
> \magnifyMusic 0.8 { a''!4 }
> \layout {
> \context {
> \Score
> \omit StaffSymbol
> \omit Clef
> \omit TimeSignature
> \omit Stem
> }
> }
> }
> }
> -\tweak extra-offset #'(-1 . -11.5)
> ^\markup {
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \score {
> \magnifyMusic 0.8 { b''4 }
> \layout {
> \context {
> \Score
> \omit StaffSymbol
> \omit Clef
> \omit TimeSignature
> \omit Stem
> }
> }
> }
> }
> }
> >>
> \new Dynamics { s1-\tweak extra-offset #'(1.8 . -1.8) \p s }
> \new Staff \with { \clef F } <<
> \new Voice \relative {
> \voiceOne
> \override Beam.stencil = ##f
> \override NoteHead.stencil = ##f
> \crossStaff {
> e,16 16 8 8 16 16 16 8 16
> \set subdivideBeams = ##t
> \set baseMoment = #(ly:make-moment 1/8)
> \repeat unfold 5 { e16 e e e }
> }
> }
> \new Voice {
> \voiceTwo
> s16
> _\tweak extra-offset #'(-1 . 1.5)
> ^\markup {
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \score {
> \magnifyMusic 0.8 {
> c''4
> -\tweak extra-offset #'(-1 . -2)
> _\markup\concat {
> \lower #.2 \italic "8"
> \path #0.1 #'((lineto 7 0)(lineto 7 1))
> }
> }
> \layout {
> \context {
> \Score
> \omit StaffSymbol
> \omit Clef
> \omit TimeSignature
> \omit Stem
> }
> }
> }
> }
> _\tweak extra-offset #'(1.8 . 2)
> ^\markup {
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \score {
> \magnifyMusic 0.8 { gis'4 }
> \layout {
> \context {
> \Score
> \omit StaffSymbol
> \omit Clef
> \omit TimeSignature
> \omit Stem
> }
> }
> }
> }
> _\tweak extra-offset #'(4 . 3.5)
> ^\markup {
> \with-dimensions #'(0 . 0) #'(0 . 0)
> \score {
> \magnifyMusic 0.8 { fis4 }
> \layout {
> \context {
> \Score
> \omit StaffSymbol
> \omit Clef
> \omit TimeSignature
> \omit Stem
> }
> }
> }
> }
> }
> \new Voice {
> \voiceThree
> s1 \bar "" s
> }
> >>
> >>
>
> Just thinking,
> HTH,
> Pierre
>
>
> 2015-10-25 7:48 GMT+01:00 Ryan Michael <ryan.wiegh...@gmail.com>:
>
>> I know there are ways in lilypond to not display the stem. I would
>> like to do something slightly different, which is to position the note
>> head
>> associated with a stem at varying distances away from the stem to denote
>> a relative rhythmic placement which can be seen in Xenakis' Mists
>> https://www.youtube.com/watch?v=ZH4j70KU-RQ at 3:42 so you can see what
>> I am trying to achieve.
>> Thanks!
>> Ryan.
>>
>>
>> _______________________________________________
>> lilypond-user mailing list
>> lilypond-user@gnu.org
>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>
>>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
