Simplify the 1st stage.

diff --git a/FLT/CHAM-GENERIC.flt b/FLT/CHAM-GENERIC.flt
index 5b46bc4..9bbd5ae 100644 (file)
--- a/FLT/CHAM-GENERIC.flt
+++ b/FLT/CHAM-GENERIC.flt
@@ -10,28 +10,17 @@
 ;;; For the Cham proportional fonts to draw Cham script.
 
 (category
- ;; C: consonant normal
- ;; A: independent vowel A
- ;; I: independent vowel (except for A)
- ;; m: medial consonant (prefix)
- ;; M: medial consonant (postfix)
- ;; v: dependent vowel (prefix)
- ;; V: dependent vowel (postfix)
- ;; L: vowel lengthener
- ;; F: consonant sign final (independent)
- ;; f: consonant sign final (dependent)
- ;; E: else (independent)
- (0xAA00 0xAA5F        ?E)
- (0xAA00       ?A)
- (0xAA01 0xAA05        ?I)
- (0xAA06 0xAA28        ?C)
- (0xAA29       ?L)
- (0xAA2A 0xAA32        ?V)
- (0xAA2F 0xAA30        ?v)
- (0xAA33 0xAA36        ?M)
- (0xAA34       ?m)
- (0xAA40 0xAA4D ?F)
- (0xAA43       ?f)
+ (0xAA00 0xAA5F        ?E) ;; E: anyting else (independent)
+ (0xAA00       ?A) ;; A: independent vowel A
+ (0xAA01 0xAA05        ?I) ;; I: independent vowel (except for A)
+ (0xAA06 0xAA28        ?C) ;; C: consonant normal
+ (0xAA29       ?L) ;; L: vowel lengthener
+ (0xAA2A 0xAA32        ?V) ;; V: dependent vowel (postfix)
+ (0xAA2F 0xAA30        ?v) ;; v: dependent vowel (prefix)
+ (0xAA33 0xAA36        ?M) ;; M: medial consonant (postfix)
+ (0xAA34       ?m) ;; m: medial consonant (prefix)
+ (0xAA40 0xAA4D ?F) ;; F: consonant sign final (independent)
+ (0xAA43       ?f) ;; f: consonant sign final (dependent)
  (0xAA4C       ?f))
 
 (generator
@@ -39,14 +28,10 @@
   (cond
    ("([IA])(v?)(V?L?)([fF]?)"
     | < (2 =) (1 =) (3 = *) > (4 =) |)
-   ("([CA])(m?)(M?)(v?)(V?L?)([fF]?)"
-    | < (4 = ) (2 =) (1 =) (3 =) (5 = *) > (6 =) |)
-   ((range 0xAA35 0xAA36)
-    [ = ])
-   ("[VLf]"
-    [ = ] )
+   ("([CA])(m?)(M?M?)(v?)(V?L?)([fF]?)"
+    | < (4 = ) (2 =) (1 =) (3 = *) (5 = *) > (6 =) |)
    ("."
-    =))
+    [ = ]))
   *))
 
 (generator