THAI-TIS620.flt

   1 ;; THAI-TIS620.flt -- Font Layout Table for Thai (TIS620 font)
   2 ;; Copyright (C) 2003, 2004
   3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   4 ;;   Registration Number H15PRO112
   5
   6 ;; This file is part of the m17n database; a sub-part of the m17n
   7 ;; library.
   8
   9 ;; The m17n library is free software; you can redistribute it and/or
  10 ;; modify it under the terms of the GNU Lesser General Public License
  11 ;; as published by the Free Software Foundation; either version 2.1 of
  12 ;; the License, or (at your option) any later version.
  13
  14 ;; The m17n library is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 ;; Lesser General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU Lesser General Public
  20 ;; License along with the m17n library; if not, write to the Free
  21 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  22 ;; 02111-1307, USA.
  23
  24 ;;; <li> THAI-TIS620.flt
  25 ;;;
  26 ;;; For fixed width fonts of TIS620 encoding to draw Thai script.
  27
  28 (category
  29  ;; C: CONSONANT
  30  ;; V: VOWEL UPPER
  31  ;; v: VOWEL LOWER
  32  ;; T: TONE
  33  ;; I: INDEPENDENT
  34  ;;
  35  (0x0E01 0x0E2E ?C)
  36  (0x0E2F 0x0E5B ?I)
  37  (0x0E31                ?V)
  38  (0x0E34 0x0E37 ?V)
  39  (0x0E38 0x0E3A ?v)
  40  (0x0E47                ?V)
  41  (0x0E48 0x0E4E ?T)
  42  )
  43
  44 (generator
  45  (0
  46   (cond
  47    ("C([vV])?T?"
  48     independent dependent * )
  49    ("[^C]*"
  50     independent *))
  51   *)
  52
  53  (independent
  54   ((range 0x0E00 0x0E5F) 0xA0))
  55
  56  (dependent
  57   (cond
  58    ((0x0E31)    tc+bc 0xD1)
  59    ((0x0E34)    tc+bc 0xD4)
  60    ((0x0E35)    tc+bc 0xD5)
  61    ((0x0E36)    tc+bc 0xD6)
  62    ((0x0E37)    tc+bc 0xD7)
  63    ((0x0E38)    bc-tc 0xD8)
  64    ((0x0E39)    bc-tc 0xD9)
  65    ((0x0E3A)    bc-tc 0xDA)
  66    ((0x0E47)    tc+bc 0xE7)
  67    ((0x0E48)    tc+bc 0xE8)
  68    ((0x0E49)    tc+bc 0xE9)
  69    ((0x0E4A)    tc+bc 0xEA)
  70    ((0x0E4B)    tc+bc 0xEB)
  71    ((0x0E4C)    tc+bc 0xEC)
  72    ((0x0E4D)    tc+bc 0xED)
  73    ((0x0E4E)    tc+bc 0xEE))))
  74
  75 ;; Local Variables:
  76 ;; mode: lisp
  77 ;; End: