Dear list,
I have some special needs that requires all the characters be rotated by
90 degrees. I've searched around the web and maybe adding
/FontMatrix [0 1 -1 0 0 0]
to the font descriptor dictionary is helpful. But I can't find a \pdf???
primitive that can achieve this. (Am I wrong about this?)
Another solution might be the "vrt2" font feature. There's no difference
between the results with or without enabling the feature. But
I do see the font has the feature by using the shell command:
otfinfo -f
May I put my temporary unsatisfying code here and ask for optimization?
Thanks in advance.
=======================================================================================
\startluacode
pdf.setcompresslevel(0)
pdf.setobjcompresslevel(0)
local registerotffeature = fonts.handlers.otf.features.register
--local registerafmfeature = fonts.handlers.afm.features.register
local setmetatableindex = table.setmetatableindex
local function jian(tfmdata,value)
if value then
local characters = tfmdata.characters
local resources = tfmdata.resources
local additions = { }
local private = resources.private
for unicode, old_c in next, characters do
private = private + 1
local width = old_c.width or 0
local height = old_c.height or 0
local depth = old_c.depth or 0
local htsp,wdsp,dpsp =
(height/65536)*(72.0/72.27),(width/65536)*(72.0/72.27),(depth/65536)*(72.0/72.27)
local bboxrulewd = 0.5
local baserulewd = 0.9
local new_c
new_c = {
width = width,
height = height,
depth = depth,
commands = {
{ "push" },
{ "right", width },
{ "special", "pdf: q 0 0 1 RG 0 0 1 rg " ..
bboxrulewd .. " w 0 " .. -dpsp .. " m 0 " .. htsp .. " l " .. -wdsp .. "
" .. htsp .. " l " .. -wdsp .. " " .. -dpsp .. " l s 1 0 1 RG 1 0 1 rg "
.. baserulewd .. " w [2 1] 0 d 0 0 m " .. -wdsp .. " 0 l S Q" },
{ "pop" },
{"special", "pdf: q 0 1 -1 0 0 0 cm"},
{ "down", 0.9*width },
{ "right", -0.1*width },
{ "slot", 1, private },
{ "down", -0.9*width },
{ "right", -0.9*width },
{"special", "pdf: 1 0 0 1 0 0 cm Q"},
}
}
setmetatableindex(new_c,old_c)
characters[unicode] = new_c
additions[private] = old_c
end
for k, v in next, additions do
characters[k] = v
end
resources.private = private
end
end
registerotffeature {
name = "jian",
description = "rotate glyphs",
manipulators = {
base = jian,
node = jian,
}
}
\stopluacode
\definefontfeature
[vertical]
[default]
[jian=yes]
\definefallbackfamily [mainface] [serif] [Adobe Ming Std]
[range={0x00400-0x2FA1F}%
,force=yes%
,features=vertical%
]
\definefallbackfamily [mainface] [sans] [Adobe Heiti Std]
[range={0x00400-0x2FA1F}%
,force=yes%
,features=vertical%
]
\definefallbackfamily [mainface] [mono] [Adobe Fangsong Std]
[range={0x00400-0x2FA1F}%
,force=yes%
,features=vertical%
]
\definefontfamily
[mainface]
[serif]
[TeX Gyre Termes]
[features=vertical]
\definefontfamily
[mainface]
[sans]
[TeX Gyre Heros]
[features=vertical]
\definefontfamily
[mainface]
[mono]
[TeX Gyre Cursor]
[features=vertical]
\definefontfamily
[mainface]
[math]
[TeX Gyre Termes Math]
[features=vertical]
\setscript
[hanzi]
\startsetups footnote:hanzi
\setscript[hanzi]
\stopsetups
\setupnote[footnote][setups={footnote:hanzi}]
\setupalign[hz,hanging]
\setupbodyfont[mainface,20pt]
\showframe
\starttext
裴駰曰凡是徐氏義稱徐姓名以別之餘者悉是駰%
注解并集衆家義。司馬貞索隱曰紀者記也本其%
%
事而記之故曰本紀又紀理也絲縷有紀而帝王書%
稱紀者言爲後代綱紀也。正義曰鄭玄注中候勅%
%
省圖云德合五帝坐星者稱帝又坤靈圖云德配天%
地在正不在私曰帝按太史公依世本大戴禮以黃%
%
帝顓頊帝嚳唐堯虞舜爲五帝譙周應劭宋均皆同%
而孔安國尚書序皇甫謐帝王世紀孫氏注世本並%
%
以伏犧神農黃帝爲三皇少昊顓頊高辛唐虞爲五%
帝裴松之史目云天子稱本紀諸侯曰世家本者繫%
%
其本系故曰本紀者理也統理衆事繫之年月名之%
曰紀第者次序之目一者舉數之由故曰五帝本紀%
%
第一。又曰禮云動則左史書之言則右史書之正%
義云左陽故記動右隂故記言言爲尚書事爲春秋%
%
按春秋時置左右%
史故云史記也%
%
%
裴駰曰凡是徐氏義稱徐姓名以別之餘者悉是駰%
注解并集衆家義。司馬貞索隱曰紀者記也本其%
%
事而記之故曰本紀又紀理也絲縷有紀而帝王書%
稱紀者言爲後代綱紀也。正義曰鄭玄注中候勅%
%
省圖云德合五帝坐星者稱帝又坤靈圖云德配天%
地在正不在私曰帝按太史公依世本大戴禮以黃%
%
帝顓頊帝嚳唐堯虞舜爲五帝譙周應劭宋均皆同%
而孔安國尚書序皇甫謐帝王世紀孫氏注世本並%
%
以伏犧神農黃帝爲三皇少昊顓頊高辛唐虞爲五%
帝裴松之史目云天子稱本紀諸侯曰世家本者繫%
%
其本系故曰本紀者理也統理衆事繫之年月名之%
曰紀第者次序之目一者舉數之由故曰五帝本紀%
%
第一。又曰禮云動則左史書之言則右史書之正%
義云左陽故記動右隂故記言言爲尚書事爲春秋%
%
按春秋時置左右%
史故云史記也%
\stoptext
--
Best regards,
ℤhichu ℂhen
Shanghai Institute of Applied Physics
No. 2019, Jialuo Road
Jiading, Shanghai, P.R.China
Tel: +86-21-39194888
