Accented Greek capitals.

Ones with tonos put the accent to the left of the letter rather than
above it, which makes for a rather squashed Omega.  In real teletext,
the tonos is put in the character cell to the left, but I don't know
if that can be coded in Unicode properly.  Maybe I need a silly
multiple substitution for a space followed by an capital with tonos.

diff --git a/bedstead.c b/bedstead.c
index 722410d3712683bb69ace95450c6703e3469ef52..8e2da16bd2ae37e714eb342938382f91c486405b 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -745,6 +745,13 @@ static struct glyph {
  {{001,001,001,001,001,001,037,000,000}, 0x02e9 }, /* Extra-low tone letter */
 
  /* Greek and Coptic*/
+ {{022,025,005,005,007,005,005,000,000}, 0x0386, "Alphatonos" },
+ {{027,024,004,006,004,004,007,000,000}, 0x0388, "Epsilontonos" },
+ {{025,025,005,007,005,005,005,000,000}, 0x0389, "Etatonos" },
+ {{027,022,002,002,002,002,007,000,000}, 0x038a, "Iotatonos" },
+ {{022,025,005,005,005,005,002,000,000}, 0x038c, "Omicrontonos" },
+ {{025,025,005,002,002,002,002,000,000}, 0x038e, "Upsilontonos" },
+ {{022,025,005,005,005,002,007,000,000}, 0x038f, "Omegatonos" },
  {{004,012,021,021,037,021,021,000,000}, 0x0391, "Alpha" },
  {{036,021,021,036,021,021,036,000,000}, 0x0392, "Beta" },
  {{037,020,020,020,020,020,020,000,000}, 0x0393, "Gamma" },
@@ -769,6 +776,8 @@ static struct glyph {
  {{021,021,012,004,012,021,021,000,000}, 0x03a7, "Chi" },
  {{025,025,025,025,025,016,004,000,000}, 0x03a8, "Psi" },
  {{016,021,021,021,021,012,033,000,000}, 0x03a9 }, /* Omega */
+ {{012,000,016,004,004,004,016,000,000}, 0x03aa, "Iotadieresis" },
+ {{012,000,021,012,004,004,004,000,000}, 0x03ab, "Upsilondieresis" },
  {{000,000,015,022,022,022,015,000,000}, 0x03b1, "alpha" },
  {{016,021,021,036,021,021,036,020,020}, 0x03b2, "beta" },
  {{000,000,021,021,012,012,004,004,004}, 0x03b3, "gamma" },