#
# source file of the GNU LilyPond music typesetter
#
-# (c) 1997 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+# (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
import os
import sys
def tfm_checksum (fn):
+ sys.stderr.write ("Reading checksum from `%s'\n" % fn)
s = open (fn).read ()
s = s[ 12 * 2 : ]
cs_bytes = s[:4]
shift = shift - 8
return cs
-
+
+## 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 = []
elif tags[0] == 'char':
m = {
'description': tags[1],
- 'name': group + '-' + tags[7],
- 'tex': tags[8],
+ 'name': group + '-' + tags[9],
+ 'tex': tags[10],
'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])
+ 'height':string.atof (tags[6]),
+ 'wx': string.atof (tags[7]),
+ 'wy':string.atof (tags[8]),
}
charmetrics.append (m)
elif tags[0] == 'font':
- global_info['FontName'] = string.join (tags[1:])
- global_info['FontFamily']=tags[1]
+ 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)
f = 1000;
tup = (charmetric['code'],
- charmetric['width'] + charmetric['breapth'],
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)
+ charmetric['height']*f,
+ charmetric['wx'] * f,
+ charmetric['wy'] * f)
+ file.write ('C %d ; N %s ; B %d %d %d %d ; W %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):
- file.write (r"""
-StartFontMetrics 2.0
-Comment Automatically generated by mf-to-table.py
-""")
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 %d\n')
+ file.write ('EndFontMetrics\n')
def write_tex_defs (file, global_info, charmetrics):
- nm = global_info['FontFamily']
+ ##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:
- file.write (r'''\def\%s%s{\char%d}%s''' % (nm, m['tex'], m['code'],'\n'))
+ count += 1
+
+## \musicglyph and \markup require "_" to be escaped differently:
+
+
+ scm_string = re.sub('_', r'_', m['name'])
+ tex_string = re.sub ('_', r'\\_' , m['name'])
+
+## prevent TeX from interpreting "--" as long dash:
+ tex_string=re.sub('--','-{}-', tex_string)
+
+ file.write (' s^\\markup { \\musicglyph #"%s" "%s" }\n' % (scm_string, tex_string))
+
+ 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
+ }
+ }
+}
+""")
def write_deps (file, deps, targets):
+
+
for t in targets:
+ t = re.sub ( '^\\./', '', t)
file.write ('%s '% t)
file.write (": ")
for d in deps:
file.write ('\n')
def help():
- sys.stdout.write(r"""Usage: mf-to-table [options] LOGFILEs
-Generate feta metrics table from preparated feta log\n
+ sys.stdout.write(r"""Usage: mf-to-table [OPTIONS] LOGFILEs
+Generate feta metrics table from preparated feta log.
+
Options:
- -a, --afm=FILE .afm file
+ -a, --afm=FILE specify .afm file
-d, --dep=FILE print dependency info to FILE
-h, --help print this help
-l, --ly=FILE name output table
-o, --outdir=DIR prefix for dependency info
-p, --package=DIR specify package
- -t, --tex=FILE name output tex chardefs"""
+ -t, --tex=FILE name output tex chardefs
+
+ """
)
sys.exit (0)
(options, files) = getopt.getopt(
sys.argv[1:], 'a:d:hl:o:p:t:',
- ['afm=', 'outdir=', 'dep=', 'tex=', 'debug', 'help', 'package='])
+ ['enc=', 'afm=', 'outdir=', 'dep=', 'tex=', 'ly=', 'debug', 'help', 'package='])
-texfile_nm = '';
+enc_nm = ''
+texfile_nm = ''
depfile_nm = ''
afmfile_nm = ''
+lyfile_nm = ''
outdir_prefix = '.'
for opt in options:
outdir_prefix = a
elif o == '--tex' or o == '-t':
texfile_nm = a
+ elif o == '--enc':
+ enc_nm = a
+ elif o == '--ly' or o == '-':
+ lyfile_nm = a
elif o== '--help' or o == '-h':
help()
elif o=='--afm' or o == '-a':
print o
raise getopt.error
+base = re.sub ('.tex$', '', texfile_nm)
+
for filenm in files:
(g,m, deps) = parse_logfile (filenm)
cs = tfm_checksum (re.sub ('.log$', '.tfm', filenm))
afm = open (afmfile_nm, 'w')
- afm.write ("TfmCheckSum %u\n" % cs)
+ write_afm_header (afm)
+ afm.write ("Comment TfmCheckSum %u\n" % cs)
+ write_afm_metric (afm, g, m)
- write_afm_metric (afm, g,m)
write_tex_defs (open (texfile_nm, 'w'), g, m)
- write_deps (open (depfile_nm, 'wb'), deps, [texfile_nm, afmfile_nm])
+ write_ps_encoding (open (enc_nm, 'w'), g, m)
+
+ write_deps (open (depfile_nm, 'wb'), deps, [base + '.dvi', base + '.pfa', base + '.pfb', texfile_nm, afmfile_nm])
+ if lyfile_nm != '':
+ write_fontlist(open (lyfile_nm, 'w'), g, m)
+