Hi Allen,
Please find hereunder a easyer-to-use function.
Limitation: work in one way (pitch up), won't work with whole notes and
slurs.
%%%%
\version "2.19.82"
amb = #(define-music-function (parser location arg mus) (integer? ly:music?)
(let ((amb1 (ly:make-pitch 0 0 0))
(amb2 (ly:make-pitch 0 (abs arg) 0)))
#{
\fixed c'
<<
\override NoteHead.stem-attachment = #'(0 . 1.2)
\override Stem.length = #(- (abs arg) 2.5)
\override Stem.thickness = #2.5
\override Script.transparent = ##t
\voiceOne $mus \\
\override NoteColumn.force-hshift = #0
\voiceThree \transpose $amb1 $amb2 $mus
>>
\revert NoteHead.stem-attachment
\revert Stem.length
\revert NoteColumn.force-hshift
\revert Script.transparent
\revert Stem.thickness
#}))
%%% Test:
\relative c' {
c( \amb5 d2-- e4 \amb7 f1)
}
%%%%
HTH, Cheers,
Pierre
2018-07-09 10:27 GMT+02:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:
> I cannot think of any simple solution. So here it goes :
>
> \version "2.18"
>
> \relative c' {
>
> %% Stem defs to be set manually;
> \once\override Stem.Y-offset = #-4
> \once\override Stem.length = #4.5
> \once\stemDown
> <c
> \tweak NoteHead.stencil #(lambda (grob)
> (grob-interpret-markup grob #{
> \markup
> \center-column {
> %% Change to s0 or s2 as appropriated:
> \musicglyph #"noteheads.s1"
> \path #0.25 #'((moveto 0 2.2)
> ;; Change the Y coordonate as needed:
> (lineto 0 .4))
> } #}))
> c'>2
>
> %% defaulft stem length:
> \once\stemDown c
>
>
> \once\override Stem.Y-offset = #3.5
> \once\override Stem.length = #5.5
> <c
> \tweak NoteHead.stencil #(lambda (grob)
> (grob-interpret-markup grob #{
> \markup
> \center-column {
> %% Change to s0 or s2 as appropriated:
> \musicglyph #"noteheads.s1"
> \path #0.25 #'((moveto 0 2.2)
> ;; Change the Y coordonate as needed:
> (lineto 0 .4))
> } #}))
> c'>
>
> %% defaulft stem length:
> \once\stemUp c'
> }
>
> Cheers,
> Pierre
>
> 2018-07-09 7:46 GMT+02:00 Allen Wu <allenlo...@gmail.com>:
>
>> Hi Pierre,
>>
>> Wow, that is cool. Is there a way to remove the stem in between c' and
>> c''?
>>
>> Thanks,
>> Allen
>>
>> On Sun, Jul 8, 2018 at 6:10 AM, Pierre Perol-Schneider <
>> pierre.schneider.pa...@gmail.com> wrote:
>>
>>> Amitus dimension is not needed in fact :
>>>
>>> \version "2.18.2"
>>>
>>> \relative c' {
>>> <c
>>> \tweak NoteHead.stencil #(lambda (grob)
>>> (grob-interpret-markup grob #{
>>> \markup
>>> \center-column {
>>> %% Change to s0 or s2 as appropriated:
>>> \musicglyph #"noteheads.s1"
>>> \path #0.25 #'((moveto 0 2.2)
>>> ; change the Y coordonate as needed:
>>> (lineto 0 .4))
>>> } #}))
>>> c'>2
>>> }
>>>
>>> Cheers,
>>> Pierre
>>>
>>> 2018-07-08 13:02 GMT+02:00 Pierre Perol-Schneider <
>>> pierre.schneider.pa...@gmail.com>:
>>>
>>>> Hi Allen,
>>>>
>>>> It may look a bit complicate -- and it is -- but it's a first draft :
>>>>
>>>> %%%
>>>> \version "2.18.2"
>>>>
>>>> {
>>>> <c
>>>> \tweak NoteHead.stencil #(lambda (grob)
>>>> (grob-interpret-markup grob #{
>>>> \markup
>>>> \center-column {
>>>> %% Change to s1 or s2 as appropriated:
>>>> \musicglyph #"noteheads.s2"
>>>> \with-dimensions #'(0 . 0) #'(0 . 0)
>>>> \path #0.25 #'((moveto 0 2.2)
>>>> ; change the Y coordonate as needed:
>>>> (lineto 0 .4))
>>>> }
>>>> #}))
>>>> c'>
>>>> }
>>>> %%%
>>>>
>>>> Cheers,
>>>> Pierre
>>>>
>>>> 2018-07-08 10:28 GMT+02:00 Allen Wu <allenlo...@gmail.com>:
>>>>
>>>>> Hi guys,
>>>>>
>>>>> I am thinking about writing a piece with each note offering a range to
>>>>> choose instead of being specific. Is there a way to make the note heads
>>>>> to look like ambitus? Or I am also open to other suggestions about how to
>>>>> notate music like this.
>>>>>
>>>>> Thanks for advice,
>>>>> Allen
>>>>>
>>>>> _______________________________________________
>>>>> lilypond-user mailing list
>>>>> lilypond-user@gnu.org
>>>>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>>>> <https://mailtrack.io/trace/link/7cd4d35f62da348e1d66fc4b86e28da5307c0ec1?url=https%3A%2F%2Flists.gnu.org%2Fmailman%2Flistinfo%2Flilypond-user&userId=113304&signature=bbdf9a792463d659>
>>>>>
>>>>>
>>>>
>>>
>>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
