mftrace-1.2.20+git20190918.fd8fef5/0000755000175000017500000000000013540517245014160 5ustar jdgjdgmftrace-1.2.20+git20190918.fd8fef5/ChangeLog0000644000175000017500000004133113540517245015734 0ustar jdgjdg2019-09-17 Han-Wen Nienhuys * Remove pfaedit references 2019-09-15 Han-Wen Nienhuys * Migrate to python3 * Add manpage for gf2pbm 2006-10-13 Han-Wen Nienhuys * configure.in (PYTHON): bump version. * COPYING: GPL. * GNUmakefile.in (FILES): add GPL 2006-07-06 Han-Wen Nienhuys * GNUmakefile.in (srcdir): split CFLAGS assignment. (Julian Gilbey) 2006-06-09 Han-Wen Nienhuys * mftrace.py: handle comma in glyph-range too. 2006-05-01 Han-Wen Nienhuys * mftrace.py: indent 4 iso. 8. 2006-04-27 Werner Lemberg * mftrace.py : Don't define `include_dirs' here. (parse_command_line) <'-I'>: Destination is `include_dirs', not `includes'. (do_file): Define `include_dirs' here. Copy command line option values properly and append `origdir' before handling encoding files. 2006-04-27 Han-Wen Nienhuys * mftrace.py (parse_command_line): move options.encoding_file upwards. 2006-04-06 Han-Wen Nienhuys * mftrace.py (parse_command_line): use optparse iso. getopt. pychecker cleanups. Now probably requires python 2.x. 2006-02-28 Han-Wen Nienhuys * README.texi (Top): patch for README and manpage too. * configure.in (PYTHON): release .19 * mftrace.py (font_info): --define. patch by Emmanuel.Beffara@pps.jussieu.fr 2006-02-19 Han-Wen Nienhuys * GNUmakefile.in (CFLAGS): add srcdir support. 2006-01-24 Han-Wen Nienhuys * mftrace.py (find_file): strip the whitespace from output kpsewhich output. (find_file): oops. 2005-10-16 Han-Wen Nienhuys * configure.in (PYTHON): release 1.1.17 * README.texi (Top): add Thomas Bushnell BSG. * gf2pbm.c (read_GF_char): fix type-punning pointer error. This fixes GCC4 big-endian -O2 build. Thanks to Thomas Bushnell BSG ! 2005-08-15 Han-Wen Nienhuys * configure.in (PYTHON): 1.1.16 * mftrace.py (make_outputs): generate .pfb not .pfb * configure.in: release 1.1.15 * mftrace.py (shell_escape_filename): put offending chars in group. 2005-08-14 Han-Wen Nienhuys * mftrace.py (make_outputs): escape file names with spaces on command line. (Thanks Geoffrey Alan Washburn) 2005-08-01 Han-Wen Nienhuys * mftrace.py (coding_dict): set bindir too. * gf2pbm.c: conform to strict aliasing rules (Patch by Stanislav Brabec) * GNUmakefile.in: removes explicit rule for CC (Patch by Stanislav Brabec) 2005-07-20 Han-Wen Nienhuys * README.texi (Top): cs.uu.nl -> xs4all.nl everywhere. 2005-06-07 Han-Wen Nienhuys * README.texi: doc update by Alexej. 2005-06-06 Han-Wen Nienhuys * configure.in: move test to end. (PYTHON): release 1.1.10 2005-06-04 Alexej Kryukov * mftrace.py: Implemented a function (get_afm) which allows to generate AFM files without using fontforge. This function requires ghostscript to be present on user's system and uses the same algorithm, as the t12afm.sh script, distributed with TeXtrace. * mftrace.py: mftrace now tries to access fontforge only if any functions which really require passing the font to fontforge are requested. This functions include rounding to integer (note that it *is* enabled by default), simplifying and autohinting, as well as generating any output formats except PFA or PFB. Otherwise the output is generated directly with t1asm. Note that for generating AFM either fontforge or the built-in get_afm function may be used, depending from the factors listed above. * mftrace.py: The --keep-trying option now causes mftrace to ignore not only potrace/autotrace errors, but also METAFONT errors (in case METAFONT reports an error, but, nevertheless, generates a GF file). This may be useful for processing some buggy fonts in heigh resolutions. * mftrace.py: mftrace now recognizes a special `.notavail' glyph name in encoding files which you may specify via its `--encoding' option. You may use this name to prevent mftrace from processing any specific glyphs (e. g. because they are blank in the corresponding TeX codepage, so that there is no need to trace them). This name is also automatically inserted into the encoding table used by mftrace during the conversion process, if potrace/autotrace fails to process a specific character. Again, by this way we prevent useless blank characters from appearing in the resulting PostScript output. 2005-06-04 Han-Wen Nienhuys * mftrace.py (stat): more verbosity. 2005-04-20 Han-Wen Nienhuys * configure.in (PYTHON): release 1.1.9 * GNUmakefile.in (udist): add cvs commit to target. 2005-04-17 Jan Nieuwenhuizen * mftrace.py (make_outputs): Bugfix: do not use global filename. (trace_font): Make --verbose usable by printing character generating commands only once. 2005-04-05 Han-Wen Nienhuys * configure.in (PYTHON): release 1.1.8 * mftrace.1: new man page (Julian Gilbey). * mftrace.py (find_file): remove --truetype option. 2005-03-30 Andrey V. Panov * mftrace.py: add possibility to pass glyph ranges with --glyph option. 2005-03-27 Han-Wen Nienhuys * mftrace.py: prepend exec_prefix to gf2pbm call. Patch by Jeff Smith 2005-03-08 Han-Wen Nienhuys * configure.in: detect missing potrace/autotrace. (PYTHON): release 1.1.6 2005-03-06 Han-Wen Nienhuys * mftrace.py (get_fontforge_command): another fix. 2005-03-05 Han-Wen Nienhuys * mftrace.py (check_pfaedit_scripting): whoops, only call fontforge_cmd if nonnull. (get_fontforge_command): change calling convention: return binary name. * configure.in (PYTHON): release 1.1.3 * mftrace.py (make_outputs): copy if fontforge nonexistent (get_binary): search PATH for fontforge 2005-01-02 Han-Wen Nienhuys * mftrace.py (ec_guess_font_info): handle stretch and weight separately. (guess_fontinfo): default weight Regular. (ec_guess_font_info): lose "designed at" string. (cm_guess_font_info): change Family to Computer Modern. * configure.in (PYTHON): release 1.1.2 * mftrace.py (ec_guess_font_info): new function (cm_guess_font_info): handle isFixedPitch. (derive_font_name): make fontname similar to Adobe fonts, i.e. Family-QualifierQualifierAbbrv 2004-12-21 Han-Wen Nienhuys * configure.in (PYTHON): release 1.1.1 * mftrace.py (option_definitions): add --no-afm option 2004-12-19 Jan Nieuwenhuizen * GNUmakefile.in (GNUmakefile): Depend on configure (configure): Run ./configure after running autoconf (not config.status, which has old, cached values). 2004-12-19 Han-Wen Nienhuys * configure.in (PYTHON): bump version to 1.1.0; release. * mftrace.py (to_type1): always create .pfa.raw (make_outputs): generate all outputs in one script. Add SVG output. (glyph_range): use --formats, remove other options. 2004-12-02 Han-Wen Nienhuys * mftrace.py (make_ttf): call AddExtrema() too. 2004-11-19 Han-Wen Nienhuys * configure.in (PYTHON): release .35 * mftrace.py (abs_path): use lexmarks 1200dpi; ljfour is not neutral (cleanup_font): RoundToInt() only if round_to_int is set (autotrace_path_to_type1_ops): subtract inv_scale iso. 1. (Andrey V. Panov). 2004-11-06 Han-Wen Nienhuys * mftrace.py (stat): rewrite redirection. 2004-11-05 Han-Wen Nienhuys * mftrace.py (stat): redirect stderr. 2004-08-15 Han-Wen Nienhuys * configure.in (PYTHON): release .34 * mftrace.py (cleanup_font): add RoundToInt command. * GNUmakefile.in (uninstall): add more targets. 2004-07-16 Jan Nieuwenhuizen * mftrace.py (abs_path): Bugfix: leave empty path entry alone. 2004-07-13 Jan Nieuwenhuizen * mftrace (abs_path): Remove debugging code. 2004-07-08 Jan Nieuwenhuizen * mftrace.py (stat): Add cwd to include path before (ugh?) changing to /tmp. (gen_pixel_font): Check for log file before reading it. Make dirs in paths absolute. 2004-06-21 Jan Nieuwenhuizen * mftrace.py: Remove dead --output-base option. Small cleanups (use TAB for indent, space after comma, not before, space before parentheses, not after, etc). * GNUmakefile.in (install): Use install instead of cp. * configure.in: Substitute EXEEXT. Fixes install. 2004-06-11 Han-Wen Nienhuys * configure.in (PYTHON): release .33 2004-06-11 Andrey V. Panov * mftrace.py (autotrace_path_to_type1_ops, potrace_path_to_type1_ops): denominator for coordinates is divided by inv_scale. This fixes rounding errors. 2004-06-04 Andrey V. Panov * mftrace.py: add possibility to pass options to a backend program and not to round coordinates of control points to integer values. 2004-05-05 Han-Wen Nienhuys * GNUmakefile.in: patch by Roman Stawski for cygwin installation. 2004-03-21 Han-Wen Nienhuys * tfm.py (compose_tfm_number): use long. 2004-03-08 Werner Lemberg * mftrace.py: Preserve all PBM and EPS files if keep_temp_dir_p is set. * mftrace.1: Updated and revised. 2004-03-08 Han-Wen Nienhuys * mftrace.py (check_pfaedit_scripting): fontforge detection bugfix. 2004-03-07 Han-Wen Nienhuys * mftrace.py (coding_dict): add tetex encodings. * README.texi (Top): more renaming. * mftrace.py (fontforge_cmd): add fontforge support. 2004-01-21 Han-Wen Nienhuys * autogen.sh: remove --prefix=$HOME/usr/pkg/mftrace 2004-01-16 Han-Wen Nienhuys * mftrace.py (potrace_path_to_type1_ops): opps. Init z.y to size_y - off_y. This fixes descender boxes. (potrace_path_to_type1_ops): rewrite, following autotrace model. use rounding as last step. 2004-01-13 Han-Wen Nienhuys * mftrace.py (cm_guess_font_info): italic angle is -14 / -12 . 2004-01-12 Han-Wen Nienhuys * mftrace.py (keep_trying_p): use potrace_scale = 1 to avoid artefacts of rounding. Thanks to Guenther Spahlinger for this bug report. (get_discrete_dz): new function. Don't accumulate rounding errors. 2003-12-29 Han-Wen Nienhuys * GNUmakefile.in (uninstall): don't use install-sh; it moves, doesn't copy. 2003-12-18 Han-Wen Nienhuys * gf2pbm.c: add header. 2003-12-17 Han-Wen Nienhuys * mftrace.py (potrace_path_to_type1_ops): handle different components correctly * GNUmakefile.in (FILES): add & use install-sh * gf2pbm.c: use unistd.h for getopt 2003-12-16 Han-Wen Nienhuys * mftrace.py (potrace_path_to_type1_ops): handle empty glyphs correctly 2003-12-14 Han-Wen Nienhuys * mftrace.py (stat): detect tracing program (potrace_path_to_type1_ops): potrace support 2003-09-30 Han-Wen Nienhuys * mftrace.py (do_autotrace_one): return nonzero for failed glyphs. 2003-07-17 Han-Wen Nienhuys * mftrace.py (coding_dict): default to feta-braces10.enc for feta-braces. (coding_dict): revert. 2003-04-20 Han-Wen Nienhuys * mftrace.py (cm_guess_font_info): always define ItalicAngle. 2003-04-19 Han-Wen Nienhuys * mftrace.py (cm_guess_font_info): set family for cmss. (to_type1): write ItalicAngle to output too. 2003-04-16 Han-Wen Nienhuys * mftrace.py (cm_guess_font_info): guess info for CM fonts. (guess_fontinfo): put fontinfo generation in a separate function. (gen_unique_id): generate UniqueID by hashing FullName into the free range of the T1 UniqueID space. (to_type1): actually, don't generate UniqueID at all, since it is optional. (cm_guess_font_info): put design size in FullName too. (guess_fontinfo): rename afm to prevent name clashes. 2003-03-31 Han-Wen Nienhuys * README.texi (Top): add note about MFINPUTS variable 2003-03-19 Han-Wen Nienhuys * mftrace.py (Font_info.__getitem__): call find_file () for gf_file. 2003-03-13 Han-Wen Nienhuys * mftrace.py (glyph_range): apply --gffile patch from Karl Berry with minor mods. 2003-02-27 Han-Wen Nienhuys * mftrace.py (autotrace_font): gf_fontname support (thanks to Karl Berry) 2002-11-26 Han-Wen Nienhuys * GNUmakefile.in: suse patch: use DESTDIR as a prefix. 2002-11-24 Jan Nieuwenhuizen * .cvsignore: Add. * mftrace.py (coding_dict): Add feta-braces, feta-nummer. 2002-11-19 Han-Wen Nienhuys * mftrace.py (to_type1): add version to comment. 2002-11-19 Ralf Stubner * mftrace.py: tell pfaedit to use the kerning data from the TFM file and save the produced AFM file. 2002-11-16 Han-Wen Nienhuys * mftrace.py (coding_dict): add parmesan encoding. * mftrace.py (gen_pixel_font): show error log if MetaFont failed. 2002-10-18 Jan Nieuwenhuizen * mftrace.py (popen, system): Fix for verbose output. (Font_info.set_defaults): Add EncodingScheme. 2002-10-16 Jan Nieuwenhuizen * mftrace.py: Use afm to set more sensible font names. Allow generating multiple fonts from one trace. * GNUmakefile.in: Add afm.py. * afm.py: New file. 2002-10-10 Han-Wen Nienhuys * mftrace.spec.in (Prereq): use %{_mandir}. * mftrace.py: don't overwrite encoding file for every next file. 2002-08-21 Han-Wen Nienhuys * mftrace.py: take multiple arguments. 2002-08-20 Han-Wen Nienhuys * mftrace.py (option_definitions): Patch by Jesse Pavel : don't change bbox or font-matrix for --magnification 2002-08-08 Han-Wen Nienhuys * mftrace.py (make_ttf): add TrueType conversion. (func): add miktex kpathsea support. * configure.in: Change name to mftrace. 2002-04-10 Han-Wen Nienhuys * pktrace.py: add magnification so yinit can be traced. (do_autotrace_one): stop if autotrace is interupted with ^C. 2002-03-24 Han-Wen * pktrace.py (find_file): add -I, --include option for files. Make one function for finding files. * Add feta-music encoding. 2002-03-19 Han-Wen Nienhuys * pktrace.py (cleanup_font): More verbose pfaedit reporting. * Change version to 1.0 * Machinery to guess .enc file from TFM coding string. * Doco updates * pktrace.spec: RedHat .spec * Include working dir into path * Allow variable size encodings * Man page (Thanks julian) * gf2pbm.c: Fix on other-endian (PPC) machines (Thanks Jan). * Support pfaedit -script to simplify and hint font; turned off for now, since pfaedit is not reliable enough yet. * Oops. Produce font also when --verbose is off * --glyphs option * Even better autotrace bugreporting * Make clean removes tfm.pyc * Capture mktextfm output for font location * Don't create NUMBER.pbm when gf2pbm is run with -s * `test' makefile target * Handle autotrace fails better, and add --keep-trying option * Output PFA by default * Fix -e option * Escape fontname in regexp. * Run kpsewhich on encoding argument. * Fix permissions on temporary directory. * Test output on GhostScript and PostScript printer too (only tried pfaedit before) * Fix FontBBox calculation * Don't crash on (nearly) empty glyphs * Install .pyc as well. * Fix t1asm warning. Release 0.6 * type1fix.pl: remove. Dump perl dependency. * gf2pbm.c: use to dump the bitmap info. Dump pktype dependency. * trace2.ps: removed. Dump the Ghostscript dependency. * call mktextfm if no TFM found. * Big/Little endian fixes. Now gf2pbm works on PowerPC as well. Release 0.4 * gf2pbm.c: hack to have robust bitmap extraction. * Uninstall target * -p bugfix * texinfo Readme. Release 0.3 * tfm.py: a Python interface to the TeX TFM file format. * Use TFM widths for the bounding box. Bugfix for the Y-coordinates of the bbox. Release 0.2 * Don't read/write dimension file. * Read encoding file into python, and only once. This reduces tracing time. * For non-existant glyphs, write fake Char String directly. Release 0.1 * --pfa option * --encoding option * Fold t1d2gsx into pktrace. mftrace-1.2.20+git20190918.fd8fef5/GNUmakefile.in0000644000175000017500000000537713540517245016653 0ustar jdgjdg# -*-makefile-*- PY_MODULES= afm.py tfm.py FILES= mftrace.py GNUmakefile.in \ gf2pbm.c mftrace.1 \ COPYING \ README.texi README.txt ChangeLog \ mftrace.spec.in mftrace.spec \ $(PY_MODULES) configure configure.in config.h.in CFLAGS = -Wall -O2 ## retain during override. CFLAGS += -I. srcdir=@srcdir@ VPATH=$(srcdir) NAME=mftrace MANPAGES=mftrace.1 gf2pbm.1 VERSION=@VERSION@ distdir=$(NAME)-$(VERSION) prefix=@prefix@ datadir=@datadir@/mftrace/ exec_prefix=@exec_prefix@ bindir=@bindir@ mandir=@mandir@ PYTHON=@PYTHON@ EXEEXT=@EXEEXT@ ## up/download. FTP_DIR=hanwen@lilypond.org:www/downloads/sources/mftrace/ WWW_DIR=hanwen@lilypond.org:www/mftrace/ GIT_MASTER_SITE=git+ssh://git@github.com/hanwen/mftrace.git all: compile compile: mftrace gf2pbm version.texi: GNUmakefile echo -e '@macro mftversion\n$(VERSION)\n@end macro\n' > $@ README.txt: README.texi version.texi makeinfo --no-split --no-headers --output $@ $< README.html: README.texi version.texi makeinfo --html --no-split --no-headers --output $@ $< dist: $(FILES) mkdir $(distdir) ln $(FILES) $(distdir) tar --owner=0 --group=0 -zcf $(distdir).tar.gz $(distdir) rm -rf $(distdir) mftrace.spec: mftrace.spec.in configure ./config.status mftrace: mftrace.py configure ./config.status configure: configure.in autoconf ./configure GNUmakefile: GNUmakefile.in configure ./config.status chmod a-w GNUmakefile install: mftrace gf2pbm install-man install-py install -d $(DESTDIR)$(bindir) install mftrace $(DESTDIR)$(bindir) install gf2pbm$(EXEEXT) $(DESTDIR)$(bindir)/gf2pbm$(EXEEXT) install-py: $(PY_MODULES) install -d $(DESTDIR)$(datadir) install -m644 $^ $(DESTDIR)$(datadir) $(PYTHON) -m compileall $(DESTDIR)$(datadir) install-man: $(MANPAGES) install -d $(DESTDIR)$(mandir)/man1 install -m644 $^ $(DESTDIR)$(mandir)/man1/ uninstall: rm $(DESTDIR)$(bindir)/mftrace $(DESTDIR)$(bindir)/gf2pbm$(EXEEXT) cd $(DESTDIR)$(datadir) && rm $(PY_MODULES) cd $(DESTDIR)$(mandir)/man1 && rm $(MANPAGES) -rmdir $(DESTDIR)$(bindir) -rmdir $(DESTDIR)$(datadir) -rmdir $(DESTDIR)$(mandir)/man1 -rmdir $(DESTDIR)$(mandir)/ -rmdir $(DESTDIR)$(prefix) -rmdir $(DESTDIR)$(exec_prefix) clean: rm -f config.cache config.h config.log config.status GNUmakefile rm -f mftrace gf2pbm rm -f *'~' '#'* TEST_FONTS= ecbi0900 logo10 test: $(foreach a, $(TEST_FONTS), $(PYTHON) mftrace.py --glyphs 65 -V $(a) &&)true udist: README.html autoconf ./configure --prefix=$(HOME)/usr/pkg/mftrace make dist @$(if $(shell git diff), echo "commit before disting" && false,true) if test -d .git ; then \ git tag -m '' release/$(VERSION) ; \ git push $(GIT_MASTER_SITE) tag release/$(VERSION) ; \ fi scp $(distdir).tar.gz $(FTP_DIR) scp $< $(WWW_DIR)/index.html rpm: dist rpmbuild -tb mftrace-$(VERSION).tar.gz mftrace-1.2.20+git20190918.fd8fef5/config.h.in0000644000175000017500000000012613540517245016202 0ustar jdgjdg/* @AUTOGENERATE@ */ /* define if you have bigendian words */ #undef WORDS_BIGENDIAN mftrace-1.2.20+git20190918.fd8fef5/autogen.sh0000755000175000017500000000004313540517245016156 0ustar jdgjdg#!/bin/sh autoconf ./configure $* mftrace-1.2.20+git20190918.fd8fef5/mftrace.10000644000175000017500000001320713540517245015666 0ustar jdgjdg.TH MFTRACE 1 "January 23, 2007" .\" Copyright (c) 1999--2007 by the authors .\" .\" Permission is granted to copy, distribute and/or modify this document .\" under the terms of the GNU General Public License. .\" .\" You should have received a copy of the GNU General Public License .\" along with this program; if not, write to the Free Software .\" Foundation, Inc., .\" 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA .\" . .hw mftrace autotrace potrace fontforge ghostscript kpsewhich . . .SH NAME mftrace \- convert METAFONT format fonts into Type1 outline fonts . . .SH SYNOPSIS .B mftrace .RI [ options ] " fontname" . . .SH DESCRIPTION .B mftrace is a program that can convert a METAFONT font into a Type1 font. It is simply called with the name of the font (without a `.mf' suffix) and produces a Type1 font file called either .IR \%fontname .pfa or .IR \%fontname .pfb depending on the command line options. With the help of .BR fontforge (1) it can produce other font formats too. . .P For tracing the bitmap, .B mftrace either uses .BR potrace (1) or .BR autotrace (1) (the former preferred) if available; this can be overridden with the .B \%\-\-autotrace and .B \%\-\-potrace command line options. . . .SH OPTIONS This program follows the usual GNU command line syntax, with long options starting with two dashes (`-'). . .TP .BR \-k ", " \-\-keep Keep all output in directory `mftrace.dir'. . .TP .BI \-\-magnification= MAG The magnification to use for the PFA file. The default is 1000. The larger the magnification, the more precise the PFA file will be. However, if the magnification is too large METAFONT can crash with overflow errors. . .IP Sadly, many MF fonts contain resolution checks . .RS .IP if dots_per_inch * design_size > 1500: .RE . .IP This check is susceptible to overflow errors. Such code should be reported as a bug, and changed to . .RS .IP if dots_per_inch > (1500 / design_size): .RE . .TP .BI \-\-formats= FMT1 , FMT2 , .\|.\|. Specify which formats to generate (default is pfa). Choices are: `afm', `pfa', `pfb', `ttf', `svg'. Note that .B fontforge must be installed to generate any format except `pfa' or `pfb'. For generating `afm' you need either .B fontforge or .BR ghostscript . . .TP .B \-\-simplify This passes the created Type1 font to .B fontforge to simplify and autohint it. . .TP .BI \-\-gffile= FILE Use generic font file .I FILE instead of running Metafont. (GF is the default output format of Metafont.) . .TP .BR \-I " " \fIDIR\fP ", " \-\-include= \fIDIR\fP Add .I DIR to the current path for searching files. . .TP .BI \-\-glyphs= LIST Process only these glyphs. .I LIST is a comma separated list of decimal numbers or ranges, for example `1-10,50,55,90-100'. . .TP .BI \-\-tfmfile= FILE Use .I FILE for the TFM file. (The default is to use .IR \%fontname .tfm). . .TP .BR \-e " " \fIENC\fP ", " \-\-encoding=\fIENC\fP Use encoding file .IR ENC . Encoding files used by .B mftrace are basically in the GhostScript/dvips format, but you may use a special .B \%\.notavail glyph name in order to tell mftrace not to process a specific glyph. If this option is not specified, .B mftrace tries to determine the encoding file automatically, from the encoding specified in the TFM file, the default being `tex256.enc'. . .TP .B \-\-keep-trying Try to continue if external programs called by mftrace fail. If METAFONT crashes with overflow errors, but nevertheless outputs a GF file, try to process its output as is (useful for some buggy fonts, see above). If .B potrace or .B autotrace fail to trace a specific character, first try it with a less smoothed curve, and if that fails, skip the character. By default, .B mftrace leaves a file \%`trace-bug-\fIfont\fP-\fIchar\fP.pbm' and stops the process with a request to file a bugreport. . .TP .B \-\-dos-kpath Try to use MikTeX's version of .BR kpsewhich . . .TP .B \-\-potrace Use .B potrace for tracing bitmaps. The default is to use .B potrace if it is found, otherwise to use .BR autotrace . . .TP .B \-\-autotrace Use .B autotrace for tracing bitmaps. . .TP .B \-\-no-afm Don't read the AFM file to find font information. . .TP .B \-\-noround Do not round coordinates of control points to integer values (use with .BR \-\-grid ). Disabled by default. . .TP .BI \-\-grid= GRID Set reciprocal grid size in em units multiplied by ratio magnification/1000. For example, .RB ` "\-\-grid\ 10 \%\-\-magnification\ 1000" ' rounds coordinates of control points to 1/10th of the em unit. Useful simultaneously with the .B \%\-\-noround option. Default .I GRID value is\~1, i.e., round to integer. This option is only used with .BR potrace . . .TP .BI \-D,\-\-define= SYMBOL=VALUE Set the font info .I SYMBOL to the given .IR VALUE . For example, .B \%\-DFamilyName=Foo sets the font family name to .IR Foo . .B mftrace tries to fill in sensible default values for the \%`FontName', \%`FamilyName', \%`FullName' and `Weight' fields. . .TP .B \-V, \-\-verbose Be verbose. . .TP .B \-h, \-\-help Show summary of options. . .TP .B \-v, \-\-version Show version of program. . .TP .B \-w, \-\-warranty Show warranty and copyright. . . .SH COPYRIGHT You may redistribute copies of mftrace under the terms of the GNU General Public License . There is NO WARRANTY, to the extent permitted by law. .br This manual page is copyright \(co 2005,2006,2007 Julian Gilbey and is distributed under the GNU General Public License too. . . .SH "SEE ALSO" .BR mf (1), .BR autotrace (1), .BR potrace (1), .BR fontforge (1). . . .SH AUTHOR .B mftrace was written by Han-Wen Nienhuys . This manual page was originally written by Julian Gilbey and has been revised by Werner Lemberg . . .\" EOF mftrace-1.2.20+git20190918.fd8fef5/mftrace.py0000755000175000017500000012135413540517245016164 0ustar jdgjdg#!@PYTHON@ # # this file is part of mftrace - a tool to generate scalable fonts from MF sources # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License version 2 # as published by the Free Software Foundation # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU Library General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA # Copyright (c) 2001--2006 by # Han-Wen Nienhuys, Jan Nieuwenhuizen import os import optparse import sys import re import tempfile import shutil prefix = '@prefix@' bindir = '@bindir@' datadir = '@datadir@' localedir = datadir + '/locale' libdir = '@libdir@' exec_prefix = '@exec_prefix@' def interpolate (strng): strng = strng.replace ('{', '(') strng = strng.replace ('}', ')s') strng = strng.replace ('$', '%') return strng if prefix != '@' + 'prefix@': exec_prefix = interpolate (exec_prefix) % vars () bindir = interpolate (bindir) % vars () datadir = os.path.join (interpolate (datadir) % vars (), 'mftrace') libdir = interpolate (libdir) % vars () if datadir == '@' + "datadir" + "@": datadir = os.getcwd () bindir = os.getcwd () sys.path.append (datadir) import afm import tfm errorport = sys.stderr ################################################################ # lilylib.py -- options and stuff # # source file of the GNU LilyPond music typesetter try: import gettext gettext.bindtextdomain ('mftrace', localedir) gettext.textdomain ('mftrace') _ = gettext.gettext except: def _ (s): return s def shell_escape_filename (strng): strng = re.sub ('([\'" ])', r'\\\1', strng) return strng def identify (port): port.write ('%s %s\n' % (program_name, program_version)) def warranty (): identify (sys.stdout) sys.stdout.write ('\n') sys.stdout.write (_ ('Copyright (c) %s by' % ' 2001--2004')) sys.stdout.write ('\n') sys.stdout.write (' Han-Wen Nienhuys') sys.stdout.write (' Jan Nieuwenhuizen') sys.stdout.write ('\n') sys.stdout.write (_ (r''' Distributed under terms of the GNU General Public License. It comes with NO WARRANTY.''')) sys.stdout.write ('\n') def progress (s): errorport.write (s) def warning (s): errorport.write (_ ("warning: ") + s) def error (s): '''Report the error S and exit with an error status of 1. RETURN VALUE None ''' errorport.write (_ ("error: ") + s + '\n') errorport.write (_ ("Exiting ...") + '\n') sys.exit(1) temp_dir = None class TempDirectory: def __init__ (self, name=None): import tempfile if name: if not os.path.isdir (name): os.makedirs (name) self.dir = name else: self.dir = tempfile.mkdtemp () os.chdir (self.dir) def clean (self): import shutil shutil.rmtree (self.dir) def __del__ (self): self.clean () def __call__ (self): return self.dir def __repr__ (self): return self.dir def __str__ (self): return self.dir def setup_temp (name): global temp_dir if not temp_dir: temp_dir = TempDirectory (name) return temp_dir () def popen (cmd, mode = 'r', ignore_error = 0): if options.verbose: progress (_ ("Opening pipe `%s\'") % cmd) pipe = os.popen (cmd, mode) if options.verbose: progress ('\n') return pipe def system (cmd, ignore_error = 0): """Run CMD. If IGNORE_ERROR is set, don't complain when CMD returns non zero. RETURN VALUE Exit status of CMD """ if options.verbose: progress (_ ("Invoking `%s\'\n") % cmd) st = os.system (cmd) if st: name = re.match ('[ \t]*([^ \t]*)', cmd).group (1) msg = name + ': ' + _ ("command exited with value %d") % st if ignore_error: warning (msg + ' ' + _ ("(ignored)") + ' ') else: error (msg) if options.verbose: progress ('\n') return st def strip_extension (f, ext): (p, e) = os.path.splitext (f) if e == ext: e = '' return p + e ################################################################ # END Library options = None exit_value = 0 backend_options = '' program_name = 'mftrace' temp_dir = None program_version = '@VERSION@' origdir = os.getcwd () coding_dict = { # from TeTeX 'TeX typewriter text': '09fbbfac.enc', # cmtt10 'TeX math symbols': '10037936.enc', # cmbsy 'ASCII caps and digits': '1b6d048e', # cminch 'TeX math italic': 'aae443f0.enc', # cmmi10 'TeX extended ASCII': 'd9b29452.enc', 'TeX text': 'f7b6d320.enc', 'TeX text without f-ligatures': '0ef0afca.enc', 'Extended TeX Font Encoding - Latin': 'tex256.enc', # LilyPond. 'fetaBraces': 'feta-braces-a.enc', 'fetaNumber': 'feta-nummer10.enc', 'fetaMusic': 'feta20.enc', 'parmesanMusic': 'parmesan20.enc', } def find_file (nm): for d in include_dirs: p = os.path.join (d, nm) try: open (p) return os.path.abspath (p) except IOError: pass p = popen ('kpsewhich %s' % shell_escape_filename (nm)).read () p = p.strip () if options.dos_kpath: orig = p p = p.lower () p = re.sub ('^([a-z]):', '/cygdrive/\\1', p) p = re.sub ('\\\\', '/', p) sys.stderr.write ("Got `%s' from kpsewhich, using `%s'\n" % (orig, p)) return p def flag_error (): global exit_value exit_value = 1 ################################################################ # TRACING. ################################################################ def autotrace_command (fn, opts): opts = " " + opts + " --background-color=FFFFFF --output-format=eps --input-format=pbm " return options.trace_binary + opts + backend_options \ + " --output-file=char.eps %s " % fn def potrace_command (fn, opts): return options.trace_binary + opts \ + ' -u %d ' % options.grid_scale \ + backend_options \ + " -q -c --eps --output=char.eps %s " % (fn) trace_command = None path_to_type1_ops = None def trace_one (pbmfile, id): """ Run tracer, do error handling """ status = system (trace_command (pbmfile, ''), 1) if status == 2: sys.stderr.write ("\nUser interrupt. Exiting\n") sys.exit (2) if status == 0 and options.keep_temp_dir: shutil.copy2 (pbmfile, '%s.pbm' % id) shutil.copy2 ('char.eps', '%s.eps' % id) if status != 0: error_file = os.path.join (origdir, 'trace-bug-%s.pbm' % id) shutil.copy2 (pbmfile, error_file) msg = """Trace failed on bitmap. Bitmap left in `%s\' Failed command was: %s Please submit a bugreport to %s development.""" \ % (error_file, trace_command (error_file, ''), options.trace_binary) if options.keep_trying: warning (msg) sys.stderr.write ("\nContinuing trace...\n") flag_error () else: msg = msg + '\nRun mftrace with --keep-trying to produce a font anyway\n' error (msg) else: return 1 if status != 0: warning ("Failed, skipping character.\n") return 0 else: return 1 def make_pbm (filename, outname, char_number): """ Extract bitmap from the PK file FILENAME (absolute) using `gf2pbm'. Return FALSE if the glyph is not valid. """ command = "%s/gf2pbm -n %d -o %s %s" % (bindir, char_number, outname, filename) status = system (command, ignore_error = 1) return (status == 0) def read_encoding (file): sys.stderr.write (_ ("Using encoding file: `%s'\n") % file) strng = open (file).read () strng = re.sub ("%.*", '', strng) strng = re.sub ("[\n\t \f]+", ' ', strng) m = re.search ('/([^ ]+) \[([^\]]+)\] def', strng) if not m: error ("Encoding file is invalid") name = m.group (1) cod = m.group (2) cod = re.sub ('[ /]+', ' ', cod) cods = cod.split () return (name, cods) def zip_to_pairs (xs): r = [] while xs: r.append ((xs[0], xs[1])) xs = xs[2:] return r def unzip_pairs (tups): lst = [] while tups: lst = lst + list (tups[0]) tups = tups[1:] return lst def autotrace_path_to_type1_ops (at_file, bitmap_metrics, tfm_wid, magnification): inv_scale = 1000.0 / magnification (size_y, size_x, off_x, off_y) = list(map (lambda m, s = inv_scale: m * s, bitmap_metrics)) ls = open (at_file).readlines () bbox = (10000, 10000, -10000, -10000) while ls and ls[0] != '*u\n': ls = ls[1:] if ls == []: return (bbox, '') ls = ls[1:] commands = [] while ls[0] != '*U\n': ell = ls[0] ls = ls[1:] toks = ell.split () if len (toks) < 1: continue cmd = toks[-1] args = list(map (lambda m, s = inv_scale: s * float (m), toks[:-1])) if options.round_to_int: args = zip_to_pairs (list(map (round, args))) else: args = zip_to_pairs (args) commands.append ((cmd, args)) expand = { 'l': 'rlineto', 'm': 'rmoveto', 'c': 'rrcurveto', 'f': 'closepath', } cx = 0 cy = size_y - off_y - inv_scale # t1asm seems to fuck up when using sbw. Oh well. t1_outline = ' %d %d hsbw\n' % (- off_x, tfm_wid) bbox = (10000, 10000, -10000, -10000) for (c, args) in commands: na = [] for a in args: (nx, ny) = a if c == 'l' or c == 'c': bbox = update_bbox_with_point (bbox, a) na.append ((nx - cx, ny - cy)) (cx, cy) = (nx, ny) a = na c = expand[c] if options.round_to_int: a = ['%d' % int (round (x)) for x in unzip_pairs (a)] else: a = ['%d %d div' \ % (int (round (x * options.grid_scale/inv_scale)), int (round (options.grid_scale/inv_scale))) for x in unzip_pairs (a)] t1_outline = t1_outline + ' %s %s\n' % (' '.join (a), c) t1_outline = t1_outline + ' endchar ' t1_outline = '{\n %s } |- \n' % t1_outline return (bbox, t1_outline) # FIXME: Cut and paste programming def potrace_path_to_type1_ops (at_file, bitmap_metrics, tfm_wid, magnification): inv_scale = 1000.0 / magnification (size_y, size_x, off_x, off_y) = list(map (lambda m, s = inv_scale: m * s, bitmap_metrics)) ls = open (at_file).readlines () bbox = (10000, 10000, -10000, -10000) while ls and ls[0] != '0 setgray\n': ls = ls[1:] if ls == []: return (bbox, '') ls = ls[1:] commands = [] while ls and ls[0] != 'grestore\n': ell = ls[0] ls = ls[1:] if ell == 'fill\n': continue toks = ell.split () if len (toks) < 1: continue cmd = toks[-1] args = list(map (lambda m, s = inv_scale: s * float (m), toks[:-1])) args = zip_to_pairs (args) commands.append ((cmd, args)) # t1asm seems to fuck up when using sbw. Oh well. t1_outline = ' %d %d hsbw\n' % (- off_x, tfm_wid) bbox = (10000, 10000, -10000, -10000) # Type1 fonts have relative coordinates (doubly relative for # rrcurveto), so must convert moveto and rcurveto. z = (0.0, size_y - off_y - 1.0) for (c, args) in commands: args = [(x[0] * (1.0 / options.grid_scale), x[1] * (1.0 / options.grid_scale)) for x in args] if c == 'moveto': args = [(args[0][0] - z[0], args[0][1] - z[1])] zs = [] for a in args: lz = (z[0] + a[0], z[1] + a[1]) bbox = update_bbox_with_point (bbox, lz) zs.append (lz) if options.round_to_int: last_discr_z = (int (round (z[0])), int (round (z[1]))) else: last_discr_z = (z[0], z[1]) args = [] for a in zs: if options.round_to_int: a = (int (round (a[0])), int (round (a[1]))) else: a = (a[0], a[1]) args.append ((a[0] - last_discr_z[0], a[1] - last_discr_z[1])) last_discr_z = a if zs: z = zs[-1] c = { 'closepath': 'closepath', 'moveto': 'rmoveto', 'rcurveto': 'rrcurveto', # Potrace 1.9 'restore': '', 'rlineto': 'rlineto', '%%EOF': '', }[c] if c == 'rmoveto': t1_outline += ' closepath ' if options.round_to_int: args = ['%d' % int (round (x)) for x in unzip_pairs (args)] else: args = ['%d %d div' \ % (int (round (x*options.grid_scale/inv_scale)), int (round (options.grid_scale/inv_scale))) for x in unzip_pairs (args)] t1_outline = t1_outline + ' %s %s\n' % (' '.join (args), c) t1_outline = t1_outline + ' endchar ' t1_outline = '{\n %s } |- \n' % t1_outline return (bbox, t1_outline) def read_gf_dims (name, c): strng = popen ('%s/gf2pbm -n %d -s %s' % (bindir, c, name)).read () m = re.search ('size: ([0-9]+)+x([0-9]+), offset: \(([0-9-]+),([0-9-]+)\)', strng) return tuple (map (int, m.groups ())) def trace_font (fontname, gf_file, metric, glyphs, encoding, magnification, fontinfo): t1os = [] font_bbox = (10000, 10000, -10000, -10000) progress (_ ("Tracing bitmaps...")) if options.verbose: progress ('\n') else: progress (' ') # for single glyph testing. # glyphs = [] for a in glyphs: if encoding[a] == ".notavail": continue valid = metric.has_char (a) if not valid: encoding[a] = ".notavail" continue valid = make_pbm (gf_file, 'char.pbm', a) if not valid: encoding[a] = ".notavail" continue (w, h, xo, yo) = read_gf_dims (gf_file, a) if not options.verbose: sys.stderr.write ('[%d' % a) sys.stderr.flush () # this wants the id, not the filename. success = trace_one ("char.pbm", '%s-%d' % (options.gffile, a)) if not success: sys.stderr.write ("(skipping character)]") sys.stderr.flush () encoding[a] = ".notavail" continue if not options.verbose: sys.stderr.write (']') sys.stderr.flush () metric_width = metric.get_char (a).width tw = int (round (metric_width / metric.design_size * 1000)) (bbox, t1o) = path_to_type1_ops ("char.eps", (h, w, xo, yo), tw, magnification) if t1o == '': encoding[a] = ".notavail" continue font_bbox = update_bbox_with_bbox (font_bbox, bbox) t1os.append ('\n/%s %s ' % (encoding[a], t1o)) if not options.verbose: progress ('\n') to_type1 (t1os, font_bbox, fontname, encoding, magnification, fontinfo) def ps_encode_encoding (encoding): strng = ' %d array\n0 1 %d {1 index exch /.notdef put} for\n' \ % (len (encoding), len (encoding)-1) for i in range (0, len (encoding)): if encoding[i] != ".notavail": strng = strng + 'dup %d /%s put\n' % (i, encoding[i]) return strng def gen_unique_id (dict): nm = 'FullName' return 4000000 + (hash (nm) % 1000000) def to_type1 (outlines, bbox, fontname, encoding, magnification, fontinfo): """ Fill in the header template for the font, append charstrings, and shove result through t1asm """ template = r"""%%!PS-AdobeFont-1.0: %(FontName)s %(VVV)s.%(WWW)s 13 dict begin /FontInfo 16 dict dup begin /version (%(VVV)s.%(WWW)s) readonly def /Notice (%(Notice)s) readonly def /FullName (%(FullName)s) readonly def /FamilyName (%(FamilyName)s) readonly def /Weight (%(Weight)s) readonly def /ItalicAngle %(ItalicAngle)s def /isFixedPitch %(isFixedPitch)s def /UnderlinePosition %(UnderlinePosition)s def /UnderlineThickness %(UnderlineThickness)s def end readonly def /FontName /%(FontName)s def /FontType 1 def /PaintType 0 def /FontMatrix [%(xrevscale)f 0 0 %(yrevscale)f 0 0] readonly def /FontBBox {%(llx)d %(lly)d %(urx)d %(ury)d} readonly def /Encoding %(Encoding)s readonly def currentdict end currentfile eexec dup /Private 20 dict dup begin /-|{string currentfile exch readstring pop}executeonly def /|-{noaccess def}executeonly def /|{noaccess put}executeonly def /lenIV 4 def /password 5839 def /MinFeature {16 16} |- /BlueValues [] |- /OtherSubrs [ {} {} {} {} ] |- /ForceBold false def /Subrs 1 array dup 0 { return } | |- 2 index /CharStrings %(CharStringsLen)d dict dup begin %(CharStrings)s /.notdef { 0 0 hsbw endchar } |- end end readonly put noaccess put dup/FontName get exch definefont pop mark currentfile closefile cleartomark """ ## apparently, some fonts end the file with cleartomark. Don't know why. copied_fields = ['FontName', 'FamilyName', 'FullName', 'DesignSize', 'ItalicAngle', 'isFixedPitch', 'Weight'] vars = { 'VVV': '001', 'WWW': '001', 'Notice': 'Generated from MetaFont bitmap by mftrace %s, http://www.xs4all.nl/~hanwen/mftrace/ ' % program_version, 'UnderlinePosition': '-100', 'UnderlineThickness': '50', 'xrevscale': 1.0/1000.0, 'yrevscale': 1.0/1000.0, 'llx': bbox[0], 'lly': bbox[1], 'urx': bbox[2], 'ury': bbox[3], 'Encoding': ps_encode_encoding (encoding), # need one extra entry for .notdef 'CharStringsLen': len (outlines) + 1, 'CharStrings': ' '.join (outlines), 'CharBBox': '0 0 0 0', } for k in copied_fields: vars[k] = fontinfo[k] open ('mftrace.t1asm', 'w').write (template % vars) def update_bbox_with_point (bbox, pt): (llx, lly, urx, ury) = bbox llx = min (pt[0], llx) lly = min (pt[1], lly) urx = max (pt[0], urx) ury = max (pt[1], ury) return (llx, lly, urx, ury) def update_bbox_with_bbox (bb, dims): (llx, lly, urx, ury) = bb llx = min (llx, dims[0]) lly = min (lly, dims[1]) urx = max (urx, dims[2]) ury = max (ury, dims[3]) return (llx, lly, urx, ury) def get_binary (name): search_path = os.environ['PATH'].split (':') for p in search_path: nm = os.path.join (p, name) if os.path.exists (nm): return nm return '' def get_fontforge_command (): if get_binary('fontforge'): pass else: return '' stat = system ("fontforge --help > pfv 2>&1 ", ignore_error = 1) if stat != 0: warning ("Command `fontforge --help' failed. Cannot simplify or convert to TTF.\n") return '' return 'fontforge' def tfm2kpx (tfmname, encoding): kpx_lines = [] pl = popen ("tftopl %s" % (tfmname)) label_pattern = re.compile ( "\A \(LABEL ([DOHC]{1}) ([A-Za-z0-9]*)\)") krn_pattern = re.compile ( "\A \(KRN ([DOHC]{1}) ([A-Za-z0-9]*) R (-?[\d\.]+)\)") first = 0 second = 0 for line in pl.readlines (): label_match = label_pattern.search (line) if not (label_match is None): if label_match.group (1) == "D": first = int (label_match.group (2)) elif label_match.group (1) == "O": first = int (label_match.group (2), 8) elif label_match.group (1) == "C": first = ord (label_match.group (2)) krn_match = krn_pattern.search (line) if not (krn_match is None): if krn_match.group (1) == "D": second = int (krn_match.group (2)) elif krn_match.group (1) == "O": second = int (krn_match.group (2), 8) elif krn_match.group (1) == "C": second = ord (krn_match.group (2)) krn = round (float (krn_match.group (3)) * 1000) if (encoding[first] != '.notavail' and encoding[first] != '.notdef' and encoding[second] != '.notavail' and encoding[second] != '.notdef'): kpx_lines.append ("KPX %s %s %d\n" % ( encoding[first], encoding[second], krn)) return kpx_lines def get_afm (t1_path, tfmname, encoding, out_path): afm_stream = popen ("printafm %s" % (t1_path)) afm_lines = [] kpx_lines = tfm2kpx (tfmname, encoding) for line in afm_stream.readlines (): afm_lines.append (line) if re.match (r"^EndCharMetrics", line, re.I): afm_lines.append ("StartKernData\n") afm_lines.append ("StartKernPairs %d\n" % len (kpx_lines)) for kpx_line in kpx_lines: afm_lines.append (kpx_line) afm_lines.append ("EndKernPairs\n") afm_lines.append ("EndKernData\n") progress (_ ("Writing metrics to `%s'... ") % out_path) afm_file = open (out_path, 'w') afm_file.writelines (afm_lines) afm_file.flush () afm_file.close () progress ('\n') def assemble_font (fontname, format, is_raw): ext = '.' + format asm_opt = '--pfa' if format == 'pfb': asm_opt = '--pfb' if is_raw: ext = ext + '.raw' outname = fontname + ext progress (_ ("Assembling raw font to `%s'... ") % outname) if options.verbose: progress ('\n') system ('t1asm %s mftrace.t1asm %s' % (asm_opt, shell_escape_filename (outname))) progress ('\n') return outname def make_outputs (fontname, formats, encoding): """ run fontforge to convert to other formats """ ff_needed = 0 ff_command = "" if (options.simplify or options.round_to_int or 'ttf' in formats or 'svg' in formats or 'afm' in formats): ff_needed = 1 if ff_needed: ff_command = get_fontforge_command () if ff_needed and ff_command: raw_name = assemble_font (fontname, 'pfa', 1) simplify_cmd = '' if options.round_to_int: simplify_cmd = 'RoundToInt ();' generate_cmds = '' for f in formats: generate_cmds += 'Generate("%s");' % (fontname + '.' + f) if options.simplify: simplify_cmd ='''SelectAll (); AddExtrema(); Simplify (); %(simplify_cmd)s AutoHint ();''' % vars() pe_script = ('''#!/usr/bin/env %(ff_command)s Open ($1); MergeKern($2); %(simplify_cmd)s %(generate_cmds)s Quit (0); ''' % vars()) open ('to-ttf.pe', 'w').write (pe_script) if options.verbose: print('Fontforge script', pe_script) system ("fontforge -quiet -script to-ttf.pe %s %s" % (shell_escape_filename (raw_name), shell_escape_filename (options.tfm_file))) elif ff_needed and (options.simplify or options.round_to_int or 'ttf' in formats or 'svg' in formats): error(_ ("fontforge is not installed; could not perform requested command")) else: t1_path = '' if ('pfa' in formats): t1_path = assemble_font (fontname, 'pfa', 0) if ('pfb' in formats): t1_path = assemble_font (fontname, 'pfb', 0) if (t1_path != '' and 'afm' in formats): if get_binary("printafm"): get_afm (t1_path, options.tfm_file, encoding, fontname + '.afm') else: error(_ ("Neither fontforge nor ghostscript is installed; could not perform requested command")) def getenv (var, default): if var in os.environ: return os.environ[var] else: return default def gen_pixel_font (filename, metric, magnification): """ Generate a GF file for FILENAME, such that `magnification'*mfscale (default 1000 * 1.0) pixels fit on the designsize. """ base_dpi = 1200 size = metric.design_size size_points = size * 1/72.27 * base_dpi mag = magnification / size_points prod = mag * base_dpi try: open ('%s.%dgf' % (filename, prod)) except IOError: ## MFINPUTS/TFMFONTS take kpathsea specific values; ## we should analyse them any further. os.environ['MFINPUTS'] = '%s:%s' % (origdir, getenv ('MFINPUTS', '')) os.environ['TFMFONTS'] = '%s:%s' % (origdir, getenv ('TFMINPUTS', '')) progress (_ ("Running Metafont...")) cmdstr = r"mf '\mode:=lexmarks; mag:=%f; nonstopmode; input %s'" % (mag, filename) if not options.verbose: cmdstr = cmdstr + ' 1>/dev/null 2>/dev/null' st = system (cmdstr, ignore_error = 1) progress ('\n') logfile = '%s.log' % filename log = '' prod = 0 if os.path.exists (logfile): log = open (logfile).read () m = re.search ('Output written on %s.([0-9]+)gf' % re.escape (filename), log) prod = int (m.group (1)) if st: sys.stderr.write ('\n\nMetafont failed. Excerpt from the log file: \n\n*****') m = re.search ("\n!", log) start = m.start (0) short_log = log[start:start+200] sys.stderr.write (short_log) sys.stderr.write ('\n*****\n') if re.search ('Arithmetic overflow', log): sys.stderr.write (""" Apparently, some numbers overflowed. Try using --magnification with a lower number. (Current magnification: %d) """ % magnification) if not options.keep_trying or prod == 0: sys.exit (1) else: sys.stderr.write ('\n\nTrying to proceed despite of the Metafont errors...\n') return "%s.%d" % (filename, prod) def parse_command_line (): p = optparse.OptionParser (version="""mftrace @VERSION@ This program is free software. It is covered by the GNU General Public License and you are welcome to change it and/or distribute copies of it under certain conditions. Invoke as `mftrace --warranty' for more information. Copyright (c) 2005--2006 by Han-Wen Nienhuys """) p.usage = "mftrace [OPTION]... FILE..." p.description = _ ("Generate Type1 or TrueType font from Metafont source.") p.add_option ('-k', '--keep', action="store_true", dest="keep_temp_dir", help=_ ("Keep all output in directory %s.dir") % program_name) p.add_option ('--magnification', dest="magnification", metavar="MAG", default=1000.0, type="float", help=_("Set magnification for MF to MAG (default: 1000)")) p.add_option ('-V', '--verbose', action='store_true', default=False, help=_ ("Be verbose")) p.add_option ('-f', '--formats', action="append", dest="formats", default=[], help=_("Which formats to generate (choices: AFM, PFA, PFB, TTF, SVG)")) p.add_option ('--simplify', action="store_true", dest="simplify", default=False, help=_ ("Simplify using fontforge")) p.add_option ('--gffile', dest="gffile", help= _("Use gf FILE instead of running Metafont")) p.add_option ('-I', '--include', dest="include_dirs", action="append", default=[], help=_("Add to path for searching files")) p.add_option ('--glyphs', default=[], action="append", dest="glyphs", metavar="LIST", help= _('Process only these glyphs. LIST is comma separated')) p.add_option ('--tfmfile', metavar='FILE', action='store', dest='tfm_file') p.add_option ('-e', '--encoding', metavar="FILE", action='store', dest="encoding_file", default="", help= _ ("Use encoding file FILE")) p.add_option ('--keep-trying', dest='keep_trying', default=False, action="store_true", help= _ ("Don't stop if tracing fails")) p.add_option ('-w', '--warranty', action="store_true", help=_ ("show warranty and copyright")) p.add_option ('--dos-kpath', action='store_true', dest="dos_kpath", help=_("try to use Miktex kpsewhich")) p.add_option ('--potrace', action='store_true', dest='potrace', help=_ ("Use potrace")) p.add_option ('--autotrace', action='store_true', dest='autotrace', help=_ ("Use autotrace")) p.add_option ('--no-afm', action='store_false', dest="read_afm", default=True, help=_("Don't read AFM file")) p.add_option ('--noround', action='store_false', dest='round_to_int', default=True, help=_("Do not round coordinates of control points to integer values (use with --grid)")) p.add_option ('--grid', metavar='SCALE', dest='grid_scale', type='float', default = 1.0, help=_ ("Set reciprocal grid size in em units")) p.add_option ('-D','--define', metavar="SYMBOL=VALUE", dest="defs", default=[], action='append',help=_("Set the font info SYMBOL to VALUE")) global options (options, files) = p.parse_args () if not files: sys.stderr.write ('Need argument on command line \n') p.print_help () sys.exit (2) if options.warranty : warranty () sys.exit (0) options.font_info = {} for d in options.defs: kv = d.split('=') if len (kv) == 1: options.font_info[kv] = 'true' elif len (kv) > 1: options.font_info[kv[0]] = '='.join (kv[1:]) def comma_sepped_to_list (x): fs = [] for f in x: fs += f.lower ().split (',') return fs options.formats = comma_sepped_to_list (options.formats) new_glyphs = [] for r in options.glyphs: new_glyphs += r.split (',') options.glyphs = new_glyphs glyph_range = [] for r in options.glyphs: glyph_subrange = list(map (int, r.split('-'))) if len (glyph_subrange) == 2 and glyph_subrange[0] < glyph_subrange[1] + 1: glyph_range += list(range(glyph_subrange[0], glyph_subrange[1] + 1)) else: glyph_range.append (glyph_subrange[0]) options.glyphs = glyph_range options.trace_binary = '' if options.potrace: options.trace_binary = 'potrace' elif options.autotrace: options.trace_binary = 'autotrace' if options.formats == []: options.formats = ['pfa'] global trace_command global path_to_type1_ops stat = os.system ('potrace --version > /dev/null 2>&1 ') if options.trace_binary != 'autotrace' and stat == 0: options.trace_binary = 'potrace' trace_command = potrace_command path_to_type1_ops = potrace_path_to_type1_ops elif options.trace_binary == 'potrace' and stat != 0: error (_ ("Could not run potrace; have you installed it?")) stat = os.system ('autotrace --version > /dev/null 2>&1 ') if options.trace_binary != 'potrace' and stat == 0: options.trace_binary = 'autotrace' trace_command = autotrace_command path_to_type1_ops = autotrace_path_to_type1_ops elif options.trace_binary == 'autotrace' and stat != 0: error (_ ("Could not run autotrace; have you installed it?")) if not options.trace_binary: error (_ ("No tracing program found.\nInstall potrace or autotrace.")) return files def derive_font_name (family, fullname): fullname = re.sub (family, '', fullname) family = re.sub (' ', '', family) fullname = re.sub ('Oldstyle Figures', 'OsF', fullname) fullname = re.sub ('Small Caps', 'SC', fullname) fullname = re.sub ('[Mm]edium', '', fullname) fullname = re.sub ('[^A-Za-z0-9]', '', fullname) return '%s-%s' % (family, fullname) def cm_guess_font_info (filename, fontinfo): # urg. filename = re.sub ("cm(.*)tt", r"cmtt\1", filename) m = re.search ("([0-9]+)$", filename) design_size = '' if m: design_size = int (m.group (1)) fontinfo['DesignSize'] = design_size prefixes = [("cmtt", "Computer Modern Typewriter"), ("cmvtt", "Computer Modern Variable Width Typewriter"), ("cmss", "Computer Modern Sans"), ("cm", "Computer Modern")] family = '' for (k, v) in prefixes: if re.search (k, filename): family = v if k == 'cmtt': fontinfo['isFixedPitch'] = 'true' filename = re.sub (k, '', filename) break # shapes prefixes = [("r", "Roman"), ("mi", "Math italic"), ("u", "Unslanted italic"), ("sl", "Oblique"), ("csc", "Small Caps"), ("ex", "Math extension"), ("ti", "Text italic"), ("i", "Italic")] shape = '' for (k, v) in prefixes: if re.search (k, filename): shape = v filename = re.sub (k, '', filename) prefixes = [("b", "Bold"), ("d", "Demi bold")] weight = 'Regular' for (k, v) in prefixes: if re.search (k, filename): weight = v filename = re.sub (k, '', filename) prefixes = [("c", "Condensed"), ("x", "Extended")] stretch = '' for (k, v) in prefixes: if re.search (k, filename): stretch = v filename = re.sub (k, '', filename) fontinfo['ItalicAngle'] = 0 if re.search ('[Ii]talic', shape) or re.search ('[Oo]blique', shape): a = -14 if re.search ("Sans", family): a = -12 fontinfo ["ItalicAngle"] = a fontinfo['Weight'] = weight fontinfo['FamilyName'] = family full = '%s %s %s %s %dpt' \ % (family, shape, weight, stretch, design_size) full = re.sub (" +", ' ', full) fontinfo['FullName'] = full fontinfo['FontName'] = derive_font_name (family, full) return fontinfo def ec_guess_font_info (filename, fontinfo): design_size = 12 m = re.search ("([0-9]+)$", filename) if m: design_size = int (m.group (1)) fontinfo['DesignSize'] = design_size prefixes = [("ecss", "European Computer Modern Sans"), ("ectt", "European Computer Modern Typewriter"), ("ec", "European Computer Modern")] family = '' for (k, v) in prefixes: if re.search (k, filename): if k == 'ectt': fontinfo['isFixedPitch'] = 'true' family = v filename = re.sub (k, '', filename) break # shapes prefixes = [("r", "Roman"), ("mi", "Math italic"), ("u", "Unslanted italic"), ("sl", "Oblique"), ("cc", "Small caps"), ("ex", "Math extension"), ("ti", "Italic"), ("i", "Italic")] shape = '' for (k, v) in prefixes: if re.search (k, filename): shape = v filename = re.sub (k, '', filename) prefixes = [("b", "Bold"), ("d", "Demi bold")] weight = 'Regular' for (k, v) in prefixes: if re.search (k, filename): weight = v filename = re.sub (k, '', filename) prefixes = [("c", "Condensed"), ("x", "Extended")] stretch = '' for (k, v) in prefixes: if re.search (k, filename): stretch = v filename = re.sub (k, '', filename) fontinfo['ItalicAngle'] = 0 if re.search ('[Ii]talic', shape) or re.search ('[Oo]blique', shape): a = -14 if re.search ("Sans", family): a = -12 fontinfo ["ItalicAngle"] = a fontinfo['Weight'] = weight fontinfo['FamilyName'] = family full = '%s %s %s %s %dpt' \ % (family, shape, weight, stretch, design_size) full = re.sub (" +", ' ', full) fontinfo['FontName'] = derive_font_name (family, full) fontinfo['FullName'] = full return fontinfo def guess_fontinfo (filename): fi = { 'FontName': filename, 'FamilyName': filename, 'Weight': 'Regular', 'ItalicAngle': 0, 'DesignSize' : 12, 'isFixedPitch' : 'false', 'FullName': filename, } if re.search ('^cm', filename): fi.update (cm_guess_font_info (filename, fi)) elif re.search ("^ec", filename): fi.update (ec_guess_font_info (filename, fi)) elif options.read_afm: global afmfile if not afmfile: afmfile = find_file (filename + '.afm') if afmfile: afmfile = os.path.abspath (afmfile) afm_struct = afm.read_afm_file (afmfile) fi.update (afm_struct.__dict__) return fi else: sys.stderr.write ("Warning: no extra font information for this font.\n" + "Consider writing a XX_guess_font_info() routine.\n") return fi def do_file (filename): encoding_file = options.encoding_file global include_dirs include_dirs = options.include_dirs include_dirs.append (origdir) basename = strip_extension (filename, '.mf') progress (_ ("Font `%s'..." % basename)) progress ('\n') ## setup encoding if encoding_file and not os.path.exists (encoding_file): encoding_file = find_file (encoding_file) elif encoding_file: encoding_file = os.path.abspath (encoding_file) ## setup TFM if options.tfm_file: options.tfm_file = os.path.abspath (options.tfm_file) else: tfm_try = find_file (basename + '.tfm') if tfm_try: options.tfm_file = tfm_try if "MFINPUTS" not in os.environ: os.environ["MFINPUTS"] = os.getcwd () + ":" ## must change dir before calling mktextfm. if options.keep_temp_dir: def nop(): pass setup_temp (os.path.join (os.getcwd (), program_name + '.dir')) temp_dir.clean = nop else: setup_temp (None) if options.verbose: progress ('Temporary directory is `%s\'\n' % temp_dir) if not options.tfm_file: options.tfm_file = popen ("mktextfm %s 2>/dev/null" % shell_escape_filename (basename)).read () if options.tfm_file: options.tfm_file = options.tfm_file.strip () options.tfm_file = os.path.abspath (options.tfm_file) if not options.tfm_file: error (_ ("Can not find a TFM file to match `%s'") % basename) metric = tfm.read_tfm_file (options.tfm_file) fontinfo = guess_fontinfo (basename) fontinfo.update (options.font_info) if not encoding_file: codingfile = 'tex256.enc' if metric.coding not in coding_dict: sys.stderr.write ("Unknown encoding `%s'; assuming tex256.\n" % metric.coding) else: codingfile = coding_dict[metric.coding] encoding_file = find_file (codingfile) if not encoding_file: error (_ ("can't find file `%s'" % codingfile)) (enc_name, encoding) = read_encoding (encoding_file) if not len (options.glyphs): options.glyphs = list(range(0, len (encoding))) if not options.gffile: # run mf base = gen_pixel_font (basename, metric, options.magnification) options.gffile = base + 'gf' else: options.gffile = find_file (options.gffile) # the heart of the program: trace_font (basename, options.gffile, metric, options.glyphs, encoding, options.magnification, fontinfo) make_outputs (basename, options.formats, encoding) for format in options.formats: shutil.copy2 (basename + '.' + format, origdir) os.chdir (origdir) afmfile = '' backend_options = getenv ('MFTRACE_BACKEND_OPTIONS', '') def main (): global temp_dir files = parse_command_line () identify (sys.stderr) for filename in files: do_file (filename) if temp_dir: del temp_dir sys.exit (exit_value) if __name__ =='__main__': main() mftrace-1.2.20+git20190918.fd8fef5/README.texi0000644000175000017500000002576013540517245016022 0ustar jdgjdg\input texinfo @c -*-texinfo-*- @setfilename README.info @settitle mftrace - Scalable Fonts for MetaFont @ignore Copyright (c) 1999--2006 by the authors Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA @end ignore @include version.texi @node Top, , , @top @chapter mftrace - Scalable PostScript Fonts for MetaFont @section Introduction @code{mftrace} is a small Python program that lets you trace a @TeX{} bitmap font into a PFA or PFB font (A PostScript Type1 Scalable Font) or TTF (TrueType) font. It is licensed under the GNU GPL. Scalable fonts offer many advantages over bitmaps, as they allow documents to render correctly at many printer resolutions. Moreover, Ghostscript can generate much better PDF, if given scalable PostScript fonts. Versions prior to 1.0.5 were called `pktrace'. @section Download @itemize @item @uref{http://lilypond.org/download/sources/mftrace/mftrace-@mftversion{}.tar.gz} @item GIT at @uref{https://github.com/hanwen/mftrace} @end itemize @section Required @file{mftrace} is a thin Python wrapper around some other programs that do the real work: a tracing program and t1asm. To run mftrace you need: @itemize @bullet @item A tracing program: autotrace >= 0.30 (see @uref{http://autotrace.sourceforge.net} or potrace (see @uref{http://potrace.sourceforge.net}). Potrace is recommended as it runs quicker than autotrace. @item Python--2.2 or later. See @uref{http://www.python.org/} @item t1utils. See @uref{http://www.lcdf.org/~eddietwo/type/} @item TeX--your tex installation should include @itemize @bullet @item kpsewhich, @item MetaFont @end itemize @end itemize @section Recommended @itemize @bullet @item A recent version (040215 or newer) of @uref{http://fontforge.sourceforge.net,FontForge}. Some of @code{mftrace} functionality requires FontForge to be present on user's system. This includes rounding to integer, simplifying and autohinting font outlines, as well as generating any output formats except PFA, PFB and AFM. You should not request any of these features using @code{mftrace} options if you don't like your font to be run through FontForge (note that in this case you also have to explicitly specify @code{--noround} to disable rounding to integer). @item Alternatively, you need GhostScript with its @file{printafm} utility, available somethere in your PATH. @code{mftrace} uses @file{printafm} to generate AFM files in case there is no need to process the font with FontForge. @end itemize @section Red Hat A RPM may be built by issuing @example rpmbuild -tb mftrace-@var{version}.tar.gz @end example @section Debian GNU/Linux Users of Debian unstable (and Debian 3.0 when it is released) can install all requirements by running (as root): @example apt-get install mftrace @end example If you wish to also install the FontForge package to simplify and autohint the font, then run the command @example apt-get install fontforge @end example @section Install Install the prerequite packages. Then run @example ./configure make install @end example in the mftrace directory. Run as follows: @example mftrace cmr10 @end example @section Invoking mftrace. Command line options: @table @code @item --formats=LIST A comma-separated list of formats to generate. Choices include: AFM, PFA, PFB, TTF and SVG. Default is to generate a PFA file. Note that @file{fontforge} needs to be installed in order to generate any format except PFA or PFB. For generating AFM you need either @file{fontforge} or @file{ghostscript}. @item -e,--encoding=@var{enc} Use encoding file @var{enc}. Encoding files used by @code{mftrace} are basically in the GhostScript/dvips format, but you may use a special @code{.notavail} glyph name in order to tell mftrace not to process a specific glyph. If this option is not specified, mftrace will try to determine the encoding file automatically, from the encoding specified in the TFM file. @item --glyphs=@var{list} Only process glyphs in @var{list}, which is a comma-delimited list of decimal numbers or ranges. @example --glyphs 1-10,50,55,90-100 @end example @item --gffile=@var{name} = Take glyphs from file @var{name}. @item --grid @var{gridsize} Set reciprocal grid size in em units multiplied by ratio magnification/1000. For example @code{--grid 10 --magnification 1000} will round coordinates of control points to 1/10 of em unit. Useful simultaneously with @code{--noround} option. Default @var{gridsize} value is 1, i. e. round to integer. @item -h,--help help on options. @item -k,--keep Retain all temporary files in the directory @file{mftrace.dir/}. This is useful for debugging problems. @item --keep-trying Try to continue if external programs called by mftrace fail. If METAFONT crashes with overflow errors, but nevertheless outputs a GF file, try to process its output as is (useful for some buggy fonts, see below). If potrace/autotrace fails to trace a specific character, first try it with a less smoothed curve, and if that fails, skip the character. By default mftrace outputs @file{trace-bug-FONTNAME-NUMBER.pbm} and stops the process with a request to file a bugreport. @item --magnification The magnification to use for the PFA file. The default is 1000. The larger the more precise the PFA file will be. However, when magnification is too large METAFONT can crash with overflow errors. Sadly, many MF fonts contain resolution checks @example if dots_per_inch * design_size > 1500: ... @end example This check is susceptible to overflow errors. Such code should be reported as a bug, and changed to @example if dots_per_inch > (1500 / design_size): ... @end example @item --noround Don't round coordinates of control points to integer values. Useful simultaneously with @code{--grid} option. Disabled by default. @item -o,--output-base=FILE Output to FILE.pfa or FILE.pfb. @item --simplify Pass the font through FontForge for automatic simplification and hinting. @item --tfmfile=FILE Use @var{file} for the TFM file. This file is needed to determine at what resolution to run MetaFont. @item -V,--verbose Be verbose: print all commands as they are invoked. This is useful for debugging. @item -v,--version Print version number @item --dos-kpath Try to kludge up the paths coming from MikTeX for a cygwin environment. If this doesn't work, specify @code{--tfmfile} and @code{--encoding} manually. @item -w,--warranty show warranty and copyright @item --potrace use Potrace (default). @item --autotrace use AutoTrace. @item -D,--define=@var{symbol}=@var{value} Set the font info @var{symbol} to the given @var{value}. For example @code{-DFamilyName=Foo} sets the font family name to @code{Foo}. Mftrace tries to fill in sensible values for the FontName, FamilyName, FullName and Weight fields. It does so by guessing values for the CM font series. For other fonts, it tries to read an AFM file (which is not likely to exist). Suggestions for a more generic way to handle this are welcome. @end table Mftrace uses kpathsea for finding fonts, so any kpathsea variable can be used to fine-tune which files should be loaded. For example, you can set @code{MFINPUTS} to specify which paths to search for @file{.mf} files. Additional options may be passed to the backend program (potrace or autotrace) with the @code{MFTRACE_BACKEND_OPTIONS} environment variable. @section Discussion Why use @code{mftrace} over @uref{http://textrace.sourceforge.net,textrace}? Textrace and mftrace are functionally similar. However, mftrace is quicker, more cleanly written and can be installed using standard methods. Additionally, textrace requires perl, ghostscript and dvips. How about @uref{http://www.truetex.com,MetaFog}? MetaFog operates directly on the curves that generate the bitmap font, its outlines will probably be smaller and better. However, MetaFog is a proprietary product: its source code is not available, and it will only run on a limited number of platforms. How about @uref{ftp://bop.eps.gda.pl/pub/metatype1/,MetaType1}? MetaType1 is an approach that puts severe constraints on what may be done in a font program. It does not work for fonts containing overlaps and shaped pens. How about @uref{http://fontforge.sourceforge.net/,FontForge} itself? FontForge is an interactive editor, but it can be scripted. Since it supports bitmap tracing and @TeX{} bitmap fonts, it is possible to duplicate the functionality of mftrace. However, out of the box, FontForge does not recognize TeX encodings. @section Bugs and todo @itemize @item Environment variables containing relative directories, such as MFINPUTS or TFMINPUTS, are not handled correctly. @item Discuss fonts & copyright. @item Submit @file{tfm.py} to www.python.org. @file{tfm.py} is a python module to parse Tex Font Metric file. @end itemize Should you encounter any bug or problem, then please send a bugreport to @email{hanwen@@xs4all.nl,Han-Wen Nienhuys}. @section Author @email{hanwen@@xs4all.nl,Han-Wen Nienhuys} @section Credits Gf2pbm, the utility to convert a MetaFont GF file to a PBM file was based on Paul Vojta's Xdvi. The license notice is reproduced below. Thanks to all bughunters and contributors: Andrey V. Panov, Geoffrey Alan Washburn, @uref{http://www.maths.qmul.ac.uk/~jdg/,Julian Gilbey} G@"{u}nther Spahlinger, Richard Mahoney, Stanislav Brabec, and Thomas Bushnell BSG. @quotation Copyright (c) 1990-1999 Paul Vojta Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL PAUL VOJTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @end quotation The rest of the package mftrace script itself is licensed under the @uref{http://www.gnu.org/licenses/gpl.txt,GNU General Public License}. @section See also @itemize @bullet @item @uref{http://partners.adobe.com/asn/developer/pdfs/tn/T1Format.pdf,Type1 font specification} @item @uref{http://partners.adobe.com/asn/developer/pdfs/tn/5015.Type1_Supp.pdf,Supplement to the Type1 specification}. @end itemize @bye mftrace-1.2.20+git20190918.fd8fef5/mftrace.spec.in0000644000175000017500000000221013540517245017055 0ustar jdgjdg#-*-RPM-SPEC-*- Summary: Generate scalable fonts for TeX Name: mftrace Version: @VERSION@ Release: 1 URL: http://www.cs.uu.nl/~hanwen/mftrace Source0: %{name}-%{version}.tar.gz License: GPL Group: Applications/Publishing BuildRoot: %{_tmppath}/%{name}-root Prereq: tetex python potrace t1utils %description Mftrace is a small Python program that lets you trace a @TeX{} bitmap font into a PFA or PFB font (A PostScript Type1 Scalable Font). It is licensed under the GNU GPL. Type1 fonts offer many advantages over bitmaps, as they allow PostScript files to render correctly on printers with many resolutions. Moreover, Ghostscript can generate much better PDF, if given scalable fonts. %prep %setup -q %build ./configure --prefix=/usr/ make make README.txt %install rm -rf $RPM_BUILD_ROOT make prefix=$RPM_BUILD_ROOT/usr/ mandir=$RPM_BUILD_ROOT/%{_mandir} install %clean rm -rf $RPM_BUILD_ROOT %files %defattr(-,root,root) %{_prefix}/bin/gf2pbm %{_prefix}/bin/mftrace %{_mandir}/man1/mftrace.1.gz %{_datadir}/mftrace/afm.* %{_datadir}/mftrace/tfm.* %doc README.txt %changelog * Tue Feb 19 2002 Han-Wen Nienhuys - Initial build. mftrace-1.2.20+git20190918.fd8fef5/gf2pbm.c0000644000175000017500000004043313540517245015505 0ustar jdgjdg/* -*-c-indentation-style:"bsd"-*- */ /*========================================================================*\ Copyright (c) 1990-1999 Paul Vojta Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL PAUL VOJTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. \*========================================================================*/ /* * GF font reading routines. * Public routines are read_GF_index and read_GF_char. */ #include #include #include #include /* getopt. */ #include #include "config.h" #define ARGS(x) x #define DBG_PK 0 #define WIDENINT (int) typedef unsigned int wide_ubyte; typedef int wide_bool; typedef unsigned long Pixel; typedef unsigned int Dimension; #define one(fp) ((unsigned char) getc(fp)) #define sone(fp) ((long) one(fp)) #define two(fp) num (fp, 2) #define stwo(fp) snum(fp, 2) #define four(fp) num (fp, 4) #define sfour(fp) snum(fp, 4) typedef unsigned char ubyte; struct font; typedef void (*read_char_proc) ARGS((struct font *, wide_ubyte)); typedef long (*set_char_proc) ARGS((wide_ubyte)); #define BMTYPE int #define GF_PRE 247 #define GF_ID 131 #define GF_MAGIC (GF_PRE << 8) + GF_ID #define BMUNIT unsigned BMTYPE /* (can't use sizeof. */ #define BMBYTES 4 #define BMBITS (8 * BMBYTES) extern BMUNIT bit_masks[BMBITS + 1]; #define ADD(a, b) ((BMUNIT *) (((char *) a) + b)) #define SUB(a, b) ((BMUNIT *) (((char *) a) - b)) #if (BMBYTES == 1) BMUNIT bit_masks[9] = { 0x0, 0x1, 0x3, 0x7, 0xf, 0x1f, 0x3f, 0x7f, 0xff }; #else #if (BMBYTES == 2) BMUNIT bit_masks[17] = { 0x0, 0x1, 0x3, 0x7, 0xf, 0x1f, 0x3f, 0x7f, 0xff, 0x1ff, 0x3ff, 0x7ff, 0xfff, 0x1fff, 0x3fff, 0x7fff, 0xffff }; #else /* BMBYTES == 4 */ BMUNIT bit_masks[33] = { 0x0, 0x1, 0x3, 0x7, 0xf, 0x1f, 0x3f, 0x7f, 0xff, 0x1ff, 0x3ff, 0x7ff, 0xfff, 0x1fff, 0x3fff, 0x7fff, 0xffff, 0x1ffff, 0x3ffff, 0x7ffff, 0xfffff, 0x1fffff, 0x3fffff, 0x7fffff, 0xffffff, 0x1ffffff, 0x3ffffff, 0x7ffffff, 0xfffffff, 0x1fffffff, 0x3fffffff, 0x7fffffff, 0xffffffff }; #endif #endif typedef enum {false,true}bool; bool debug; struct font { char *fontname; /* name of font */ float fsize; /* size information (dots per inch) */ int magstepval; /* magstep number * two, or NOMAGSTP */ FILE *file; /* open font file or NULL */ char *filename; /* name of font file */ long checksum; /* checksum */ unsigned short timestamp; /* for LRU management of fonts */ ubyte flags; /* flags byte (see values below) */ ubyte maxchar; /* largest character code */ double dimconv; /* size conversion factor */ /* these fields are used by (loaded) raster fonts */ read_char_proc read_char; /* function to read bitmap */ struct glyph *glyph; /* these fields are used by (loaded) virtual fonts */ struct font **vf_table; /* list of fonts used by this vf */ struct tn *vf_chain; /* ditto, if TeXnumber >= VFTABLELEN */ struct font *first_font; /* first font defined */ struct macro *macro; /* I suppose the above could be put into a union, but we */ /* wouldn't save all that much space. */ }; /* * Bitmap structure for raster ops. */ struct bitmap { unsigned short w, h; /* width and height in pixels */ short bytes_wide; /* scan-line width in bytes */ char *bits; /* pointer to the bits */ }; /* * Per-character information. * There is one of these for each character in a font (raster fonts only). * All fields are filled in at font definition time, * except for the bitmap, which is "faulted in" * when the character is first referenced. */ struct glyph { long addr; /* address of bitmap in font file */ long dvi_adv; /* DVI units to move reference point */ short x, y; /* x and y offset in pixels */ struct bitmap bitmap; /* bitmap for character */ short x2, y2; /* x and y offset in pixels (shrunken bitmap) */ #ifdef GREY XImage *image2; char *pixmap2; char *pixmap2_t; #endif struct bitmap bitmap2; /* shrunken bitmap for character */ }; #define PAINT_0 0 #define PAINT1 64 #define PAINT2 65 #define PAINT3 66 #define BOC 67 #define BOC1 68 #define EOC 69 #define SKIP0 70 #define SKIP1 71 #define SKIP2 72 #define SKIP3 73 #define NEW_ROW_0 74 #define NEW_ROW_MAX 238 #define XXX1 239 #define XXX2 240 #define XXX3 241 #define XXX4 242 #define YYY 243 #define NO_OP 244 #define CHAR_LOC 245 #define CHAR_LOC0 246 #define PRE 247 #define POST 248 #define POST_POST 249 #define GF_ID_BYTE 131 #define TRAILER 223 /* Trailing bytes at end of file */ static FILE *GF_file; static void expect( ubyte ch) { ubyte ch1 = one(GF_file); if (ch1 != ch) { fprintf(stderr, "Bad GF file: %d expected, %d received.", ch, ch1); exit (2); } } static void too_many_bits( ubyte ch) { fprintf(stderr,"Too many bits found when loading character %d", ch); exit (2); } /* * * Read size bytes from the FILE fp, constructing them into a * signed/unsigned integer. * */ unsigned long num( FILE *fp, int size) { long x = 0; while (size--) x = (x << 8) | one(fp); return x; } long snum( FILE *fp, int size) { long x; x = (signed char) getc(fp); while (--size) x = (x << 8) | one(fp); return x; } ubyte maxchar; void realloc_font(struct font *fontp, wide_ubyte newsize) { struct glyph *glyphp; glyphp = fontp->glyph = (struct glyph*)realloc(fontp->glyph, (unsigned int) (newsize + 1) * sizeof(struct glyph)); if (newsize > fontp->maxchar) bzero((char *) (glyphp + fontp->maxchar + 1), (int) (newsize - fontp->maxchar) * sizeof(struct glyph)); maxchar = fontp->maxchar = newsize; } #define ROUNDUP(x,y) (((x)+(y)-1)/(y)) void * xmalloc( unsigned size) { void *mem = malloc(size); if (mem == NULL) { fprintf(stderr,"! Out of memory (allocating %u bytes).\n", size); exit (2); } return mem; } void alloc_bitmap( struct bitmap *bitmap) { unsigned int size; /* width must be multiple of 16 bits for raster_op */ bitmap->bytes_wide = ROUNDUP((int) bitmap->w, BMBITS) * BMBYTES; size = bitmap->bytes_wide * bitmap->h; bitmap->bits = (char*)xmalloc(size != 0 ? size : 1); } /* * Public routines */ #ifndef WORDS_BIGENDIAN #define word_swap(x) x #else #define word_swap(x) \ ((((x) & 0xff000000) >> 24) | (((x) & 0x00ff0000) >> 8) | \ (((x) & 0x0000ff00) << 8) | (((x) & 0x000000ff) << 24)) #endif static void read_GF_char(struct font *fontp, wide_ubyte ch) { struct glyph *g; ubyte cmnd; int min_m, max_m, min_n, max_n; BMUNIT *cp, *basep, *maxp; BMUNIT **basep_cpp = &basep; int bytes_wide; bool paint_switch; #define White false #define Black true bool new_row; int count; int word_weight; g = &fontp->glyph[ch]; GF_file = fontp->file; if(debug & DBG_PK) printf("Loading gf char %d", ch); for (;;) { switch (cmnd = one(GF_file)) { case XXX1: case XXX2: case XXX3: case XXX4: fseek(GF_file, (long) num(GF_file, WIDENINT cmnd - XXX1 + 1), 1); continue; case YYY: (void) four(GF_file); continue; case BOC: (void) four(GF_file); /* skip character code */ (void) four(GF_file); /* skip pointer to prev char */ min_m = sfour(GF_file); max_m = sfour(GF_file); g->x = -min_m; min_n = sfour(GF_file); g->y = max_n = sfour(GF_file); g->bitmap.w = max_m - min_m + 1; g->bitmap.h = max_n - min_n + 1; break; case BOC1: (void) one(GF_file); /* skip character code */ g->bitmap.w = one(GF_file); /* max_m - min_m */ g->x = g->bitmap.w - one(GF_file); /* ditto - max_m */ ++g->bitmap.w; g->bitmap.h = one(GF_file) + 1; g->y = one(GF_file); break; default: fprintf(stderr,"Bad BOC code: %d", cmnd); } break; } paint_switch = White; if (debug) printf(", size=%dlx%d, dvi_adv=%ld\n", g->bitmap.w, g->bitmap.h, g->dvi_adv); alloc_bitmap(&g->bitmap); cp = basep = (BMUNIT *) g->bitmap.bits; /* * Read character data into *basep */ bytes_wide = ROUNDUP((int) g->bitmap.w, BMBITS) * BMBYTES; maxp = ADD(basep, g->bitmap.h * bytes_wide); bzero(g->bitmap.bits, g->bitmap.h * bytes_wide); new_row = false; word_weight = BMBITS; for (;;) { count = -1; cmnd = one(GF_file); if (cmnd < 64) count = cmnd; else if (cmnd >= NEW_ROW_0 && cmnd <= NEW_ROW_MAX) { count = cmnd - NEW_ROW_0; paint_switch = White; /* it'll be complemented later */ new_row = true; } else switch (cmnd) { case PAINT1: case PAINT2: case PAINT3: count = num(GF_file, WIDENINT cmnd - PAINT1 + 1); break; case EOC: if (cp >= ADD(basep, bytes_wide)) too_many_bits(ch); return; case SKIP1: case SKIP2: case SKIP3: *(basep_cpp) += num(GF_file, WIDENINT cmnd - SKIP0) * bytes_wide / sizeof (BMUNIT); case SKIP0: new_row = true; paint_switch = White; break; case XXX1: case XXX2: case XXX3: case XXX4: fseek(GF_file, (long) num(GF_file, WIDENINT cmnd - XXX1 + 1), 1); break; case YYY: (void) four(GF_file); break; case NO_OP: break; default: fprintf(stderr, "Bad command in GF file: %d", cmnd); } /* end switch */ if (new_row) { *(basep_cpp) += bytes_wide / sizeof (BMUNIT); if (basep >= maxp || cp >= basep) too_many_bits(ch); cp = basep; word_weight = BMBITS; new_row = false; } if (count >= 0) { while (count) if (count <= word_weight) { if (paint_switch) { *cp = word_swap (*cp); *cp |= bit_masks[count] << (BMBITS - word_weight); *cp = word_swap (*cp); } word_weight -= count; break; } else { if (paint_switch) { *cp = word_swap (*cp); *cp |= bit_masks[word_weight] << (BMBITS - word_weight); *cp = word_swap (*cp); } cp++; count -= word_weight; word_weight = BMBITS; } paint_switch = ! paint_switch; } } /* end for */ } void read_GF_index( struct font *fontp, wide_bool hushcs) { int hppp, vppp; ubyte ch, cmnd; struct glyph *g; long checksum; fontp->read_char = read_GF_char; GF_file = fontp->file; if (debug) printf("Reading GF pixel file %s\n", fontp->filename); /* * Find postamble. */ fseek(GF_file, (long) -4, 2); while (four(GF_file) != ((unsigned long) TRAILER << 24 | TRAILER << 16 | TRAILER << 8 | TRAILER)) fseek(GF_file, (long) -5, 1); fseek(GF_file, (long) -5, 1); for (;;) { ch = one(GF_file); if (ch != TRAILER) break; fseek(GF_file, (long) -2, 1); } if (ch != GF_ID_BYTE) fprintf(stderr, "Bad end of font file %s", fontp->fontname); fseek(GF_file, (long) -6, 1); expect(POST_POST); fseek(GF_file, sfour(GF_file), 0); /* move to postamble */ /* * Read postamble. */ expect(POST); (void) four(GF_file); /* pointer to last eoc + 1 */ (void) four(GF_file); /* skip design size */ checksum = four(GF_file); if (checksum != fontp->checksum && checksum != 0 && fontp->checksum != 0 && !hushcs) fprintf(stderr, "Checksum mismatch (dvi = %lu, gf = %lu) in font file %s\n", fontp->checksum, checksum, fontp->filename); hppp = sfour(GF_file); vppp = sfour(GF_file); if (hppp != vppp && (debug)) printf("Font has non-square aspect ratio %d:%d\n", vppp, hppp); (void) four(GF_file); /* skip min_m */ (void) four(GF_file); /* skip max_m */ (void) four(GF_file); /* skip min_n */ (void) four(GF_file); /* skip max_n */ /* * Prepare glyph array. */ fontp->glyph = (struct glyph*)xmalloc(256 * sizeof(struct glyph)); bzero((char *) fontp->glyph, 256 * sizeof(struct glyph)); /* * Read glyph directory. */ while ((cmnd = one(GF_file)) != POST_POST) { int addr; ch = one(GF_file); /* character code */ g = &fontp->glyph[ch]; switch (cmnd) { case CHAR_LOC: /* g->pxl_adv = sfour(GF_file); */ (void) four(GF_file); (void) four(GF_file); /* skip dy */ break; case CHAR_LOC0: /* g->pxl_adv = one(GF_file) << 16; */ (void) one(GF_file); break; default: fprintf(stderr, "Non-char_loc command found in GF preamble: %d", cmnd); } g->dvi_adv = (long int) fontp->dimconv * sfour(GF_file); addr = four(GF_file); if (addr != -1) g->addr = addr; if (debug) printf("Read GF glyph for character %d; dy = %ld, addr = %d\n", ch, g->dvi_adv, addr); } } void help () { printf ( "gf2pbm [options] FONT-NAME\n" "Options: \n" " -b dump bitmap\n" " -d debug\n" " -n NUM do glyph number NUM\n" " -o FILE output to FILE\n" " -h this help\n" " -s print bitmap size\n" "\n" "Return status:\n" " 0 - success\n" " 1 - no such glyph\n" " 2 - error\n" "Based on Paul Vojta's Xdvi, munged by Han-Wen Nienhuys \n" ); } void dump_bitmap (FILE *out, struct bitmap *bm) { int bs = (bm->w) / 8 + ((bm->w % 8) ? 1 : 0); int h =0; fprintf (out, "P4\n"); fprintf (out, "%d %d\n", bm->w, bm->h); for (h = 0 ; h < bm->h; h++) { int c; for (c = 0 ; c < bs; c++) { ubyte todump = bm->bits[h *bm->bytes_wide + c]; ubyte outb = 0; int i = 8; while (i --) { outb = (outb << 1) | (todump & 0x1); todump = todump >> 1; } fputc(outb, out); } } } int main (int argc, char * argv []) { int print_size = 0; int do_bitmap = 0; FILE * in_file= 0; struct font * fontp; int glyph_num = 65; char *filename =NULL; char * outfilename = NULL; int c; while ((c = getopt (argc, argv, "bsdho:n:")) != -1) { switch (c) { case 'b': do_bitmap = true; break; case 'd': debug = true; break; case 'h': help (); exit (0); break; case 'n': sscanf (optarg, "%d", &glyph_num); break; case 's': print_size = true; break; case 'o': outfilename = optarg; break; } } if (!do_bitmap && !print_size) do_bitmap = true; filename = argv[optind]; if (!filename) { fprintf (stderr, "No font-name found. Use -h for help\n"); exit (2); } in_file = fopen (filename, "r"); if (!in_file) { fprintf (stderr, "could not open `%s'\n", filename); exit (2); } fontp = (struct font*)malloc (sizeof (struct font)); bzero (fontp, sizeof (struct font)); fontp->fontname = filename; fontp->file = in_file; fontp->fsize = 0; fontp->timestamp = 0; fontp->maxchar = 255; maxchar = 255; { int magic = two(fontp->file); if(magic != GF_MAGIC) { fprintf (stderr, "Not a GF file\n"); exit (2); } } read_GF_index (fontp, false); while (maxchar > 0 && fontp->glyph[maxchar].addr == 0) --maxchar; if (maxchar < 255) realloc_font(fontp, WIDENINT maxchar); if (fontp->glyph[glyph_num].addr == 0) { fprintf (stderr, "No glyph number %d\n", glyph_num); return 1; } fseek(fontp->file, fontp->glyph[glyph_num].addr, 0); read_GF_char (fontp, glyph_num); if (print_size) { struct glyph* gp = fontp->glyph + glyph_num; fprintf (stdout, "size: %dx%d, offset: (%d,%d)\n", gp->bitmap.w, gp->bitmap.h, gp->x, gp->y); } if (do_bitmap) { FILE * out_file = 0; if (outfilename && !strcmp ("-", outfilename)) out_file = stdout; out_file = outfilename ? fopen (outfilename, "w") : NULL; if(!out_file) { static char s[100]; sprintf (s, "%d.pbm", glyph_num); outfilename = s; out_file = fopen (s, "w"); } if (!out_file) { fprintf (stderr, "Could not open output file `%s'\n", outfilename); exit (2); } dump_bitmap (out_file, &fontp->glyph[glyph_num].bitmap); fclose (out_file); } return 0; } mftrace-1.2.20+git20190918.fd8fef5/afm.py0000644000175000017500000000304613540517245015300 0ustar jdgjdg# this file is part of mftrace - a tool to generate scalable fonts from bitmaps # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License version 2 # as published by the Free Software Foundation # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU Library General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA # Copyright (c) 2001--2006 by # Han-Wen Nienhuys, Jan Nieuwenhuizen import re import sys # Read some global vars class Afm_reader: def __init__ (self, lines): self.lines = lines def get_afm (self): afm = Afm_font_metric () for i in self.lines[:20]: m = re.match ('([^ \t\n]*)[ \t]*(.*[^ \t\n])', i) if m and m.group (1): key = m.group (1) value = m.group (2) if key != 'Comment': afm.__dict__[key] = value return afm class Afm_font_metric: def __init__ (self): pass def read_afm_file (filename): reader = Afm_reader (open (filename).readlines ()) return reader.get_afm () if __name__ == '__main__': i = read_afm_file (sys.argv[1]) print(i, i.FullName, i.FontName) mftrace-1.2.20+git20190918.fd8fef5/tfm.py0000644000175000017500000001213513540517245015322 0ustar jdgjdg# this file is part of mftrace - a tool to generate scalable fonts from bitmaps # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License version 2 # as published by the Free Software Foundation # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU Library General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA # Copyright (c) 2001--2006 by # Han-Wen Nienhuys, Jan Nieuwenhuizen import sys def compose_tfm_number (seq): shift = (len (seq)-1)*8 cs = 0 for b in seq: cs = cs + (int (b) << shift) shift = shift - 8 return cs # # # Read params, ligatures, kernings. # # class Tfm_reader: def get_string (self): b = self.left[0] s = (self.left[1:1 + b]).decode('ascii') self.left = self.left[1+b:] return s def get_byte (self): b = self.left [0] self.left= self.left[1:] return b def extract_fixps (self, count): fs = [0.0] * count for c in range (0,count): fs[c] = self.get_fixp_number () return fs def extract_chars (self): count = self.end_code - self.start_code + 1 fs = [None] * count for c in range (0,count): w = self.get_byte() b = self.get_byte() h = (b & 0xf0) >> 4 d = (b & 0x0f) b = self.get_byte () i = (b & 0xfc) >> 2 tag = (b & 0x3) rem = self.get_byte () # rem is used as index for the ligature table. # TODO. lig = None fs[c] = (w, h, d, i, lig) return fs def get_ligatures(self): return None def get_kern_program (self): return None def __init__ (self, f): self.left = f self.file_length = self.get_number (2); self.head_length = self.get_number (2); self.start_code = self.get_number (2); self.end_code = self.get_number (2); self.width_count = self.get_number (2); self.height_count =self.get_number(2); self.depth_count = self.get_number (2); self.italic_corr_count = self.get_number(2); self.ligature_kern_count = self.get_number (2); self.kern_count = self.get_number (2) self.extensible_word_count =self.get_number (2); self.parameter_count =self.get_number (2); self.checksum = self.get_number (4) self.design_size = self.get_fixp_number () self.coding = self.get_string () self.left =f[(6 + self.head_length) * 4:] self.chars = self.extract_chars () self.widths = self.extract_fixps (self.width_count) self.heights = self.extract_fixps (self.height_count) self.depths = self.extract_fixps (self.depth_count) self.italic_corrections = self.extract_fixps (self.italic_corr_count) self.ligatures = self.get_ligatures () self.kern_program = self.get_kern_program() del self.left def get_number (self, len): n = compose_tfm_number (self.left [0:len]) self.left = self.left[len:] return n def get_fixp_number (self): n = self.get_number (4) n = n /16.0 / (1<<16); return n def get_tfm (self): keys = ['start_code', 'end_code', 'checksum', 'design_size', 'coding', 'chars', 'widths', 'heights', 'depths', 'italic_corrections', 'ligatures', 'kern_program'] tfm = Tex_font_metric () for k in keys: tfm.__dict__[k] = self.__dict__[k] return tfm class Char_metric: def __init__(self, tfm, tup): (w, h, d, i, lig) = tup ds = tfm.design_size self.width = tfm.widths[w] *ds self.height = tfm.heights[h] *ds self.depth = tfm.depths [d] * ds self.italic_correction = tfm.italic_corrections[i]*ds class Tex_font_metric: """ Bare bones wrapper around the TFM format. """ def __init__ (self): pass def has_char (self, code): if code < self.start_code or code > self.end_code: return 0 tup = self.chars[code - self.start_code] return tup[0] != 0 def get_char (self,code): tup = self.chars[code - self.start_code] return Char_metric (self, tup) def __str__ (self): return r"""#""" % (self.start_code, self.end_code, self.checksum, self.design_size, self.coding) def read_tfm_file (fn): reader =Tfm_reader (open (fn, 'rb').read ()) return reader.get_tfm () if __name__=='__main__': t = read_tfm_file (sys.argv[1]) print(t, t.design_size, t.coding) mftrace-1.2.20+git20190918.fd8fef5/configure.in0000644000175000017500000000135413540517245016474 0ustar jdgjdgAC_INIT(mftrace.py) AC_CONFIG_HEADER(config.h:config.h.in) AC_PATH_PROG(PYTHON, ${PYTHON3:-python3}, -echo no python3) AC_PATH_PROG(AUTOTRACE, autotrace, none) AC_PATH_PROG(POTRACE, potrace, none) AC_SUBST(PYTHON) export VERSION="1.2.19" AC_SUBST(VERSION) AC_SUBST(EXEEXT) AC_C_BIGENDIAN AC_OUTPUT(GNUmakefile:GNUmakefile.in mftrace:mftrace.py mftrace.spec:mftrace.spec.in) chmod a-w GNUmakefile mftrace chmod a+x mftrace if test "$POTRACE" = "none" -a "$AUTOTRACE" = "none" ; then echo '' echo '' echo '' echo ' **************************************************' echo ' WARNING: you need potrace or autotrace for running' echo ' **************************************************' echo '' exit 2 fi mftrace-1.2.20+git20190918.fd8fef5/COPYING0000644000175000017500000004312013540517245015213 0ustar jdgjdg GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. mftrace-1.2.20+git20190918.fd8fef5/gf2pbm.10000644000175000017500000000221413540517245015416 0ustar jdgjdg.TH gf2pbm 1 "February 11, 2002" .SH NAME gf2pbm \- convert a character from a GF font file to PBM format .SH SYNOPSIS .B gf2pbm .RI [ options ] " GF-file" .SH DESCRIPTION This manual page documents briefly the .B gf2pbm command. .B gf2pbm is a program that converts a single character from a METAFONT-produced GF font file to PBM format. It is used internally by .BR mftrace (1) to feed to .BR autotrace (1) to create a Postscript outline description of the character. .SH OPTIONS .TP .B \-b Dump a bitmap file. .TP .B \-s Show glyph size. .TP .BI \-n " NUM" Process glyph number .IR NUM . .TP .BI \-o " FILE" Output to .I FILE instead of .IR stdout . .TP .B \-h Show summary of options. .TP .B \-d Display debugging information. .SH "EXIT STATUS" .B gf2pbm exits with status 0 if successful, status 1 if the requested glyph did not exist and status 2 if there was some other error. .SH SEE ALSO .BR mf (1), .BR pktrace (1). .br .SH AUTHOR .B gf2pbm is based on Paul Vojta's Xdvi, and was munged by Han-Wen Nienhuys . This manual page was written by Julian Gilbey , for the Debian GNU/Linux system (but may be used by others).