summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-09-03 17:15:24 +0000
committerKarl Berry <karl@freefriends.org>2007-09-03 17:15:24 +0000
commit0ffa0ed1591ff7f82988d0a96a6e88117abed28e (patch)
tree4aca20baf7166e3ec5ced513ca2ccb007f540211
parenta478bde98ff9f4340c5adaebd2b94ffdf174c931 (diff)
remove old contrib, clarify licenses
git-svn-id: svn://tug.org/texlive/trunk@4864 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/dvipsk/color.lpro2
-rw-r--r--Build/source/texk/dvipsk/contrib/MakeTeXPK.pl198
-rw-r--r--Build/source/texk/dvipsk/contrib/bbfig/INSTALLATION16
-rw-r--r--Build/source/texk/dvipsk/contrib/bbfig/bb.ps579
-rw-r--r--Build/source/texk/dvipsk/contrib/bbfig/bbfig22
-rw-r--r--Build/source/texk/dvipsk/contrib/bbfig/bbfig.140
-rw-r--r--Build/source/texk/dvipsk/contrib/bbfig/vmsbbfig.c113
-rw-r--r--Build/source/texk/dvipsk/contrib/psfntmac/ps_lfonts.tex888
-rw-r--r--Build/source/texk/dvipsk/contrib/psfntmac/ps_plain.tex1235
-rw-r--r--Build/source/texk/dvipsk/contrib/pspic/pspic.readme40
-rw-r--r--Build/source/texk/dvipsk/contrib/pspic/pspic.sty168
-rw-r--r--Build/source/texk/dvipsk/tex/blackdvi.tex2
-rw-r--r--Build/source/texk/dvipsk/tex/colordvi.tex2
13 files changed, 3 insertions, 3302 deletions
diff --git a/Build/source/texk/dvipsk/color.lpro b/Build/source/texk/dvipsk/color.lpro
index 5959933455e..39854de88b3 100644
--- a/Build/source/texk/dvipsk/color.lpro
+++ b/Build/source/texk/dvipsk/color.lpro
@@ -5,7 +5,7 @@
%%
%% This was written by J. Hafner (hafner@almaden.ibm.com) and was last
%% modified on 2/14/92. It was then rewritten by Tomas Rokicki to be
-%% smaller.
+%% smaller. Same license as dvips.
%%
%% The color names used here mostly come from the Crayola Crayon box of
%% 64 colors, with some small additions and deletions. The names match
diff --git a/Build/source/texk/dvipsk/contrib/MakeTeXPK.pl b/Build/source/texk/dvipsk/contrib/MakeTeXPK.pl
deleted file mode 100644
index 5e0b8dd5b3d..00000000000
--- a/Build/source/texk/dvipsk/contrib/MakeTeXPK.pl
+++ /dev/null
@@ -1,198 +0,0 @@
-#!/usr/local/bin/perl
-#
-# MakeTeXPK.pl
-#
-# v1.0 - modified by John Stoffel (john@wpi.wpi.edu) from the original
-# shell script written by Tomas Rokicki (rokicki@cs.stanford.edu).
-# please feel free to make any modifications you would like to this
-# script, but please acknowledge myself and tom when you make
-# changes.
-#
-# - This was orignally modified to write the fonts to a seperate
-# directory because the fonts were stored on a read-only NFS
-# server. New fonts were then stored in a second location that
-# was world writeable, so fonts could be created automatically.
-#
-# 1. checks both directories before hand for the font's existence.
-# 2. creates the font, then moves it to the writeable directory.
-# 3. changes the ownership and protection so users can't write
-# the font directly.
-#
-# - this script should NOT be used directly, but run through
-# suidscript.pl first and then used as directed.
-#
-# todo:
-# - add automagic support for write-white and write-black printers.
-# now I have two seperate version of the same program. This would
-# mean adding in either a new parameter, or possibly a -w or -b
-# switch. Default could be customizable. What do you think tom?
-#
-# - cleanup the code a little more and write it in better perl.
-#
-# ------------------------------------------------------------------------
-#
-# This script file makes a new TeX PK font, because one wasn't
-# found. Parameters are:
-#
-# name dpi bdpi magnification [[mode] subdir]
-#
-# `name' is the name of the font, such as `cmr10'. `dpi' is
-# the resolution the font is needed at. `bdpi' is the base
-# resolution, useful for figuring out the mode to make the font
-# in. `magnification' is a string to pass to MF as the
-# magnification. `mode', if supplied, is the mode to use.
-#
-# Note that this file must execute Metafont, and then gftopk,
-# and place the result in the correct location for the PostScript
-# driver to find it subsequently. If this doesn't work, it will
-# be evident because MF will be invoked over and over again.
-#
-# Of course, it needs to be set up for your site.
-#
-# -------------------------------------------------------------------------
-
-# setup the environment variables before hand.
-
-$ENV{'PATH'} = '/bin:/usr/bin:/usr/ucb:/usr/local/bin';
-$ENV{'SHELL'} = '/bin/sh' if $ENV{'SHELL'} ne '';
-$ENV{'IFS'} = '' if $ENV{'IFS'} ne '';
-$path = $ENV{'PATH'};
-umask(0022);
-
-# set who the owner and group of the created fonts will be.
-
-$OWNER = "root.tex";
-
-# check number of arguements.
-
-die "Not enough arguments!\n" if ($#ARGV < 3);
-
-# make sure the user doesn't try to give us any control characters as
-# as arguements.
-
-$NAME=&untaint($ARGV[0]);
-$DPI=&untaint($ARGV[1]);
-$BDPI=&untaint($ARGV[2]);
-$MAG=&untaint($ARGV[3]);
-$MODE=&untaint($ARGV[4]) if (defined($ARGV[4]));
-$PK=&untaint($ARGV[5]) if (defined($ARGV[5]));
-
-# texdir and local dir can be the same if $TEXDIR is world writeable, or
-# different if $TEXDIR is read-only and $LOCALDIR is read-write.
-
-$TEXDIR="/usr/local/lib/tex";
-$LOCALDIR="/shared/tex/fonts";
-$DESTDIR="$LOCALDIR/white/pk";
-
-# TEMPDIR needs to be unique for each process because of the possibility
-# of simultaneous processes running this script.
-
-if ($TMPDIR eq '') {
- $TEMPDIR="/tmp/mtpk.$$";
- }
-else {
- $TEMPDIR="$TMPDIR/mtpk.$$";
- }
-
-if ($MODE eq "") {
- if ($BDPI eq "300") { $MODE='imagen'; }
- elsif ($BDPI eq "200") { $MODE='FAX'; }
- elsif ($BDPI eq "360") { $MODE='nextII'; }
- elsif ($BDPI eq "400") { $MODE='nexthi'; }
- elsif ($BDPI eq "100") { $MODE='nextscreen'; }
- elsif ($BDPI eq "635") { $MODE='linolo'; }
- elsif ($BDPI eq "1270") { $MODE='linohi'; }
- elsif ($BDPI eq "2540") { $MODE='linosuper'; }
- else {
- die "I don't know the $MODE for $BDPI\nHave your system admin update MakeTeXPK.pl\n"
- }
-}
-
-# Something like the following is useful at some sites.
-# DESTDIR=/usr/local/lib/tex/fonts/pk.$MODE
-
-$GFNAME="$NAME.$DPI"."gf";
-$PKNAME="$NAME.$DPI"."pk";
-
-# Clean up on normal or abnormal exit
-
-chdir("/") || die "Couldn't cd to /: $!\n";
-
-if (-d $TEMPDIR) {
- rmdir($TEMPDIR) || die "Couldn't remove $TEMPDIR: $!\n";
-}
-if (-e "$DESTDIR/pktmp.$$") {
- unlink("$DESTDIR/pktmp.$$") || die "Couldn't rm $DESTDIR/pktmp.$$: $!\n";
-}
-
-if (! -d $DESTDIR) {
- mkdir($DESTDIR,0755) || die "Couldn't make $DESTDIR: $!\n";
-}
-
-if ($PK ne '') {
- $DESTDIR = $DESTDIR . $PK;
- if (! -d $DESTDIR) {
- mkdir($DESTDIR,0755) || die "Couldn't make $DESTDIR: $!\n";
- }
-}
-
-mkdir($TEMPDIR,0755) || die "Couldn't make $TEMPDIR: $!\n";
-
-chdir($TEMPDIR) || die "Couldn't cd to $TEMPDIR: $!\n";
-
-if (-e "$DESTDIR/$PKNAME") {
- die "$DESTDIR/$PKNAME already exists!\n";
-}
-
-# check also in the standard place
-
-if ($PK eq '') {
- if (-e "$TEXDIR/fonts/white/pk/$PKNAME") {
- die "$TEXDIR/fonts/white/pk/$PKNAME already exists!\n";
- }
- elsif (-e "$TEXDIR/fonts/white/pk/$PK$PKNAME") {
- die "$TEXDIR/fonts/white/pk/$PK$PKNAME already exists!\n";
- }
-}
-
-# print out the command string we will use, then actually do the command,
-# printing it's results.
-
-print "mf \"\\mode:=$MODE; mag:=$MAG; scrollmode; input $NAME\" </dev/null\n";
-system("mf \"\\mode:=$MODE; mag:=$MAG; scrollmode; input $NAME\" </dev/null");
-
-# check that $GFNAME was created correctly.
-
-if (! -e $GFNAME ) { die "Metafont failed for some reason on $GFNAME\n";}
-
-print `gftopk -v ./$GFNAME ./$PKNAME`;
-
-# Install the PK file carefully, since others may be doing the same
-# as us simultaneously.
-
-`mv $PKNAME $DESTDIR/pktmp.$$`;
-chdir($DESTDIR) || die "Couldn't cd to $DESTDIR: $!\n";
-`mv pktmp.$$ $PKNAME`;
-
-# now we want to make sure only proper people can change this new font.
-
-`/etc/chown $OWNER $PKNAME`;
-`/bin/chmod 664 $PKNAME`;
-
-# this subroutine makes sure there are no funny control characters in
-# the arguements that have been passed to the program.
-
-sub untaint {
- local($temp) = @_;
- $temp =~ /^([-\/\(\)\.\w]*)$/ || die "Invalid arguement: $temp\n";
- $temp = $1;
- return($temp);
-}
-
-
-
-
-
-
-
-
diff --git a/Build/source/texk/dvipsk/contrib/bbfig/INSTALLATION b/Build/source/texk/dvipsk/contrib/bbfig/INSTALLATION
deleted file mode 100644
index 8694fc1578b..00000000000
--- a/Build/source/texk/dvipsk/contrib/bbfig/INSTALLATION
+++ /dev/null
@@ -1,16 +0,0 @@
-
-To install bbfig:
-
-Make the bbfig shell script executable and put it in a suitable
-directory. Put the file bb.ps in that *same* directory. If this
-is not possible or is inconvenient, put bb.ps whereever you please
-and edit the shell script to define BBPSDIR.
-
-If you run across a PostScript file that manages to confuse bbfig,
-please send it along to me and I'll see if I can figure out what is
-going wrong. Thanks.
-
-
-Bernie Cosell [cosell@bbn.com]
-27June90
-
diff --git a/Build/source/texk/dvipsk/contrib/bbfig/bb.ps b/Build/source/texk/dvipsk/contrib/bbfig/bb.ps
deleted file mode 100644
index e1d5f88cefb..00000000000
--- a/Build/source/texk/dvipsk/contrib/bbfig/bb.ps
+++ /dev/null
@@ -1,579 +0,0 @@
-%!
-% bb.ps --
-%
-% Prints a file, but keeps track of bounding box info, and prints the box at
-% the end (around the figure.)
-%
-% $Header: bb.ps,v 1.14 91/03/21 13:04:02 cosell Exp $
-% RCS log info at end
-
-50 dict /$BoundingBox exch def
-
-$BoundingBox begin
-
-/xdef {
- exch def
-} def
-
-/xstore {
- exch store
-} def
-
-/addcoords {
- exch
- 4 -1 roll add
- 3 1 roll add
-} def
-
-%
-% Stubs of old functions.
-%
-
-/-stroke /stroke load def
-/-fill /fill load def
-/-eofill /eofill load def
-/-image /image load def
-/-show /show load def
-/-awidthshow /awidthshow load def
-/-showpage /showpage load def
-/-restore /restore load def
-/-imagemask /imagemask load def
-
-end % $BoundingBox
-
-%
-% New Functions. --- These go into the user dict to intercept the calls
-%
-
-/stroke {
- $BoundingBox begin
- gsave
- initmatrix
- (stroke called\n) traceprint %%DEBUG
- {
- strokepath % Make sure to take line width into account.
- 0 setlinejoin
- flattenpath
- } stopped { % strokepath often hits a limitcheck.
- (Can't set up a strokepath\n) traceprint % DEBUG
- grestore % Restore the original path
- gsave
- } if
- includepath % Accumulate it into our box.
- grestore
-
- -stroke
- end % $BoundingBox
-} def
-
-/fill {
- $BoundingBox begin
- gsave
- (fill called\n) traceprint %%DEBUG
- includepath
- grestore
-
- -fill
- end % $BoundingBox
-} def
-
-/eofill {
- $BoundingBox begin
- gsave
- (eofill called\n) traceprint %%DEBUG
- includepath
- grestore
-
- -eofill
- end % $BoundingBox
-} def
-
-%
-% Text is implemented by reducing everything to an `awidthshow'.
-%
-
-/show {
- $BoundingBox begin
- (show called\n) traceprint %%DEBUG
- 0 0 0 0 0 % Extra parameters for awidthshow
- 6 -1 roll % Bring the string back up
- awidthshow
- end % $BoundingBox
-} def
-
-/widthshow {
- $BoundingBox begin
- (widthshow called\n) traceprint %%DEBUG
- 0 0 % Extra parameters for awidthshow
- 3 -1 roll % Bring the string back up.
- awidthshow
- end % $BoundingBox
-} def
-
-/ashow {
- $BoundingBox begin
- (ashow called\n) traceprint %%DEBUG
- 0 0 0
- 6 3 roll
- awidthshow
- end % $BoundingBox
-} def
-
-
-% This does all of the work of the text-rendering operators
-% What it does, is compute, basically brute force, what 'charpath'
-% would have given us virtually for free, if 'show' were the only
-% operator that we needed to do.
-
-/awidthshow {
- $BoundingBox begin
- gsave
- 6 (awidthshow:) debug %%DEBUG
- currentpoint
- 2 copy /@starty xdef /@startx xdef
- 2 index stringwidth % Get the natural length of the string
- addcoords % Add to the start to get the end.
-
- 2 index length % How many characters?
-
- dup % Add the offsets to each character
- 6 index mul
- exch 5 index mul
- addcoords
-
- 5 index 3 index
- chcount % How many padding characters?
-
- dup % Add the offsets for each pad.
- 9 index mul
- exch 8 index mul
- addcoords
-
- /@endy xdef /@endx xdef
-
- % We now have the left and right edges (in user coords)
- % of the text. Now we need only correct for the vertical
- % displacements needed for the font and we can get the
- % top and bottom edges of the enclosing box
-
- fontheight % Get the height and depth of the current font.
-
- @startx @starty addcoords
- /@starty xdef /@startx xdef
- @endx @endy addcoords
- /@endy xdef /@endx xdef
- newpath
- @startx @starty moveto
- @endx @starty lineto
- @endx @endy lineto
- @startx @endy lineto
- closepath
- includepath
- grestore
-
- -awidthshow
- end % $BoundingBox
-} def
-
-%
-% `image':
-%
-% Assume here that the image lands in the unit square.
-%
-
-/image {
- $BoundingBox begin
- (image called\n) traceprint %%DEBUG
- gsave
- newpath
- 0 0 moveto
- 1 0 rlineto
- 1 1 rlineto
- -1 0 rlineto
- closepath
- includepath
- grestore
-
- -image
- end % $BoundingBox
-} def
-
-/imagemask
-{
- $BoundingBox begin
- (imagemask called\n) traceprint %%DEBUG
- gsave
- newpath
- 0 0 moveto
- 1 0 rlineto
- 1 1 rlineto
- -1 0 rlineto
- closepath
- includepath
- grestore
-
- -imagemask
- end % $BoundingBox
-} def
-
-% Just define this one out of existence
-/framedevice { pop pop pop pop } def
-
-% Handle restoring VM --- this is all OK, except that we have to
-% hang onto the bb info we collected while in the about-to-be-discarded
-% environment
-
-/restore
-{
- $BoundingBox begin
- (restore called\n) traceprint %%DEBUG
- tracedump %% HACK, but the only way I see right now to get this stuff!
- bbox-llx bbox-lly bbox-urx bbox-ury
- 5 -1 roll
- -restore
- /bbox-ury xstore /bbox-urx xstore
- /bbox-lly xstore /bbox-llx xstore
- end % $BoundingBox
-} def
-
-
-%
-% `showpage':
-%
-% Just draw the box around the figure and print the page, and then initialize
-% the bounding box variables again.
-%
-
-$BoundingBox begin
-/temp-string 10 string def
-end % $BoundingBox
-
-/showpage {
- $BoundingBox begin
- initgraphics
-
- (showpage\n) traceprint % DEBUG
- dump-bbox % DEBUG
-
- /bbox-llx round_down
- /bbox-lly round_down
- /bbox-ury round_up
- /bbox-urx round_up
-
- bbox-llx bbox-lly moveto % Make the box
- bbox-llx bbox-ury lineto
- bbox-urx bbox-ury lineto
- bbox-urx bbox-lly lineto
- closepath
-
- bwstroke % Draw the box.
-
-% Print the size of the bounding box both above and below the actual box
- 0 setgray
- /Courier findfont 10 scalefont setfont
- bbox-llx 36 max bbox-lly 12 sub 36 max moveto
- (%%BoundingBox: ) -show
- bbox-llx temp-string cvs -show ( ) -show
- bbox-lly temp-string cvs -show ( ) -show
- bbox-urx temp-string cvs -show ( ) -show
- bbox-ury temp-string cvs -show
-
- bbox-llx 36 max bbox-ury 12 add 740 min moveto
- (%%BoundingBox: ) -show
- bbox-llx temp-string cvs -show ( ) -show
- bbox-lly temp-string cvs -show ( ) -show
- bbox-urx temp-string cvs -show ( ) -show
- bbox-ury temp-string cvs -show
-
- init
- -showpage
- tracedump %% DEBUG
- end % $BoundingBox
-} def
-
-%
-% BoundingBox functions:
-%
-% We accumulate the information about the bounding box into four variables.
-% The data is stored in default coordinates.
-%
-
-$BoundingBox begin
-
-/init {
- /bbox-llx 99999 store
- /bbox-lly 99999 store
- /bbox-urx -99999 store
- /bbox-ury -99999 store
-} def
-
-/bbox-llx 0 def
-/bbox-lly 0 def
-/bbox-urx 0 def
-/bbox-ury 0 def
-
-%
-% - `includepath' -
-%
-% Incorporates the bounding box of the path into the bounding box info.
-% ... Gets the bounding box in default coords
-
-/includepath {
- (Adding a path: ) traceprint %%DEBUG
- gsave
- initmatrix
- {
- 0 setlinejoin
- flattenpath
- } stopped {
- (Couldn't flatten the path\n) traceprint % DEBUG
- grestore
- gsave
- initmatrix
- } if
- { pathbbox } stopped not
- {
- 4 2 roll % Just so we get lower-left first
- 2 copy dump-coord %%DEBUG
- dup bbox-lly lt {
- /bbox-lly xstore
- } {
- pop
- } ifelse
- dup bbox-llx lt {
- /bbox-llx xstore
- } {
- pop
- } ifelse
-
- (; ) traceprint 2 copy dump-coord (\n) traceprint %%DEBUG
- dup bbox-ury gt {
- /bbox-ury xstore
- } {
- pop
- } ifelse
- dup bbox-urx gt {
- /bbox-urx xstore
- } {
- pop
- } ifelse
- dump-bbox %%DEBUG
- } if
- grestore
-} def
-
-%
-% A nice black-and white line drawing function.
-%
-
-/bwstroke {
- 0 setlinewidth % Thinnest possible lines
- 1 setgray % White first
- [5] 0 setdash % Only half the line
- gsave -stroke grestore
- 0 setgray % Then black
- [5] 5 setdash % On the other half
- -stroke
-} def
-
-%
-% Stuff for text.
-%
-
-%
-% char-code string `chcount' occurs
-%
-% Counts the number of times a character appears in a string.
-%
-
-/chcount {
- 0 exch
- {
- 2 index eq {
- 1 add
- } if
- } forall
- exch pop
-} def
-
-%
-% - `fontheight' heightx heighty depthx depthy
-%
-% Returns the offsets to the lowest point and highest point in the current
-% font.
-%
-
-/fontheight {
- currentfont begin
- /FontBBox load aload pop
- exch pop 0 exch
- FontMatrix transform
- 4 2 roll
- exch pop 0 exch
- FontMatrix transform
- end
-} def
-
-% key round_{down|up} - These will round the value of the given key
-% up or down, as appropriate, to the nearest integer
-/round_up { dup load ceiling cvi store } def
-/round_down { dup load floor cvi store } def
-
-% key binddefinition - this will do a 'bind' on the procedure given by 'key'
-/binddefinition
-{
- dup where
- {
- exch
- 2 copy
- get bind put
- }
- { undefined } ifelse
-} def
-
-% Given two numbers on the stack, return with just the smallest
-/min { 2 copy ge { exch } if pop } def
-
-% Dito for the largest of the pair
-/max { 2 copy lt { exch } if pop } def
-
-
-% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
-%
-% Debugging utilities
-%
-
-/$tracedict where
-{ % Trace package loaded... do the tracing
- pop
-% This is a debugging function to print out what is going on.
-% Format <argn> <argn-1> ... <arg1> n <string> debug <argn> ... <arg1>
-% (that is, the 'n' args will be *left* on the stack!)
-/debug
-{
- traceprint (\n) traceprint
- dup 1 add % Now total number of args (including arg count)
- copy
- {
- ( ) traceprint
- trace=
- (\n) traceprint
- } repeat
- pop % Remove the extra copy of the arg count
-} def
-
-% Print out a coordinate on the stack: x y ---
-/dump-coord
-{
- (\() traceprint exch trace= (, ) traceprint trace= (\)) traceprint
-} def
-
-% Print out bb's current notion of its bounding box
-
-/dump-bbox
-{
- (Bounding Box: ) traceprint
- bbox-llx bbox-lly dump-coord
- (; ) traceprint
- bbox-urx bbox-ury dump-coord
- (\n) traceprint
-} def
-
-tracebegin %% DEBUG
-
-}
-{ % No trace package loaded, so don't trace. Stub out the various calls
-
-/traceprint { pop } def
-/dump-coord { pop pop } def
-/dump-bbox { } def
-/debug { pop pop } def
-/tracedump { } def
-
-} ifelse
-
-% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
-
-% Bind everything
-
-/xdef binddefinition
-/xstore binddefinition
-/addcoords binddefinition
-/stroke binddefinition
-/fill binddefinition
-/eofill binddefinition
-/show binddefinition
-/widthshow binddefinition
-/ashow binddefinition
-/awidthshow binddefinition
-/image binddefinition
-/showpage binddefinition
-/init binddefinition
-/includepath binddefinition
-/bwstroke binddefinition
-/chcount binddefinition
-/fontheight binddefinition
-
-/debug binddefinition
-/dump-coord binddefinition
-/dump-bbox binddefinition
-
-% Start it up.
-
-init
-
-end % $BoundingBox
-
-% end of bb.ps
-
-% $Log: bb.ps,v $
-% Revision 1.14 91/03/21 13:04:02 cosell
-% Relocated the position of the constrained BBox info
-%
-% Revision 1.13 91/03/21 12:21:04 cosell
-% Forced the %BoundingBox info to stay within the page boundaries
-%
-% Revision 1.12 91/03/21 12:15:17 cosell
-% Added a tracing hook to bridge restores.
-%
-% Revision 1.11 90/07/02 08:48:40 cosell
-% bbfig now correctly copes with empty paths
-%
-% Revision 1.10 90/06/27 10:47:22 cosell
-% Added a bunch of improvements from Joe Pallas at stanford.
-%
-% Revision 1.9 90/06/26 10:50:20 cosell
-% Stack got botched in the 'debug' stub
-%
-% Revision 1.8 90/06/25 09:34:51 cosell
-% Minor bug in 'restore'
-%
-% Revision 1.7 90/06/25 09:29:58 cosell
-% Added code to catch and deal with 'restore'. Thanks to Frank
-% Jensen for finding this one
-%
-% Revision 1.6 90/06/25 09:23:26 cosell
-% Small bugfix in the text-handling stuff
-%
-% Revision 1.5 90/06/10 09:04:02 cosell
-% Changed the printed string to explictly say "%%BoundingBox"
-%
-% Revision 1.4 90/06/10 08:55:39 cosell
-% Added 'bind' machinery to insulate this package from later redefinitions
-% of things we need from the systemdict.
-%
-% Revision 1.3 90/06/10 08:28:53 cosell
-% Added debugging hooks. They don't affect anything (and don't do
-% anything) in the normal use of bbfig. But if the 'trace' package
-% is loaded ahead of this, it'll print out some helpful info. Probably
-% I'll end up removing all of this if/when I really get the package
-% up to snuff.
-%
-% Revision 1.2 90/05/25 12:08:24 cosell
-% Major improvements and tuneups: fixed it to really use its private
-% discionary, and the most importnat: it now computes the bounding box
-% in *default* coords
-%
-% Revision 1.1 90/05/23 08:18:54 cosell
-% Initial revision
-% This is Ned Bachelder's original version
diff --git a/Build/source/texk/dvipsk/contrib/bbfig/bbfig b/Build/source/texk/dvipsk/contrib/bbfig/bbfig
deleted file mode 100644
index b704e0f0bea..00000000000
--- a/Build/source/texk/dvipsk/contrib/bbfig/bbfig
+++ /dev/null
@@ -1,22 +0,0 @@
-#! /bin/sh
-
-# Script to stick bounding box finder in front of a postscript file
-# Adapted from Ned's original
-
-# $Header: bbfig,v 1.3 90/06/27 21:54:49 cosell Exp $
-
-# BBPSDIR=<wherever> # Define this if bb.ps doesn't live in same
- # directory as bbfig
-
-if [ ! -f ${BBPSDIR=`dirname $0`}/bb.ps ]
-then
- echo >&2 "Can't locate bb.ps"
- exit 1
-fi
-
-case $# in
- 0) cat $BBPSDIR/bb.ps -
- ;;
- *) cat $BBPSDIR/bb.ps "$@"
- ;;
-esac
diff --git a/Build/source/texk/dvipsk/contrib/bbfig/bbfig.1 b/Build/source/texk/dvipsk/contrib/bbfig/bbfig.1
deleted file mode 100644
index 6c61d1e491c..00000000000
--- a/Build/source/texk/dvipsk/contrib/bbfig/bbfig.1
+++ /dev/null
@@ -1,40 +0,0 @@
-.TH BBFIG LOCAL
-.SH NAME
-bbfig \- calculate bounding boxes in PostScript
-.SH SYNTAX
-.B bbfig
-[ file \&.\|.\|. ]
-.SH USAGE
-.I Bbfig
-should be piped into
-.I psprint
-or the equivalant.
-.SH DESCRIPTION
-The concatenation of the list of files, or standard input
-if no file names are supplied, is
-assumed to be a PostScript program for which the bounding box is desired.
-.I Bbfig
-prepends code that
-calculates the bounding box,
-and places the result on standard output.
-The actual
-calculation is done in the PostScript printer; the output is
-in the form of a dashed line demarcating the bounding box and
-and the corresponding
-.B %%BoundingBox
-header line printed just below the box.
-The
-.B %%BoundingBox
-line
-should be added to the header of the PostScript file.
-.SH BUGS
-.I Bbfig
-is known to be confused by images and clipping paths. If the box
-around the figure clearly is not the minimal one, a ruler is the
-best bet for calculating the correct box. Remember that the
-bounding box values are in PostScript points (72 to the inch)
-relative to an origin at the lower left corner of the page, and
-that (a,b) is the lower left hand corner of the bounding box, and
-(c,d) is the upper right corner.
-.SH Author
-Ned Batchelder, modified by Bernie Cosell [cosell@bbn.com]
diff --git a/Build/source/texk/dvipsk/contrib/bbfig/vmsbbfig.c b/Build/source/texk/dvipsk/contrib/bbfig/vmsbbfig.c
deleted file mode 100644
index 4415063eb57..00000000000
--- a/Build/source/texk/dvipsk/contrib/bbfig/vmsbbfig.c
+++ /dev/null
@@ -1,113 +0,0 @@
-/* bbfig.c --
- * Martin Gelbaum, Lawrence Berkeley Laboratory
- * martyg@lbl.gov
- * September 21, 1992
- * Simple VAX C equivalent of Bourne shell script "bbfig"
- */
-
-#include <stdio.h>
-#include <ssdef.h> /* System status codes */
-#include <unixlib>
-
-#define BBFIG_HEADER "tex_disk:[tex.dvips.header_files]bb.ps"
-
-main(argc,argv)
-int argc;
-char **argv;
-{
- FILE *infp, *libfp, *outfp;
- char outfile[1024], buf[BUFSIZ], line[512], *cptr;
-
- if (argc < 2) { error("Usage: bbfig psfile [> outfile]\n"); }
- if ( !strcmp(argv[1], "-help") || !strcmp(argv[1], "-HELP") )
- {
- fprintf(stderr, "bbfig: usage: bbfig psfile [> outfile]\n");
- fflush(stderr); fprintf(stderr,
-"If no output file specified, output file is bbfig_out.ps\n");
- fflush(stderr); fprintf(stderr,
-"Output file shows figure surrounded by box made of dashes\n");
- fflush(stderr); fprintf(stderr,
-"Output file also shows bounding box in default coordinates for use as\n");
- fflush(stderr); fprintf(stderr,
-"Bounding Box comment as second line of PostScript file.\n");
- exit(SS$_NORMAL);
- }
- if ( (libfp = fopen(BBFIG_HEADER,"r")) == NULL)
- {
- error("ABNORMAL EXIT:\nCan't open PostScript macro file %s\n",
- BBFIG_HEADER);
- }
- if ( (infp = fopen(*++argv,"r")) == NULL)
- {
- error("ABNORMAL EXIT:\nCan't open user PostScript file %s\n",
- *argv);
- }
- if (argc >=3)
- {
- argv++;
- if ( (*argv)[0] == '>')
- {
- if ((*argv)[1])
- /* We had bbfig file >outfile */
- {
- cptr = &(*argv)[1];
- (void) sprintf(outfile,"%s", cptr);
- }
- else if (*(++argv) != NULL)
- /* We had bbfig psfile > outfile */
- {
- cptr = *argv;
- (void) sprintf(outfile,"%s", cptr);
- }
- else
- {
- error("%s: no filename with '>' option\n",
- "ABNORMAL EXIT");
- }
- }
- else
- {
- error("ABNORMAL EXIT: unknown option %c\n",
- (*argv)[0]);
- }
- }
- else
- {
- /* Default filename is "bbfig_out.ps" */
- sprintf(outfile, "bbfig_out.ps");
- }
- /* Make a standard variable length record file
- * with carriage return carriage control.
- */
- if ( (outfp = fopen(outfile,"w", "rat=cr", "rfm=var")) == NULL)
- {
- error("ABNORMAL EXIT: can't create text file %s\n",
- outfile);
- }
- while (fgets(line, 511, libfp))
- {
- fputs(line, outfp); fflush(outfp);
- }
- (void) fclose (libfp);
- while (fgets(line, 511, infp))
- {
- fputs(line, outfp); fflush(outfp);
- }
- (void) fclose (infp); (void) fclose (outfp);
- fprintf(stderr, "Output file showing bounding box is %s;\n", outfile);
- fflush(stderr);
- fprintf(stderr,
-"You may print it by lpr to a PostScript printer or\n"); fflush(stderr);
- fprintf(stderr,
-"preview it by gs (ghostscript) on a X11 display ...\n"); fflush(stderr);
- exit(SS$_NORMAL);
-}
-
-static error(s1,s2) /* print error message and exit with error status. */
-char *s1, *s2;
-{
- /* Notice that the first argument (s1) contains the formatting
- * information for fprintf.
- */
- fprintf(stderr, "bbfig: "); fprintf(stderr, s1, s2); exit(0x10000000);
-}
diff --git a/Build/source/texk/dvipsk/contrib/psfntmac/ps_lfonts.tex b/Build/source/texk/dvipsk/contrib/psfntmac/ps_lfonts.tex
deleted file mode 100644
index f2e73ca0443..00000000000
--- a/Build/source/texk/dvipsk/contrib/psfntmac/ps_lfonts.tex
+++ /dev/null
@@ -1,888 +0,0 @@
-% File LFONTS - Version of 21 November 1989,
-% plus modifications for PostScript Times family fonts (added by Larry
-% Denenberg, larry@bbn.com, originally 5 Apr 88 and later 13 Feb 91).
-% PS font names changed to use Karl Berry's names like dvips does,
-% Stephen Gildea, Sep 92.
-
-% This version of LFONTS.TEX is for the CMR fonts. It was converted
-% from the AMR version by David Fuchs on 18 December 1985.
-% And corrected on 11 Nov 1986 by Leslie Lamport.
-% Last vestige of AMR fonts removed 3 Mar 89 by Leslie Lamport.
-
-% This file needs to be customized for the fonts available at a particular
-% site. There are three places where changes need to be made. They
-% can be found by searching this file for the string FONT-CUSTOMIZING.
-%
-% FONT CONVENTIONS
-%
-% A TYPESTYLE COMMAND is something like \it that defines a type style.
-% Each style command \xx is defined to be \protect\pxx, where
-% \pxx is defined to choose the correct font for the current size.
-% This allows style commands to appear in 'unsafe' arguments where
-% protection is required.
-%
-% A SIZE COMMAND is something like \normalsize that defines a type size.
-% It is defined by the document style. However, \normalsize is handled
-% somewhat differently because it is called so often--e.g., on every
-% page by the output routine. The document style defines \@normalsize
-% instead of \normalsize.
-%
-% A ONE-SIZE typestyle is one that exists only in the \normalsize size.
-%
-% A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and
-% \scriptscriptfont for the font families corresponding to preloaded fonts,
-% as well as the typestyle commands for the preloaded fonts. Each
-% font-size command has an associated @fontsize command, having the same
-% name except for an '@' at the front. All font-size commands are defined
-% in LFONTS. The naming convention is that a fifteenpt font has a font-size
-% name \xvpt, and so on.
-%
-% Each size command \SIZE executes the command
-% \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
-% which does the following.
-% 0. Executes \@nomath\SIZE to issue warning if in math mode.
-% 1. \let \@currsize = \SIZE
-% 2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
-% depth .3 * BASELINESKIP
-%
-% Note: Charles Karney observed that step 2 is useless, since the
-% \FONTSIZE command executed in step 4 resets \strutbox using
-% the actual baselineskip, which is \baselinestretch * BASELINESKIP.
-% Some day, this step may get removed. (Note made 28 Feb 89)
-%
-% 3. Sets \baselineskip to \baselinestretch * BASELINESKIP
-% and
-% 4. Calls \FONTSIZE
-% 5. Executes the \@FONTSIZE command.
-% It should then define all the typestyle commands not defined by the font-size
-% command, except for the one-size type styles. A typestyle command for which
-% the corresponding font exists but is not preloaded is defined to expand to a
-% \@getfont command. A typestyle whose font does not exist is defined to
-% expand to a \@subfont command.
-%
-% A one-size typestyle whose font is not preloaded is defined to expand to
-% a \@onesizefont command.
-%
-% \em is defined to be \it inside an unslanted style and \rm inside a
-% slanted style. An \em command in a section title will produce a \pem
-% command in the table of contents.
-%
-
-\def\em{\protect\pem{}}
-\def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
-
-\def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
-
-% \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
-% used for first time in math mode. Give this command outside math
-% mode, before formula using it for first time.
-\def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
-
-% \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
-% It is equivalent to \font \CMD = FONT
-% \symbol{NUM} == \char NUM
-
-\def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
-\def\symbol#1{\char #1\relax}
-
-
-
-% \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
-% \STYLE = style command
-% \FAM = a control sequence defined by \newfam\FAM
-% \@FONTSIZE = the @fontsize command for the current size.
-% LOADING.INFO = information needed to load the font--e.g.,
-% cmtti10 \magstep 2
-% Does the following, where \FONTNAME denotes a new unique, untypeable
-% font name:
-% 1. Executes \font \FONTNAME = LOADING.INFO
-% 2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}'
-% to the definition of \@FONTSIZE.
-% 3. Executes \@FONTSIZE \STYLE.
-%
-% \@nohyphens\STYLE\@FONTSIZE
-% Used right after \@getfont to set \hyphenchar of the new font to -1,
-% thereby prohibiting hyphenation. It is used with \tt fonts.
-% (\@nohyphens was added on 12/18/85)
-%
-% \@subfont \STYLE \REPSTYLE
-% \STYLE, \REPSTYLE = type style commands.
-% Types warning message and defines uses \REPSTYLE.
-%
-% \@onesizefont \STYLE {LOADING.INFO}
-% Defines \STYLE to be a typestyle that exists only for the \normalsize
-% size. It produces the font specified by LOADING.INFO
-%
-% \@addfontinfo\@FONTSIZE{DEFS}
-% Expands DEFS and adds to the definition of \@FONTSIZE. Items that should
-% not be expanded should be protected with \@prtct---except no protection
-% is needed for '\def\foo', only for the contents of the definition.
-%
-% \@nomath\CS : Types a warning '\CS used in math mode' if encountered
-% in math mode.
-
-% Remove \outer from definition of \newfam
-\def\newfam{\alloc@8\fam\chardef\sixt@@n}
-
-\def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
- #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
- depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
- \normalbaselineskip\baselineskip#3#4}
-
-\newif\if@bold
-
-\let\@prtct=\relax
-
-\def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
- \def\noexpand}\xdef#1{#1#2}}}
-
-\def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
- \font \csname \string #1\string #3\endcsname #4\relax
- \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname
- \scriptfont #2\csname \string #1\string #3\endcsname
- \scriptscriptfont #2\csname \string #1\string #3\endcsname
- \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
-
-\def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname
- \string #1\string #2\endcsname \m@ne}
-
-\def\@subfont#1#2{\@warning{No \string#1\space typeface in
- this size, using \string#2}#2}
-
-\def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
- \global\expandafter\font\csname ft\string#1\endcsname #2\relax
- \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
- \@warning{Typeface \string#1\space available only in
- \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize
- \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
- \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
-
-\def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
-
-\def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
-\def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
-
-% The following definitions save token space. E.g., using \@height
-% instead of height saves 5 tokens at the cost in time of one macro
-% expansion.
-
-\def\@height{height}
-\def\@depth{depth}
-\def\@width{width}
-
-\def\@magscale#1{ scaled \magstep #1}
-\def\@halfmag{ scaled \magstephalf}
-\def\@ptscale#1{ scaled #100}
-
-
-%% FONT-CUSTOMIZING: The following \font commands define the
-%% preloaded LaTeX fonts. Font names should be changed to cause
-%% different fonts to be loaded in place of these particular AMR fonts.
-%% \font commands should be added or deleted to change which fonts
-%% are preloaded.
-
-% five point
- \font\fivrm = ptmr at 5pt % roman
- \font\fivmi = cmmi5 % math italic
- \skewchar\fivmi ='177 % for placement of accents
-%\font\fivmib = cmmib10 \@ptscale5 % bold math italic
- \font\fivsy = cmsy5 % math symbols
- \skewchar\fivsy ='60 % for placement of math accents
-%\font\fivsyb = cmbsy10 \@ptscale5 % bold math symbols
-%\font\fivit = ptmri at 5pt % text italic
-%\font\fivsl = ptmro at 5pt % slanted
-%\font\fivbf = ptmb at 5pt % extended bold
-%\font\fivbfs = ptmbo at 5pt % extended bold slanted
-%\font\fivtt = pcrb at 5pt % typewriter
-%\font\fivtti = cmitt10 \@ptscale5 % italic typewriter
-%\font\fivtts = pcrbo at 5pt % slanted typewriter
-%\font\fivsf = phvr at 5pt % sans serif
-%\font\fivsfi = phvro at 5pt % italic sans serif
-%\font\fivsfb = phvb at 5pt % bold sans serif
-%\font\fivsc = cmcsc10 \@ptscale5 % small caps
- \font\fivly = lasy5 % LaTeX symbols
-%\font\fivlyb = lasyb10 \@ptscale5 % LaTeX symbols
-%\font\fivuit = ptmru at 5pt % unslanted italic
-
-% six point
- \font\sixrm = ptmr at 6pt % roman
- \font\sixmi = cmmi6 % math italic
- \skewchar\sixmi ='177 % for placement of accents
-%\font\sixmib = cmmib10 \@ptscale6 % bold math italic
- \font\sixsy = cmsy6 % math symbols
- \skewchar\sixsy ='60 % for placement of math accents
-%\font\sixsyb = cmbsy10 \@ptscale6 % bold math symbols
-%\font\sixit = ptmri at 6pt % text italic
-%\font\sixsl = ptmro at 6pt % slanted
-%\font\sixbf = ptmb at 6pt % extended bold
-%\font\sixbfs = ptmbo at 6pt % extended bold slanted
-%\font\sixtt = pcrb at 6pt % typewriter
-%\font\sixtti = cmitt10 \@ptscale6 % italic typewriter
-%\font\sixtts = pcrbo at 6pt % slanted typewriter
-%\font\sixsf = phvr at 6pt % sans serif
-%\font\sixsfi = cmssi10 \@ptscale6 % italic sans serif
-%\font\sixsfb = phvb at 6pt % bold sans serif
-%\font\sixsc = ptmrc at 6pt % small caps
- \font\sixly = lasy6 % LaTeX symbols
-%\font\sixlyb = lasyb10 \@ptscale6 % LaTeX symbols
-%\font\sixuit = ptmru at 6pt % unslanted italic
-
-% seven point
- \font\sevrm = ptmr at 7pt % roman
- \font\sevmi = cmmi7 % math italic
- \skewchar\sevmi ='177 % for placement of accents
-%\font\sevmib = cmmib10 \@ptscale7 % bold math italic
- \font\sevsy = cmsy7 % math symbols
- \skewchar\sevsy ='60 % for placement of math accents
-%\font\sevsyb = cmbsy10 \@ptscale7 % bold math symbols
- \font\sevit = ptmri at 7pt % text italic
-%\font\sevsl = ptmro at 7pt % slanted
-%\font\sevbf = ptmb at 7pt % extended bold
-%\font\sevbfs = ptmbo at 7pt % extended bold slanted
-%\font\sevtt = pcrb at 7pt % typewriter
-%\font\sevtti = cmitt10 \@ptscale7 % italic typewriter
-%\font\sevtts = pcrbo at 7pt % slanted typewriter
-%\font\sevsf = phvr at 7pt % sans serif
-%\font\sevsfi = cmssi10 \@ptscale7 % italic sans serif
-%\font\sevsfb = phvb at 7pt % bold sans serif
-%\font\sevsc = ptmrc at 7pt % small caps
- \font\sevly = lasy7 % LaTeX symbols
-%\font\sevlyb = lasyb10 \@ptscale7 % LaTeX symbols
-%\font\sevuit = ptmru at 7pt % unslanted italic
-
-% eight point
- \font\egtrm = ptmr at 8pt % roman
- \font\egtmi = cmmi8 % math italic
- \skewchar\egtmi ='177 % for placement of accents
-%\font\egtmib = cmmib10 \@ptscale8 % bold math italic
- \font\egtsy = cmsy8 % math symbols
- \skewchar\egtsy ='60 % for placement of math accents
-%\font\egtsyb = cmbsy10 \@ptscale8 % bold math symbols
- \font\egtit = ptmri at 8pt % text italic
-%\font\egtsl = ptmro at 8pt % slanted
-%\font\egtbf = ptmb at 8pt % extended bold
-%\font\egtbfs = ptmbo at 8pt % extended bold slanted
-%\font\egttt = pcrb at 8pt % typewriter
-%\font\egttti = cmitt10 \@ptscale8 % italic typewriter
-%\font\egttts = pcrbo at 8pt % slanted typewriter
-%\font\egtsf = phvr at 8pt % sans serif
-%\font\egtsfi = cmssi10 \@ptscale8 % italic sans serif
-%\font\egtsfb = phvb at 8pt % bold sans serif
-%\font\egtsc = ptmrc at 8pt % small caps
- \font\egtly = lasy8 % LaTeX symbols
-%\font\egtlyb = lasyb10 \@ptscale8 % LaTeX symbols
-%\font\egtuit = ptmru at 8pt % unslanted italic
-
-
-% nine point
- \font\ninrm = ptmr at 9pt % roman
- \font\ninmi = cmmi9 % math italic
- \skewchar\ninmi ='177 % for placement of accents
-%\font\ninmib = cmmib10 \@ptscale9 % bold math italic
- \font\ninsy = cmsy9 % math symbols
- \skewchar\ninsy ='60 % for placement of math accents
-%\font\ninsyb = cmbsy10 \@ptscale9 % bold math symbols
- \font\ninit = ptmri at 9pt % text italic
-%\font\ninsl = ptmro at 9pt % slanted
- \font\ninbf = ptmb at 9pt % extended bold
-%\font\ninbfs = ptmbo at 9pt % extended bold slanted
- \font\nintt = pcrb at 9pt % typewriter
- \hyphenchar\nintt = -1 % suppress hyphenation in \tt font
-%\font\nintti = cmitt10 \@ptscale9 % italic typewriter
-%\font\nintts = pcrbo at 9pt % slanted typewriter
-%\font\ninsf = phvr at 9pt % sans serif
-%\font\ninsfi = cmssi10 \@ptscale9 % italic sans serif
-%\font\ninsfb = phvb at 9pt % bold sans serif
-%\font\ninsc = ptmrc at 9pt % small caps
- \font\ninly = lasy9 % LaTeX symbols
-%\font\ninlyb = lasyb10 \@ptscale9 % LaTeX symbols
-%\font\ninuit = ptmru at 9pt % unslanted italic
-
-% ten point
- \font\tenrm = ptmr at 10pt % roman
- \font\tenmi = cmmi10 % math italic
- \skewchar\tenmi ='177 % for placement of accents
-%\font\tenmib = cmmib10 % bold math italic
- \font\tensy = cmsy10 % math symbols
- \skewchar\tensy ='60 % for placement of math accents
-%\font\tensyb = cmbsy10 % bold symbols
- \font\tenit = ptmri % text italic
- \font\tensl = ptmro % slanted
- \font\tenbf = ptmb % extended bold
-%\font\tenbfs = ptmbo % extended bold slanted
- \font\tentt = pcrb % typewriter
- \hyphenchar\tentt = -1 % suppress hyphenation in \tt font
-%\font\tentti = cmitt10 % italic typewriter
-%\font\tentts = pcrbo % slanted typewriter
- \font\tensf = phvr at 10pt % sans serif
-%\font\tensfi = cmssi10 % italic sans serif
-%\font\tensfb = phvb at 10pt % bold sans serif
-%\font\tensc = ptmrc % small caps
- \font\tenly = lasy10 % LaTeX symbols
-%\font\tenlyb = lasyb10 % bold LaTeX symbols
-%\font\tenuit = ptmru % unslanted italic
-
-% eleven point
- \font\elvrm = ptmr at 11pt % roman
- \font\elvmi = cmmi10 \@halfmag % math italic
- \skewchar\elvmi ='177 % for placement of accents
-%\font\elvmib = cmmib10 \@halfmag % bold math italic
- \font\elvsy = cmsy10 \@halfmag % math symbols
- \skewchar\elvsy ='60 % for placement of math accents
-%\font\elvsyb = cmbsy10 \@halfmag % bold symbols
- \font\elvit = ptmri at 11pt % text italic
- \font\elvsl = ptmro at 11pt % slanted
- \font\elvbf = ptmb at 11pt % exelvded bold
-%\font\elvbfs = ptmbo at 11pt % exelvded bold slanted
- \font\elvtt = pcrb at 11pt % typewriter
- \hyphenchar\elvtt = -1 % suppress hyphenation in \tt font
-%\font\elvtti = cmitt10 \@halfmag % italic typewriter
-%\font\elvtts = pcrbo at 11pt % slanted typewriter
- \font\elvsf = phvr at 11pt % sans serif
-%\font\elvsfi = phvro at 11pt % italic sans serif
-%\font\elvsfb = phvb at 11pt % bold sans serif
-%\font\elvsc = ptmrc at 11pt % small caps
- \font\elvly = lasy10 \@halfmag % LaTeX symbols
-%\font\elvlyb = lasyb10 \@halfmag % bold LaTeX symbols
-%\font\elvuit = ptmru at 11pt % unslanted italic
-
-% twelve point
- \font\twlrm = ptmr at 12pt % roman
- \font\twlmi = cmmi12 % math italic
- \skewchar\twlmi ='177 % for placement of accents
-%\font\twlmib = cmmib10 \@magscale1 % bold math italic
- \font\twlsy = cmsy10 \@magscale1 % math symbols
- \skewchar\twlsy ='60 % for placement of math accents
-%\font\twlsyb = cmbsy10 \@magscale1 % bold symbols
- \font\twlit = ptmri at 12pt % text italic
- \font\twlsl = ptmro at 12pt % slanted
- \font\twlbf = ptmb at 12pt % extended bold
-%\font\twlbfs = ptmbo at 12pt % extended bold slanted
- \font\twltt = pcrb at 12pt % typewriter
- \hyphenchar\twltt = -1 % suppress hyphenation in \tt font
-%\font\twltti = cmitt10 \@magscale1 % italic typewriter
-%\font\twltts = pcrbo at 12pt % slanted typewriter
- \font\twlsf = phvr at 12pt % sans serif
-%\font\twlsfi = cmssi10 \@magscale1 % italic sans serif
-%\font\twlsfb = phvb at 12pt % bold sans serif
-%\font\twlsc = ptmrc at 12pt % small caps
- \font\twlly = lasy10 \@magscale1 % LaTeX symbols
-%\font\twllyb = lasyb10 \@magscale1 % bold LaTeX symbols
-%\font\twluit = ptmru at 12pt % unslanted italic
-
-% fourteen point
- \font\frtnrm = ptmr at 14pt % roman
- \font\frtnmi = cmmi10 \@magscale2 % math italic
- \skewchar\frtnmi ='177 % for placement of accents
-%\font\frtnmib = cmmib10 \@magscale2 % bold math italic
- \font\frtnsy = cmsy10 \@magscale2 % math symbols
- \skewchar\frtnsy ='60 % for placement of math accents
-%\font\frtnsyb = cmbsy10 \@magscale2 % bold symbols
-%\font\frtnit = ptmri at 14pt % text italic
-%\font\frtnsl = ptmro at 14pt % slanted
- \font\frtnbf = ptmb at 14pt % extended bold
-%\font\frtnbfs = ptmbo at 14pt % extended bold slanted
-%\font\frtntt = pcrb at 14pt % typewriter
-%\font\frtntti = cmitt10 \@magscale2 % italic typewriter
-%\font\frtntts = pcrbo at 14pt % slanted typewriter
-%\font\frtnsf = phvr at 14pt % sans serif
-%\font\frtnsfi = cmssi10 \@magscale2 % italic sans serif
-%\font\frtnsfb = phvb at 14pt % bold sans serif
-%\font\frtnsc = ptmrc at 14pt % small caps
- \font\frtnly = lasy10 \@magscale2 % LaTeX symbols
-%\font\frtnlyb = lasyb10 \@magscale2 % bold LaTeX symbols
-%\font\frtnuit = ptmru at 14pt % unslanted italic
-
-% seventeen point
- \font\svtnrm = ptmr at 17pt % roman
- \font\svtnmi = cmmi10 \@magscale3 % math italic
- \skewchar\svtnmi ='177 % for placement of accents
-%\font\svtnmib = cmmib10 \@magscale3 % bold math italic
- \font\svtnsy = cmsy10 \@magscale3 % math symbols
- \skewchar\svtnsy ='60 % for placement of math accents
-%\font\svtnsyb = cmbsy10 \@magscale3 % bold symbols
-%\font\svtnit = ptmri at 17pt % text italic
-%\font\svtnsl = ptmro at 17pt % slanted
- \font\svtnbf = ptmb at 17pt % extended bold
-%\font\svtnbfs = ptmbo at 17pt % extended bold slanted
-%\font\svtntt = pcrb at 17pt % typewriter
-%\font\svtntti = cmitt10 \@magscale3 % italic typewriter
-%\font\svtntts = pcrbo at 17pt % slanted typewriter
-%\font\svtnsf = phvr at 17pt % sans serif
-%\font\svtnsfi = cmssi10 \@magscale3 % italic sans serif
-%\font\svtnsfb = phvb at 17pt % bold sans serif
-%\font\svtnsc = ptmrc at 17pt % small caps
- \font\svtnly = lasy10 \@magscale3 % LaTeX symbols
-%\font\svtnlyb = lasyb10 \@magscale3 % bold LaTeX symbols
-%\font\svtnuit = ptmru at 17pt % unslanted italic
-
-% twenty point
- \font\twtyrm = ptmr at 20pt % roman
- \font\twtymi = cmmi10 \@magscale4 % math italic
- \skewchar\twtymi ='177 % for placement of accents
-%\font\twtymib = cmmib10 \@magscale4 % bold math italic
- \font\twtysy = cmsy10 \@magscale4 % math symbols
- \skewchar\twtysy ='60 % for placement of math accents
-%\font\twtysyb = cmbsy10 \@magscale4 % bold symbols
-%\font\twtyit = ptmri at 20pt % text italic
-%\font\twtysl = ptmro at 20pt % slanted
-%\font\twtybf = ptmb at 20pt % extended bold
-%\font\twtybfs = ptmbo at 20pt % extended bold slanted
-%\font\twtytt = pcrb at 20pt % typewriter
-%\font\twtytti = cmitt10 \@magscale4 % italic typewriter
-%\font\twtytts = pcrbo at 20pt % slanted typewriter
-%\font\twtysf = phvr at 20pt % sans serif
-%\font\twtysfi = cmssi10 \@magscale4 % italic sans serif
-%\font\twtysfb = phvb at 20pt % bold sans serif
-%\font\twtysc = ptmrc at 20pt % small caps
- \font\twtyly = lasy10 \@magscale4 % LaTeX symbols
-%\font\twtylyb = lasyb10 \@magscale4 % bold LaTeX symbols
-%\font\twtyuit = ptmru at 20pt % unslanted italic
-
-% twenty-five point
- \font\twfvrm = ptmr at 25pt % roman
-%\font\twfvmi = cmmi10 \@magscale5 % math italic
-%\font\twfvmib = cmmib10 \@magscale5 % bold math italic
-%\font\twfvsy = cmsy10 \@magscale5 % math symbols
-%\font\twfvsyb = cmbsy10 \@magscale5 % bold symbols
-%\font\twfvit = ptmri at 25pt % text italic
-%\font\twfvsl = ptmro at 25pt % slanted
-%\font\twfvbf = ptmb at 25pt % extended bold
-%\font\twfvbfs = ptmbo at 25pt % extended bold slanted
-%\font\twfvtt = pcrb at 25pt % typewriter
-%\font\twfvtti = cmitt10 \@magscale5 % italic typewriter
-%\font\twfvtts = pcrbo at 25pt % slanted typewriter
-%\font\twfvsf = phvr at 25pt % sans serif
-%\font\twfvsfi = cmssi10 \@magscale5 % italic sans serif
-%\font\twfvsfb = phvb at 25pt % bold sans serif
-%\font\twfvsc = ptmrc at 25pt % small caps
-%\font\twfvly = lasy10 \@magscale5 % LaTeX symbols
-%\font\twfvlyb = lasyb10 \@magscale5 % bold LaTeX symbols
-%\font\twfvuit = ptmru at 25pt % unslanted italic
-
-% Math extension
- \font\tenex = cmex10
-
-% line & circle fonts
-\font\tenln = line10
-\font\tenlnw = linew10
-\font\tencirc = lcircle10 % 21 Nov 89 : circle10 -> lcircle10
-\font\tencircw = lcirclew10 % 21 Nov 89 : circlew10 -> lcirclew10
-
-% Change made 6 May 86: `\@warning' replaced by `\immediate\write 15'
-% since it's not defined when lfonts.tex is read by lplain.tex.
-%
-\ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else
- \immediate\write 15{Incompatible thin line and circle fonts}\fi
-\ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else
- \immediate\write 15{Incompatible thick line and circle fonts}\fi
-
-
-% protected font names
-\def\rm{\protect\prm}
-\def\it{\protect\pit}
-\def\bf{\protect\pbf}
-\def\sl{\protect\psl}
-\def\sf{\protect\psf}
-\def\sc{\protect\psc}
-\def\tt{\protect\ptt}
-
-%% FONT-CUSTOMIZING: The following definitions define certain commands
-%% to be abbreviations for certain font names. These commands are used
-%% below in \@getfont commands, which load the loaded-on-demand fonts.
-%% This is done only to save space. To change the fonts that are loaded
-%% on demand, one can either change these definitions or else change
-%% the arguments of the \@getfont commands.
-%%
-\def\@mbi{cmmib10}
-\def\@mbsy{cmbsy10}
-\def\@mcsc{ptmrc}
-\def\@mss{phvr}
-\def\@lasyb{lasyb10}
-
-% families
-
-\newfam\itfam % \it is family 4
-\newfam\slfam % \sl is family 5
-\newfam\bffam % \bf is family 6
-\newfam\ttfam % \tt is family 7
-\newfam\sffam % \sf is family 8
-\newfam\scfam % \sf is family 9
-\newfam\lyfam % \ly is family 10
-
-\def\cal{\fam\tw@}
-\def\mit{\fam\@ne}
-
-\def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
- \@depth .3\baselineskip \@width\z@}}
-
-
-%% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
-%% the declarations needed to change the type size to 5pt, 6pt, ... ,
-%% 25pt. To see how this works, consider the definition of \viipt,
-%% which determines the fonts used in a 7pt type size. The command
-%% \def\pit{\fam\itfam\sevit}
-%% means that the \it command causes the preloaded \sevit font to
-%% be used--this font was defined earlier with a \font\sevit...
-%% command. The commands
-%% \textfont\itfam\sevit
-%% \scriptfont\itfam\sevit
-%% \scriptscriptfont\itfam\sevit
-%% tell TeX to use the \sevit font for all three math-mode sizes
-%% (text, script, and scriptscript) for the 7pt size.
-%% The fonts appearing in these commands must be preloaded.
-%%
-%% The command
-%% \def\pbf{\@getfont\pbf\bffam\@viipt{ambx7}}
-%% declares \bf to use a loaded-on-demand font--namely, the font
-%% ambx7.
-%%
-%% The command
-%% \def\ptt{\@subfont\tt\rm}
-%% declares that the \tt font is unavailable in the 7pt size, so
-%% the \rm font is used instead. (The substituted type style should
-%% correspond to a preloaded size.)
-
-\def\vpt{\textfont\z@\fivrm
- \scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
-\textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
-\textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\prm{\fam\z@\fivrm}%
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath
- \unboldmath\fam\@ne\@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\pit{\@subfont\it\rm}%
-\def\psl{\@subfont\sl\rm}%
-\def\pbf{\@getfont\pbf\bffam\@vpt{ptmb at 5pt}}%
-\def\ptt{\@subfont\tt\rm}%
-\def\psf{\@subfont\sf\rm}%
-\def\psc{\@subfont\sc\rm}%
-\def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly
- \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
-\@setstrut\rm}
-
-\def\@vpt{}
-
-\def\vipt{\textfont\z@\sixrm
- \scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
-\textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
-\textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\prm{\fam\z@\sixrm}%
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath
- \unboldmath\@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\pit{\@subfont\it\rm}%
-\def\psl{\@subfont\sl\rm}%
-\def\pbf{\@getfont\pbf\bffam\@vipt{ptmb at 6pt}}%
-\def\ptt{\@subfont\tt\rm}%
-\def\psf{\@subfont\sf\rm}%
-\def\psc{\@subfont\sc\rm}%
-\def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly
- \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly
-\@setstrut\rm}
-
-\def\@vipt{}
-
-\def\viipt{\textfont\z@\sevrm
- \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
-\textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
-\textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\prm{\fam\z@\sevrm}%
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath
-\unboldmath\@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\pit{\fam\itfam\sevit}\textfont\itfam\sevit
- \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
-\def\psl{\@subfont\sl\it}%
-\def\pbf{\@getfont\pbf\bffam\@viipt{ptmb at 7pt}}%
-\def\ptt{\@subfont\tt\rm}%
-\def\psf{\@subfont\sf\rm}%
-\def\psc{\@subfont\sc\rm}%
-\def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly
- \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
-\@setstrut \rm}
-
-\def\@viipt{}
-
-\def\viiipt{\textfont\z@\egtrm
- \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
-\textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
-\textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\prm{\fam\z@\egtrm}%
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath
-\unboldmath\@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\pit{\fam\itfam\egtit}\textfont\itfam\egtit
- \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
-\def\psl{\@getfont\psl\slfam\@viiipt{ptmro at 8pt}}%
-\def\pbf{\@getfont\pbf\bffam\@viiipt{ptmbo at 8pt}}%
-\def\ptt{\@getfont\ptt\ttfam\@viiipt{pcrb at 8pt}\@nohyphens\ptt\@viiipt}%
-\def\psf{\@getfont\psf\sffam\@viiipt{phvr at 8pt}}%
-\def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc \@ptscale8}}%
-\def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly
- \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
-\@setstrut \rm}
-
-\def\@viiipt{}
-
-\def\ixpt{\textfont\z@\ninrm
- \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
-\textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
-\textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\prm{\fam\z@\ninrm}%
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\pit{\fam\itfam\ninit}\textfont\itfam\ninit
- \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
-\def\psl{\@getfont\psl\slfam\@ixpt{ptmro at 9pt}}%
-\def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf
- \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
-\def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
- \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
-\def\psf{\@getfont\psf\sffam\@ixpt{phvr at 9pt}}%
-\def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc \@ptscale9}}%
-\def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly
- \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
-\@setstrut \rm}
-
-\def\@ixpt{}
-
-\def\xpt{\textfont\z@\tenrm
- \scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
-\textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
-\textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\tenmi
- \textfont\tw@\tensy \textfont\lyfam\tenly
- \@boldfalse}\@boldfalse
-\def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi
- \global\font\tensyb\@mbsy
- \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
- {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
- \textfont\@ne\tenmib \textfont\tw@\tensyb
- \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
-\def\prm{\fam\z@\tenrm}%
-\def\pit{\fam\itfam\tenit}\textfont\itfam\tenit \scriptfont\itfam\sevit
- \scriptscriptfont\itfam\sevit
-\def\psl{\fam\slfam\tensl}\textfont\slfam\tensl
- \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
-\def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf
- \scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf
-\def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
- \scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
-\def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
- \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
-\def\psc{\@getfont\psc\scfam\@xpt{\@mcsc}}%
-\def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly
- \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly
-\@setstrut \rm}
-
-\def\@xpt{}
-
-\def\xipt{\textfont\z@\elvrm
- \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
-\textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
-\textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\elvmi \textfont\tw@\elvsy
- \textfont\lyfam\elvly \@boldfalse}\@boldfalse
-\def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag
- \global\font\elvsyb\@mbsy\@halfmag
- \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
- {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
- \textfont\@ne\elvmib \textfont\tw@\elvsyb
- \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
-\def\prm{\fam\z@\elvrm}%
-\def\pit{\fam\itfam\elvit}\textfont\itfam\elvit
- \scriptfont\itfam\egtit \scriptscriptfont\itfam\sevit
-\def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl
- \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
-\def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvbf
- \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
-\def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
- \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
-\def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
- \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
-\def\psc{\@getfont\psc\scfam\@xipt{\@mcsc\@halfmag}}%
-\def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly
- \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
-\@setstrut \rm}
-
-\def\@xipt{}
-
-\def\xiipt{\textfont\z@\twlrm
- \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
-\textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
-\textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\twlmi
- \textfont\tw@\twlsy \textfont\lyfam\twlly
- \@boldfalse}\@boldfalse
-\def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi\@magscale1\global
- \font\twlsyb\@mbsy \@magscale1\global\font
- \twllyb\@lasyb\@magscale1\relax\@addfontinfo\@xiipt
- {\def\boldmath{\everymath
- {\mit}\everydisplay{\mit}\@prtct\@nomathbold
- \textfont\@ne\twlmib \textfont\tw@\twlsyb
- \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
-\def\prm{\fam\z@\twlrm}%
-\def\pit{\fam\itfam\twlit}\textfont\itfam\twlit \scriptfont\itfam\egtit
- \scriptscriptfont\itfam\sevit
-\def\psl{\fam\slfam\twlsl}\textfont\slfam\twlsl
- \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
-\def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlbf
- \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
-\def\ptt{\fam\ttfam\twltt}\textfont\ttfam\twltt
- \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
-\def\psf{\fam\sffam\twlsf}\textfont\sffam\twlsf
- \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
-\def\psc{\@getfont\psc\scfam\@xiipt{\@mcsc\@magscale1}}%
-\def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly
- \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
- \@setstrut \rm}
-
-\def\@xiipt{}
-
-\def\xivpt{\textfont\z@\frtnrm
- \scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
-\textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
-\textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\frtnmi \textfont\tw@\frtnsy
- \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
-\def\boldmath{\@ifundefined{frtnmib}{\global\font
- \frtnmib\@mbi\@magscale2\global\font\frtnsyb\@mbsy\@magscale2
- \global\font\frtnlyb\@lasyb\@magscale2\relax\@addfontinfo\@xivpt
- {\def\boldmath{\everymath
- {\mit}\everydisplay{\mit}\@prtct\@nomathbold
- \textfont\@ne\frtnmib \textfont\tw@\frtnsyb
- \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
-\def\prm{\fam\z@\frtnrm}%
-\def\pit{\@getfont\pit\itfam\@xivpt{ptmri at 14pt}}%
-\def\psl{\@getfont\psl\slfam\@xivpt{ptmro at 14pt}}%
-\def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnbf
- \scriptfont\bffam\tenbf \scriptscriptfont\bffam\ninbf
-\def\ptt{\@getfont\ptt\ttfam\@xivpt{pcrb at 14pt}\@nohyphens\ptt\@xivpt}%
-\def\psf{\@getfont\psf\sffam\@xivpt{\@mss\@magscale2}}%
-\def\psc{\@getfont\psc\scfam\@xivpt{\@mcsc\@magscale2}}%
-\def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly
- \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly
-\@setstrut \rm}
-
-\def\@xivpt{}
-
-\def\xviipt{\textfont\z@\svtnrm
- \scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
-\textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
-\textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
- \@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\prm{\fam\z@\svtnrm}%
-\def\pit{\@getfont\pit\itfam\@xviipt{ptmri at 17pt}}%
-\def\psl{\@getfont\psl\slfam\@xviipt{ptmro at 17pt}}%
-\def\pbf{\fam\bffam\svtnbf}\textfont\bffam\svtnbf
- \scriptfont\bffam\twlbf \scriptscriptfont\bffam\tenbf
-\def\ptt{\@getfont\ptt\ttfam\@xviipt{pcrb at 17pt}\@nohyphens
- \ptt\@xviipt}%
-\def\psf{\@getfont\psf\sffam\@xviipt{\@mss\@magscale3}}%
-\def\psc{\@getfont\psc\scfam\@xviipt{\@mcsc\@magscale3}}%
-\def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly
- \scriptfont\lyfam\twlly \scriptscriptfont\lyfam\tenly
-\@setstrut \rm}
-
-\def\@xviipt{}
-
-\def\xxpt{\textfont\z@\twtyrm
- \scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
-\textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
-\textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
- \@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\prm{\fam\z@\twtyrm}%
-\def\pit{\@getfont\pit\itfam\@xxpt{ptmri at 20pt}}%
-\def\psl{\@getfont\psl\slfam\@xxpt{ptmro at 20pt}}%
-\def\pbf{\@getfont\pbf\bffam\@xxpt{ptmb at 20pt}}%
-\def\ptt{\@getfont\ptt\ttfam\@xxpt{pcrb at 20pt}\@nohyphens\ptt\@xxpt}%
-\def\psf{\@getfont\psf\sffam\@xxpt{\@mss\@magscale4}}%
-\def\psc{\@getfont\psc\scfam\@xxpt{\@mcsc\@magscale4}}%
-\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
- \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly
-\@setstrut \rm}
-
-\def\@xxpt{}
-
-\def\xxvpt{\textfont\z@\twfvrm
- \scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
-\textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
-\textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
-\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
-\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
- \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
- \@boldfalse}\@boldfalse
-\def\boldmath{\@subfont\boldmath\unboldmath}%
-\def\prm{\fam\z@\twfvrm}%
-\def\pit{\@subfont\it\rm}%
-\def\psl{\@subfont\sl\rm}%
-\def\pbf{\@getfont\pbf\bffam\@xxvpt{ptmb at 25pt}}%
-\def\ptt{\@subfont\tt\rm}%
-\def\psf{\@subfont\sf\rm}%
-\def\psc{\@subfont\sc\rm}%
-\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
- \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly
-\@setstrut \rm}
-
-\def\@xxvpt{}
-
-% SPECIAL LaTeX character definitions
-
-% Definitions of math operators added by LaTeX
-\mathchardef\mho"0A30
-\mathchardef\Join"3A31
-\mathchardef\Box"0A32
-\mathchardef\Diamond"0A33
-\mathchardef\leadsto"3A3B
-\mathchardef\sqsubset"3A3C
-\mathchardef\sqsupset"3A3D
-\def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule
- \@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
-\def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height
- .55em \@depth .05em}\hbox to -.43em{}>}}
-\def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
- {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
-\def\unrhd{\mathbin{ \hbox to .3em{}\hbox
- {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}
-
-% Definition of \$ to work in italic font (since it produces a pound sterling
-% sign in the cmit font.
-
-\def\${\protect\pdollar}
-\def\pdollar{{\ifdim \fontdimen\@ne\font >\z@ \sl \fi\char`\$}}
-
-% Definition of pound sterling sign.
-% Modified 10 Apr 89 to work in math mode.
-
-\def\pounds{\protect\ppounds}
-\def\ppounds{\relax\ifmmode\mathchar"424\else{\it \char'44}\fi}
-
-
-% Definition of \copyright changed so it works in other type styles,
-% and so it is robust
-\def\copyright{\protect\pcopyright}
-\def\pcopyright{{\rm\ooalign{\hfil
- \raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
diff --git a/Build/source/texk/dvipsk/contrib/psfntmac/ps_plain.tex b/Build/source/texk/dvipsk/contrib/psfntmac/ps_plain.tex
deleted file mode 100644
index 702194102b7..00000000000
--- a/Build/source/texk/dvipsk/contrib/psfntmac/ps_plain.tex
+++ /dev/null
@@ -1,1235 +0,0 @@
-% This is the plain TeX format that's described in The TeXbook.
-% N.B.: A version number is defined at the very end of this file;
-% please change that number whenever the file is modified!
-% And don't modify the file under any circumstances.
-% Modified for Postcript built-in fonts, 29 Apr 87,
-% John Robinson (jr@bbn.com), version 1.6PS
-% Modifications extended to version 2.3 by Larry Denenberg (larry@bbn.com)
-% 5 Apr 88, and then to version 3.0 on 13 Feb 91.
-% PS font names changed to use Karl Berry's names like dvips does,
-% Stephen Gildea, Sep 92.
-
-\catcode`\{=1 % left brace is begin-group character
-\catcode`\}=2 % right brace is end-group character
-\catcode`\$=3 % dollar sign is math shift
-\catcode`\&=4 % ampersand is alignment tab
-\catcode`\#=6 % hash mark is macro parameter character
-\catcode`\^=7 \catcode`\^^K=7 % circumflex and uparrow are for superscripts
-\catcode`\_=8 \catcode`\^^A=8 % underline and downarrow are for subscripts
-\catcode`\^^I=10 % ascii tab is a blank space
-\chardef\active=13 \catcode`\~=\active % tilde is active
-\catcode`\^^L=\active \outer\def^^L{\par} % ascii form-feed is "\outer\par"
-
-\message{Preloading the plain format: codes,}
-
-% We had to define the \catcodes right away, before the message line,
-% since \message uses the { and } characters.
-% When INITEX (the TeX initializer) starts up,
-% it has defined the following \catcode values:
-% \catcode`\^^@=9 % ascii null is ignored
-% \catcode`\^^M=5 % ascii return is end-line
-% \catcode`\\=0 % backslash is TeX escape character
-% \catcode`\%=14 % percent sign is comment character
-% \catcode`\ =10 % ascii space is blank space
-% \catcode`\^^?=15 % ascii delete is invalid
-% \catcode`\A=11 ... \catcode`\Z=11 % uppercase letters
-% \catcode`\a=11 ... \catcode`\z=11 % lowercase letters
-% all others are type 12 (other)
-
-% Here is a list of the characters that have been specially catcoded:
-\def\dospecials{\do\ \do\\\do\{\do\}\do\$\do\&%
- \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~}
-% (not counting ascii null, tab, linefeed, formfeed, return, delete)
-% Each symbol in the list is preceded by \do, which can be defined
-% if you want to do something to every item in the list.
-
-% We make @ signs act like letters, temporarily, to avoid conflict
-% between user names and internal control sequences of plain format.
-\catcode`@=11
-
-% INITEX sets up \mathcode x=x, for x=0..127, except that
-% \mathcode x=x+"7100, for x = `A to `Z and `a to `z;
-% \mathcode x=x+"7000, for x = `0 to `9.
-% The following changes define internal codes as recommended
-% in Appendix C of The TeXbook:
-\mathcode`\^^@="2201 % \cdot
-\mathcode`\^^A="3223 % \downarrow
-\mathcode`\^^B="010B % \alpha
-\mathcode`\^^C="010C % \beta
-\mathcode`\^^D="225E % \land
-\mathcode`\^^E="023A % \lnot
-\mathcode`\^^F="3232 % \in
-\mathcode`\^^G="0119 % \pi
-\mathcode`\^^H="0115 % \lambda
-\mathcode`\^^I="010D % \gamma
-\mathcode`\^^J="010E % \delta
-\mathcode`\^^K="3222 % \uparrow
-\mathcode`\^^L="2206 % \pm
-\mathcode`\^^M="2208 % \oplus
-\mathcode`\^^N="0231 % \infty
-\mathcode`\^^O="0140 % \partial
-\mathcode`\^^P="321A % \subset
-\mathcode`\^^Q="321B % \supset
-\mathcode`\^^R="225C % \cap
-\mathcode`\^^S="225B % \cup
-\mathcode`\^^T="0238 % \forall
-\mathcode`\^^U="0239 % \exists
-\mathcode`\^^V="220A % \otimes
-\mathcode`\^^W="3224 % \leftrightarrow
-\mathcode`\^^X="3220 % \leftarrow
-\mathcode`\^^Y="3221 % \rightarrow
-\mathcode`\^^Z="8000 % \ne
-\mathcode`\^^[="2205 % \diamond
-\mathcode`\^^\="3214 % \le
-\mathcode`\^^]="3215 % \ge
-\mathcode`\^^^="3211 % \equiv
-\mathcode`\^^_="225F % \lor
-\mathcode`\ ="8000 % \space
-\mathcode`\!="5021
-\mathcode`\'="8000 % ^\prime
-\mathcode`\(="4028
-\mathcode`\)="5029
-\mathcode`\*="2203 % \ast
-\mathcode`\+="202B
-\mathcode`\,="613B
-\mathcode`\-="2200
-\mathcode`\.="013A
-\mathcode`\/="013D
-\mathcode`\:="303A
-\mathcode`\;="603B
-\mathcode`\<="313C
-\mathcode`\=="303D
-\mathcode`\>="313E
-\mathcode`\?="503F
-\mathcode`\[="405B
-\mathcode`\\="026E % \backslash
-\mathcode`\]="505D
-\mathcode`\_="8000 % \_
-\mathcode`\{="4266
-\mathcode`\|="026A
-\mathcode`\}="5267
-\mathcode`\^^?="1273 % \smallint
-
-% INITEX sets \uccode`x=`X and \uccode `X=`X for all letters x,
-% and \lccode`x=`x, \lccode`X=`x; all other values are zero.
-% No changes to those tables are needed in plain TeX format.
-
-% INITEX sets \sfcode x=1000 for all x, except that \sfcode`X=999
-% for uppercase letters. The following changes are needed:
-\sfcode`\)=0 \sfcode`\'=0 \sfcode`\]=0
-% The \nonfrenchspacing macro will make further changes to \sfcode values.
-
-% Finally, INITEX sets all \delcode values to -1, except \delcode`.=0
-\delcode`\(="028300
-\delcode`\)="029301
-\delcode`\[="05B302
-\delcode`\]="05D303
-\delcode`\<="26830A
-\delcode`\>="26930B
-\delcode`\/="02F30E
-\delcode`\|="26A30C
-\delcode`\\="26E30F
-% N.B. { and } should NOT get delcodes; otherwise parameter grouping fails!
-
-% To make the plain macros more efficient in time and space,
-% several constant values are declared here as control sequences.
-% If they were changed, anything could happen; so they are private symbols.
-\chardef\@ne=1
-\chardef\tw@=2
-\chardef\thr@@=3
-\chardef\sixt@@n=16
-\chardef\@cclv=255
-\mathchardef\@cclvi=256
-\mathchardef\@m=1000
-\mathchardef\@M=10000
-\mathchardef\@MM=20000
-
-% Allocation of registers
-
-% Here are macros for the automatic allocation of \count, \box, \dimen,
-% \skip, \muskip, and \toks registers, as well as \read and \write
-% stream numbers, \fam codes, \language codes, and \insert numbers.
-
-\message{registers,}
-
-% When a register is used only temporarily, it need not be allocated;
-% grouping can be used, making the value previously in the register return
-% after the close of the group. The main use of these macros is for
-% registers that are defined by one macro and used by others, possibly at
-% different nesting levels. All such registers should be defined through
-% these macros; otherwise conflicts may occur, especially when two or more
-% more macro packages are being used at once.
-
-% The following counters are reserved:
-% 0 to 9 page numbering
-% 10 count allocation
-% 11 dimen allocation
-% 12 skip allocation
-% 13 muskip allocation
-% 14 box allocation
-% 15 toks allocation
-% 16 read file allocation
-% 17 write file allocation
-% 18 math family allocation
-% 19 language allocation
-% 20 insert allocation
-% 21 the most recently allocated number
-% 22 constant -1
-% New counters are allocated starting with 23, 24, etc. Other registers are
-% allocated starting with 10. This leaves 0 through 9 for the user to play
-% with safely, except that counts 0 to 9 are considered to be the page and
-% subpage numbers (since they are displayed during output). In this scheme,
-% \count 10 always contains the number of the highest-numbered counter that
-% has been allocated, \count 14 the highest-numbered box, etc.
-% Inserts are given numbers 254, 253, etc., since they require a \count,
-% \dimen, \skip, and \box all with the same number; \count 19 contains the
-% lowest-numbered insert that has been allocated. Of course, \box255 is
-% reserved for \output; \count255, \dimen255, and \skip255 can be used freely.
-
-% It is recommended that macro designers always use
-% \global assignments with respect to registers numbered 1, 3, 5, 7, 9, and
-% always non-\global assignments with respect to registers 0, 2, 4, 6, 8, 255.
-% This will prevent ``save stack buildup'' that might otherwise occur.
-
-\count10=22 % allocates \count registers 23, 24, ...
-\count11=9 % allocates \dimen registers 10, 11, ...
-\count12=9 % allocates \skip registers 10, 11, ...
-\count13=9 % allocates \muskip registers 10, 11, ...
-\count14=9 % allocates \box registers 10, 11, ...
-\count15=9 % allocates \toks registers 10, 11, ...
-\count16=-1 % allocates input streams 0, 1, ...
-\count17=-1 % allocates output streams 0, 1, ...
-\count18=3 % allocates math families 4, 5, ...
-\count19=0 % allocates \language codes 1, 2, ...
-\count20=255 % allocates insertions 254, 253, ...
-\countdef\insc@unt=20 % the insertion counter
-\countdef\allocationnumber=21 % the most recent allocation
-\countdef\m@ne=22 \m@ne=-1 % a handy constant
-\def\wlog{\immediate\write\m@ne} % write on log file (only)
-
-% Here are abbreviations for the names of scratch registers
-% that don't need to be allocated.
-
-\countdef\count@=255
-\dimendef\dimen@=0
-\dimendef\dimen@i=1 % global only
-\dimendef\dimen@ii=2
-\skipdef\skip@=0
-\toksdef\toks@=0
-
-% Now, we define \newcount, \newbox, etc. so that you can say \newcount\foo
-% and \foo will be defined (with \countdef) to be the next counter.
-% To find out which counter \foo is, you can look at \allocationnumber.
-% Since there's no \boxdef command, \chardef is used to define a \newbox,
-% \newinsert, \newfam, and so on.
-
-\outer\def\newcount{\alloc@0\count\countdef\insc@unt}
-\outer\def\newdimen{\alloc@1\dimen\dimendef\insc@unt}
-\outer\def\newskip{\alloc@2\skip\skipdef\insc@unt}
-\outer\def\newmuskip{\alloc@3\muskip\muskipdef\@cclvi}
-\outer\def\newbox{\alloc@4\box\chardef\insc@unt}
-\let\newtoks=\relax % we do this to allow plain.tex to be read in twice
-\outer\def\newhelp#1#2{\newtoks#1#1\expandafter{\csname#2\endcsname}}
-\outer\def\newtoks{\alloc@5\toks\toksdef\@cclvi}
-\outer\def\newread{\alloc@6\read\chardef\sixt@@n}
-\outer\def\newwrite{\alloc@7\write\chardef\sixt@@n}
-\outer\def\newfam{\alloc@8\fam\chardef\sixt@@n}
-\outer\def\newlanguage{\alloc@9\language\chardef\@cclvi}
-\def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
- \ch@ck#1#4#2% make sure there's still room
- \allocationnumber=\count1#1%
- \global#3#5=\allocationnumber
- \wlog{\string#5=\string#2\the\allocationnumber}}
-\outer\def\newinsert#1{\global\advance\insc@unt by\m@ne
- \ch@ck0\insc@unt\count
- \ch@ck1\insc@unt\dimen
- \ch@ck2\insc@unt\skip
- \ch@ck4\insc@unt\box
- \allocationnumber=\insc@unt
- \global\chardef#1=\allocationnumber
- \wlog{\string#1=\string\insert\the\allocationnumber}}
-\def\ch@ck#1#2#3{\ifnum\count1#1<#2%
- \else\errmessage{No room for a new #3}\fi}
-
-% Here are some examples of allocation.
-\newdimen\maxdimen \maxdimen=16383.99999pt % the largest legal <dimen>
-\newskip\hideskip \hideskip=-1000pt plus 1fill % negative but can grow
-\newskip\centering \centering=0pt plus 1000pt minus 1000pt
-\newdimen\p@ \p@=1pt % this saves macro space and time
-\newdimen\z@ \z@=0pt % can be used both for 0pt and 0
-\newskip\z@skip \z@skip=0pt plus0pt minus0pt
-\newbox\voidb@x % permanently void box register
-
-% And here's a different sort of allocation:
-% For example, \newif\iffoo creates \footrue, \foofalse to go with \iffoo.
-\outer\def\newif#1{\count@\escapechar \escapechar\m@ne
- \expandafter\expandafter\expandafter
- \edef\@if#1{true}{\let\noexpand#1=\noexpand\iftrue}%
- \expandafter\expandafter\expandafter
- \edef\@if#1{false}{\let\noexpand#1=\noexpand\iffalse}%
- \@if#1{false}\escapechar\count@} % the condition starts out false
-\def\@if#1#2{\csname\expandafter\if@\string#1#2\endcsname}
-{\uccode`1=`i \uccode`2=`f \uppercase{\gdef\if@12{}}} % `if' is required
-
-% Assign initial values to TeX's parameters
-
-\message{parameters,}
-
-% All of TeX's numeric parameters are listed here,
-% but the code is commented out if no special value needs to be set.
-% INITEX makes all parameters zero except where noted.
-
-\pretolerance=100
-\tolerance=200 % INITEX sets this to 10000
-\hbadness=1000
-\vbadness=1000
-\linepenalty=10
-\hyphenpenalty=50
-\exhyphenpenalty=50
-\binoppenalty=700
-\relpenalty=500
-\clubpenalty=150
-\widowpenalty=150
-\displaywidowpenalty=50
-\brokenpenalty=100
-\predisplaypenalty=10000
-% \postdisplaypenalty=0
-% \interlinepenalty=0
-% \floatingpenalty=0, set during \insert
-% \outputpenalty=0, set before TeX enters \output
-\doublehyphendemerits=10000
-\finalhyphendemerits=5000
-\adjdemerits=10000
-% \looseness=0, cleared by TeX after each paragraph
-% \pausing=0
-% \holdinginserts=0
-% \tracingonline=0
-% \tracingmacros=0
-% \tracingstats=0
-% \tracingparagraphs=0
-% \tracingpages=0
-% \tracingoutput=0
-\tracinglostchars=1
-% \tracingcommands=0
-% \tracingrestores=0
-% \language=0
-\uchyph=1
-% \lefthyphenmin=2 \righthyphenmin=3 set below
-% \globaldefs=0
-% \maxdeadcycles=25 % INITEX does this
-% \hangafter=1 % INITEX does this, also TeX after each paragraph
-% \fam=0
-% \mag=1000 % INITEX does this
-% \escapechar=`\\ % INITEX does this
-\defaulthyphenchar=`\-
-\defaultskewchar=-1
-% \endlinechar=`\^^M % INITEX does this
-\newlinechar=-1
-\delimiterfactor=901
-% \time=now % TeX does this at beginning of job
-% \day=now % TeX does this at beginning of job
-% \month=now % TeX does this at beginning of job
-% \year=now % TeX does this at beginning of job
-\showboxbreadth=5
-\showboxdepth=3
-\errorcontextlines=5
-
-\hfuzz=0.1pt
-\vfuzz=0.1pt
-\overfullrule=5pt
-\hsize=6.5in
-\vsize=8.9in
-\maxdepth=4pt
-\splitmaxdepth=\maxdimen
-\boxmaxdepth=\maxdimen
-% \lineskiplimit=0pt, changed by \normalbaselines
-\delimitershortfall=5pt
-\nulldelimiterspace=1.2pt
-\scriptspace=0.5pt
-% \mathsurround=0pt
-% \predisplaysize=0pt, set before TeX enters $$
-% \displaywidth=0pt, set before TeX enters $$
-% \displayindent=0pt, set before TeX enters $$
-\parindent=20pt
-% \hangindent=0pt, zeroed by TeX after each paragraph
-% \hoffset=0pt
-% \voffset=0pt
-
-% \baselineskip=0pt, changed by \normalbaselines
-% \lineskip=0pt, changed by \normalbaselines
-\parskip=0pt plus 1pt
-\abovedisplayskip=12pt plus 3pt minus 9pt
-\abovedisplayshortskip=0pt plus 3pt
-\belowdisplayskip=12pt plus 3pt minus 9pt
-\belowdisplayshortskip=7pt plus 3pt minus 4pt
-% \leftskip=0pt
-% \rightskip=0pt
-\topskip=10pt
-\splittopskip=10pt
-% \tabskip=0pt
-% \spaceskip=0pt
-% \xspaceskip=0pt
-\parfillskip=0pt plus 1fil
-
-\thinmuskip=3mu
-\medmuskip=4mu plus 2mu minus 4mu
-\thickmuskip=5mu plus 5mu
-
-% We also define special registers that function like parameters:
-\newskip\smallskipamount \smallskipamount=3pt plus 1pt minus 1pt
-\newskip\medskipamount \medskipamount=6pt plus 2pt minus 2pt
-\newskip\bigskipamount \bigskipamount=12pt plus 4pt minus 4pt
-\newskip\normalbaselineskip \normalbaselineskip=12pt
-\newskip\normallineskip \normallineskip=1pt
-\newdimen\normallineskiplimit \normallineskiplimit=0pt
-\newdimen\jot \jot=3pt
-\newcount\interdisplaylinepenalty \interdisplaylinepenalty=100
-\newcount\interfootnotelinepenalty \interfootnotelinepenalty=100
-
-% Definitions for preloaded fonts
-
-\def\magstephalf{1095 }
-\def\magstep#1{\ifcase#1 \@m\or 1200\or 1440\or 1728\or 2074\or 2488\fi\relax}
-
-% Fonts assigned to \preloaded are not part of "plain TeX",
-% but they are preloaded so that other format packages can use them.
-% For example, if another set of macros says "\font\ninerm=cmr9",
-% TeX will not have to reload the font metric information for cmr9.
-
-\message{fonts,}
-
-\font\tenrm=ptmr % roman text
-\font\preloaded=ptmr at 9pt
-\font\preloaded=ptmr at 8pt
-\font\sevenrm=ptmr at 7pt
-\font\preloaded=ptmr at 6pt
-\font\fiverm=ptmr at 5pt
-
-\font\teni=cmmi10 % math italic
-\font\preloaded=cmmi9
-\font\preloaded=cmmi8
-\font\seveni=cmmi7
-\font\preloaded=cmmi6
-\font\fivei=cmmi5
-
-\font\tensy=cmsy10 % math symbols
-\font\preloaded=cmsy9
-\font\preloaded=cmsy8
-\font\sevensy=cmsy7
-\font\preloaded=cmsy6
-\font\fivesy=cmsy5
-
-\font\tenex=cmex10 % math extension
-
-\font\preloaded=phvr % sans serif
-\font\preloaded=phvr at 8pt
-
-\font\preloaded=phvro % sans serif italic
-\font\preloaded=phvro at 8pt
-
-\font\tenbf=ptmb % boldface extended
-\font\preloaded=ptmb at 9pt
-\font\preloaded=ptmb at 8pt
-\font\sevenbf=ptmb at 7pt
-\font\preloaded=ptmb at 6pt
-\font\fivebf=ptmb at 5pt
-
-\font\tentt=pcrb % typewriter
-\font\preloaded=pcrb at 9pt
-\font\preloaded=pcrb at 8pt
-
-\font\preloaded=pcrbo % slanted typewriter
-
-\font\tensl=ptmro % slanted roman
-\font\preloaded=ptmro at 9pt
-\font\preloaded=ptmro at 8pt
-
-\font\tenit=ptmri % text italic
-\font\preloaded=ptmri at 9pt
-\font\preloaded=ptmri at 8pt
-\font\preloaded=ptmri at 7pt
-
-\message{more fonts,}
-\font\preloaded=cmu10 % unslanted text italic
-
-\font\preloaded=cmmib10 % bold math italic
-\font\preloaded=cmbsy10 % bold math symbols
-
-\font\preloaded=ptmrc % caps and small caps
-
-\font\preloaded=phvb % sans serif bold extended
-
-\font\preloaded=cmdunh10 % Dunhill style
-
-\font\preloaded=ptmr at 14.5pt % for titles
-\font\preloaded=pcrb at 14pt
-\font\preloaded=phvb at 14pt
-
-\font\preloaded=manfnt % METAFONT logo and dragon curve and special symbols
-
-% Additional \preloaded fonts can be specified here.
-% (And those that were \preloaded above can be eliminated.)
-
-\let\preloaded=\undefined % preloaded fonts must be declared anew later.
-
-\skewchar\teni='177 \skewchar\seveni='177 \skewchar\fivei='177
-\skewchar\tensy='60 \skewchar\sevensy='60 \skewchar\fivesy='60
-
-\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
-\def\rm{\fam\z@\tenrm}
-\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
-\def\mit{\fam\@ne} \def\oldstyle{\fam\@ne\teni}
-\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
-\def\cal{\fam\tw@}
-\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
-\newfam\itfam \def\it{\fam\itfam\tenit} % \it is family 4
-\textfont\itfam=\tenit
-\newfam\slfam \def\sl{\fam\slfam\tensl} % \sl is family 5
-\textfont\slfam=\tensl
-\newfam\bffam \def\bf{\fam\bffam\tenbf} % \bf is family 6
-\textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
-\scriptscriptfont\bffam=\fivebf
-\newfam\ttfam \def\tt{\fam\ttfam\tentt} % \tt is family 7
-\textfont\ttfam=\tentt
-
-% Macros for setting ordinary text
-\message{macros,}
-
-\def\frenchspacing{\sfcode`\.\@m \sfcode`\?\@m \sfcode`\!\@m
- \sfcode`\:\@m \sfcode`\;\@m \sfcode`\,\@m}
-\def\nonfrenchspacing{\sfcode`\.3000\sfcode`\?3000\sfcode`\!3000%
- \sfcode`\:2000\sfcode`\;1500\sfcode`\,1250 }
-
-\def\normalbaselines{\lineskip\normallineskip
- \baselineskip\normalbaselineskip \lineskiplimit\normallineskiplimit}
-
-\def\^^M{\ } % control <return> = control <space>
-\def\^^I{\ } % same for <tab>
-
-\def\lq{`} \def\rq{'}
-\def\lbrack{[} \def\rbrack{]}
-
-\let\endgraf=\par \let\endline=\cr
-
-\def\space{ }
-\def\empty{}
-\def\null{\hbox{}}
-
-\let\bgroup={ \let\egroup=}
-
-% In \obeylines, we say `\let^^M=\par' instead of `\def^^M{\par}'
-% since this allows, for example, `\let\par=\cr \obeylines \halign{...'
-{\catcode`\^^M=\active % these lines must end with %
- \gdef\obeylines{\catcode`\^^M\active \let^^M\par}%
- \global\let^^M\par} % this is in case ^^M appears in a \write
-\def\obeyspaces{\catcode`\ \active}
-{\obeyspaces\global\let =\space}
-
-\def\loop#1\repeat{\def\body{#1}\iterate}
-\def\iterate{\body \let\next\iterate \else\let\next\relax\fi \next}
-\let\repeat=\fi % this makes \loop...\if...\repeat skippable
-
-\def\thinspace{\kern .16667em }
-\def\negthinspace{\kern-.16667em }
-\def\enspace{\kern.5em }
-
-\def\enskip{\hskip.5em\relax}
-\def\quad{\hskip1em\relax}
-\def\qquad{\hskip2em\relax}
-
-\def\smallskip{\vskip\smallskipamount}
-\def\medskip{\vskip\medskipamount}
-\def\bigskip{\vskip\bigskipamount}
-
-\def\nointerlineskip{\prevdepth-1000\p@}
-\def\offinterlineskip{\baselineskip-1000\p@
- \lineskip\z@ \lineskiplimit\maxdimen}
-
-\def\topglue{\nointerlineskip\vglue-\topskip\vglue} % for top of page
-\def\vglue{\afterassignment\vgl@\skip@=}
-\def\vgl@{\par \dimen@\prevdepth \hrule height\z@
- \nobreak\vskip\skip@ \prevdepth\dimen@}
-\def\hglue{\afterassignment\hgl@\skip@=}
-\def\hgl@{\leavevmode \count@\spacefactor \vrule width\z@
- \nobreak\hskip\skip@ \spacefactor\count@}
-
-\def~{\penalty\@M \ } % tie
-\def\slash{/\penalty\exhyphenpenalty} % a `/' that acts like a `-'
-
-\def\break{\penalty-\@M}
-\def\nobreak{\penalty \@M}
-\def\allowbreak{\penalty \z@}
-
-\def\filbreak{\par\vfil\penalty-200\vfilneg}
-\def\goodbreak{\par\penalty-500 }
-\def\eject{\par\break}
-\def\supereject{\par\penalty-\@MM}
-
-\def\removelastskip{\ifdim\lastskip=\z@\else\vskip-\lastskip\fi}
-\def\smallbreak{\par\ifdim\lastskip<\smallskipamount
- \removelastskip\penalty-50\smallskip\fi}
-\def\medbreak{\par\ifdim\lastskip<\medskipamount
- \removelastskip\penalty-100\medskip\fi}
-\def\bigbreak{\par\ifdim\lastskip<\bigskipamount
- \removelastskip\penalty-200\bigskip\fi}
-
-\def\line{\hbox to\hsize}
-\def\leftline#1{\line{#1\hss}}
-\def\rightline#1{\line{\hss#1}}
-\def\centerline#1{\line{\hss#1\hss}}
-
-\def\rlap#1{\hbox to\z@{#1\hss}}
-\def\llap#1{\hbox to\z@{\hss#1}}
-
-\def\m@th{\mathsurround=\z@}
-\def\underbar#1{$\setbox\z@\hbox{#1}\dp\z@\z@
- \m@th \underline{\box\z@}$}
-
-\newbox\strutbox
-\setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width\z@}
-\def\strut{\relax\ifmmode\copy\strutbox\else\unhcopy\strutbox\fi}
-
-\def\hidewidth{\hskip\hideskip} % for alignment entries that can stick out
-\def\ialign{\everycr{}\tabskip\z@skip\halign} % initialized \halign
-\newcount\mscount
-\def\multispan#1{\omit \mscount#1
- \loop\ifnum\mscount>\@ne \sp@n\repeat}
-\def\sp@n{\span\omit\advance\mscount\m@ne}
-
-\newif\ifus@ \newif\if@cr
-\newbox\tabs \newbox\tabsyet \newbox\tabsdone
-
-\def\cleartabs{\global\setbox\tabsyet\null \setbox\tabs\null}
-\def\settabs{\setbox\tabs\null \futurelet\next\sett@b}
-\let\+=\relax % in case this file is being read in twice
-\def\sett@b{\ifx\next\+\let\next\relax
- \def\next{\afterassignment\s@tt@b\let\next}%
- \else\let\next\s@tcols\fi\next}
-\def\s@tt@b{\let\next\relax\us@false\m@ketabbox}
-\def\tabalign{\us@true\m@ketabbox} % non-\outer version of \+
-\outer\def\+{\tabalign}
-\def\s@tcols#1\columns{\count@#1\dimen@\hsize
- \loop\ifnum\count@>\z@ \@nother \repeat}
-\def\@nother{\dimen@ii\dimen@ \divide\dimen@ii\count@
- \setbox\tabs\hbox{\hbox to\dimen@ii{}\unhbox\tabs}%
- \advance\dimen@-\dimen@ii \advance\count@\m@ne}
-
-\def\m@ketabbox{\begingroup
- \global\setbox\tabsyet\copy\tabs
- \global\setbox\tabsdone\null
- \def\cr{\@crtrue\crcr\egroup\egroup
- \ifus@\unvbox\z@\lastbox\fi\endgroup
- \setbox\tabs\hbox{\unhbox\tabsyet\unhbox\tabsdone}}%
- \setbox\z@\vbox\bgroup\@crfalse
- \ialign\bgroup&\t@bbox##\t@bb@x\crcr}
-
-\def\t@bbox{\setbox\z@\hbox\bgroup}
-\def\t@bb@x{\if@cr\egroup % now \box\z@ holds the column
- \else\hss\egroup \global\setbox\tabsyet\hbox{\unhbox\tabsyet
- \global\setbox\@ne\lastbox}% now \box\@ne holds its size
- \ifvoid\@ne\global\setbox\@ne\hbox to\wd\z@{}%
- \else\setbox\z@\hbox to\wd\@ne{\unhbox\z@}\fi
- \global\setbox\tabsdone\hbox{\box\@ne\unhbox\tabsdone}\fi
- \box\z@}
-
-\def\hang{\hangindent\parindent}
-\def\textindent#1{\indent\llap{#1\enspace}\ignorespaces}
-\def\item{\par\hang\textindent}
-\def\itemitem{\par\indent \hangindent2\parindent \textindent}
-\def\narrower{\advance\leftskip\parindent
- \advance\rightskip\parindent}
-
-\outer\def\beginsection#1\par{\vskip\z@ plus.3\vsize\penalty-250
- \vskip\z@ plus-.3\vsize\bigskip\vskip\parskip
- \message{#1}\leftline{\bf#1}\nobreak\smallskip\noindent}
-\outer\def\proclaim #1. #2\par{\medbreak
- \noindent{\bf#1.\enspace}{\sl#2\par}%
- \ifdim\lastskip<\medskipamount \removelastskip\penalty55\medskip\fi}
-
-\def\raggedright{\rightskip\z@ plus2em \spaceskip.3333em \xspaceskip.5em\relax}
-\def\ttraggedright{\tt\rightskip\z@ plus2em\relax} % for use with \tt only
-
-\chardef\%=`\%
-\chardef\&=`\&
-\chardef\#=`\#
-\chardef\$=`\$
-\chardef\ss="19
-\chardef\ae="1A
-\chardef\oe="1B
-\chardef\o="1C
-\chardef\AE="1D
-\chardef\OE="1E
-\chardef\O="1F
-\chardef\i="10 \chardef\j="11 % dotless letters
-\def\aa{\accent23a}
-\def\l{\char32l}
-\def\L{\leavevmode\setbox0\hbox{L}\hbox to\wd0{\hss\char32L}}
-
-\def\leavevmode{\unhbox\voidb@x} % begins a paragraph, if necessary
-\def\_{\leavevmode \kern.06em \vbox{\hrule width.3em}}
-\def\AA{\leavevmode\setbox0\hbox{h}\dimen@\ht0\advance\dimen@-1ex%
- \rlap{\raise.67\dimen@\hbox{\char'27}}A}
-
-\def\mathhexbox#1#2#3{\leavevmode
- \hbox{$\m@th \mathchar"#1#2#3$}}
-\def\dag{\mathhexbox279}
-\def\ddag{\mathhexbox27A}
-\def\S{\mathhexbox278}
-\def\P{\mathhexbox27B}
-
-\def\oalign#1{\leavevmode\vtop{\baselineskip\z@skip \lineskip.25ex%
- \ialign{##\crcr#1\crcr}}} % put characters over each other
-\def\ooalign{\lineskiplimit-\maxdimen \oalign}
-\def\d#1{\oalign{#1\crcr\hidewidth.\hidewidth}}
-\def\b#1{\oalign{#1\crcr\hidewidth
- \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}
-\def\c#1{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent24 #1%
- \else{\ooalign{\hidewidth\char24\hidewidth\crcr\unhbox\z@}}\fi}
-\def\copyright{{\ooalign{\hfil\raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
-
-\def\dots{\relax\ifmmode\ldots\else$\m@th\ldots\,$\fi}
-\def\TeX{T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX}
-
-\def\`#1{{\accent18 #1}}
-\def\'#1{{\accent19 #1}}
-\def\v#1{{\accent20 #1}} \let\^^_=\v
-\def\u#1{{\accent21 #1}} \let\^^S=\u
-\def\=#1{{\accent22 #1}}
-\def\^#1{{\accent94 #1}} \let\^^D=\^
-\def\.#1{{\accent95 #1}}
-\def\H#1{{\accent"7D #1}}
-\def\~#1{{\accent"7E #1}}
-\def\"#1{{\accent"7F #1}}
-\def\t#1{{\edef\next{\the\font}\the\textfont1\accent"7F\next#1}}
-
-\def\hrulefill{\leaders\hrule\hfill}
-\def\dotfill{\cleaders\hbox{$\m@th \mkern1.5mu.\mkern1.5mu$}\hfill}
-\def\rightarrowfill{$\m@th\mathord-\mkern-6mu%
- \cleaders\hbox{$\mkern-2mu\mathord-\mkern-2mu$}\hfill
- \mkern-6mu\mathord\rightarrow$}
-\def\leftarrowfill{$\m@th\mathord\leftarrow\mkern-6mu%
- \cleaders\hbox{$\mkern-2mu\mathord-\mkern-2mu$}\hfill
- \mkern-6mu\mathord-$}
-\mathchardef\braceld="37A \mathchardef\bracerd="37B
-\mathchardef\bracelu="37C \mathchardef\braceru="37D
-\def\downbracefill{$\m@th\braceld\leaders\vrule\hfill\braceru
- \bracelu\leaders\vrule\hfill\bracerd$}
-\def\upbracefill{$\m@th\bracelu\leaders\vrule\hfill\bracerd
- \braceld\leaders\vrule\hfill\braceru$}
-
-\outer\def\bye{\par\vfill\supereject\end}
-
-% Macros for math setting
-\message{math definitions,}
-
-\let\sp=^ \let\sb=_
-\def\,{\mskip\thinmuskip}
-\def\>{\mskip\medmuskip}
-\def\;{\mskip\thickmuskip}
-\def\!{\mskip-\thinmuskip}
-\def\*{\discretionary{\thinspace\the\textfont2\char2}{}{}}
-{\catcode`\'=\active \gdef'{^\bgroup\prim@s}}
-\def\prim@s{\prime\futurelet\next\pr@m@s}
-\def\pr@m@s{\ifx'\next\let\nxt\pr@@@s \else\ifx^\next\let\nxt\pr@@@t
- \else\let\nxt\egroup\fi\fi \nxt}
-\def\pr@@@s#1{\prim@s} \def\pr@@@t#1#2{#2\egroup}
-{\catcode`\^^Z=\active \gdef^^Z{\not=}} % ^^Z is like \ne in math
-
-{\catcode`\_=\active \global\let_=\_} % _ in math is either subscript or \_
-
-\mathchardef\alpha="010B
-\mathchardef\beta="010C
-\mathchardef\gamma="010D
-\mathchardef\delta="010E
-\mathchardef\epsilon="010F
-\mathchardef\zeta="0110
-\mathchardef\eta="0111
-\mathchardef\theta="0112
-\mathchardef\iota="0113
-\mathchardef\kappa="0114
-\mathchardef\lambda="0115
-\mathchardef\mu="0116
-\mathchardef\nu="0117
-\mathchardef\xi="0118
-\mathchardef\pi="0119
-\mathchardef\rho="011A
-\mathchardef\sigma="011B
-\mathchardef\tau="011C
-\mathchardef\upsilon="011D
-\mathchardef\phi="011E
-\mathchardef\chi="011F
-\mathchardef\psi="0120
-\mathchardef\omega="0121
-\mathchardef\varepsilon="0122
-\mathchardef\vartheta="0123
-\mathchardef\varpi="0124
-\mathchardef\varrho="0125
-\mathchardef\varsigma="0126
-\mathchardef\varphi="0127
-\mathchardef\Gamma="7000
-\mathchardef\Delta="7001
-\mathchardef\Theta="7002
-\mathchardef\Lambda="7003
-\mathchardef\Xi="7004
-\mathchardef\Pi="7005
-\mathchardef\Sigma="7006
-\mathchardef\Upsilon="7007
-\mathchardef\Phi="7008
-\mathchardef\Psi="7009
-\mathchardef\Omega="700A
-
-\mathchardef\aleph="0240
-\def\hbar{{\mathchar'26\mkern-9muh}}
-\mathchardef\imath="017B
-\mathchardef\jmath="017C
-\mathchardef\ell="0160
-\mathchardef\wp="017D
-\mathchardef\Re="023C
-\mathchardef\Im="023D
-\mathchardef\partial="0140
-\mathchardef\infty="0231
-\mathchardef\prime="0230
-\mathchardef\emptyset="023B
-\mathchardef\nabla="0272
-\def\surd{{\mathchar"1270}}
-\mathchardef\top="023E
-\mathchardef\bot="023F
-\def\angle{{\vbox{\ialign{$\m@th\scriptstyle##$\crcr
- \not\mathrel{\mkern14mu}\crcr
- \noalign{\nointerlineskip}
- \mkern2.5mu\leaders\hrule height.34pt\hfill\mkern2.5mu\crcr}}}}
-\mathchardef\triangle="0234
-\mathchardef\forall="0238
-\mathchardef\exists="0239
-\mathchardef\neg="023A \let\lnot=\neg
-\mathchardef\flat="015B
-\mathchardef\natural="015C
-\mathchardef\sharp="015D
-\mathchardef\clubsuit="027C
-\mathchardef\diamondsuit="027D
-\mathchardef\heartsuit="027E
-\mathchardef\spadesuit="027F
-
-\mathchardef\coprod="1360
-\mathchardef\bigvee="1357
-\mathchardef\bigwedge="1356
-\mathchardef\biguplus="1355
-\mathchardef\bigcap="1354
-\mathchardef\bigcup="1353
-\mathchardef\intop="1352 \def\int{\intop\nolimits}
-\mathchardef\prod="1351
-\mathchardef\sum="1350
-\mathchardef\bigotimes="134E
-\mathchardef\bigoplus="134C
-\mathchardef\bigodot="134A
-\mathchardef\ointop="1348 \def\oint{\ointop\nolimits}
-\mathchardef\bigsqcup="1346
-\mathchardef\smallint="1273
-
-\mathchardef\triangleleft="212F
-\mathchardef\triangleright="212E
-\mathchardef\bigtriangleup="2234
-\mathchardef\bigtriangledown="2235
-\mathchardef\wedge="225E \let\land=\wedge
-\mathchardef\vee="225F \let\lor=\vee
-\mathchardef\cap="225C
-\mathchardef\cup="225B
-\mathchardef\ddagger="227A
-\mathchardef\dagger="2279
-\mathchardef\sqcap="2275
-\mathchardef\sqcup="2274
-\mathchardef\uplus="225D
-\mathchardef\amalg="2271
-\mathchardef\diamond="2205
-\mathchardef\bullet="220F
-\mathchardef\wr="226F
-\mathchardef\div="2204
-\mathchardef\odot="220C
-\mathchardef\oslash="220B
-\mathchardef\otimes="220A
-\mathchardef\ominus="2209
-\mathchardef\oplus="2208
-\mathchardef\mp="2207
-\mathchardef\pm="2206
-\mathchardef\circ="220E
-\mathchardef\bigcirc="220D
-\mathchardef\setminus="226E % for set difference A\setminus B
-\mathchardef\cdot="2201
-\mathchardef\ast="2203
-\mathchardef\times="2202
-\mathchardef\star="213F
-
-\mathchardef\propto="322F
-\mathchardef\sqsubseteq="3276
-\mathchardef\sqsupseteq="3277
-\mathchardef\parallel="326B
-\mathchardef\mid="326A
-\mathchardef\dashv="3261
-\mathchardef\vdash="3260
-\mathchardef\nearrow="3225
-\mathchardef\searrow="3226
-\mathchardef\nwarrow="322D
-\mathchardef\swarrow="322E
-\mathchardef\Leftrightarrow="322C
-\mathchardef\Leftarrow="3228
-\mathchardef\Rightarrow="3229
-\def\neq{\not=} \let\ne=\neq
-\mathchardef\leq="3214 \let\le=\leq
-\mathchardef\geq="3215 \let\ge=\geq
-\mathchardef\succ="321F
-\mathchardef\prec="321E
-\mathchardef\approx="3219
-\mathchardef\succeq="3217
-\mathchardef\preceq="3216
-\mathchardef\supset="321B
-\mathchardef\subset="321A
-\mathchardef\supseteq="3213
-\mathchardef\subseteq="3212
-\mathchardef\in="3232
-\mathchardef\ni="3233 \let\owns=\ni
-\mathchardef\gg="321D
-\mathchardef\ll="321C
-\mathchardef\not="3236
-\mathchardef\leftrightarrow="3224
-\mathchardef\leftarrow="3220 \let\gets=\leftarrow
-\mathchardef\rightarrow="3221 \let\to=\rightarrow
-\mathchardef\mapstochar="3237 \def\mapsto{\mapstochar\rightarrow}
-\mathchardef\sim="3218
-\mathchardef\simeq="3227
-\mathchardef\perp="323F
-\mathchardef\equiv="3211
-\mathchardef\asymp="3210
-\mathchardef\smile="315E
-\mathchardef\frown="315F
-\mathchardef\leftharpoonup="3128
-\mathchardef\leftharpoondown="3129
-\mathchardef\rightharpoonup="312A
-\mathchardef\rightharpoondown="312B
-
-\def\joinrel{\mathrel{\mkern-3mu}}
-\def\relbar{\mathrel{\smash-}} % \smash, because - has the same height as +
-\def\Relbar{\mathrel=}
-\mathchardef\lhook="312C \def\hookrightarrow{\lhook\joinrel\rightarrow}
-\mathchardef\rhook="312D \def\hookleftarrow{\leftarrow\joinrel\rhook}
-\def\bowtie{\mathrel\triangleright\joinrel\mathrel\triangleleft}
-\def\models{\mathrel|\joinrel=}
-\def\Longrightarrow{\Relbar\joinrel\Rightarrow}
-\def\longrightarrow{\relbar\joinrel\rightarrow}
-\def\longleftarrow{\leftarrow\joinrel\relbar}
-\def\Longleftarrow{\Leftarrow\joinrel\Relbar}
-\def\longmapsto{\mapstochar\longrightarrow}
-\def\longleftrightarrow{\leftarrow\joinrel\rightarrow}
-\def\Longleftrightarrow{\Leftarrow\joinrel\Rightarrow}
-\def\iff{\;\Longleftrightarrow\;}
-
-\mathchardef\ldotp="613A % ldot as a punctuation mark
-\mathchardef\cdotp="6201 % cdot as a punctuation mark
-\mathchardef\colon="603A % colon as a punctuation mark
-\def\ldots{\mathinner{\ldotp\ldotp\ldotp}}
-\def\cdots{\mathinner{\cdotp\cdotp\cdotp}}
-\def\vdots{\vbox{\baselineskip4\p@ \lineskiplimit\z@
- \kern6\p@\hbox{.}\hbox{.}\hbox{.}}}
-\def\ddots{\mathinner{\mkern1mu\raise7\p@\vbox{\kern7\p@\hbox{.}}\mkern2mu
- \raise4\p@\hbox{.}\mkern2mu\raise\p@\hbox{.}\mkern1mu}}
-
-\def\acute{\mathaccent"7013 }
-\def\grave{\mathaccent"7012 }
-\def\ddot{\mathaccent"707F }
-\def\tilde{\mathaccent"707E }
-\def\bar{\mathaccent"7016 }
-\def\breve{\mathaccent"7015 }
-\def\check{\mathaccent"7014 }
-\def\hat{\mathaccent"705E }
-\def\vec{\mathaccent"017E }
-\def\dot{\mathaccent"705F }
-\def\widetilde{\mathaccent"0365 }
-\def\widehat{\mathaccent"0362 }
-\def\overrightarrow#1{\vbox{\ialign{##\crcr
- \rightarrowfill\crcr\noalign{\kern-\p@\nointerlineskip}
- $\hfil\displaystyle{#1}\hfil$\crcr}}}
-\def\overleftarrow#1{\vbox{\ialign{##\crcr
- \leftarrowfill\crcr\noalign{\kern-\p@\nointerlineskip}
- $\hfil\displaystyle{#1}\hfil$\crcr}}}
-\def\overbrace#1{\mathop{\vbox{\ialign{##\crcr\noalign{\kern3\p@}
- \downbracefill\crcr\noalign{\kern3\p@\nointerlineskip}
- $\hfil\displaystyle{#1}\hfil$\crcr}}}\limits}
-\def\underbrace#1{\mathop{\vtop{\ialign{##\crcr
- $\hfil\displaystyle{#1}\hfil$\crcr\noalign{\kern3\p@\nointerlineskip}
- \upbracefill\crcr\noalign{\kern3\p@}}}}\limits}
-\def\skew#1#2#3{{#2{#3\mkern#1mu}\mkern-#1mu}{}}
-
-\def\lmoustache{\delimiter"4000340 } % top from (, bottom from )
-\def\rmoustache{\delimiter"5000341 } % top from ), bottom from (
-\def\lgroup{\delimiter"400033A } % extensible ( with sharper tips
-\def\rgroup{\delimiter"500033B } % extensible ) with sharper tips
-\def\arrowvert{\delimiter"33C000 } % arrow without arrowheads
-\def\Arrowvert{\delimiter"33D000 } % double arrow without arrowheads
-\def\bracevert{\delimiter"33E000 } % the vertical bar that extends braces
-\def\Vert{\delimiter"26B30D } \let\|=\Vert
-\def\vert{\delimiter"26A30C }
-\def\uparrow{\delimiter"3222378 }
-\def\downarrow{\delimiter"3223379 }
-\def\updownarrow{\delimiter"326C33F }
-\def\Uparrow{\delimiter"322A37E }
-\def\Downarrow{\delimiter"322B37F }
-\def\Updownarrow{\delimiter"326D377 }
-\def\backslash{\delimiter"26E30F } % for double coset G\backslash H
-\def\rangle{\delimiter"526930B }
-\def\langle{\delimiter"426830A }
-\def\rbrace{\delimiter"5267309 } \let\}=\rbrace
-\def\lbrace{\delimiter"4266308 } \let\{=\lbrace
-\def\rceil{\delimiter"5265307 }
-\def\lceil{\delimiter"4264306 }
-\def\rfloor{\delimiter"5263305 }
-\def\lfloor{\delimiter"4262304 }
-
-\def\bigl{\mathopen\big}
-\def\bigm{\mathrel\big}
-\def\bigr{\mathclose\big}
-\def\Bigl{\mathopen\Big}
-\def\Bigm{\mathrel\Big}
-\def\Bigr{\mathclose\Big}
-\def\biggl{\mathopen\bigg}
-\def\biggm{\mathrel\bigg}
-\def\biggr{\mathclose\bigg}
-\def\Biggl{\mathopen\Bigg}
-\def\Biggm{\mathrel\Bigg}
-\def\Biggr{\mathclose\Bigg}
-\def\big#1{{\hbox{$\left#1\vbox to8.5\p@{}\right.\n@space$}}}
-\def\Big#1{{\hbox{$\left#1\vbox to11.5\p@{}\right.\n@space$}}}
-\def\bigg#1{{\hbox{$\left#1\vbox to14.5\p@{}\right.\n@space$}}}
-\def\Bigg#1{{\hbox{$\left#1\vbox to17.5\p@{}\right.\n@space$}}}
-\def\n@space{\nulldelimiterspace\z@ \m@th}
-
-\def\choose{\atopwithdelims()}
-\def\brack{\atopwithdelims[]}
-\def\brace{\atopwithdelims\{\}}
-
-\def\sqrt{\radical"270370 }
-
-\def\mathpalette#1#2{\mathchoice{#1\displaystyle{#2}}%
- {#1\textstyle{#2}}{#1\scriptstyle{#2}}{#1\scriptscriptstyle{#2}}}
-\newbox\rootbox
-\def\root#1\of{\setbox\rootbox\hbox{$\m@th\scriptscriptstyle{#1}$}
- \mathpalette\r@@t}
-\def\r@@t#1#2{\setbox\z@\hbox{$\m@th#1\sqrt{#2}$}
- \dimen@\ht\z@ \advance\dimen@-\dp\z@
- \mkern5mu\raise.6\dimen@\copy\rootbox \mkern-10mu \box\z@}
-\newif\ifv@ \newif\ifh@
-\def\vphantom{\v@true\h@false\ph@nt}
-\def\hphantom{\v@false\h@true\ph@nt}
-\def\phantom{\v@true\h@true\ph@nt}
-\def\ph@nt{\ifmmode\def\next{\mathpalette\mathph@nt}%
- \else\let\next\makeph@nt\fi\next}
-\def\makeph@nt#1{\setbox\z@\hbox{#1}\finph@nt}
-\def\mathph@nt#1#2{\setbox\z@\hbox{$\m@th#1{#2}$}\finph@nt}
-\def\finph@nt{\setbox\tw@\null
- \ifv@ \ht\tw@\ht\z@ \dp\tw@\dp\z@\fi
- \ifh@ \wd\tw@\wd\z@\fi \box\tw@}
-\def\mathstrut{\vphantom(}
-\def\smash{\relax % \relax, in case this comes first in \halign
- \ifmmode\def\next{\mathpalette\mathsm@sh}\else\let\next\makesm@sh
- \fi\next}
-\def\makesm@sh#1{\setbox\z@\hbox{#1}\finsm@sh}
-\def\mathsm@sh#1#2{\setbox\z@\hbox{$\m@th#1{#2}$}\finsm@sh}
-\def\finsm@sh{\ht\z@\z@ \dp\z@\z@ \box\z@}
-
-\def\cong{\mathrel{\mathpalette\@vereq\sim}} % congruence sign
-\def\@vereq#1#2{\lower.5\p@\vbox{\baselineskip\z@skip\lineskip-.5\p@
- \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
-\def\notin{\mathrel{\mathpalette\c@ncel\in}}
-\def\c@ncel#1#2{\ooalign{$\hfil#1\mkern1mu/\hfil$\crcr$#1#2$}}
-\def\rightleftharpoons{\mathrel{\mathpalette\rlh@{}}}
-\def\rlh@#1{\vcenter{\hbox{\ooalign{\raise2pt
- \hbox{$#1\rightharpoonup$}\crcr
- $#1\leftharpoondown$}}}}
-\def\buildrel#1\over#2{\mathrel{\mathop{\kern\z@#2}\limits^{#1}}}
-\def\doteq{\buildrel\textstyle.\over=}
-
-\def\log{\mathop{\rm log}\nolimits}
-\def\lg{\mathop{\rm lg}\nolimits}
-\def\ln{\mathop{\rm ln}\nolimits}
-\def\lim{\mathop{\rm lim}}
-\def\limsup{\mathop{\rm lim\,sup}}
-\def\liminf{\mathop{\rm lim\,inf}}
-\def\sin{\mathop{\rm sin}\nolimits}
-\def\arcsin{\mathop{\rm arcsin}\nolimits}
-\def\sinh{\mathop{\rm sinh}\nolimits}
-\def\cos{\mathop{\rm cos}\nolimits}
-\def\arccos{\mathop{\rm arccos}\nolimits}
-\def\cosh{\mathop{\rm cosh}\nolimits}
-\def\tan{\mathop{\rm tan}\nolimits}
-\def\arctan{\mathop{\rm arctan}\nolimits}
-\def\tanh{\mathop{\rm tanh}\nolimits}
-\def\cot{\mathop{\rm cot}\nolimits}
-\def\coth{\mathop{\rm coth}\nolimits}
-\def\sec{\mathop{\rm sec}\nolimits}
-\def\csc{\mathop{\rm csc}\nolimits}
-\def\max{\mathop{\rm max}}
-\def\min{\mathop{\rm min}}
-\def\sup{\mathop{\rm sup}}
-\def\inf{\mathop{\rm inf}}
-\def\arg{\mathop{\rm arg}\nolimits}
-\def\ker{\mathop{\rm ker}\nolimits}
-\def\dim{\mathop{\rm dim}\nolimits}
-\def\hom{\mathop{\rm hom}\nolimits}
-\def\det{\mathop{\rm det}}
-\def\exp{\mathop{\rm exp}\nolimits}
-\def\Pr{\mathop{\rm Pr}}
-\def\gcd{\mathop{\rm gcd}}
-\def\deg{\mathop{\rm deg}\nolimits}
-
-\def\bmod{\mskip-\medmuskip\mkern5mu
- \mathbin{\rm mod}\penalty900\mkern5mu\mskip-\medmuskip}
-\def\pmod#1{\allowbreak\mkern18mu({\rm mod}\,\,#1)}
-
-\def\cases#1{\left\{\,\vcenter{\normalbaselines\m@th
- \ialign{$##\hfil$&\quad##\hfil\crcr#1\crcr}}\right.}
-\def\matrix#1{\null\,\vcenter{\normalbaselines\m@th
- \ialign{\hfil$##$\hfil&&\quad\hfil$##$\hfil\crcr
- \mathstrut\crcr\noalign{\kern-\baselineskip}
- #1\crcr\mathstrut\crcr\noalign{\kern-\baselineskip}}}\,}
-\def\pmatrix#1{\left(\matrix{#1}\right)}
-\newdimen\p@renwd
-\setbox0=\hbox{\tenex B} \p@renwd=\wd0 % width of the big left (
-\def\bordermatrix#1{\begingroup \m@th
- \setbox\z@\vbox{\def\cr{\crcr\noalign{\kern2\p@\global\let\cr\endline}}%
- \ialign{$##$\hfil\kern2\p@\kern\p@renwd&\thinspace\hfil$##$\hfil
- &&\quad\hfil$##$\hfil\crcr
- \omit\strut\hfil\crcr\noalign{\kern-\baselineskip}%
- #1\crcr\omit\strut\cr}}%
- \setbox\tw@\vbox{\unvcopy\z@\global\setbox\@ne\lastbox}%
- \setbox\tw@\hbox{\unhbox\@ne\unskip\global\setbox\@ne\lastbox}%
- \setbox\tw@\hbox{$\kern\wd\@ne\kern-\p@renwd\left(\kern-\wd\@ne
- \global\setbox\@ne\vbox{\box\@ne\kern2\p@}%
- \vcenter{\kern-\ht\@ne\unvbox\z@\kern-\baselineskip}\,\right)$}%
- \null\;\vbox{\kern\ht\@ne\box\tw@}\endgroup}
-
-\def\openup{\afterassignment\@penup\dimen@=}
-\def\@penup{\advance\lineskip\dimen@
- \advance\baselineskip\dimen@
- \advance\lineskiplimit\dimen@}
-\def\eqalign#1{\null\,\vcenter{\openup\jot\m@th
- \ialign{\strut\hfil$\displaystyle{##}$&$\displaystyle{{}##}$\hfil
- \crcr#1\crcr}}\,}
-\newif\ifdt@p
-\def\displ@y{\global\dt@ptrue\openup\jot\m@th
- \everycr{\noalign{\ifdt@p \global\dt@pfalse
- \vskip-\lineskiplimit \vskip\normallineskiplimit
- \else \penalty\interdisplaylinepenalty \fi}}}
-\def\@lign{\tabskip\z@skip\everycr{}} % restore inside \displ@y
-\def\displaylines#1{\displ@y
- \halign{\hbox to\displaywidth{$\@lign\hfil\displaystyle##\hfil$}\crcr
- #1\crcr}}
-\def\eqalignno#1{\displ@y \tabskip\centering
- \halign to\displaywidth{\hfil$\@lign\displaystyle{##}$\tabskip\z@skip
- &$\@lign\displaystyle{{}##}$\hfil\tabskip\centering
- &\llap{$\@lign##$}\tabskip\z@skip\crcr
- #1\crcr}}
-\def\leqalignno#1{\displ@y \tabskip\centering
- \halign to\displaywidth{\hfil$\@lign\displaystyle{##}$\tabskip\z@skip
- &$\@lign\displaystyle{{}##}$\hfil\tabskip\centering
- &\kern-\displaywidth\rlap{$\@lign##$}\tabskip\displaywidth\crcr
- #1\crcr}}
-
-% Definitions related to output
-
-\message{output routines,}
-
-\countdef\pageno=0 \pageno=1 % first page is number 1
-\newtoks\headline \headline={\hfil} % headline is normally blank
-\newtoks\footline \footline={\hss\tenrm\folio\hss}
- % footline is normally a centered page number in font \tenrm
-\newif\ifr@ggedbottom
-\def\raggedbottom{\topskip 10\p@ plus60\p@ \r@ggedbottomtrue}
-\def\normalbottom{\topskip 10\p@ \r@ggedbottomfalse} % undoes \raggedbottom
-\def\folio{\ifnum\pageno<\z@ \romannumeral-\pageno \else\number\pageno \fi}
-\def\nopagenumbers{\footline{\hfil}} % blank out the footline
-\def\advancepageno{\ifnum\pageno<\z@ \global\advance\pageno\m@ne
- \else\global\advance\pageno\@ne \fi} % increase |pageno|
-
-\newinsert\footins
-\def\footnote#1{\let\@sf\empty % parameter #2 (the text) is read later
- \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi
- #1\@sf\vfootnote{#1}}
-\def\vfootnote#1{\insert\footins\bgroup
- \interlinepenalty\interfootnotelinepenalty
- \splittopskip\ht\strutbox % top baseline for broken footnotes
- \splitmaxdepth\dp\strutbox \floatingpenalty\@MM
- \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip
- \textindent{#1}\footstrut\futurelet\next\fo@t}
-\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
- \else\let\next\f@t\fi \next}
-\def\f@@t{\bgroup\aftergroup\@foot\let\next}
-\def\f@t#1{#1\@foot}
-\def\@foot{\strut\egroup}
-\def\footstrut{\vbox to\splittopskip{}}
-\skip\footins=\bigskipamount % space added when footnote is present
-\count\footins=1000 % footnote magnification factor (1 to 1)
-\dimen\footins=8in % maximum footnotes per page
-
-\newinsert\topins
-\newif\ifp@ge \newif\if@mid
-\def\topinsert{\@midfalse\p@gefalse\@ins}
-\def\midinsert{\@midtrue\@ins}
-\def\pageinsert{\@midfalse\p@getrue\@ins}
-\skip\topins=\z@skip % no space added when a topinsert is present
-\count\topins=1000 % magnification factor (1 to 1)
-\dimen\topins=\maxdimen % no limit per page
-\def\@ins{\par\begingroup\setbox\z@\vbox\bgroup} % start a \vbox
-\def\endinsert{\egroup % finish the \vbox
- \if@mid \dimen@\ht\z@ \advance\dimen@\dp\z@ \advance\dimen@12\p@
- \advance\dimen@\pagetotal \advance\dimen@-\pageshrink
- \ifdim\dimen@>\pagegoal\@midfalse\p@gefalse\fi\fi
- \if@mid \bigskip\box\z@\bigbreak
- \else\insert\topins{\penalty100 % floating insertion
- \splittopskip\z@skip
- \splitmaxdepth\maxdimen \floatingpenalty\z@
- \ifp@ge \dimen@\dp\z@
- \vbox to\vsize{\unvbox\z@\kern-\dimen@}% depth is zero
- \else \box\z@\nobreak\bigskip\fi}\fi\endgroup}
-
-\output{\plainoutput}
-\def\plainoutput{\shipout\vbox{\makeheadline\pagebody\makefootline}%
- \advancepageno
- \ifnum\outputpenalty>-\@MM \else\dosupereject\fi}
-\def\pagebody{\vbox to\vsize{\boxmaxdepth\maxdepth \pagecontents}}
-\def\makeheadline{\vbox to\z@{\vskip-22.5\p@
- \line{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip}
-\def\makefootline{\baselineskip24\p@\line{\the\footline}}
-\def\dosupereject{\ifnum\insertpenalties>\z@ % something is being held over
- \line{}\kern-\topskip\nobreak\vfill\supereject\fi}
-
-\def\pagecontents{\ifvoid\topins\else\unvbox\topins\fi
- \dimen@=\dp\@cclv \unvbox\@cclv % open up \box255
- \ifvoid\footins\else % footnote info is present
- \vskip\skip\footins
- \footnoterule
- \unvbox\footins\fi
- \ifr@ggedbottom \kern-\dimen@ \vfil \fi}
-\def\footnoterule{\kern-3\p@
- \hrule width 2truein \kern 2.6\p@} % the \hrule is .4pt high
-
-% Hyphenation, miscellaneous macros, and initial values for standard layout
-\message{hyphenation}
-
-\lefthyphenmin=2 \righthyphenmin=3 % disallow x- or -xx breaks
-\input hyphen
-
-\def\magnification{\afterassignment\m@g\count@}
-\def\m@g{\mag\count@
- \hsize6.5truein\vsize8.9truein\dimen\footins8truein}
-
-\def\tracingall{\tracingonline\@ne\tracingcommands\tw@\tracingstats\tw@
- \tracingpages\@ne\tracingoutput\@ne\tracinglostchars\@ne
- \tracingmacros\tw@\tracingparagraphs\@ne\tracingrestores\@ne
- \showboxbreadth\maxdimen\showboxdepth\maxdimen\errorstopmode}
-
-\def\showhyphens#1{\setbox0\vbox{\parfillskip\z@skip\hsize\maxdimen\tenrm
- \pretolerance\m@ne\tolerance\m@ne\hbadness0\showboxdepth0\ #1}}
-
-\normalbaselines\rm % select roman font
-\nonfrenchspacing % punctuation affects the spacing
-\catcode`@=12 % at signs are no longer letters
-
-\def\fmtname{plain}\def\fmtversion{3.0PS} % identifies the current format
diff --git a/Build/source/texk/dvipsk/contrib/pspic/pspic.readme b/Build/source/texk/dvipsk/contrib/pspic/pspic.readme
deleted file mode 100644
index e26475abb4d..00000000000
--- a/Build/source/texk/dvipsk/contrib/pspic/pspic.readme
+++ /dev/null
@@ -1,40 +0,0 @@
-Hello Thomas...
-
-For some time I've been working on a LaTeX-style, which replaces the
-graphic-producing picture objects of LaTeX's picture environment
-(line, vector, circle, circle* etc.)
- This new implementation of the picture environment is based on your
-`dvips' TeX-driver for PostScript printers. I thought you might
-distribute it with your dvips, as it only works with this specific
-driver (it uses your \special variants ! " and ps: )
- At the ending of this the entire style is enclosed. A few things
-should be said about compability:
-
-linethickness when changing the linehickness this affects not only
- the horizontal and vertical lines, but also slanted
- ones.
-
-line The restrictions of wich angles you can make lines are
- eliminated.
-
-vector As you may now make vectors at any linethickness I've
- made a new definition of the vectorhead, so that the
- size of vector heads are proportional to the
- linethickness.
-
-circle(*) In default LaTeX circles can be only of certain sizes
- (as they are predefined as graphics). with pspic you
- may make circles at any size.
-
-I see all thiese things as improvements in comparison with the old
-style, but you must off course be aware of them while using this style
-(especially with old documents).
-
-You may specify a grayscale using the \shade operator, wich takes one
-argument, a number from 0-100 setting the percentage of black. The
-\scale operator affects all the graphic producing objects.
-
-I've tested this for some time, and there doesn't seem to be any bad
-bugs. I will apreciate any response.
-
-/Kresten
diff --git a/Build/source/texk/dvipsk/contrib/pspic/pspic.sty b/Build/source/texk/dvipsk/contrib/pspic/pspic.sty
deleted file mode 100644
index 54b1f925a4e..00000000000
--- a/Build/source/texk/dvipsk/contrib/pspic/pspic.sty
+++ /dev/null
@@ -1,168 +0,0 @@
-\typeout{Document Style `PostScript PICTURE' <jan 22 1991>.}
-%----------------------------------------------------------------------
-%
-% PostScript PICTURE
-%
-% For use with DVIPS (by Tomas Rokicki)
-%
-%
-% By: Kresten Krab Thorup, University of Aalborg, Denmark
-% <krab@iesd.auc.dk>
-% January 1991
-%
-%----------------------------------------------------------------------
-%
-% ==================================
-% psbox
-% ==================================
-%
-\def\psbox#1{%
- \vbox{%
- \hbox{%
- \special{" \number\unitlength.0 65781.75 div dup scale
- picdict begin
- /lwidth \number\@wholewidth.0 \number\unitlength.0 div def
- lwidth setlinewidth
- \moveto(0,0) #1 end}}}}
-%
-% ==================================
-% Commands for use in \psbox
-% ==================================
-%
-\def\moveto(#1,#2){ /x #1 def /y #2 def x y moveto}
-\def\rline(#1,#2){ newpath
- x y moveto
- #1 #2 rlineto
- linedash 0 setdash stroke
- /x x #1 add def
- /y y #2 add def}
-%
-% ==================================
-% Commands for use in LaTeX
-% ==================================
-%
-%----------------------------------------------------------------------
-% \line command of LaTeX
-%----------------------------------------------------------------------
-\def\line(#1,#2)#3{\psbox{%
- \@ccolour setgray
- /linedash \linedash def
- #1 0 eq
- {/fac{#2 abs div #3 mul}def}
- {/fac{#3 #1 abs div mul}def}
- ifelse
- \rline( #1 fac , #2 fac ) }}
-%----------------------------------------------------------------------
-% \vector command of LaTeX
-%----------------------------------------------------------------------
-\def\vector(#1,#2)#3{\psbox{%
- \@ccolour setgray
- /linedash \linedash def
- #1 0 eq
- {/fac{#2 abs div #3 mul}def}
- {/fac{#3 #1 abs div mul}def}
- ifelse
- newpath
- 0 0 #1 fac #2 fac lwidth lwidth \number\headwidth.0 mul
- lwidth \number\headlength.0 mul arrow fill}}
-%----------------------------------------------------------------------
-% \circle and \circle* commands of LaTeX
-%----------------------------------------------------------------------
-\def\circle{\@ifstar{\@dot}{\@circle}}
-\def\@circle#1{\psbox{ newpath
- 0 0 #1 2 div 0 360 arc
- [] 0 setdash
- \@ccolour setgray stroke}}
-\def\@dot#1{\psbox{newpath
- 0 0 #1 2 div 0 360 arc
- \@ccolour setgray fill}}
-%----------------------------------------------------------------------
-% \bezier(x1,y1)(x2,y2)(x3,y3)
-%----------------------------------------------------------------------
-\def\bezier(#1,#2)(#3,#4)(#5,#6){%
-\psbox{#1 #2 #3 #4 #5 #6 curveto \@ccolour setgray \linedash 0 setdash stroke}%
-}%
-%----------------------------------------------------------------------
-% \oval command of LaTeX
-%----------------------------------------------------------------------
-\def\oval(#1,#2){\@ifnextchar[{\@oval(#1,#2)}{\@oval(#1,#2)[full]}}
-\def\@oval(#1,#2)[#3]{%
- \begingroup
- \@ovxx = #1\unitlength
- \@ovyy =#2\unitlength
- \@tempdimb \ifdim \@ovyy >\@ovxx =\@ovxx\else =\@ovyy \fi
- \ifnum\@tempdimb>\maxovaldiam \@tempdimb=\maxovaldiam \fi
- \psbox{/rad \number\@tempdimb.0 \number\unitlength.0 div 2 div def
- /dx #1 2 div rad sub def
- /dy #2 2 div rad sub def
- \@ccolour setgray
- newpath #3 [] 0 setdash stroke }%
- \endgroup}
-%----------------------------------------------------------------------
-% \ctext{...} Text to be written with the current grayscale
-%----------------------------------------------------------------------
-\def\ctext#1{\special{ps:gsave \@ccolour
- setgray}{}#1\special{ps:grestore}}
-%----------------------------------------------------------------------
-% Customization
-%----------------------------------------------------------------------
-\def\vectorhead#1#2{\headlength=#1 \headwidth=#2 }
-\def\dashpattern[#1]{\xdef\linedash{[#1] }}
-\def\colour#1{\def\@ccolour{\@nameuse{CC#1}}}
-\def\shade#1{\def\@ccolour{ 1 #1 100 div sub }}
-%
-% ==================================
-% Initialization
-% ==================================
-%
-\newdimen\maxovaldiam
-\maxovaldiam=14mm % Max diameter of LaTeX circle
-%
-\newcount\headlength % length of arrowhead in terms of
- % linewidth
-\newcount\headwidth % width of arrowhead in terms of linewidth
-\vectorhead{9}{5} % default vectorhead dimentions
-%
-\dashpattern[] % set default type of linedashes
-%
-\def\CCwhite{1 }
-\def\CCblack{0 }
-\def\CCgray{.5 }
-\def\CClightgray{.75 }
-\def\CCdarkgray{.25 }
-\colour{black}
-%----------------------------------------------------------------------
-% The P*stScr*pt dictionary
-%----------------------------------------------------------------------
-\special{!/picdict 200 dict def picdict begin
-/tr { 0 0 moveto newpath dx dy rad 0 90 arc} def
-/tl { 0 0 moveto newpath -1 dx mul dy rad 90 180 arc} def
-/bl { 0 0 moveto newpath -1 dx mul -1 dy mul rad 180 270 arc} def
-/br { 0 0 moveto newpath dx -1 dy mul rad 270 360 arc} def
-/b { bl stroke newpath br -1 dx mul -1 dy mul rad sub moveto dx 2 mul
- 0 rlineto} def
-/t { tl stroke newpath tr -1 dx mul dy rad add moveto dx 2 mul 0
- rlineto } def
-/l { bl stroke newpath tl -1 dx mul rad sub -1 dy mul moveto 0 dy 2
- mul rlineto } def
-/r { tr stroke newpath br dx rad add -1 dy mul moveto 0 dy 2 mul
- rlineto } def
-/full { t stroke newpath r stroke newpath b stroke newpath l } def
-/mtrx matrix def
-%
-/arrow {
-/headlength exch def /halfheadthickness exch 2 div def
-/halfthickness exch 2 div def /tipy exch def /tipx exch def /taily
-exch def /tailx exch def /dx tipx tailx sub def /dy tipy taily sub def
-/arrowlength dx dx mul dy dy mul add sqrt def /angle dy dx atan def
-/base arrowlength headlength sub def /savematrix mtrx currentmatrix
-def tailx taily translate angle rotate gsave newpath 0 0 moveto base 0
-lineto linedash 0 setdash stroke grestore base halfheadthickness neg
-moveto arrowlength 0 lineto base halfheadthickness lineto base
-halfthickness lineto closepath savematrix setmatrix
-} def
-%%
-end}
-%----------------------------------------------------------------------
-% end of pspic.sty
-%----------------------------------------------------------------------
diff --git a/Build/source/texk/dvipsk/tex/blackdvi.tex b/Build/source/texk/dvipsk/tex/blackdvi.tex
index 85e7fd38a28..d4e4e60b2f8 100644
--- a/Build/source/texk/dvipsk/tex/blackdvi.tex
+++ b/Build/source/texk/dvipsk/tex/blackdvi.tex
@@ -3,7 +3,7 @@
% This file turns all color commands defined by COLORDVI.STY or COLORDVI.TEX
% into no-ops and so can be used to get B/W printing without having to
% ferret out all the color macros. Modified by Tomas Rokicki to be a
-% bit smaller.
+% bit smaller. Same license as dvips.
%
% 20 Aug. 1992: Revised by J. Hafner, by adding \globalColor as a no-op.
%
diff --git a/Build/source/texk/dvipsk/tex/colordvi.tex b/Build/source/texk/dvipsk/tex/colordvi.tex
index df812f8df60..541a9ab8a55 100644
--- a/Build/source/texk/dvipsk/tex/colordvi.tex
+++ b/Build/source/texk/dvipsk/tex/colordvi.tex
@@ -1,7 +1,7 @@
% This is COLORDVI.TEX and COLORDVI.STY in text format, as of
% March 5, 1992, written by Jim Hafner, HAFNER@ALMADEN, or
% hafner@almaden.ibm.com. Modified by Tomas Rokicki to be a
-% bit smaller and easier to add to.
+% bit smaller and easier to add to. Same license as dvips.
%
% 20 Aug. 1992: Revised by J. Hafner, by adding \globalColor.
%