1 files changed, 0 insertions, 104 deletions
diff --git a/tex/context/base/mkiv/font-imp-tracing.lua b/tex/context/base/mkiv/font-imp-tracing.lua
index 1acf14558..255b4cdf0 100644
--- a/tex/context/base/mkiv/font-imp-tracing.lua
+++ b/tex/context/base/mkiv/font-imp-tracing.lua
@@ -139,107 +139,3 @@ local specification = {
 
 registerotffeature(specification)
 registerafmfeature(specification)
-
-local f_m = formatters["%F %F m"]
-local f_l = formatters["%F %F l"]
-local f_b = formatters["[] 0 d 0 J %.6F w"]
-local f_e = formatters["s"]
-
-local function ladder(list,docolor,nocolor,lst,offset,sign,default)
-    local l  = lst[1]
-    local x1 = bp * (offset + l.kern) * sign
-    local y1 = bp * l.height
-    local t  = { f_b(r,r/2), f_m(x1,y1) }
-    local n  = 2
-    local m  = #lst
-    if default > 0 then
-        default = default * bp + r
-    else
-        default = default * bp - r
-    end
-    if m == 1 then
-        n = n + 1 t[n] = f_l(x1,default)
-    else
-        for i=1,m do
-            local l  = lst[i]
-            local x2 = bp * (offset + l.kern) * sign
-            local y2 = bp * l.height
-            if i > 1 and y2 == 0 then
-                y2 = default
-            end
-            n = n + 1 t[n] = f_l(x2,y1)
-            n = n + 1 t[n] = f_l(x2,y2)
-            x1, y1 = x2, y2
-        end
-    end
-    n = n + 1 t[n] = f_e()
-    list[#list+1] = docolor
-    list[#list+1] = { "pdf", "origin", concat(t," ") }
-    list[#list+1] = nocolor
-end
-
-local function initialize(tfmdata,key,value)
-    if value then
-        if not backcolors then
-            local vfspecials = backends.pdf.tables.vfspecials
-            startcolor = vfspecials.startcolor
-            stopcolor  = vfspecials.stopcolor
-        end
-        local characters = tfmdata.characters
-        local brcolor    = startcolor("darkred")
-        local trcolor    = startcolor("darkgreen")
-        local blcolor    = startcolor("darkblue")
-        local tlcolor    = startcolor("darkyellow")
-        local black      = stopcolor
-        for unicode, character in next, characters do
-            local mathkern = character.mathkern
-            if mathkern then
-                -- more efficient would be co collect more in one pdf
-                -- directive but this is hardly used so not worth the
-                -- effort
-                local width  = character.width  or 0
-                local height = character.height or 0
-                local depth  = character.depth  or 0
-                local list   = { }
-                local br     = mathkern.bottom_right
-                local tr     = mathkern.top_right
-                local bl     = mathkern.bottom_left
-                local tl     = mathkern.top_left
-                if br then
-                    ladder(list,brcolor,black,br,width,1,height)
-                end
-                if tr then
-                    ladder(list,trcolor,black,tr,width,1,-depth)
-                end
-                if bl then
-                    ladder(list,blcolor,black,bl,0,-1,height)
-                end
-                if tl then
-                    ladder(list,tlcolor,black,tl,0,-1,-depth)
-                end
-                if #list > 0 then
-                    local commands = character.commands
-                    if commands then
-                        character.commands = appendcommandtable(commands,list)
-                    else
-                        list[#list+1] = charcommand[unicode]
-                        character.commands = list
-                    end
-                end
-            end
-        end
-    end
-end
-
-local specification = {
-    name        = "staircase",
-    description = "show staircase kerns",
-    position=1,
-    manipulators = {
-        base = initialize,
-        node = initialize,
-    }
-}
-
-registerotffeature(specification)
-registerafmfeature(specification)