|
From: | Cécile Huneau |
Subject: | Re: trilles de contemporains |
Date: | Sat, 18 Jun 2011 08:29:44 +0200 |
User-agent: | Mozilla/5.0 (Windows; U; Windows NT 6.1; fr; rv:1.9.2.17) Gecko/20110414 Thunderbird/3.1.10 |
Bonjour ! Est-ce qu'un truc comme ça te servirait ? %----- courbepostscript = #" % Largeur de ligne 0.2 setlinewidth % Une tite vague % x y moveto : place le curseur au point de coordonnées x y % x1 y1 x2 y2 x3 y3 curveto : trace une courbe tangente aux points (x1 y1) (x2 y2) (x3 y3) 0 0 moveto 0 0 0.5 -0.4 1 0 curveto 1 0 moveto 1 0 1.45 0.45 1.9 0 curveto 1.9 0 moveto 1.9 0 2.3 -0.5 2.7 0 curveto 2.7 0 moveto 2.7 0 3.05 0.55 3.4 0 curveto 3.4 0 moveto 3.4 0 3.7 -0.6 4 0 curveto 4 0 moveto 4 0 4.25 0.65 4.5 0 curveto 4.5 0 moveto 4.5 0 4.7 -0.7 4.9 0 curveto 4.9 0 moveto 4.9 0 5.05 0.75 5.2 0 curveto 5.2 0 moveto 5.2 0 5.3 -0.8 5.4 0 curveto 5.4 0 moveto 5.4 0 5.5 0.8 5.6 0 curveto 5.6 0 moveto 5.6 0 5.7 -0.8 5.8 0 curveto 5.8 0 moveto 5.8 0 5.95 0.75 6.1 0 curveto 6.1 0 moveto 6.1 0 6.3 -0.7 6.5 0 curveto 6.5 0 moveto 6.5 0 6.75 0.65 7 0 curveto 7 0 moveto 7 0 7.3 -0.6 7.6 0 curveto 7.6 0 moveto 7.6 0 7.95 0.55 8.3 0 curveto 8.3 0 moveto 8.3 0 8.7 -0.5 9.1 0 curveto 9.1 0 moveto 9.1 0 9.55 0.45 10 0 curveto 10 0 moveto 10 0 10.5 -0.4 11 0 curveto % Des p'tits points % x y r a b arc : trace un arc de centre x y, de rayon r, l'angle est défini par a et b % ici on voulait un cercle, donc un arc de 360° % en fait c'est plutôt un point que l'on voulait, donc le rayon est de la moitié de l'épaisseur du trait 0 1 moveto 0 1 0.1 0 360 arc 5.5 1 moveto 5.5 1 0.1 0 360 arc 11 1 moveto 11 1 0.1 0 360 arc stroke " trillContempo = { \once \override NoteHead #'stencil = #ly:text-interface::print \once \override NoteHead #'text = \markup { \postscript #courbepostscript } \once \override Stem #'transparent = ##t \once \override LedgerLineSpanner #'transparent = ##t } trillMarkup = \markup { \tiny { \translate #'(-0.2 . 0) \natural \translate #'(0 . 0.2) \rotate #10 \line { \combine \draw-line #'(2.7 . 0) \hspace #2.7 \arrow-head #X #RIGHT ##f } \translate #'(0 . 0.5) \sharp \translate #'(0 . 0.2) \rotate #-10 \line { \combine \draw-line #'(2.7 . 0) \hspace #2.7 \arrow-head #X #RIGHT ##f } \natural } } \score { { \clef F \afterGrace e1*1/4\trill { \trillContempo e^\trillMarkup } s2. c4 c c d e2 d c4 e d d c1 } } \paper { ragged-right = ##f } %----- Bon week-end ! Cécile Le 17/06/2011 19:07, Éditions IN NOMINE a écrit : Bonjour à toute la troupe ! |
[Prev in Thread] | Current Thread | [Next in Thread] |