Re: musicglyph: accidentals--1

[Nicolas Sceaux]

Mon, 02 Feb 2004 13:51:21 +0200 (EET), Heikki a dit : 

 > On Mon, 02 Feb 2004 11:39:54 +0100 Han-Wen Nienhuys
 > <address@hidden> wrote:

 >> I am a little worried by the namespace pollution. I think it is better
 >> to define markup-commands like flat-markup, threeq-markup, so that
 >> \flat \natural etc. only work in \markup { }

 > I completely agree. This would resolve the strange naming of accidentals.
 > Actually, I was thinking that there should be names which work only in some
 > context .. but that feature is already there, it's great!

I second that.

------------------------------------
#(def-markup-command (doublesharp paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals-4")))
#(def-markup-command (threeqsharp paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals-3")))
#(def-markup-command (sharp paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals-2")))
#(def-markup-command (semisharp paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals-1")))
#(def-markup-command (natural paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals-0")))
#(def-markup-command (semiflat paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals--1")))
#(def-markup-command (flat paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals--2")))
#(def-markup-command (threeqflat paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals--3")))
#(def-markup-command (doubleflat paper props) ()
  (interpret-markup paper props (markup #:musicglyph "accidentals--4")))

\score {
    \notes {
        c''-\markup { \doublesharp
                      \threeqsharp 
                      \sharp
                      \semisharp
                      \natural
                      \semiflat
                      \flat 
                      \threeqflat
                      \doubleflat }
    }
    \paper { raggedright = ##t }
}
------------------------------------

nicolas