Re: [NTG-context] ansi codes

[Thomas A. Schmitz]

On Oct 1, 2008, at 10:00 PM, Hans Hagen wrote:

> lesser geeks loom in s-fnt-10.tex -)
>
> Hans

Hi Hans,

the file s-fnt-10.lua needs to be added to the distribution.

Best

Thomas


function fonts.otf.show_all()

    local tfmdata = fonts.tfm.id[font.current()]

    if tfmdata and tfmdata.shared then
        local otfdata = tfmdata.shared.otfdata
        if otfdata and otfdata.luatex then
            local unicodes = otfdata.luatex.unicodes
            tex.sprint(tex.ctxcatcodes,string.format("\\starttabulate[| 
l|r|c|]"))
            for i, name in ipairs(table.sortedkeys(unicodes)) do
                local unicode = unicodes[name]
                if unicode >= 0 then
                    tex.sprint(tex.ctxcatcodes,string.format("\\NC %s \ 
\NC %s \\NC \\char%s \\NC\\NR",name,unicode,unicode))
                end
            end
            tex.sprint(tex.ctxcatcodes,string.format("\\stoptabulate"))
        end
    end

end

function fonts.show_all()

    local tfmdata = fonts.tfm.id[font.current()]

    if tfmdata and tfmdata.shared then
        local chars = tfmdata.characters
        tex.sprint(tex.ctxcatcodes,string.format("\\starttabulate[|l|r| 
r|c|]"))
        for k, v in ipairs(table.sortedkeys(chars)) do
            tex.sprint(tex.ctxcatcodes,string.format("\\NC %s\\NC %s\ 
\NC \\char%s\\NC %s\\NC\\NR",chars[v].name or  
"unknown",v,v,chars[v].index))
        end
        tex.sprint(tex.ctxcatcodes,string.format("\\stoptabulate"))
    end

end

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________