First attempt at Armenian.

diff --git a/bedstead.c b/bedstead.c
index 1b3fdffe6038738f73c7f846de2fd8fa3d50b66c..8726a59b9ebc03b8639eca93f80182e4b5b2b6af 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -611,6 +611,86 @@ struct glyph {
  {{000,000,021,011,012,004,012,022,021}, 0x03c7, "chi" },
  {{000,000,025,025,025,025,016,004,004}, 0x03c8, "psi" },
  {{000,000,012,021,025,025,012,000,000}, 0x03c9, "omega" },
+
+ /* Armenian */
+ {{021,021,021,021,025,022,015,000,000}, 0x0531 }, /* Ayb */
+ {{016,021,021,020,037,020,020,000,000}, 0x0532 }, /* Ben */
+ {{014,022,022,022,017,002,002,000,000}, 0x0533 }, /* Gim */
+ {{014,022,022,002,003,002,002,000,000}, 0x0534 }, /* Da */
+ {{020,020,037,020,021,021,016,000,000}, 0x0535 }, /* Ech */
+ {{016,021,021,002,004,030,037,000,000}, 0x0536 }, /* Za */
+ {{020,020,020,037,020,020,036,000,000}, 0x0537 }, /* Eh */
+ {{016,021,021,020,020,020,037,000,000}, 0x0538 }, /* Et */
+ {{016,021,021,023,025,025,022,000,000}, 0x0539 }, /* To */
+ {{002,002,017,022,022,022,014,000,000}, 0x053a }, /* Zhe */
+ {{020,020,036,021,021,021,020,000,000}, 0x053b }, /* Ini */
+ {{020,020,020,020,020,020,037,000,000}, 0x053c }, /* Liwn */
+ {{020,020,035,025,025,025,022,000,000}, 0x053d }, /* Xeh */
+ {{023,024,016,021,021,021,016,000,000}, 0x053e }, /* Ca */
+ {{020,021,021,017,001,001,001,000,000}, 0x053f }, /* Ken */
+ {{002,001,003,014,020,014,003,000,000}, 0x0540 }, /* Ho */
+ {{016,021,021,001,015,022,015,000,000}, 0x0541 }, /* Ja */
+ {{014,022,022,002,002,002,003,000,000}, 0x0542 }, /* Ghad */
+ {{021,012,004,012,021,021,037,000,000}, 0x0543 }, /* Cheh */
+ {{023,022,022,022,022,022,014,000,000}, 0x0544 }, /* Men */
+ {{016,021,001,036,001,021,016,000,000}, 0x0545 }, /* Yi */
+ {{030,010,010,010,011,011,006,000,000}, 0x0546 }, /* Now */
+ {{030,007,010,020,021,021,016,000,000}, 0x0547 }, /* Sha */
+ {{016,021,021,021,021,021,021,000,000}, 0x0548 }, /* Vo */
+ {{016,021,021,001,002,034,003,000,000}, 0x0549 }, /* Cha */
+ {{016,025,025,005,005,001,001,000,000}, 0x054a }, /* Peh */
+ {{016,021,021,031,005,026,037,000,000}, 0x054b }, /* Jheh */
+ {{014,022,022,023,022,022,022,000,000}, 0x054c }, /* Ra */
+ {{021,021,021,021,021,021,016,000,000}, 0x054d }, /* Seh */
+ {{002,022,022,022,016,002,003,000,000}, 0x054e }, /* Vew */
+ {{016,021,020,016,001,021,016,000,000}, 0x054f }, /* Tiwn */
+ {{016,021,021,020,020,020,020,000,000}, 0x0550 }, /* Reh */
+ {{016,021,011,036,001,021,016,000,000}, 0x0551 }, /* Co */
+ {{020,020,037,020,020,020,020,000,000}, 0x0552 }, /* Yiwn */
+ {{004,016,025,025,025,016,004,000,000}, 0x0553 }, /* Piwr */
+ {{006,011,011,016,010,037,010,000,000}, 0x0554 }, /* Keh */
+ {{016,021,021,021,021,021,016,000,000}, 0x0555 }, /* Oh */
+ {{014,024,016,005,025,025,016,000,000}, 0x0556 }, /* Feh */
+
+ {{000,000,025,025,025,025,013,000,000}, 0x0561 }, /* ayb */
+ {{000,000,036,021,021,020,037,020,020}, 0x0562 }, /* ben */
+ {{000,000,016,022,022,022,017,002,002}, 0x0563 }, /* gim */
+ {{000,000,034,022,022,022,023,002,002}, 0x0564 }, /* da */
+ {{020,020,037,020,021,021,017,000,000}, 0x0565 }, /* ech */
+ {{000,000,016,022,022,022,016,002,003}, 0x0566 }, /* za */
+ {{020,020,037,020,020,020,036,000,000}, 0x0567 }, /* eh */
+ {{000,000,036,021,021,021,021,020,037}, 0x0568 }, /* et */
+ {{000,000,036,021,023,025,022,020,020}, 0x0569 }, /* to */
+ {{002,002,017,022,022,022,014,000,000}, 0x056a }, /* zhe */
+ {{020,020,036,021,021,021,021,020,020}, 0x056b }, /* ini */
+ {{000,000,010,010,010,010,010,010,016}, 0x056c }, /* liwn */
+ {{020,020,031,025,025,025,023,020,020}, 0x056d }, /* xeh */
+ {{010,020,017,021,021,021,016,000,000}, 0x056e }, /* ca */
+ {{020,020,021,021,021,021,017,001,001}, 0x056f }, /* ken */
+ {{020,020,036,021,021,021,021,000,000}, 0x0570 }, /* ho */
+ {{004,010,004,012,021,021,017,000,000}, 0x0571 }, /* ja */
+ {{000,000,034,022,022,022,022,002,003}, 0x0572 }, /* ghad */
+ {{016,020,036,021,021,021,017,000,000}, 0x0573 }, /* cheh */
+ {{003,002,022,022,022,022,016,000,000}, 0x0574 }, /* men */
+ {{000,000,004,004,004,004,004,004,010}, 0x0575 }, /* yi */
+ {{030,010,011,011,011,011,007,000,000}, 0x0576 }, /* now */
+ {{000,000,016,001,001,002,004,010,037}, 0x0577 }, /* sha */
+ {{000,000,036,021,021,021,021,000,000}, 0x0578 }, /* vo */
+ {{000,000,004,010,006,010,020,020,037}, 0x0579 }, /* cha */
+ {{000,000,025,025,025,025,013,001,001}, 0x057a }, /* peh */
+ {{000,000,016,021,022,014,010,020,037}, 0x057b }, /* jheh */
+ {{000,000,036,021,021,022,023,000,000}, 0x057c }, /* ra */
+ {{000,000,021,021,021,021,017,000,000}, 0x057d }, /* seh */
+ {{002,002,022,022,022,022,016,002,003}, 0x057e }, /* vew */
+ {{000,000,026,025,025,025,015,000,000}, 0x057f }, /* tiwn */
+ {{000,000,036,021,021,021,021,020,020}, 0x0580 }, /* reh */
+ {{000,000,017,021,021,021,017,001,016}, 0x0581 }, /* co */
+ {{000,000,020,020,020,020,037,000,000}, 0x0582 }, /* yiwn */
+ {{004,004,026,025,025,025,015,004,004}, 0x0583 }, /* piwr */
+ {{000,000,036,021,021,021,036,020,037}, 0x0584 }, /* keh */
+ {{000,000,016,021,021,021,016,000,000}, 0x0585 }, /* oh */
+ {{014,024,016,005,025,025,016,004,004}, 0x0586 }, /* feh */
+ {{020,020,024,024,024,024,017,000,000}, 0x0587 }, /* ech_yiwn */
 };
 
 static void dolookups(struct glyph *);

diff --git a/sample.ps b/sample.ps
index 28d814d3c4e236b400ec7e04cbad875e46889e02..e251d83a10f11c64bdcf6f4c6950f6bbf680b9c9 100644 (file)
--- a/sample.ps
+++ b/sample.ps
@@ -1,4 +1,4 @@
-<< /HWResolution [ 72 72 ] /PageSize [ 772 404 ] >> setpagedevice
+<< /HWResolution [ 72 72 ] /PageSize [ 772 564 ] >> setpagedevice
 /Bedstead findfont 40 scalefont setfont
 /row { %def
     0 0 moveto
@@ -8,7 +8,7 @@
     } forall
     0 -40 translate
 } def
-0 373 translate
+0 533 translate
 [ /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z ] row
 [ /a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z ] row
 [ /a.sc/b.sc/c.sc/d.sc/e.sc/f.sc/g.sc/h.sc/i.sc/j.sc/k.sc/l.sc/m.sc
@@ -25,6 +25,16 @@
   /uni0438/uni0439/uni043A/uni043B/uni043C/uni043D/uni043E/uni043F
   /uni0440/uni0441/uni0442/uni0443/uni0444/uni0445/uni0446/uni0447
   /uni0448/uni0449/uni044A/uni044B/uni044C/uni044D/uni044E/uni044F ] row
+[ /uni0531/uni0532/uni0533/uni0534/uni0535/uni0536/uni0537/uni0538
+  /uni0539/uni053A/uni053B/uni053C/uni053D/uni053E/uni053F/uni0540
+  /uni0541/uni0542/uni0543/uni0544/uni0545/uni0546/uni0547/uni0548 ] row
+[ /uni0549/uni054A/uni054B/uni054C/uni054D/uni054E/uni054F/uni0550
+  /uni0551/uni0552/uni0553/uni0554/uni0555/uni0556 ] row
+[ /uni0561/uni0562/uni0563/uni0564/uni0565/uni0566/uni0567/uni0568
+  /uni0569/uni056A/uni056B/uni056C/uni056D/uni056E/uni056F/uni0570
+  /uni0571/uni0572/uni0573/uni0574/uni0575/uni0576/uni0577/uni0578 ] row
+[ /uni0579/uni057A/uni057B/uni057C/uni057D/uni057E/uni057F/uni0580
+  /uni0581/uni0582/uni0583/uni0584/uni0585/uni0586/uni0587 ] row
 [ /uni05EA/uni05E9/uni05E8
   /uni05E7/uni05E6/uni05E5/uni05E4/uni05E3/uni05E2/uni05E1/uni05E0
   /uni05DF/uni05DE/uni05DD/uni05DC/uni05DB/uni05DA/uni05D9/uni05D8