Glyph{unicode=0x41, pat='abc efg', name='A'},
        Glyph{unicode=0x42, pat='  cdefg', name='B'},
        Glyph{unicode=0x43, pat='a  def ', name='C'},
        Glyph{unicode=0x44, pat=' bcde g', name='D'},
        Glyph{unicode=0x45, pat='a  defg', name='E'},
        Glyph{unicode=0x46, pat='a   efg', name='F'},
        Glyph{unicode=0x2E, pat='h', name='period', lsb=704},
        Glyph{unicode=0x2C, pat='hi', name='comma', lsb=704, d=-128},
        Glyph{unicode=0x3A, pat='hj', name='colon', lsb=704},
        Glyph{unicode=0x3B, pat='hij', name='semicolon', lsb=704, d=-128},
        Glyph{unicode=0x23, pat='abcdefghij', name='numbersign', lsb=0, d=-128},
    },

    --[[ Set the strings. 

    Note that ffam, fsub, ufid, name, vers, and PSnm are required by Windows.
    Of those, fsub defaults to 'Regular' and name gets a sensible defaults based
    on ffam and fsub.

require "luaXml"
if not xml then xml = require "luaXml" end
local X = xml.new
local M={ _NAME=(...) }
package.loaded[M._NAME] = M
local ttx = require 'ttxml'
local min,max = math.min, math.max

--local ttfcmap = require 'ttfcmap'
local ttfhead = require 'ttfhead'
local ttfhhea = require 'ttfhhea'
--local ttfhmtx = require 'ttfhmtx'
--local ttfloca = require 'ttfloca' -- created entirely by the TTX compiler
local ttfmaxp = require 'ttfmaxp'

        end
        glyph:append(xml.new{[0]='instructions',X{[0]='assembly'}})
    end
    
    tables.GlyphOrder:append{[0]="GlyphID", id=tables.nextid, name=glyph.name}
    tables.nextid = tables.nextid + 1
    tables.glyf:append(glyph)
    M.minX = min(M.minX, t.lsb or 0)

    M.maxX = max(M.maxX, t.width or 0)
    M.minY = min(M.minY, t.d or 0)
    M.maxY = max(M.maxY, t.a or 0)
    
    tables.hmtx:append{[0]='mtx', name=glyph.name, width=t.width, lsb=t.lsb}
end

-- standards recommmend that .notdef look like an empty box, a box 
-- with an X in it, or a box with a '?' in it. Because the diagonal 
-- lines will stand out from the dots making up all other glyphs more

function M.SetNames(t)
    local names
    tables.name, names = ttfname.BuildNameTable(t)
    return names
end

function M.GetFont()
    
    ttfhead.xMin = M.minX
    ttfhead.yMin = M.minY
    ttfhead.xMax = M.maxX
    ttfhead.yMax = M.maxY
    
    ttfhhea.ascent = M.maxY
    ttfos_2.sTypoAscender = M.maxY
    ttfos_2.usWinAscent = M.maxY
    
    ttfhhea.descent = M.minY
    ttfos_2.sTypoDescender = M.minY