Icelandic text.

[Johan Schoone]

Some time ago a question appeared concerning Icelandic texts (lyrics?).
In the current setup, quite a few glyphs (not just Ð/ð and Þ/þ).
The desired characters are in the `European Computer Modern' font
family, which should be available with most current LaTeX distributions.
T1 encoding required. Both changes pave the way for adding Greek and
Cyrillic font families (I included the Greek ones).

In addition, a fix for a bug that caused `ly2dvi -s language=greek'
(or any supported language) to generate faulty LaTeX code got squashed.

Please check if this patch provides the desired result and does not
break anything. You need to set the font-name property to `ecrm'
for Icelandic lyrics...

----------
diff -crN lilypond-1.3.149/scm/font.scm lilypond/scm/font.scm
*** lilypond-1.3.149/scm/font.scm       Mon Apr 16 23:17:46 2001
--- lilypond/scm/font.scm       Thu Apr 19 13:34:28 2001
***************
*** 102,107 ****
--- 102,208 ----
      ((-2 medium caps roman cmcsc 7) . "cmcsc7")
      ((-3 medium caps roman cmcsc 7) . "cmcsc7")
  
+     ;; European Computer Modern
+     ((4 medium upright roman ecrm 17) . "ecrm17")
+     ((3 medium upright roman ecrm 17) . "ecrm17")
+     ((2 medium upright roman ecrm 12) . "ecrm12")
+     ((1 medium upright roman ecrm 12) . "ecrm12")
+     ((0 medium upright roman ecrm 10) . "ecrm10")
+     ((-1 medium upright roman ecrm 8) . "ecrm8" )
+     ((-2 medium upright roman ecrm 7) . "ecrm7" )
+     ((-3 medium upright roman ecrm 6) . "ecrm6" )
+     ((-4 medium upright roman ecrm 5) . "ecrm5" )
+     ((-5 medium upright roman ecrm 5) . "ecrm5" )
+ 
+     ((3 medium italic roman ecci 12) . "ecci12")
+     ((2 medium italic roman ecci 12) . "ecci12")
+     ((1 medium italic roman ecci 12) . "ecci12")
+     ((0 medium italic roman ecci 10) . "ecci10")
+     ((-1 medium italic roman ecci 8) . "ecci8")    
+     ((-2 medium italic roman ecci 7) . "ecci7")
+     ((-3 medium italic roman ecci 7) . "ecci7")    
+ 
+     ((2 bold upright roman ecrb 12) . "ecrb12")
+     ((1 bold upright roman ecrb 12) . "ecrb12")
+     ((0 bold upright roman ecrb 10) . "ecrb10")
+     ((-1 bold upright roman ecrb 8) . "ecrb8")
+     ((-2 bold upright roman ecrb 7) . "ecrb7")
+     
+     ((2 bold italic roman ecbi 12) . "ecbi12")
+     ((1 bold italic roman ecbi 12) . "ecbi12")
+     ((0 bold italic roman ecbi 10) . "ecbi10")
+     ((-1 bold italic roman ecbi 8) . "ecbi8")
+     ((-2 bold italic roman ecbi 7) . "ecbi7")
+     
+     ((4 medium upright typewriter ectt 17) . "ectt17")
+     ((3 medium upright typewriter ectt 17) . "ectt17")
+     ((2 medium upright typewriter ectt 12) . "ectt12")
+     ((1 medium upright typewriter ectt 12) . "ectt12")
+     ((0 medium upright typewriter ectt 10) . "ectt10")
+     ((-1 medium upright typewriter ectt 8) . "ectt8" )
+     ((-2 medium upright typewriter ectt 7) . "ectt7" )
+     ((-3 medium upright typewriter ectt 6) . "ectt6" )
+     ((-4 medium upright typewriter ectt 5) . "ectt5" )
+     ((-5 medium upright typewriter ectt 5) . "ectt5" )
+     
+     ((3 medium caps roman ecsc 12) . "ecsc12")
+     ((2 medium caps roman ecsc 12) . "ecsc12")
+     ((1 medium caps roman ecsc 12) . "ecsc12")
+     ((0 medium caps roman ecsc 10) . "ecsc10")
+     ((-1 medium caps roman ecsc 8) . "ecsc8")
+     ((-2 medium caps roman ecsc 7) . "ecsc7")
+     ((-3 medium caps roman ecsc 7) . "ecsc7")
+     
+     ;; Greek characters (from cbgreek)
+     ((4 medium upright roman grmn 17) . "grmn17")
+     ((3 medium upright roman grmn 17) . "grmn17")
+     ((2 medium upright roman grmn 12) . "grmn12")
+     ((1 medium upright roman grmn 12) . "grmn12")
+     ((0 medium upright roman grmn 10) . "grmn10")
+     ((-1 medium upright roman grmn 8) . "grmn8" )
+     ((-2 medium upright roman grmn 7) . "grmn7" )
+     ((-3 medium upright roman grmn 6) . "grmn6" )
+     ((-4 medium upright roman grmn 5) . "grmn5" )
+     ((-5 medium upright roman grmn 5) . "grmn5" )
+ 
+     ((3 medium italic roman grmi 12) . "grmi12")
+     ((2 medium italic roman grmi 12) . "grmi12")
+     ((1 medium italic roman grmi 12) . "grmi12")
+     ((0 medium italic roman grmi 10) . "grmi10")
+     ((-1 medium italic roman grmi 8) . "grmi8")    
+     ((-2 medium italic roman grmi 7) . "grmi7")
+     ((-3 medium italic roman grmi 7) . "grmi7")    
+ 
+     ((2 bold upright roman grxn 12) . "grxn12")
+     ((1 bold upright roman grxn 12) . "grxn12")
+     ((0 bold upright roman grxn 10) . "grxn10")
+     ((-1 bold upright roman grxn 8) . "grxn8")
+     ((-2 bold upright roman grxn 7) . "grxn7")
+     
+     ((2 bold italic roman grxi 12) . "grxi12")
+     ((1 bold italic roman grxi 12) . "grxi12")
+     ((0 bold italic roman grxi 10) . "grxi10")
+     ((-1 bold italic roman grxi 8) . "grxi8")
+     ((-2 bold italic roman grxi 7) . "grxi7")
+     
+     ((4 medium upright typewriter gttn 17) . "gttn17")
+     ((3 medium upright typewriter gttn 17) . "gttn17")
+     ((2 medium upright typewriter gttn 12) . "gttn12")
+     ((1 medium upright typewriter gttn 12) . "gttn12")
+     ((0 medium upright typewriter gttn 10) . "gttn10")
+     ((-1 medium upright typewriter gttn 8) . "gttn8" )
+     ((-2 medium upright typewriter gttn 7) . "gttn7" )
+     ((-3 medium upright typewriter gttn 6) . "gttn6" )
+     ((-4 medium upright typewriter gttn 5) . "gttn5" )
+     ((-5 medium upright typewriter gttn 5) . "gttn5" )
+     
+     ((3 medium caps roman grmc 12) . "grmc12")
+     ((2 medium caps roman grmc 12) . "grmc12")
+     ((1 medium caps roman grmc 12) . "grmc12")
+     ((0 medium caps roman grmc 10) . "grmc10")
+     ((-1 medium caps roman grmc 8) . "grmc8")
+     ((-2 medium caps roman grmc 7) . "grmc7")
+     ((-3 medium caps roman grmc 7) . "grmc7")
      
      ;; should use the same brace font every where and fix C++ code.
      ((2 * * braces feta-braces 26) . "feta-braces26")
diff -crN lilypond-1.3.149/scripts/ly2dvi.py lilypond/scripts/ly2dvi.py
*** lilypond-1.3.149/scripts/ly2dvi.py  Sun Apr 15 04:06:10 2001
--- lilypond/scripts/ly2dvi.py  Thu Apr 19 12:03:01 2001
***************
*** 478,484 ****
        s = s + '\\documentclass[%s]{article}\n' % options
  
        if extra['language']:
!               s = s + r'\usepackage[%s]{babel}\n' % extra['language'][-1]
  
  
        s = s + '\\usepackage{%s}\n' \
--- 478,484 ----
        s = s + '\\documentclass[%s]{article}\n' % options
  
        if extra['language']:
!               s = s + '\\usepackage[%s]{babel}\n' % extra['language'][-1]
  
  
        s = s + '\\usepackage{%s}\n' \
***************
*** 508,513 ****
--- 508,514 ----
  
        s = s + r'''
  \usepackage[latin1]{inputenc}
+ \usepackage[T1]{fontenc}
  \input{titledefs}
  \makeatletter
  address@hidden
-- 
http://members.chello.nl/~j.schoone                                \\|//
Registered Linux user #78364 - The Linux Counter - http://counter.li.org
Assume nothing, expect anything.