-## ugh. What's font_family supposed to be? It's not an afm thing.
-font_family = 'feta'
-def parse_logfile (fn):
- (autolines, deps) = read_log_file (fn)
- charmetrics = []
- global_info = {}
- group = ''
-
- for l in autolines:
- tags = string.split(l, '@:')
- if tags[0] == 'group':
- group = tags[1]
- elif tags[0] == 'char':
- m = {
- 'description': tags[1],
- 'name': group + '-' + tags[7],
- 'tex': tags[8],
- 'code': string.atoi (tags[2]),
- 'breapth':string.atof (tags[3]),
- 'width': string.atof (tags[4]),
- 'depth':string.atof (tags[5]),
- 'height':string.atof (tags[6])
- }
- charmetrics.append (m)
- elif tags[0] == 'font':
- global font_family
- font_family = (tags[3])
- # To omit 'GNU' (foundry) from font name proper:
- # name = tags[2:]
- #urg
- if 0: #testing
- tags.append ('Regular')
- name = tags[1:]
- global_info['FontName'] = string.join (name,'-')
- global_info['FullName'] = string.join (name,' ')
- global_info['FamilyName'] = string.join (name[1:-1],
- '-')
- if 1:
- global_info['Weight'] = tags[4]
- else: #testing
- global_info['Weight'] = tags[-1]
- global_info['FontBBox'] = '0 0 1000 1000'
- global_info['Ascender'] = '0'
- global_info['Descender'] = '0'
- global_info['EncodingScheme'] = 'FontSpecific'
-
- return (global_info, charmetrics, deps)
-
-
-def write_afm_char_metric(file, charmetric):
-
- f = 1000;
- tup = (charmetric['code'],
- (charmetric['width'] + charmetric['breapth'])*f,
- charmetric['name'],
- -charmetric['breapth'] *f,
- -charmetric['depth']*f,
- charmetric['width']*f,
- charmetric['height']*f)
-
-
- file.write ('C %d ; WX %d ; N %s ; B %d %d %d %d ;\n'% tup)
-
-def write_afm_header (file):
- file.write ("StartFontMetrics 2.0\n")
- file.write ("Comment Automatically generated by mf-to-table.py\n")
-
-def write_afm_metric (file, global_info, charmetrics):
- for (k,v) in global_info.items():
- file.write ("%s %s\n" % (k,v))
- file.write ('StartCharMetrics %d\n' % len(charmetrics ))
- for m in charmetrics:
- write_afm_char_metric (file,m)
- file.write ('EndCharMetrics\n')
- file.write ('EndFontMetrics\n')
-
-
-def write_tex_defs (file, global_info, charmetrics):
- ##nm = global_info['FontFamily']
- nm = font_family
- for m in charmetrics:
- file.write (r'''\gdef\%s%s{\char%d}%%%s''' % (nm, m['tex'], m['code'],'\n'))
- file.write ('\\endinput\n')
-
-def write_ps_encoding (file, global_info, charmetrics):
- encs = ['.notdef'] * 256
- for m in charmetrics:
- encs[m['code']] = m['tex']
-
- file.write ('/FetaEncoding [\n')
- for m in range(0,256):
- file.write (' /%s %% %d\n' % (encs[m], m))
- file.write ('] def\n')
-
-def write_fontlist (file, global_info, charmetrics):
- ##nm = global_info['FontFamily']
- nm = font_family
- per_line = 3
- file.write (r"""
-%% LilyPond file to list all font symbols and the corresponding names
-%% Automatically generated by mf-to-table.py
-\score{\notes{\fatText\time %d/4
-""" % per_line)
-
- count = 0
- for m in charmetrics:
-
- count += 1
-
-## \musicglyph and \markup require "_" to be escaped differently:
- musicglyphname=re.sub('_','\\\\_', m['name'])
- markupname=re.sub('_','\\\\_', musicglyphname)
-
-## prevent TeX from interpreting "--" as long dash:
- markupname=re.sub('--','-{}-', markupname)
-
- file.write (' s^\\markup { \\musicglyph #"%s" "%s" }\n' % (musicglyphname, markupname))
-
- if (count % 3) ==0:
- file.write (' \\break\n')
- file.write (r"""
-}
- \paper{
- interscoreline=1
- \translator{
- \ScoreContext
- \remove "Bar_number_engraver"
- TextScript \override #'extra-X-extent = #'(-1 . 1)
- }
- \translator{
- \StaffContext
- \remove "Clef_engraver"
- \remove "Key_engraver"
- \remove "Time_signature_engraver"
- \remove "Staff_symbol_engraver"
- minimumVerticalExtent = ##f
- }
- }
-}
-""")