The history of luaTEX 2006–2009 / v 0.50 - Pragma ADE

local capscale, digscale = 0.85, 0.75
f.name, f.type = name, 'virtual'
f.fonts = {
{ id=id },
{ name="texnansi-lmss10", size=size*capscale },
{ name="texnansi-lmtt10", size=size*digscale }
}
for k,v in pairs(f.characters) do
local chr = utf.char(k)
if chr:find("[A-Z]") then
v.width = capscale*v.width
v.commands = {
{"special","pdf: 1 0 0 rg"},
{"slot",2,k},
{"special","pdf: 0 g"}
}
elseif chr:find("[0-9]") then
v.width = digscale*v.width
v.commands = {
{"special","pdf: 0 0 1 rg"},
{"slot",3,k},
{"special","pdf: 0 g"}
}
else
v.commands = {
{"slot",1,k}
}
end
end
return f
end
end
return font.read_tfm(name,size)
end)
Hardwiring fontnames in callbacks this way does not deserve a price and when possible
we will provide better extension interfaces. Anyhow, in the experimental ConTEXt code
we used calls like this, where demo is an installed feature.
\font\myfont = special@demo-1 at 12pt \myfont
Hi there, this is the first (number 1) example of playing with Virtual
Fonts,
A fresh look at fonts 39