From d7fc0131f0383103725ee88fbc7524aa591f5183 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Wed, 21 Jul 2004 08:59:21 +0000
Subject: [PATCH] *** empty log message ***

---
 MYANMAR-ZEDI.flt |  175 +++++++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 141 insertions(+), 34 deletions(-)

diff --git a/MYANMAR-ZEDI.flt b/MYANMAR-ZEDI.flt
index 3b795dd..b816727 100644
--- a/MYANMAR-ZEDI.flt
+++ b/MYANMAR-ZEDI.flt
@@ -23,60 +23,167 @@
 
 ;;; <li> MYANMAR-ZEDI.flt
 ;;;
-;;; For the Myanmar Zedi family fonts to draw Myanmar script.  Please
-;;; note that this is not yet completed, i.e. no rules for ligature,
-;;; etc are added.  The fonts are available at:
+;;; For the Myanmar Zedi family fonts to draw Myanmar script.
 ;;; <ul>
-;;; <li> infopage: ???
+;;; <li> infopage: http://www.myazedi.com/downloads/MyaZedi_M17N.ttf
 ;;; </ul>
 
 (category
  ;; C: Consonant
+ ;; c: NGA
+ ;; I: Independent vowel
  ;; V: Dependent vowel
- ;; E: VIWEL SIGN E
  ;; H: Halant
  ;; D: Dependent sign
  ;; Z: ZWNJ
  ;; O: Other
  (0x1000 0x107F ?O)
  (0x1000 0x1020 ?C)
- (0x1021 0x102A	?O)
- (0x102C 0x1030	?V)
- (0x1031	?E)
- (0x1032	?V)
+ (0x1004	?c)
+ (0x1021 0x102A ?I)
+ (0x102C 0x1032	?V)
  (0x1036 0x1038	?D)
  (0x1039	?H)
  (0x1056 0x1059	?D)
- (0x200C	?Z)
+ (0x200C	?n)
  )
 
 (generator
  (0
   (cond
-   ;; Consonant + VOWEL SIGN E
-   ("(C)(E)"
-    ;; Put E at the head.
-    < (2 =) (1 = ) >)
-   ;; Consonant + Halant followed by ZWNJ
-   ("(CH)Z"
-    ;; Display Halant.
-    < (1 = =) >)
-   ;; Consonant + Halant not followed by ZWNJ
-   ("CH"
-    ;; Don't display Halant.
-    =)
-   ;; Consonant + the other dependend vowel/sign
-   ("C[VD]"
-    < = = >)
-   ;; Single E
-   ("E"
-    ;; Append dotted circle.
-    = 0x25CC)
-   ;; The other single combining character
-   ("[VHD]"
-    ;; Prepend dotted circle.
-    0x25CC =)
-   ;; The othe single character
+   ;;
+   ("(([Cc]Hn?)*[Cc])(V[VH]?D?|D)"
+    | (1 kinzi-halant) (3 = *) |)
+   ("(([Cc]Hn?)*[Cc]Hn?)(V[VH]?D?|D)"
+    | (1 kinzi-halant) (3 = *) |)
+   ("(([Cc]Hn?)*[Cc])(Hn?)?"
+    | kinzi-halant |)
+   ("IV*"
+    | = * |)
    ("."
     [ = ]))
+  *)
+
+ (kinzi-halant
+  (cond
+   ("(cHn)(.*)"
+    (1 = =) (2 kinzi-halant))
+   ("(cH)([Cc]H?n?)(.*)"
+    (2 (cond ("..." = =) (".*" =)) (1 0xE390) (3 kinzi-halant)))
+   ("(CHn)(.*)"
+    (1 = =) (2 kinzi-halant))
+   ("(CH)(.*)"
+    (1 =) (2 kinzi-halant))
+   ("." =))))
+
+(category
+ (0x1000 0x107F ?O)
+ (0x1000 0x1020 ?C)
+ (0x1000 0x1003 ?S)
+ (0x1005 0x1007 ?S)
+ (0x100B 0x100C ?S)
+ (0x100F 0x1019 ?S)
+ (0x101C	?S)
+ (0x1039	?H)
+ (0x200C	?n)
+ (0xE390	?K)			; Kinzi
+ )
+
+(generator
+ (0
+  (cond
+   (" ([CSHK][CSHK]*)([^ ]*) "
+    | (1 consonant *) (2 = *) |)
+   (" ([^ ]*]) "
+    | (1 = *) |)
+   ("."
+    =))
+  *)
+
+ (consonant
+  (cond
+   ((0x1009 0x1039)	0xE009 0x1039)
+   ((0x1009 0x1005)	0xE109 0xE005)
+   ((0x1014 0x1010)	0xE140 0xE010)
+   ((0x101B 0x102F)	0xE01B 0x102F)
+   ((0x1001 0x101A)	0x1001 0xE1A1)
+   ((0x1001 0x101B)	0xE1B1 0x1001)
+   ((0x1001 0x101D)	0x1001 0xE01D)
+   ((0x101C 0x101F)	0x101C 0xE1F1)
+   ((0x100B 0x100C)	0xE10C)
+   ((0x100D 0x100D)	0xE00D)
+   ((0x100E 0x100D)	0xE10D)
+   ((0x100F 0x100D)	0xE20D)
+   ((0x101E 0x101E)	0xE01E)
+   ("([CS])(S)" (1 =) (2 subscript))
+   ("." =)))
+
+ (subscript
+  ((range 0x1000 0x101C) 0xE000)))
+
+(category
+ (0x1000 0x107F ?O)
+ (0x1000 0x1020 ?C)
+ (0x1001 0x1002 ?c)
+ (0x1004	?c)
+ (0x1013	?c)
+ (0x101D	?c)
+ (0x102C	?A)			; Vowel AA
+ (0x102C 0x1032	?V)
+ (0x1031	?E)			; Vowel E
+ (0x1036 0x1038	?D)
+ (0x1039	?H)
+ (0x1056 0x1059	?D)
+ (0x200C	?n)
+ (0xE000 0xE7FF ?C)
+ (0xE390	?K)			; Kinzi
+)
+
+(generator
+ (0
+  (cond
+   (" ([CcKH]*)([Cc][KH]?)(E)([^ ]*) "
+    | (1 = *) (3 =) (2 = *) (4 = *) |)
+   (" ([CcKH]*)(c)(AH)([^ ]*) "
+    | (1 = *) (2 =) 0xE02D (4 = *) |)
+   (" ([CcKH]*)(c)(A)([^ H]*) "
+    | (1 = *) (2 =) 0xE02C (4 = *) |)
+   (" ([^ ]*) "
+    | (1 = *) |)
+   ("."
+    =))
+  *))
+
+(category
+ (0x1000 0x107F ?O)
+ (0x1000 0x1003 ?b)
+ (0x1005 0x1007 ?b)
+ (0x100B 0x100C ?b)
+ (0x100F 0x1019 ?b)
+ (0x100C	?b)
+ (0x102F	?U)			; Vowel U
+ (0x1030	?u)			; Vowel UU
+ (0xE000 0xE7FF	?O)
+ (0xE000 0xE01D ?b)
+ (0xE1A1 0xE1B8 ?b))
+
+(generator
+ (0
+  (cond
+   (" ([^ ]*) "
+    <
+    (1 (cond
+	((0xE390 0x102D) 0xE391)
+	((0xE390 0x102E) 0xE392)
+	((0xE390 0x1036) 0xE393)
+	((0x1014 0x1037) 0x1014 0xE037)
+	((0x101B 0x1037) 0x101B 0xE137)
+	((0x102D 0x1037) 0xE2D1)
+	("(b)U" (1 =) 0xE2F1)
+	("(b)u" (1 =) 0xE2F2)
+	("." =))
+       *)
+    >)
+   ("."
+    =))
   *))
-- 
1.7.10.4