Re: [newbie] Some \markup stuff

[Aaron Hill]

On 2019-01-14 8:58 pm, Mark Probert wrote:
Thank you! Though the gamma thing doesn't really work in my case (I'm
using Lilypond under org-babel ;-) ) but I did find a nice solution (it
was in another section of documentation I hadn't gotten to.. doh!  The
relevant section now looks lie\ke:
---< cut >---
Gamma = \markup { \char ##x0393 }
chant = \relative c { \clef bass g1 a b c d e }
verba = \lyricmode { \Gamma A B C D E }
verbb = \lyricmode {
           \override LyricText.font-shape = #'italic
           ut re mi fa sol la }
---< cut >---

and it comes out just the way I am after!

If you need more than just the one Greek letter, you can always extend 
the \paper's replacement-alist in a similar fashion to how 
include-special-characters works.  Attached is an example with most 
(though not all) Greek letters.


-- Aaron Hill\version "2.19.82"
\paper {
  #(define (include-greek-characters)
    (add-text-replacements!
      '(("&Alpha;" . "Α") ("&alpha;" . "α")
        ("&Alphat;" . "Ά") ("&alphat;" . "ά")
        ("&Beta;" . "Β") ("&beta;" . "β")
        ("&Gamma;" . "Γ") ("&gamma;" . "γ")
        ("&Delta;" . "Δ") ("&delta;" . "δ")
        ("&Epsilon;" . "Ε") ("&epsilon;" . "ε")
        ("&Epsilont;" . "Έ") ("&epsilont;" . "έ")
        ("&Zeta;" . "Ζ") ("&zeta;" . "ζ")
        ("&Eta;" . "Η") ("&eta;" . "η")
        ("&Etat;" . "Ή") ("&etat;" . "ή")
        ("&Theta;" . "Θ") ("&theta;" . "θ")
        ("&Iota;" . "Ι") ("&iota;" . "ι")
        ("&Iotad;" . "Ϊ") ("&iotad;" . "ϊ") ("&iotadt;" . "ΐ")
        ("&Iotat;" . "Ί") ("&iotat;" . "ί")
        ("&Kappa;" . "Κ") ("&kappa;" . "κ")
        ("&Lambda;" . "Λ") ("&lambda;" . "λ")
        ("&Mu;" . "Μ") ("&mu;" . "μ")
        ("&Nu;" . "Ν") ("&nu;" . "ν")
        ("&Xi;" . "Ξ") ("&xi;" . "ξ")
        ("&Omicron;" . "Ο") ("&omicron;" . "ο")
        ("&Omicront;" . "Ό") ("&omicront;" . "ό")
        ("&Pi;" . "Π") ("&pi;" . "π")
        ("&Rho;" . "Ρ") ("&rho;" . "ρ")
        ("&Sigma;" . "Σ") ("&sigma;" . "σ") ("&sigmaf;" . "ς")
        ("&Tau;" . "Τ") ("&tau;" . "τ")
        ("&Upsilon;" . "Υ") ("&upsilon;" . "υ")
        ("&Upsilond;" . "Ϋ") ("&upsilond;" . "ϋ") ("&upsilondt;" . "ΰ")
        ("&Upsilont;" . "Ύ") ("&upsilont;" . "ύ")
        ("&Phi;" . "Φ") ("&phi;" . "φ")
        ("&Chi;" . "Χ") ("&chi;" . "χ")
        ("&Psi;" . "Ψ") ("&psi;" . "ψ")
        ("&Omega;" . "Ω") ("&omega;" . "ω")
        ("&Omegat;" . "Ώ") ("&omegat;" . "ώ"))))
}
\version "2.19.82"
\include "greek.ily"
\paper { #(include-greek-characters) }
\markup {
  "&Tau;&alpha;&chi;&iotat;&sigma;&tau;&eta;"
  "&alpha;&lambda;&omegat;&pi;&eta;&xi;"
  "&beta;&alpha;&phi;&etat;&sigmaf;"
  "&psi;&eta;&mu;&epsilont;&nu;&eta;"
  "&gamma;&eta;,"
  
"&delta;&rho;&alpha;&sigma;&kappa;&epsilon;&lambda;&iotat;&zeta;&epsilon;&iota;"
  "&upsilon;&pi;&epsilont;&rho;"
  "&nu;&omega;&theta;&rho;&omicron;&upsilont;"
  "&kappa;&upsilon;&nu;&omicront;&sigmaf;"
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user