Re: stacato

[Jan Nieuwenhuizen]

Antoniouk Sergio <address@hidden> writes:

> This is a little strange that lilypond have no ability to do it -
> music with lot of staccato notes is common case.

That is not strange if you consider LilyPond is a typesetter, not an
editor or macro processor.

> Proposed solution is not good enough because I don't want to set
> staccato mark for each note in piece, just for most of them like
> this
> 
> c-. d-. e-. f g a-. h-. c-. d e-. f-. g-. a h-.  ... and so on

Try:
[will add this to input/test]

#(define (make-script x)
  (let ((m (ly-make-music "Articulation_req")))
     ;;(ly-set-mus-property m 'articulation-type 'staccato)
     ;; urg
     (ly-set-mus-property m 'articulation-type x)
     (ly-set-mus-property m 'script x)
     m))
     
#(define (add-script m x)
  (if (equal? (ly-music-name m) "Request_chord")
      (ly-set-mus-property m 'elements
                           (cons (make-script x)
                                 (ly-get-mus-property m 'elements)))
      
      (let ((es (ly-get-mus-property m 'elements))
            (e (ly-get-mus-property m 'element)) )
        (map (lambda (y) (add-script y x)) es)
        (if (music? e)
            (add-script e x))))
  m)

#(define (add-staccato m)
   (add-script m "staccato"))

\score {
  \notes\relative c'' {
    a b \apply #add-staccato { c c } 
    a b \apply #add-staccato { c c } 
  }
}



-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org