Re: Slurred staccato in a tremolo

[David Nalesnik]

On Sun, Mar 8, 2015 at 9:24 PM, David Nalesnik 
wrote:
>
>
> I'll have a look at fixing it.
>

Patch here:  https://code.google.com/p/lilypond/issues/detail?id=4319

--David
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo

[David Nalesnik]

Hi Harm,

On Sun, Mar 8, 2015 at 6:28 PM, Thomas Morley 
wrote:

> 2015-03-08 22:32 GMT+01:00 Thomas Morley :
> [...]
> > One problem persists, though.
> > If \voiveXxx is used _and_ other objects like fingerings, TextScript
> > etc are present, the whole thing is centered above the NoteHead, not
> > the Stem.
> [...]
>
> In 2.19.16 it's due to issue 2535
> https://code.google.com/p/lilypond/issues/detail?id=2535
> cc-ing the author David N.
>
> I don't think it was intended that the staccato-dot moves, when
> TextScript, Fingerings or StringNumbers are present:
>
>
> \version "2.19.16"
>
> {
>   \time 3/4
>   \voiceOne
>   c'2.-.
> %  \override Script.toward-stem-shift-in-column = 1.0
>   c'2.-. -"foo"  %% ??
>   c'2.-. -1  %% ??
>   c'2.-. \3  %% ??
>   c'2.-. \fermata %% ok
> }
>
>
> David, what do you think?
>

Hmmm.  Yes, there should only be a shift in the case of another Script
being present within the ScriptColumn.  Right now we simply check that it
is part of a ScriptColumn, which I see won't rule out StringNumber and
Fingering.  There ought to be a check to see if anything in the column has
the script-interface.  An oversight on my part.

I'll have a look at fixing it.

Thanks for finding this!

--David
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo

[Thomas Morley]

2015-03-08 22:32 GMT+01:00 Thomas Morley :
[...]
> One problem persists, though.
> If \voiveXxx is used _and_ other objects like fingerings, TextScript
> etc are present, the whole thing is centered above the NoteHead, not
> the Stem.
[...]

In 2.19.16 it's due to issue 2535
https://code.google.com/p/lilypond/issues/detail?id=2535
cc-ing the author David N.

I don't think it was intended that the staccato-dot moves, when
TextScript, Fingerings or StringNumbers are present:


\version "2.19.16"

{
  \time 3/4
  \voiceOne
  c'2.-.
%  \override Script.toward-stem-shift-in-column = 1.0
  c'2.-. -"foo"  %% ??
  c'2.-. -1  %% ??
  c'2.-. \3  %% ??
  c'2.-. \fermata %% ok
}


David, what do you think?


Cheers,
  Harm

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo (Menu Jacques)

[Cynthia Karl]

> On Mar 8, 2015, at 4:07 PM, Menu Jacques  wrote:
> 
> Hello Pat,
> 
> I tried:
> 
> {
>  \time 3/4
>  \clef "bass"
>  \repeat tremolo 6 e8 -\markup {\draw-dotted-line #'(5.1 . 2.3)} |
> }
> 
> but the slur doesn’t show up.

Try:

{
 \time 3/4
 \clef "bass"
 \repeat tremolo 6 e8^\markup { 
\hspace #-1.2
\override #'(thickness . 4)
\override #'(off . 0.05 ) 
\draw-dotted-line #'(4 . 0)} |
}


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo

[Thomas Morley]

2015-03-08 22:12 GMT+01:00 Jacques Menu :
> Hello Harm,
>
> Couldn’t have even thought of such an expert solution, will all its power...
>
> Congratulations, and thanks!
>
> JM
>
>> Le 8 mars 2015 à 21:46, Thomas Morley  a écrit :
>>
>> 2015-03-08 19:25 GMT+01:00 Klaus Blum :
>>> Hi Jacques,
>>>
>>> there is already a snippet that might help:
>>> http://lsr.di.unimi.it/LSR/Item?id=772
>>> 
>>>
>>> Cheers,
>>> Klaus
>>
>> How about the code below.
>> It rewrites and extends said snippet with code from Issue 3088
>>
>>
>>
>> \version "2.19.15"
>>
>> %% https://code.google.com/p/lilypond/issues/detail?id=3088
>>
>>
>> %% FIXME: c&p from stencil.scm -- define-public and remove copy
>> #(define (make-bezier-sandwich-stencil coords thick xext yext)
>>  (let* ((command-list `(moveto
>>,(car (list-ref coords 3))
>>,(cdr (list-ref coords 3))
>>curveto
>>,(car (list-ref coords 0))
>>,(cdr (list-ref coords 0))
>>,(car (list-ref coords 1))
>>,(cdr (list-ref coords 1))
>>,(car (list-ref coords 2))
>>,(cdr (list-ref coords 2))
>>curveto
>>,(car (list-ref coords 4))
>>,(cdr (list-ref coords 4))
>>,(car (list-ref coords 5))
>>,(cdr (list-ref coords 5))
>>,(car (list-ref coords 6))
>>,(cdr (list-ref coords 6))
>>closepath)))
>>  (ly:make-stencil
>>`(path ,thick `(,@' ,command-list) 'round 'round #t)
>>xext
>>yext)))
>>
>> %% FIXME: rewrite generic wrt axes and replace make-parenthesis-stencil
>> #(define (make-bow-stencil width height thickness angularity)
>> "Create a bow stencil.
>> @var{width} is the width of the bow markup.
>> @var{thickness} is the thickness of the bow.
>> @var{height} is the heigth of the bow.
>> The higher the value of number @var{angularity},
>> the more angular the shape of the bow."
>>   (let* ((line-width 0.1)
>>  (base-x (if (< width 0) (- width) 0))
>>  (base-y (if (< height 0) (- height) 0))
>>  (x-extent (ordered-cons 0 width))
>>  (y-extent (ordered-cons 0 height))
>>  (left-x (interval-start x-extent))
>>  (right-x (interval-end x-extent))
>>  (inner-y 0)
>>  (outer-y height)
>>  (left-end-point (cons left-x inner-y))
>>  (right-end-point (cons right-x inner-y))
>>  (outer-control-y (+ inner-y (* 4/3 outer-y)))
>>  (inner-control-y (+ outer-control-y
>> (if (< height 0) thickness (- thickness
>>  ;; keeping angularity allows for refactoring and
>>  ;; merging with make-parenthesis-stencil
>>  (offset-index (- (* 0.6 angularity) 0.8))
>>  (left-control-x (interval-index x-extent offset-index))
>>  (right-control-x (interval-index x-extent (- offset-index)))
>>  (left-outer-control-point
>> (cons left-control-x outer-control-y))
>>  (right-outer-control-point
>> (cons right-control-x outer-control-y))
>>  (right-inner-control-point
>> (cons right-control-x inner-control-y))
>>  (left-inner-control-point
>> (cons left-control-x inner-control-y)))
>>
>>   (make-bezier-sandwich-stencil
>> (list right-inner-control-point
>>   left-inner-control-point
>>   left-end-point
>>   right-end-point
>>   left-outer-control-point
>>   right-outer-control-point
>>   right-end-point
>>   left-end-point)
>> line-width
>> x-extent
>> y-extent)))
>>
>> %% FIXME: replace make-parenthesis-stencil by this:
>> #(define (make-parenthesis-stencil height width thick angularity)
>>  (ly:stencil-rotate-absolute
>>(make-bow-stencil height width thick angularity)
>>-90 0 0))
>>
>> %% FIXME: c&p from bezier-bow.cc
>> #(define (F0_1 x) (* (/ 2 PI) (atan (* PI x 0.5
>> #(define (slur-height w h_inf r_0)
>>   (F0_1 (* (/ (* w r_0) h_inf) h_inf)))
>>
>> #(define (make-tie-stencil width thickness direction)
>>  (let* ((height-limit 1)
>> (ratio 0.25)
>> (angularity 0.5)
>> (height (slur-height width height-limit ratio))
>>
>> )
>>  (make-bow-stencil width (* direction height) thickness angularity)))
>>
>> #(define-markup-command (undertie layout props arg)
>>  (markup?)
>> #:category font
>> #:properties ((thickness 1)
>>  (offset 2)
>>  (direction DOWN)
>>  (adjust-length 0)
>>  (adjust-x-pos 0))
>> "
>> @cindex undertie-ing text
>>
>> Undertie @var{arg}. Looks at @code{thickness} to determine line
>> thickness, and @code{offset} to determine line y-offset.
>>
>> @lilypo

Re: Slurred staccato in a tremolo

[Jacques Menu]

Hello Harm,

Couldn’t have even thought of such an expert solution, will all its power...

Congratulations, and thanks!

JM

> Le 8 mars 2015 à 21:46, Thomas Morley  a écrit :
> 
> 2015-03-08 19:25 GMT+01:00 Klaus Blum :
>> Hi Jacques,
>> 
>> there is already a snippet that might help:
>> http://lsr.di.unimi.it/LSR/Item?id=772
>> 
>> 
>> Cheers,
>> Klaus
> 
> How about the code below.
> It rewrites and extends said snippet with code from Issue 3088
> 
> 
> 
> \version "2.19.15"
> 
> %% https://code.google.com/p/lilypond/issues/detail?id=3088
> 
> 
> %% FIXME: c&p from stencil.scm -- define-public and remove copy
> #(define (make-bezier-sandwich-stencil coords thick xext yext)
>  (let* ((command-list `(moveto
>,(car (list-ref coords 3))
>,(cdr (list-ref coords 3))
>curveto
>,(car (list-ref coords 0))
>,(cdr (list-ref coords 0))
>,(car (list-ref coords 1))
>,(cdr (list-ref coords 1))
>,(car (list-ref coords 2))
>,(cdr (list-ref coords 2))
>curveto
>,(car (list-ref coords 4))
>,(cdr (list-ref coords 4))
>,(car (list-ref coords 5))
>,(cdr (list-ref coords 5))
>,(car (list-ref coords 6))
>,(cdr (list-ref coords 6))
>closepath)))
>  (ly:make-stencil
>`(path ,thick `(,@' ,command-list) 'round 'round #t)
>xext
>yext)))
> 
> %% FIXME: rewrite generic wrt axes and replace make-parenthesis-stencil
> #(define (make-bow-stencil width height thickness angularity)
> "Create a bow stencil.
> @var{width} is the width of the bow markup.
> @var{thickness} is the thickness of the bow.
> @var{height} is the heigth of the bow.
> The higher the value of number @var{angularity},
> the more angular the shape of the bow."
>   (let* ((line-width 0.1)
>  (base-x (if (< width 0) (- width) 0))
>  (base-y (if (< height 0) (- height) 0))
>  (x-extent (ordered-cons 0 width))
>  (y-extent (ordered-cons 0 height))
>  (left-x (interval-start x-extent))
>  (right-x (interval-end x-extent))
>  (inner-y 0)
>  (outer-y height)
>  (left-end-point (cons left-x inner-y))
>  (right-end-point (cons right-x inner-y))
>  (outer-control-y (+ inner-y (* 4/3 outer-y)))
>  (inner-control-y (+ outer-control-y
> (if (< height 0) thickness (- thickness
>  ;; keeping angularity allows for refactoring and
>  ;; merging with make-parenthesis-stencil
>  (offset-index (- (* 0.6 angularity) 0.8))
>  (left-control-x (interval-index x-extent offset-index))
>  (right-control-x (interval-index x-extent (- offset-index)))
>  (left-outer-control-point
> (cons left-control-x outer-control-y))
>  (right-outer-control-point
> (cons right-control-x outer-control-y))
>  (right-inner-control-point
> (cons right-control-x inner-control-y))
>  (left-inner-control-point
> (cons left-control-x inner-control-y)))
> 
>   (make-bezier-sandwich-stencil
> (list right-inner-control-point
>   left-inner-control-point
>   left-end-point
>   right-end-point
>   left-outer-control-point
>   right-outer-control-point
>   right-end-point
>   left-end-point)
> line-width
> x-extent
> y-extent)))
> 
> %% FIXME: replace make-parenthesis-stencil by this:
> #(define (make-parenthesis-stencil height width thick angularity)
>  (ly:stencil-rotate-absolute
>(make-bow-stencil height width thick angularity)
>-90 0 0))
> 
> %% FIXME: c&p from bezier-bow.cc
> #(define (F0_1 x) (* (/ 2 PI) (atan (* PI x 0.5
> #(define (slur-height w h_inf r_0)
>   (F0_1 (* (/ (* w r_0) h_inf) h_inf)))
> 
> #(define (make-tie-stencil width thickness direction)
>  (let* ((height-limit 1)
> (ratio 0.25)
> (angularity 0.5)
> (height (slur-height width height-limit ratio))
> 
> )
>  (make-bow-stencil width (* direction height) thickness angularity)))
> 
> #(define-markup-command (undertie layout props arg)
>  (markup?)
> #:category font
> #:properties ((thickness 1)
>  (offset 2)
>  (direction DOWN)
>  (adjust-length 0)
>  (adjust-x-pos 0))
> "
> @cindex undertie-ing text
> 
> Undertie @var{arg}. Looks at @code{thickness} to determine line
> thickness, and @code{offset} to determine line y-offset.
> 
> @lilypond[verbatim,quote]
> \\markup \\line {
> \\undertie \"undertied\"
> \\override #'(offset . 5)
> \\override #'(thickness . 1)
> \\undertie \"undertied\"
> \\override #

Re: Slurred staccato in a tremolo (Menu Jacques)

[Menu Jacques]

Hello Pat,

I tried:

{
  \time 3/4
  \clef "bass"
  \repeat tremolo 6 e8 -\markup {\draw-dotted-line #'(5.1 . 2.3)} |
}

but the slur doesn’t show up.

JM

> Le 8 mars 2015 à 21:34, Cynthia Karl  a écrit :
> 
> 
>> On Mar 8, 2015, at 2:42 PM, Menu Jacques  wrote:
>> 
>> Hello Cynthia and Klaus,
>> 
>> Thanks for your answers.
>> 
>> With 2.19.15, the « tongue » function produces the 6 dots alright, but the 
>> \shape command seems to have no effect.
>> 
>> Any other hint regarding the slur?
> 
> Shape doesn't affect the "tongue" output because there is no Bezier curve 
> controlling the layout of the dots.  PhrasingSlur along with 
> \phrasingSlurDotted would work with \shape ok, but I don't know how to 
> control the number of dots in the slur nor the thickness of the dots.
> 
> It appears that you want the dots to be in a horizontal line.  It might be 
> able to accomplish that with \markup { \draw-dotted-line }.
> 
> Pat Karl (Cynthia my wife, we share this mail account)
> 
>> 
>> JM
>> 
>> %
>> \version "2.19.15"
>> 
>> {
>> \time 3/4
>> \clef "bass"
>> <<
>>   \repeat tremolo 6 {e8 -.  }
>>   \shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)}
>>>> |
>> }
>> 
>> tongue =
>> #(define-music-function (parser location dots) (integer?)
>>  (let ((script (make-music 'ArticulationEvent
>>  'articulation-type "staccato")))
>>(set! (ly:music-property script 'tweaks)
>>  (acons 'stencil
>>(lambda (grob)
>>  (let ((stil (ly:script-interface::print grob)))
>>(let loop ((count (1- dots)) (new-stil stil))
>>  (if (> count 0)
>>  (loop (1- count)
>>(ly:stencil-combine-at-edge new-stil X RIGHT stil 
>> 0.2))
>>  (ly:stencil-aligned-to new-stil X CENTER)
>>(ly:music-property script 'tweaks)))
>>script))
>> 
>> {
>> \time 3/4
>> \clef "bass"
>> \repeat tremolo 6 e8 -\tongue #6 |
>> }
>> 
>> {
>> \time 3/4
>> \clef "bass"
>> <<
>>   \repeat tremolo 6 e8 -\tongue #6
>>   \shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)}
>>>> 
>> }
>> %
>> 
>> 
>> give the same rest
>>> Le 8 mars 2015 à 19:25, Klaus Blum  a écrit :
>>> 
>>> Hi Jacques, 
>>> 
>>> there is already a snippet that might help:
>>> http://lsr.di.unimi.it/LSR/Item?id=772
>>> <http://lsr.di.unimi.it/LSR/Item?id=772>  
>>> 
>>> Cheers, 
>>> Klaus
>>> 
>>> 
>> 
>>> Le 8 mars 2015 à 19:31, Cynthia Karl  a écrit :
>>> 
>>>> Message: 2
>>>> Date: Sun, 8 Mar 2015 18:37:15 +0100
>>>> From: Menu Jacques 
>>>> Subject: Slurred staccato in a tremolo
>>>> 
>>>> Is there a way to get the slur above the tremolo in the sample below, as 
>>>> found in the attached manuscript image?
>>>> 
>>>> Thanks for you help!
>>>> 
>>>> JM
>>>> 
>>>> 
>>>> \version "2.19.15"
>>>> 
>>>> {
>>>> \time 3/4
>>>> \clef "bass"
>>>> \repeat tremolo 6 { e8 -. } |
>>>> }
>>>> 
>>>> 
>>> How about:
>>> 
>>> {
>>> \time 3/4
>>> \clef "bass"
>>> <<\repeat tremolo 6 {e8 -.  } 
>>> \shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur
>>> {s4( s s)}>> |
>>> }
>>> 
>>>> 
>>>> 
>>>> -- next part --
>>>> An HTML attachment was scrubbed...
>>>> URL: 
>>>> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.html>
>>>> -- next part --
>>>> A non-text attachment was scrubbed...
>>>> Name: SlurredStaccatoProblem.png
>>>> Type: image/png
>>>> Size: 17851 bytes
>>>> Desc: not available
>>>> URL: 
>>>> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.png>
>>>> 
>>>> --
>>>> 
>>>> ___
>>>> lilypond-user mailing list
>>>> lilypond-user@gnu.org
>>>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>>> 
>>>> 
>>>> End of lilypond-user Digest, Vol 148, Issue 63
>>>> **
>>> 
>> 
> 


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo

[Thomas Morley]

2015-03-08 19:25 GMT+01:00 Klaus Blum :
> Hi Jacques,
>
> there is already a snippet that might help:
> http://lsr.di.unimi.it/LSR/Item?id=772
> 
>
> Cheers,
> Klaus

How about the code below.
It rewrites and extends said snippet with code from Issue 3088



\version "2.19.15"

%% https://code.google.com/p/lilypond/issues/detail?id=3088


%% FIXME: c&p from stencil.scm -- define-public and remove copy
#(define (make-bezier-sandwich-stencil coords thick xext yext)
  (let* ((command-list `(moveto
,(car (list-ref coords 3))
,(cdr (list-ref coords 3))
curveto
,(car (list-ref coords 0))
,(cdr (list-ref coords 0))
,(car (list-ref coords 1))
,(cdr (list-ref coords 1))
,(car (list-ref coords 2))
,(cdr (list-ref coords 2))
curveto
,(car (list-ref coords 4))
,(cdr (list-ref coords 4))
,(car (list-ref coords 5))
,(cdr (list-ref coords 5))
,(car (list-ref coords 6))
,(cdr (list-ref coords 6))
closepath)))
  (ly:make-stencil
`(path ,thick `(,@' ,command-list) 'round 'round #t)
xext
yext)))

%% FIXME: rewrite generic wrt axes and replace make-parenthesis-stencil
#(define (make-bow-stencil width height thickness angularity)
 "Create a bow stencil.
 @var{width} is the width of the bow markup.
 @var{thickness} is the thickness of the bow.
 @var{height} is the heigth of the bow.
 The higher the value of number @var{angularity},
 the more angular the shape of the bow."
   (let* ((line-width 0.1)
  (base-x (if (< width 0) (- width) 0))
  (base-y (if (< height 0) (- height) 0))
  (x-extent (ordered-cons 0 width))
  (y-extent (ordered-cons 0 height))
  (left-x (interval-start x-extent))
  (right-x (interval-end x-extent))
  (inner-y 0)
  (outer-y height)
  (left-end-point (cons left-x inner-y))
  (right-end-point (cons right-x inner-y))
  (outer-control-y (+ inner-y (* 4/3 outer-y)))
  (inner-control-y (+ outer-control-y
 (if (< height 0) thickness (- thickness
  ;; keeping angularity allows for refactoring and
  ;; merging with make-parenthesis-stencil
  (offset-index (- (* 0.6 angularity) 0.8))
  (left-control-x (interval-index x-extent offset-index))
  (right-control-x (interval-index x-extent (- offset-index)))
  (left-outer-control-point
 (cons left-control-x outer-control-y))
  (right-outer-control-point
 (cons right-control-x outer-control-y))
  (right-inner-control-point
 (cons right-control-x inner-control-y))
  (left-inner-control-point
 (cons left-control-x inner-control-y)))

   (make-bezier-sandwich-stencil
 (list right-inner-control-point
   left-inner-control-point
   left-end-point
   right-end-point
   left-outer-control-point
   right-outer-control-point
   right-end-point
   left-end-point)
 line-width
 x-extent
 y-extent)))

%% FIXME: replace make-parenthesis-stencil by this:
#(define (make-parenthesis-stencil height width thick angularity)
  (ly:stencil-rotate-absolute
(make-bow-stencil height width thick angularity)
-90 0 0))

%% FIXME: c&p from bezier-bow.cc
#(define (F0_1 x) (* (/ 2 PI) (atan (* PI x 0.5
#(define (slur-height w h_inf r_0)
   (F0_1 (* (/ (* w r_0) h_inf) h_inf)))

#(define (make-tie-stencil width thickness direction)
  (let* ((height-limit 1)
 (ratio 0.25)
 (angularity 0.5)
 (height (slur-height width height-limit ratio))

 )
  (make-bow-stencil width (* direction height) thickness angularity)))

#(define-markup-command (undertie layout props arg)
  (markup?)
#:category font
#:properties ((thickness 1)
  (offset 2)
  (direction DOWN)
  (adjust-length 0)
  (adjust-x-pos 0))
"
@cindex undertie-ing text

Undertie @var{arg}. Looks at @code{thickness} to determine line
thickness, and @code{offset} to determine line y-offset.

@lilypond[verbatim,quote]
\\markup \\line {
\\undertie \"undertied\"
\\override #'(offset . 5)
\\override #'(thickness . 1)
\\undertie \"undertied\"
\\override #'(offset . 1)
\\override #'(thickness . 5)
\\undertie \"undertied\"
}
@end lilypond"
  (let* ((line-thickness (ly:output-def-lookup layout 'line-thickness))
 (thick (* thickness line-thickness))
 (markup (interpret-markup layout props arg))
 (x1 (car (ly:stencil-extent markup X)))
 (x2 (cdr (ly:stencil-extent markup X)))
  

Re: Slurred staccato in a tremolo (Menu Jacques)

[Cynthia Karl]

> On Mar 8, 2015, at 2:42 PM, Menu Jacques  wrote:
> 
> Hello Cynthia and Klaus,
> 
> Thanks for your answers.
> 
> With 2.19.15, the « tongue » function produces the 6 dots alright, but the 
> \shape command seems to have no effect.
> 
> Any other hint regarding the slur?

Shape doesn't affect the "tongue" output because there is no Bezier curve 
controlling the layout of the dots.  PhrasingSlur along with 
\phrasingSlurDotted would work with \shape ok, but I don't know how to control 
the number of dots in the slur nor the thickness of the dots.

It appears that you want the dots to be in a horizontal line.  It might be able 
to accomplish that with \markup { \draw-dotted-line }.

Pat Karl (Cynthia my wife, we share this mail account)

> 
> JM
> 
> %
> \version "2.19.15"
> 
> {
>  \time 3/4
>  \clef "bass"
>  <<
>\repeat tremolo 6 {e8 -.  }
>\shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)}
>>> |
> }
> 
> tongue =
> #(define-music-function (parser location dots) (integer?)
>   (let ((script (make-music 'ArticulationEvent
>   'articulation-type "staccato")))
> (set! (ly:music-property script 'tweaks)
>   (acons 'stencil
> (lambda (grob)
>   (let ((stil (ly:script-interface::print grob)))
> (let loop ((count (1- dots)) (new-stil stil))
>   (if (> count 0)
>   (loop (1- count)
> (ly:stencil-combine-at-edge new-stil X RIGHT stil 
> 0.2))
>   (ly:stencil-aligned-to new-stil X CENTER)
> (ly:music-property script 'tweaks)))
> script))
> 
> {
>  \time 3/4
>  \clef "bass"
>  \repeat tremolo 6 e8 -\tongue #6 |
> }
> 
> {
>  \time 3/4
>  \clef "bass"
>  <<
>\repeat tremolo 6 e8 -\tongue #6
>\shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)}
>>> 
> }
> %
> 
> 
> give the same rest
>> Le 8 mars 2015 à 19:25, Klaus Blum  a écrit :
>> 
>> Hi Jacques, 
>> 
>> there is already a snippet that might help:
>> http://lsr.di.unimi.it/LSR/Item?id=772
>> <http://lsr.di.unimi.it/LSR/Item?id=772>  
>> 
>> Cheers, 
>> Klaus
>> 
>> 
> 
>> Le 8 mars 2015 à 19:31, Cynthia Karl  a écrit :
>> 
>>> Message: 2
>>> Date: Sun, 8 Mar 2015 18:37:15 +0100
>>> From: Menu Jacques 
>>> Subject: Slurred staccato in a tremolo
>>> 
>>> Is there a way to get the slur above the tremolo in the sample below, as 
>>> found in the attached manuscript image?
>>> 
>>> Thanks for you help!
>>> 
>>> JM
>>> 
>>> 
>>> \version "2.19.15"
>>> 
>>> {
>>> \time 3/4
>>> \clef "bass"
>>> \repeat tremolo 6 { e8 -. } |
>>> }
>>> 
>>> 
>> How about:
>> 
>> {
>> \time 3/4
>> \clef "bass"
>> <<\repeat tremolo 6 {e8 -.  } 
>>  \shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur
>>  {s4( s s)}>> |
>> }
>> 
>>> 
>>> 
>>> -- next part --
>>> An HTML attachment was scrubbed...
>>> URL: 
>>> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.html>
>>> -- next part --
>>> A non-text attachment was scrubbed...
>>> Name: SlurredStaccatoProblem.png
>>> Type: image/png
>>> Size: 17851 bytes
>>> Desc: not available
>>> URL: 
>>> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.png>
>>> 
>>> --
>>> 
>>> ___
>>> lilypond-user mailing list
>>> lilypond-user@gnu.org
>>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>> 
>>> 
>>> End of lilypond-user Digest, Vol 148, Issue 63
>>> **
>> 
> 


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo (Menu Jacques)

[Klaus Blum]

Hello back, 

I don't know if I'm doing something wrong, but I didn't see a slur at all,
until I added some braces:

% ---
\version "2.19.15"

tongue =
#(define-music-function (parser location dots) (integer?)
   (let ((script (make-music 'ArticulationEvent
   'articulation-type "staccato")))
 (set! (ly:music-property script 'tweaks)
   (acons 'stencil
 (lambda (grob)
   (let ((stil (ly:script-interface::print grob)))
 (let loop ((count (1- dots)) (new-stil stil))
   (if (> count 0)
   (loop (1- count)
 (ly:stencil-combine-at-edge new-stil X RIGHT stil
0.2))
   (ly:stencil-aligned-to new-stil X CENTER)
 (ly:music-property script 'tweaks)))
 script))

{
  \time 3/4
  \clef "bass"
  <<
{\repeat tremolo 6 e8 -\tongue #6 }% braces added
{\shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)} } 
% braces added
  >>
}
% ---

Does that help?

Cheers, 
Klaus



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Re-Slurred-staccato-in-a-tremolo-Menu-Jacques-tp172826p172836.html
Sent from the User mailing list archive at Nabble.com.

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo (Menu Jacques)

[Menu Jacques]

Hello Cynthia and Klaus,

Thanks for your answers.

With 2.19.15, the « tongue » function produces the 6 dots alright, but the 
\shape command seems to have no effect.

Any other hint regarding the slur?

JM

%
\version "2.19.15"

{
  \time 3/4
  \clef "bass"
  <<
\repeat tremolo 6 {e8 -.  }
\shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)}
  >> |
}

tongue =
#(define-music-function (parser location dots) (integer?)
   (let ((script (make-music 'ArticulationEvent
   'articulation-type "staccato")))
 (set! (ly:music-property script 'tweaks)
   (acons 'stencil
 (lambda (grob)
   (let ((stil (ly:script-interface::print grob)))
 (let loop ((count (1- dots)) (new-stil stil))
   (if (> count 0)
   (loop (1- count)
 (ly:stencil-combine-at-edge new-stil X RIGHT stil 0.2))
   (ly:stencil-aligned-to new-stil X CENTER)
 (ly:music-property script 'tweaks)))
 script))

{
  \time 3/4
  \clef "bass"
  \repeat tremolo 6 e8 -\tongue #6 |
}

{
  \time 3/4
  \clef "bass"
  <<
\repeat tremolo 6 e8 -\tongue #6
\shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur {s4( s s)}
  >>
}
%


 give the same rest
> Le 8 mars 2015 à 19:25, Klaus Blum  a écrit :
> 
> Hi Jacques, 
> 
> there is already a snippet that might help:
> http://lsr.di.unimi.it/LSR/Item?id=772
> <http://lsr.di.unimi.it/LSR/Item?id=772>  
> 
> Cheers, 
> Klaus
> 
> 

> Le 8 mars 2015 à 19:31, Cynthia Karl  a écrit :
> 
>> Message: 2
>> Date: Sun, 8 Mar 2015 18:37:15 +0100
>> From: Menu Jacques 
>> Subject: Slurred staccato in a tremolo
>> 
>> Is there a way to get the slur above the tremolo in the sample below, as 
>> found in the attached manuscript image?
>> 
>> Thanks for you help!
>> 
>> JM
>> 
>> 
>> \version "2.19.15"
>> 
>> {
>> \time 3/4
>> \clef "bass"
>> \repeat tremolo 6 { e8 -. } |
>> }
>> 
>> 
> How about:
> 
> {
> \time 3/4
> \clef "bass"
> <<\repeat tremolo 6 {e8 -.  } 
>   \shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur
>   {s4( s s)}>> |
> }
> 
>> 
>> 
>> -- next part --
>> An HTML attachment was scrubbed...
>> URL: 
>> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.html>
>> -- next part --
>> A non-text attachment was scrubbed...
>> Name: SlurredStaccatoProblem.png
>> Type: image/png
>> Size: 17851 bytes
>> Desc: not available
>> URL: 
>> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.png>
>> 
>> --
>> 
>> ___
>> lilypond-user mailing list
>> lilypond-user@gnu.org
>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>> 
>> 
>> End of lilypond-user Digest, Vol 148, Issue 63
>> **
> 


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo (Menu Jacques)

[Cynthia Karl]

> Message: 2
> Date: Sun, 8 Mar 2015 18:37:15 +0100
> From: Menu Jacques 
> Subject: Slurred staccato in a tremolo
> 
> Is there a way to get the slur above the tremolo in the sample below, as 
> found in the attached manuscript image?
> 
> Thanks for you help!
> 
> JM
> 
> 
> \version "2.19.15"
> 
> {
>  \time 3/4
>  \clef "bass"
>  \repeat tremolo 6 { e8 -. } |
> }
> 
> 
How about:

{
 \time 3/4
 \clef "bass"
 <<\repeat tremolo 6 {e8 -.  } 
   \shape #'((-2 . 0.2) (-1 . 0.2) (0 . 0.2) (0 . 0.6)) Slur
   {s4( s s)}>> |
}

> 
> 
> -- next part --
> An HTML attachment was scrubbed...
> URL: 
> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.html>
> -- next part --
> A non-text attachment was scrubbed...
> Name: SlurredStaccatoProblem.png
> Type: image/png
> Size: 17851 bytes
> Desc: not available
> URL: 
> <http://lists.gnu.org/archive/html/lilypond-user/attachments/20150308/b3a3882e/attachment.png>
> 
> --
> 
> ___
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
> 
> 
> End of lilypond-user Digest, Vol 148, Issue 63
> **


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: Slurred staccato in a tremolo

[Klaus Blum]

Hi Jacques, 

there is already a snippet that might help:
http://lsr.di.unimi.it/LSR/Item?id=772
<http://lsr.di.unimi.it/LSR/Item?id=772>  

Cheers, 
Klaus



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Slurred-staccato-in-a-tremolo-tp172820p172824.html
Sent from the User mailing list archive at Nabble.com.

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Slurred staccato in a tremolo

[Menu Jacques]

Hello folks,

Is there a way to get the slur above the tremolo in the sample below, as found 
in the attached manuscript image?

Thanks for you help!

JM


\version "2.19.15"

{
  \time 3/4
  \clef "bass"
  \repeat tremolo 6 { e8 -. } |
}




___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user