- Proportional glyph width is now supported by width = 'prop'.
- Fixed the alignment of glyphs (e.g., U+201C).
modified: doc/s1sty.tex
modified: doc/sample1.pdf
modified: doc/sample1.tex
modified: src/jfm-mono.lua
modified: src/jfm-ujis.lua
modified: src/luatexja-core.lua
modified: src/luatexja-core.sty
modified: src/luatexja-jfont.lua
modified: test/jfm-bad.lua
modified: test/jfm-hang.lua
modified: test/test04-jfm.pdf
modified: test/test04-jfm.tex
\belowdisplayskip=\medskipamount
\belowdisplayshortskip=\medskipamount
%
-\outer\def\begintt{$$\let\par=\endgraf \ttverbatim\parskip=0pt\catcode`\|=0 \rightskip-5pc\ttfinish}
+\outer\def\begintt{$$\let\par=\endgraf\baselineskip=12pt
+\ttverbatim\parskip=0pt\catcode`\|=0 \rightskip-5pc\ttfinish}
{\catcode`\|=0 |catcode`|\=\other% | is temporary escape character
|obeylines% end of line is active
|gdef|ttfinish#1^^M#2\endtt{#1|parindent3|zw|noindent|vbox{#2}|hss|endgroup$$}}
\item {\bf 現時点で\LaTeX での使用は殆ど考慮されていません．今は``plain Lua\TeX''で使ってください．}
\item |\accent|を和文文字に対して使うことはできません．
これは「フォントを後で置換する」という実装上，仕方のないことだと思われます．
-{\small|\/|を試験的に日本語にも対応させました．|make_accent|の処理をLuaコードで書けば可能だと思われます．}
+{\small|\/|を試験的に日本語にも対応させました．
+アクセントも，|make_accent|の処理をLuaコードで書けば可能だと思われます．}
\item 数式中の日本語は想定していません．|\hbox|か何かで囲ってください．
\item p\TeX にあった以下の機能はまだ実装していません．
\itemitem |\euc|, |\jis|, |\sjis|, |\kuten|といった，コード変換プリミティブ．
\itemitem |\kansuji|, |\kansujichar|.
-\itemitem |\showmode|, |\jfam|, |\jcharwidowpenalty|.
+\itemitem |\showmode|, |\jfam|.
\itemitem 縦組み関連一式．|\tate|, |\tfont|, |\tbaselineshift|, |\dtou|,$\,\ldots$
+
+\item 和文間・和欧文間空白の自動挿入がglobalでしかできていません．
+←解決はさほど難しくないので，仕様を決定した後に書き上げます．
\enditem
\itemitem |3|, |allow|: 前後の和文文字との間の|\xkanjiskip|自動挿入を許可．
\item |yalbaselineshift=<dimen>|:
-p\TeX の|\baselineshift|に対応したものであり，欧文文字のベースライン補正量をdimensionで指定する．
+p\TeX の|\ybaselineshift|に対応したものであり，
+欧文文字のベースライン補正量をdimensionで指定する．
\itemitem 正の値を指定すると，その分だけ欧文文字は下にずれることとなる．
\itemitem 数式中では，boxやruleもこの量だけずれる\hfil\break
（よって，行中数式は全体が|yalbaselineshift|だけずれたように見える）．
\beginsection JFMについて
-Lua\TeX-jaで用いる和文用のメトリック情報は，次のような構文で書かれたLuaファイルである．
+Lua\TeX-jaで用いる和文用のメトリック情報は，次のようなLuaファイルである．
見本として，|jfm-ujis.lua|を入れてある．
-\item |jfm.dir|: 組方向を指定する．将来的にはいずれ縦組（|'tate'|）を実装したいが，
+\begintt
+ltj.define_jfm {
+ dir = 'yoko', zw = 1.0, zh = 1.0,
+ [0] = {
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [1] = { 0.5 , 0.0, 0.5 }, [3] = { 0.25, 0.0, 0.25 }
+ }
+ }, ...
+ [1] = {
+ chars = {
+ 0x2018, 0x201C, 0x3008, 0x300A, 0x300C, 0x300E, 0x3010, 0x3014,
+ 0x3016, 0x3018, 0x301D, 0xFF08, 0xFF3B, 0xFF5B, 0xFF5F
+ },
+ align = 'right', left = 0.0, down = 0.0, ...
+ }, ...
+ [5] = {
+ ...,
+ glue = {
+ [1] = { 0.5 , 0.0, 0.5 },
+ [3] = { 0.25, 0.0, 0.25 }
+ },
+ kern = { [5] = 0.0 }
+ }, ...
+}
+\endtt
+
+全体は，「関数|ltj.define_jfm|にテーブルを引数として与える」という構造になっている．
+以下に，テーブルの中身を述べる．
+\item |dir|: 組方向を指定する．将来的にはいずれ縦組（|'tate'|）を実装したいが，
現時点では横組（|'yoko'|）のみの対応．
-\item |jfm.zw|, |jfm.zh|: それぞれ|\zw|, |\zh|のフォントサイズに対する割合を記述する．
+\item |zw|, |zh|: それぞれ|\zw|, |\zh|のフォントサイズに対する割合を記述する（必須）．
通常は両方とも1.0となるだろう．
-\item |jfm.define_char_type(<class>, <chars>)|
+\item 数字のindex $i$を持った値：$i$番の文字クラスについての情報を記述する．
+\itemitem |glue|: 現在の文字クラスの文字の後に挿入するglueを指定する．
+この項目の内容は
+\begintt
+{ [<j>] = { <width>, <stretch>, <shrink> }, ... }
+\endtt
+というテーブルであり，各要素は
+
+{\par\medskip\advance\leftskip3\zw\noindent\rightskip2\zw
+$i$番の文字クラスの文字と$j$番の文字クラスの文字の間に，
+自然長<width>，伸び<stretch>, 縮み<shrink>（フォントサイズ基準）なる
+glueを挿入
+\par\medskip}
-p\TeX 用{\tt JFM}で言うところの「文字クラス」を定義する．
-\itemitem <class>は文字クラスを表す1以上$\hbox{\tt0x800}=2048$未満の整数．
-\itemitem <chars>には，<class>に属する「文字」達のUnicodeにおけるコード番号を
+\noindent という意味である．
+
+\itemitem |kern|: 現在の文字クラスの文字の後に挿入するkernを指定する．
+この項目の内容も，
+\begintt
+{ [<j>] = <width>, ... }
+\endtt
+というテーブルであり，各要素は
+
+{\par\medskip\advance\leftskip3\zw\noindent\rightskip2\zw
+$i$番の文字クラスの文字と$j$番の文字クラスの文字の間に，\hfil\break
+幅<width>のkernを挿入
+\par\medskip}
+
+\noindent という意味である．
+
+\itemitem |chars|: 文字クラスに属する「文字」達のUnicodeにおけるコード番号を
リストの形|{...}|で記述する．
-\itemitem どの文字クラスにも属さなかった文字は，自動的に0番の文字クラスに属するとみなされる．
+どの文字クラスにも属さなかった文字は，0番の文字クラスに属するとみなされる．
+そのため，0番以外の文字クラスではこの項目は必須である．
また，このリストには，以下の「仮想的な文字」も指定可能である．
\itemT |'lineend'|: 行末．
この「文字」を0以外の文字クラスに設定することで，ぶら下げ組のような組版も可能になる．
-例えば，句点類の文字クラスが2のとき，
-\begintt
- jfm.define_char_type(8,{'linebdd'}})
- jfm.define_kern(2, 8, -0.5)
-\endtt
-と指定すればよい．
\itemT |'boxbdd'|: 水平ボックスの先頭/末尾，段落の先頭/末尾．
\itemT |'jcharbdd'|: 和文文字達の連続とそれ以外のもの（例えば欧文文字）との境界．
\itemT |'diffmet'|: 異なるメトリックの和文文字間に入るglueの計算に使われる．
+\enditem
-\item |jfm.define_type_dim(<class>,<left>,<down>,<width>,<height>,<depth>,<italic>)|
-
-文字クラス<class>ごとに，文字の寸法のフォントサイズに対する割合を記述する．
-\itemitem <left>: 例えば開き括弧類は組版をする際には半角幅だが，TrueTypeフォント内では
-左に半角空白が付け加わって全角幅となっていることが多い．このような場合，逆に
-TrueTypeフォントを基準にすると，「左に半角幅ずらす」ことをしないといけない．
-<left>はその「左へのずらし量」を指定する．
-\itemitem <down>: 同様に，「下へのずらし量」を指定する．
-\itemitem <width>, <height>, <depth>: それぞれ幅，高さ，深さ．
-\itemitem <italic>: イタリック補正値（未実装）．
+\noindent {\bf
+以下の3項目は，文字クラスに属する文字が「仮想的な文字」達だけでない場合に必須．}
-\item |jfm.define_glue(<bclass>, <aclass>, <width>, <stretch>, <shrink>)|
+\itemitem |align|: |'left'|, |'middle'|, |'right'|のどれかを指定する．
-文字クラス<bclass>の文字と<aclass>の文字の間に，自然長<width>，伸び<stretch>, 縮み<shrink>
-（いずれもフォントサイズ基準）のglueを挿入する．
+例えば，開き括弧類は組版をする際には半角幅だが，TrueTypeフォント内では
+左に半角空白が付け加わって全角幅となっていることが多い．そのような場合，
+|align='right'|と指定することで，
+「半角幅の領域に（右詰めで）フォントの実際の字形を入れる」といったことができる．
-\item |jfm.define_kern(<bclass>, <aclass>, <width>)|
+\itemitem |width|, |height|, |depth|, |italic|:
+それぞれ幅，高さ，深さ，そしてイタリック補正値をフォントサイズに対する割合で指定する．
+例外として，|width='prop'|の場合には，その文字クラスは特に幅を定めず，
+実際のフォントにおける文字幅そのままで出力する．
-文字クラス<bclass>の文字と<aclass>の文字の間に，幅<width>のkernを挿入．
+\itemitem |left|, |down|: それぞれ左右，上下方向のずらし量を指定する．
+|align|項目のため，|left|はほとんどの場合0で良いだろう．
\enditem
-jfm.dir = 'yoko'
-jfm.zw= 1.0; jfm.zh = 1.0
-jfm.define_type_dim(0, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
\ No newline at end of file
+ltj.define_jfm {
+ dir = 'yoko',
+ zw = 1.0, zh = 1.0,
+
+ [0] = {
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ }
+}
\ No newline at end of file
--- A sample of Japanese font metric for pluatex
--- The unit of <height>, <depth>:
--- The unit of other dimension: the design size
+ltj.define_jfm {
+ dir = 'yoko',
+ zw = 1.0, zh = 1.0,
-jfm.dir = 'yoko'
--- 'yoko'
+ [0] = {
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [1] = { 0.5 , 0.0, 0.5 },
+ [3] = { 0.25, 0.0, 0.25 }
+ }
+ },
-jfm.zw= 1.0; jfm.zh = 1.0
--- amount of ``1zw'' and ``1zh'' (these units are used in pTeX)
+ [1] = { -- 開き括弧類
+ chars = {
+ 0x2018, 0x201C, 0x3008, 0x300A, 0x300C, 0x300E, 0x3010, 0x3014, 0x3016,
+ 0x3018, 0x301D, 0xFF08, 0xFF3B, 0xFF5B, 0xFF5F
+ },
+ align = 'right', left = 0.0, down = 0.0,
+ width = 0.5, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [3] = { 0.25, 0.0, 0.25 }
+ }
+ },
+ [2] = { -- 閉じ括弧類
+ chars = {
+ 0x2019, 0x201D, 0x3001, 0x3009, 0x300B, 0x300D, 0x300F, 0x3011, 0x3015,
+ 0x3017, 0x3019, 0x301F, 0xFF09, 0xFF0C, 0xFF3D, 0xFF5D, 0xFF60
+ },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 0.5, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [0] = { 0.5 , 0.0, 0.5 },
+ [1] = { 0.5 , 0.0, 0.5 },
+ [3] = { 0.25, 0.0, 0.25 },
+ [5] = { 0.5 , 0.0, 0.5 },
+ [7] = { 0.5 , 0.0, 0.5 }
+ }
+ },
--- character type
--- jfm.define_char_type(<type>, <letters>)
-jfm.define_char_type(1, {
- 0x2018, 0x201C, 0x3008, 0x300A, 0x300C, 0x300E, 0x3010, 0x3014, 0x3016,
- 0x3018, 0x301D, 0xFF08, 0xFF3B, 0xFF5B, 0xFF5F
- }) -- 開き括弧類
-jfm.define_char_type(2, {
- 0x2019, 0x201D, 0x3001, 0x3009, 0x300B, 0x300D, 0x300F, 0x3011, 0x3015,
- 0x3017, 0x3019, 0x301F, 0xFF09, 0xFF0C, 0xFF3D, 0xFF5D, 0xFF60
- }) -- 閉じ括弧類
-jfm.define_char_type(3, {0x30FB, 0xFF1A, 0xFF1B}) -- 中点類
-jfm.define_char_type(4, {0x3002, 0xFF0E}) -- 句点類
-jfm.define_char_type(5, {0x2015, 0x2025, 0x2026}) -- ダッシュ
-jfm.define_char_type(6, {'boxbdd'})
-jfm.define_char_type(7, {
- 0xFF61, 0xFF62, 0xFF63, 0xFF64, 0xFF65, 0xFF66, 0xFF67, 0xFF68, 0xFF69,
- 0xFF6A, 0xFF6B, 0xFF6C, 0xFF6D, 0xFF6E, 0xFF6F, 0xFF70, 0xFF71, 0xFF72,
- 0xFF73, 0xFF74, 0xFF75, 0xFF76, 0xFF77, 0xFF78, 0xFF79, 0xFF7A, 0xFF7B,
- 0xFF7C, 0xFF7D, 0xFF7E, 0xFF7F, 0xFF80, 0xFF81, 0xFF82, 0xFF83, 0xFF84,
- 0xFF85, 0xFF86, 0xFF87, 0xFF88, 0xFF89, 0xFF8A, 0xFF8B, 0xFF8C, 0xFF8D,
- 0xFF8E, 0xFF8F, 0xFF90, 0xFF91, 0xFF92, 0xFF93, 0xFF94, 0xFF95, 0xFF96,
- 0xFF97, 0xFF98, 0xFF99, 0xFF9A, 0xFF9B, 0xFF9C, 0xFF9D, 0xFF9E, 0xFF9F
-}) -- 半角カナ
+ [3] = { -- 中点類
+ chars = {0x30FB, 0xFF1A, 0xFF1B},
+ align = 'middle', left = 0.0, down = 0.0,
+ width = 0.5, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [0] = { 0.25, 0.0, 0.25 },
+ [1] = { 0.25, 0.0, 0.25 },
+ [2] = { 0.25, 0.0, 0.25 },
+ [3] = { 0.5 , 0.0, 0.5 },
+ [4] = { 0.25, 0.0, 0.25 },
+ [5] = { 0.25, 0.0, 0.25 },
+ [7] = { 0.25, 0.0, 0.25 }
+ }
+ },
+ [4] = { -- 句点類
+ chars = {0x3002, 0xFF0E},
+ align = 'left', left = 0.0, down = 0.0,
+ width = 0.5, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [0] = { 0.5 , 0.0, 0.0 },
+ [1] = { 0.5 , 0.0, 0.0 },
+ [3] = { 0.75, 0.0, 0.25 },
+ [5] = { 0.5 , 0.0, 0.0 },
+ [7] = { 0.5 , 0.0, 0.0 }
+ }
+ },
--- 'boxbdd' matches
--- o the beginning of paragraphs and hboxes,
--- o the ending of paragraphs and hboxes,
--- o just after the hbox created by \parindent.
+ [5] = { -- ダッシュ
+ chars = { 0x2015, 0x2025, 0x2026 },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [1] = { 0.5 , 0.0, 0.5 },
+ [3] = { 0.25, 0.0, 0.25 }
+ },
+ kern = {
+ [5] = 0.0
+ }
+ },
--- 'jcharbdd' matches the boundary between two Japanese characters whose metrics (or sizes)
--- are different.
+ [6] = { -- box末尾
+ chars = {'boxbdd'},
+ },
--- 'diffmet' matches the boundary between a Japanese character
--- and a material which is not a Japanese character.
-
--- 'lineend' matches the ending of a line.
-
--- dimension
--- jfm.define_type_dim(<type>, <left>, <down>, <width>,
--- <height>, <depth>, <italic correction>)
-jfm.define_type_dim(0, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(1, 0.5 , 0.0 , 0.5 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(2, 0.0 , 0.0 , 0.5 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(3, 0.25, 0.0 , 0.5 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(4, 0.0 , 0.0 , 0.5 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(5, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
--- jfm.define_type_dim(6, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0): does not needed
-jfm.define_type_dim(7, 0.0 , 0.0 , 0.5 , 0.88, 0.12, 0.0)
-
--- glue/kern
--- jfm.define_glue(<btype>, <atype>, <width>, <stretch>, <shrink>)
--- jfm.define_kern(<btype>, <atype>, <width>)
-jfm.define_glue(0,1, 0.5 , 0.0, 0.5 )
-jfm.define_glue(7,1, 0.5 , 0.0, 0.5 )
-jfm.define_glue(0,3, 0.25, 0.0, 0.25)
-jfm.define_glue(7,3, 0.25, 0.0, 0.25)
-jfm.define_glue(1,3, 0.25, 0.0, 0.25)
-jfm.define_glue(2,0, 0.5 , 0.0, 0.5 )
-jfm.define_glue(2,7, 0.5 , 0.0, 0.5 )
-jfm.define_glue(2,1, 0.5 , 0.0, 0.5 )
-jfm.define_glue(2,3, 0.25, 0.0, 0.25)
-jfm.define_glue(2,5, 0.5 , 0.0, 0.5 )
-jfm.define_glue(3,0, 0.25, 0.0, 0.25)
-jfm.define_glue(3,7, 0.25, 0.0, 0.25)
-jfm.define_glue(3,1, 0.25, 0.0, 0.25)
-jfm.define_glue(3,2, 0.25, 0.0, 0.25)
-jfm.define_glue(3,3, 0.5 , 0.0, 0.5 )
-jfm.define_glue(3,4, 0.25, 0.0, 0.25)
-jfm.define_glue(3,5, 0.25, 0.0, 0.25)
-jfm.define_glue(4,0, 0.5 , 0.0, 0.0 )
-jfm.define_glue(4,7, 0.5 , 0.0, 0.0 )
-jfm.define_glue(4,1, 0.5 , 0.0, 0.0 )
-jfm.define_glue(4,3, 0.75, 0.0, 0.25)
-jfm.define_glue(4,5, 0.5 , 0.0, 0.0 )
-jfm.define_glue(5,1, 0.5 , 0.0, 0.5 )
-jfm.define_glue(5,3, 0.25, 0.0, 0.25)
-jfm.define_kern(5,5, 0.0)
\ No newline at end of file
+ [7] = { -- 半角カナ
+ chars = {
+ 0xFF61, 0xFF62, 0xFF63, 0xFF64, 0xFF65, 0xFF66, 0xFF67, 0xFF68, 0xFF69,
+ 0xFF6A, 0xFF6B, 0xFF6C, 0xFF6D, 0xFF6E, 0xFF6F, 0xFF70, 0xFF71, 0xFF72,
+ 0xFF73, 0xFF74, 0xFF75, 0xFF76, 0xFF77, 0xFF78, 0xFF79, 0xFF7A, 0xFF7B,
+ 0xFF7C, 0xFF7D, 0xFF7E, 0xFF7F, 0xFF80, 0xFF81, 0xFF82, 0xFF83, 0xFF84,
+ 0xFF85, 0xFF86, 0xFF87, 0xFF88, 0xFF89, 0xFF8A, 0xFF8B, 0xFF8C, 0xFF8D,
+ 0xFF8E, 0xFF8F, 0xFF90, 0xFF91, 0xFF92, 0xFF93, 0xFF94, 0xFF95, 0xFF96,
+ 0xFF97, 0xFF98, 0xFF99, 0xFF9A, 0xFF9B, 0xFF9C, 0xFF9D, 0xFF9E, 0xFF9F
+ },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 0.5, height = 0.88, depth = 0.12, italic=0.0,
+ glue = {
+ [1] = { 0.5 , 0.0, 0.5 },
+ [3] = { 0.25, 0.0, 0.25 }
+ }
+ },
+}
\ No newline at end of file
local function main2_find_size_metric(px)
if is_japanese_glyph_node(px) then
- return ltj.font_metric_table[px.font].size, ltj.font_metric_table[px.font].jfm
+ return ltj.font_metric_table[px.font].size,
+ ltj.font_metric_table[px.font].jfm, ltj.font_metric_table[px.font].var
else
- return nil, nil
+ return nil, nil, nil
end
end
local function main2_new_jfm_glue(size,mt,bc,ac)
-- mt: metric key, bc, ac: char classes
local g=nil
- local w=bc*0x800+ac
- local z = ltj.metrics[mt]
- if z.glue[w] then
+ local z = ltj.metrics[mt].char_type[bc]
+ if z.glue and z.glue[ac] then
local h = node_new(id_glue_spec)
- h.width = round(size*z.glue[w][0])
- h.stretch = round(size*z.glue[w][1])
- h.shrink = round(size*z.glue[w][2])
+ h.width = round(size*z.glue[ac][1])
+ h.stretch = round(size*z.glue[ac][2])
+ h.shrink = round(size*z.glue[ac][3])
h.stretch_order=0; h.shrink_order=0
g = node_new(id_glue)
g.subtype = 0; g.spec = h
- elseif z.kern[w] then
+ elseif z.kern and z.kern[ac] then
g = node_new(id_kern)
- g.subtype = 1; g.kern = round(size*z.kern[w])
+ g.subtype = 1; g.kern = round(size*z.kern[ac])
end
return g
end
-- return value: g (glue/kern from JFM), w (width of 'lineend' kern)
-local function main2_calc(qs,qm,q,p,last,ihb_flag)
+local function main2_calc(qs,qm,qv,q,p,last,ihb_flag)
-- q, p: node (possibly null)
- local ps, pm, g, h
+ local ps, pm, pv, g, h
local w = 0
if (not p) or p==last then
-- q is the last node
end
elseif qs==0 then
-- p is the first node etc.
- ps, pm = main2_find_size_metric(p)
+ ps, pm, pv = main2_find_size_metric(p)
if not pm then
return nil, 0
elseif not ihb_flag then
has_attr(p,attr_jchar_class))
end
else -- p and q are not nil
- ps, pm = main2_find_size_metric(p)
+ ps, pm, pv = main2_find_size_metric(p)
if ihb_flag or ((not pm) and (not qm)) then
g = nil
- elseif (qs==ps) and (qm==pm) then
+ elseif (qs==ps) and (qm==pm) and (qv==pv) then
-- Both p and q are Japanese glyph nodes, and same metric and size
g = main2_new_jfm_glue(ps,pm,
has_attr(q,attr_jchar_class),
if qm then
local x = ljfm_find_char_class('lineend', qm)
if x~=0 then
- x = has_attr(q,attr_jchar_class)*0x800 + x
- if ltj.metrics[qm].kern[x] then
- w = round(qs*ltj.metrics[qm].kern[x])
+ qv = ltj.metrics[qm].char_type[has_attr(q,attr_jchar_class)]
+ if qv.kern and qv.kern[x] then
+ w = round(qs*qv.kern[x])
end
end
end
local function main2_between_two_char(head,q,p,p_bp,ihb_flag,last)
local qs = 0; local g, w
- local qm = nil
+ local qm = nil, qv
if q then
- qs, qm = main2_find_size_metric(q)
+ qs, qm, qv = main2_find_size_metric(q)
end
- g, w = main2_calc(qs, qm, q, p, last, ihb_flag)
+ g, w = main2_calc(qs, qm, qv, q, p, last, ihb_flag)
if w~=0 and (not p_bp) then
p_bp = node_new(id_penalty); p_bp.penalty = 0
head = node_insert_before(head, p, p_bp)
local function main4_set_ja_width(head)
local p = head
- local met_tb, t, s, g, th, q, a
+ local met_tb, t, s, g, q, a, h
local m = false -- is in math mode?
while p do
local v=has_attr(p,attr_yablshift) or 0
met_tb = ltj.font_metric_table[p.font]
t = ltj.metrics[met_tb.jfm]
s = t.char_type[has_attr(p,attr_jchar_class)]
- if not(s.left==0.0 and s.down==0.0
+ if s.width ~= 'prop' and
+ not(s.left==0.0 and s.down==0.0 and s.align=='left'
and round(s.width*met_tb.size)==p.width) then
-- must be encapsuled by a \hbox
head, q = node.remove(head,p)
p.next=nil
p.yoffset=round(p.yoffset-met_tb.size*s.down)
p.xoffset=round(p.xoffset-met_tb.size*s.left)
- node_insert_after(p, p, main4_get_hss())
- g = node_hpack(p, round(met_tb.size*s.width), 'exactly')
+ if s.align=='middle' or s.align=='right' then
+ h = node_insert_before(p, p, main4_get_hss())
+ else h=p end
+ if s.align=='middle' or s.align=='left' then
+ node_insert_after(h, p, main4_get_hss())
+ end
+ g = node_hpack(h, round(met_tb.size*s.width), 'exactly')
g.height = round(met_tb.size*s.height)
g.depth = round(met_tb.size*s.depth)
head, p = node_insert_before(head, q, g)
{\ltj@@getparam@one{#1}}%
}
\def\ltj@@getparam@one#1{%
- \directlua{ltj.ext_get_parameter_unary('#1')}}
+ \directlua{ltj.ext_get_parameter_unary('#1')}}%
\def\ltj@@getparam@two#1#2{\ltj@tempcnta=#2
- \directlua{ltj.ext_get_parameter_binary('#1', \the\ltj@tempcnta)}
+ \directlua{ltj.ext_get_parameter_binary('#1', \the\ltj@tempcnta)}%
}
ltj.metrics={} -- this table stores all metric informations
ltj.font_metric_table={} -- [font number] -> jfm_name, jfm_var, size
-jfm={}; jfm.char_type={}; jfm.glue={}; jfm.kern={}; jfm.chars = {}
-
-local ljfm_jfm_cons
local jfm_file_name, jfm_var
+local defjfm_res
-function jfm.define_char_type(t,lt)
- if not jfm.char_type[t] then jfm.char_type[t]={} end
- jfm.char_type[t].chars=lt
- for i,v in pairs(lt) do
- if v == 'linebdd' then
- if #lt ~= 1 then ljfm_jfm_cons = false; return end
- elseif not jfm.chars[v] then
- jfm.chars[v] = t
- else
- ljfm_jfm_cons = false ; return
- end
- end
-end
-function jfm.define_type_dim(t,l,x,w,h,d,i)
- if not jfm.char_type[t] then jfm.char_type[t]={} end
- jfm.char_type[t].width=w; jfm.char_type[t].height=h;
- jfm.char_type[t].depth=d; jfm.char_type[t].italic=i;
- jfm.char_type[t].left=l; jfm.char_type[t].down=x
-end
-function jfm.define_glue(b,a,w,st,sh)
- local j=b*0x800+a
- if not jfm.glue[j] then jfm.glue[j]={} end
- jfm.glue[j][0]=w; jfm.glue[j][1]=st;
- jfm.glue[j][2]=sh
-end
-function jfm.define_kern(b,a,w)
- local j=b*0x800+a
- if not jfm.kern[j] then jfm.kern[j]=w end
-end
-
--- return nil iff ltj.metrics[ind] is a bad metric
-local function ljfm_consistency_check(ind)
- local t = ltj.metrics[ind]
- local r = nil
- if ljfm_jfm_cons then r = ind end
- if t.dir~='yoko' then -- TODO: tate?
- r=nil
+function ltj.define_jfm(t)
+ local real_char -- Does current character class have the 'real' character?
+ if t.dir~='yoko' then
+ defjfm_res= nil; return
elseif type(t.zw)~='number' or type(t.zh)~='number' then
- r=nil -- .zw, .zh must be present
+ defjfm_res= nil; return
+ end
+ t.char_type = {}; t.chars = {}
+ for i,v in pairs(t) do
+ if type(i) == 'number' then -- char_type
+ if not v.chars then
+ if i ~= 0 then defjfm_res= nil; return end
+ real_char = true
+ else
+ real_char = false
+ for j,w in pairs(v.chars) do
+ if w == 'lineend' then
+ if #v.chars ~= 1 then defjfm_res= nil; return end
+ elseif type(w) == 'number' then
+ real_char = true
+ end
+ if not t.chars[w] then
+ t.chars[w] = i
+ else
+ defjfm_res= nil; return
+ end
+ end
+ if real_char then
+ if not (type(v.width)=='number' or v.width~='prop') then
+ defjfm_res= nil; return
+ elseif type(v.height)~='number' or type(v.depth)~='number' then
+ defjfm_res= nil; return
+ end
+ end
+ v.chars = nil
+ end
+ if v.kern then
+ for j,w in pairs(v.glue) do
+ if v.kern[j] then defjfm_res= nil; return end
+ end
+ end
+ t.char_type[i] = v
+ t[i] = nil
+ end
end
- if not r then ltj.metrics[ind] = nil end
- return r
+ defjfm_res= t
end
local function ljfm_find_char_class(c,m)
[2]="The JFM 'ujis' will be used for now."})
jfm_file_name='ujis'
end
- local name=jfm_file_name .. ':' .. jfm_var
- local i = nil
for j,v in ipairs(ltj.metrics) do
- if v.name==name then i=j; break end
+ if v.name==jfm_file_name then return j end
end
- local t = {}
- if i then return i end
- jfm.char_type={}; jfm.glue={}; jfm.kern={}; jfm.chars = {}
- ljfm_jfm_cons = true
ltj.loadlua('jfm-' .. jfm_file_name .. '.lua')
- t.name=name
- t.dir=jfm.dir; t.zw=jfm.zw; t.zh=jfm.zh
- t.char_type=jfm.char_type; t.chars=jfm.chars
- t.glue=jfm.glue; t.kern=jfm.kern
- table.insert(ltj.metrics,t)
- return ljfm_consistency_check(#ltj.metrics)
+ if defjfm_res then
+ defjfm_res.name = jfm_file_name
+ table.insert(ltj.metrics,defjfm_res)
+ return #ltj.metrics
+ else
+ return nil
+ end
end
return
end
ltj.font_metric_table[fn]={}
- ltj.font_metric_table[fn].jfm=j; ltj.font_metric_table[fn].size=f.size
+ ltj.font_metric_table[fn].jfm=j
+ ltj.font_metric_table[fn].size=f.size
+ ltj.font_metric_table[fn].var=jfm_var
tex.sprint(ltj.is_global .. '\\protected\\expandafter\\def\\csname '
.. cstemp .. '\\endcsname'
.. '{\\csname ltj@curjfnt\\endcsname=' .. fn
-jfm.dir = 'yoko2' -- bad
+ltj.define_jfm {
+ dir = 'yoko2',
+ zw = 1.0, zh = 1.0,
-jfm.zw= 1.0; jfm.zh = 1.0
-
--- character type
--- jfm.define_char_type(<type>, <letters>)
-
-jfm.define_type_dim(0, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
+ [0] = {
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ }
+}
\ No newline at end of file
-
-jfm.dir = 'yoko'
--- 'yoko'
-
-jfm.zw= 1.0; jfm.zh = 1.0
--- amount of ``1zw'' and ``1zh'' (these units are used in pTeX)
-
-
--- character type
--- jfm.define_char_type(<type>, <letters>)
-jfm.define_char_type(1, {
- 0x3042
-})
-jfm.define_char_type(2, {
- 0x3044
-})
-jfm.define_char_type(3, {
- 0x3048
-})
-jfm.define_char_type(4, {
- 0x304A
-})
-jfm.define_char_type(8, {'lineend'})
-
-
-jfm.define_type_dim(0, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(1, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(2, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(3, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.0)
-jfm.define_type_dim(4, 0.0 , 0.0 , 1.0 , 0.88, 0.12, 0.50)
-
-jfm.define_kern(1,8, -0.5)
-jfm.define_glue(2,3, 0.25, 0.25, 0.25)
-jfm.define_glue(1,3, 0.25, 0.0, 0.25)
\ No newline at end of file
+ltj.define_jfm {
+ dir = 'yoko',
+ zw = 1.0, zh = 1.0,
+
+ [0] = {
+ align = 'left', left = 0.0, down = 0.0,
+ width = 'prop', height = 0.88, depth = 0.12, italic=0.0,
+ },
+ [1] = {
+ chars = { 0x3042 },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ glue = { [3] = { 0.25, 0.0, 0.25 } },
+ kern = { [8] = -0.5 }
+ },
+ [2] = {
+ chars = { 0x3044 },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ glue = { [3] = { 0.25, 0.25, 0.25 } },
+ },
+ [3] = {
+ chars = { 0x3048 },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ },
+ [4] = {
+ chars = { 0x304A },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.3,
+ },
+ [8] = {
+ chars = { 'lineend' },
+ align = 'left', left = 0.0, down = 0.0,
+ width = 1.0, height = 0.88, depth = 0.12, italic=0.0,
+ }
+}
\def\head#1{\medskip\noindent{\bf\tengt ■ #1}\par}
\jfont\rml={psft:Ryumin-Light:jfm=ujis} at 10pt
-\rml あ\inhibitglue\char"201Cあ←Ryumin-Light
+\rml あ\inhibitglue\char"201Cあ・い←Ryumin-Light
\jfont\rml={file:ipam.ttf:jfm=ujis} at 10pt
-\rml あ\inhibitglue\char"201Cあ←ipam
+\rml あ\inhibitglue\char"201Cあ・い←IPA\hbox{}明朝 (ipam)
\jfont\rml={file:KozMinPr6N-Regular.otf:jfm=ujis} at 10pt
-\rml あ\inhibitglue\char"201Cあ←KozMinPr6N-Regular
+\rml あ\inhibitglue\char"201Cあ・い←KozMinPr6N-Regular
+
+\jfont\rml={file:ipamp.ttf:jfm=ujis} at 10pt
+\rml あ\inhibitglue\char"201Cあ・い←IPA P\hbox{}明朝 (ipamp)
{\scrollmode
\globaljfont\rml={psft:GothicBBB-Medium:jfm=bad} at 10pt % must be error
\head{文字範囲の状況取得}
-\ltjgetparameter{jcharrange}{0}
-\ltjgetparameter{jcharrange}{1}
-\ltjgetparameter{jcharrange}{2}
+\ltjgetparameter{jacharrange}{0}
+\ltjgetparameter{jacharrange}{1}
+\ltjgetparameter{jacharrange}{2}
\head{文字コード→文字範囲}
\ltjgetparameter{chartorange}{`い} % must be 217
\ltjsetparameter{jacharrange={218}}
和文扱いにもどる
+↓「あ」「い」「う」「お」以外はプロポーショナル組（IPA P明朝）
+
+\jfont\rmlh={file:ipamp.ttf:jfm=hang} at 10pt
+\rmlh プロポーショナルのテスト！あいうえおさ，かき・くけこ
+
+
+
\vfill\eject
-\jfont\rmlh={psft:Ryumin-Light:jfm=hang} at 10pt
\head{‘lineend’検証}
+\jfont\rmlh={psft:Ryumin-Light:jfm=hang} at 10pt
\jfont\sixgt={psft:GothicBBB-Medium:jfm=ujis} at 6pt
\font\sixtt=cmtt10 at 6pt
OSDN Git Service
