Re: help with grace positioning

[TaoCG]

Thomas Morley wrote
> 2012/10/10 TaoCG <

> tao_lilyponduser@

> >:
>> I'm trying to typeset the following measure:
>> sf282.png
>> <http://lilypond.1069038.n5.nabble.com/file/n134539/sf282.png>
>>
>> And that's the closest I got:
>> attempt.png
>> <http://lilypond.1069038.n5.nabble.com/file/n134539/attempt.png>
>>
>> \version "2.16.0"
>>
>> skipOnce =
>> {
>>   \once \override NoteColumn #'glissando-skip = ##t
>>   \once \override NoteHead #'transparent = ##t
>> }
>>
>> \relative c''
>> {
>>   #(define afterGraceFraction (cons 1 5000))
>>   \times 2/3 { f8~ f4\glissando } \tupletDown
>>   \times 4/5 { \skipOnce e16 \afterGrace e4_( { e32[ f e])\glissando } }
>> \tupletNeutral
>>   \times 4/5 { \skipOnce f16 f4~ } f4~
>> }
>>
>>
>>
>> --
>> View this message in context:
>> http://lilypond.1069038.n5.nabble.com/help-with-grace-positioning-tp134539.html
>> Sent from the User mailing list archive at Nabble.com.
>>
>> _______________________________________________
>> lilypond-user mailing list
>> 

> lilypond-user@

>> https://lists.gnu.org/mailman/listinfo/lilypond-user
> 
> Hi,
> 
> you could try the approach below.
> 
> I took the `graceSettings´ from /ly/engraver-init.ly and created some
> overrides with them, using these overrides in a temporary second
> voice.
> Because of the lower fontSize some additional tweaks were necessary.
> A music-function which minimises typing, while changing TupletBrackets
> 'minimal-length is added, too.
> 
> 
> 
> \version "2.16.0"
> 
> skipOnce =
> {
>   \once \override NoteColumn #'glissando-skip = ##t
>   \once \override NoteHead #'transparent = ##t
> }
> 
> % see `graceSettings´ in /ly/engraver-init.ly
> % TabNoteHead setting is omitted.
> graceStyleOn = {
>     \override Stem #'direction = #UP
>     \override Stem #'font-size = #-3
>     \override Flag #'font-size = #-3
>     \override NoteHead #'font-size = #-3
>     \override Dots #'font-size = #-3
>     \override Stem #'length-fraction = #0.8
>     \override Stem #'no-stem-extend = ##t
>     \override Beam #'beam-thickness = #0.384
>     \override Beam #'length-fraction = #0.8
>     \override Accidental #'font-size = #-4
>     \override AccidentalCautionary #'font-size = #-4
>     \override Slur #'direction = #DOWN
>     \override Script #'font-size = #-3
>     \override Fingering #'font-size = #-8
>     \override StringNumber #'font-size = #-8
> }
> 
> graceStyleOff = {
>     \revert Stem #'direction
>     \revert Stem #'font-size
>     \revert Flag #'font-size
>     \revert NoteHead #'font-size
>     \revert Dots #'font-size
>     \revert Stem #'length-fraction
>     \revert Stem #'no-stem-extend
>     \revert Beam #'beam-thickness
>     \revert Beam #'length-fraction
>     \revert Accidental #'font-size
>     \revert AccidentalCautionary #'font-size
>     \revert Slur #'direction
>     \revert Script #'font-size
>     \revert Fingering #'font-size
>     \revert StringNumber #'font-size
> }
> 
> tweakNh =
> #(define-music-function (parser location mus)(ly:music?)
> "Adjusting the NoteHead"
> #{
>      %% Construction-helpers:
>         % \tweak #'layer #5
>         % \tweak #'color #red
>         \tweak #'X-offset #1.32
>         \tweak #'stem-attachment #'(3.82 . 0.5)
>         $mus
> #})
> 
> tupletLength =
> #(define-music-function (parser location ln)(number?)
> "Adjust TupletBracket's minimum-length"
> #{
>         \override Score.TupletBracket #'springs-and-rods =
> #ly:spanner::set-spacing-rods
>         \override Score.TupletBracket #'minimum-length = $ln
> #})
> 
> \score {
>         \new Staff
>         \new Voice \relative c'' {
>               \tupletLength #10
>               \tupletDown
>               \times 2/3 { f8~ f4\glissando }
>               \times 4/5 {
>                       \skipOnce e16
>                       <<
>                         { \voiceOne \graceStyleOn \tweakNh e32_([ f
> e])\glissando }
>                         \new Voice { \voiceTwo  e4 }
>                        >>
>               }
>               \oneVoice
>               \times 4/5 { \graceStyleOff \skipOnce  f16  f4~ }
>               f4 |
>         }
>         \layout {
>               \context {
>                       \Voice
>                       tupletFullLength = ##t
>                       \override Flag #'stencil = #modern-straight-flag
>               }
>         }     
> }
> 
> I'd prefer to have a function, which could deal with `graceSettings´,
> tranfering one setting after the other in an override (using some
> mapping), but I failed. :(
> 
> HTH,
>   Harm
> 
> _______________________________________________
> lilypond-user mailing list

> lilypond-user@

> https://lists.gnu.org/mailman/listinfo/lilypond-user

Wow, thanks!
Actually I had looked for something like graceSettings but obviously I
looked in the wrong places.
Thanks for all the work, much appreciated.

Regards,
Tao



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/help-with-grace-positioning-tp134539p134619.html
Sent from the User mailing list archive at Nabble.com.