[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[vieth@thphy.uni-duesseldorf.de: Times Roman/Symbol version of MC]

Date: Mon, 6 Oct 1997 16:14:40 +0200
To: mclasen@sun2
Subject: Times Roman/Symbol version of MC
From: Ulrik Vieth <vieth@thphy.uni-duesseldorf.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit

Hallo Matthias,

ich habe heute schon mehrfach versucht, Postings an math-font-discuss
abzusetzen, aber diese werden nicht angenommen, da die Verifizierung
meiner From-Adresse offenbar nicht klappt.  Koenntest Du vielleicht
die folgende Mail weiterleiten?


  From vieth Mon Oct  6 12:41:26 +0200 1997
  To: math-font-discuss@cogs.susx.ac.uk
  Subject: Times Roman/Symbol version of MC
  From: Ulrik Vieth <vieth@thphy.uni-duesseldorf.de>


Given an extended weekend here in Germany due to a public holiday on
Friday, I've spend some more time on hacking math fonts.

One of the things I've tried was to implement a math core font using
Times Roman and Adobe Symbol in order to see what's missing.  With the
exception of various new characters being unavailable, I found that
most of the math core font table can indeed be filled this way.

The only remaining symbols taken from Metafont fonts are the following:

* from cmsy: lfloor/rfloor, lceil/rceil, prime
* from msam: backprime
* from msbm: beth, gimel, daleth
* from yma:  lgroup/rgroup, lmoustache/rmoustache
             (and perhaps also: barforh, slashforh)

This leads to the following question: What was the original reason 
to put prime and backprime into the MC font rather than MSP?  
If it was design similarity, I would like to question this decision
since I no longer see the justification for this.

So much for this topic.

Cheers, Ulrik.

P.S.  Remaining exercise: try to implement a Times/Symbol/ZapfChancery
version of the MSP encoding and see what's missing.  I suppose that
things might get much more problematic since you'll probably end up
mixing geometric math symbols from Times/Symbol and CMSY/MSAM/MSBM,
which may not turn out particularly well.


diff -cr mathfont/tex/ORIG/MCmtx.tex mathfont/tex/MCmtx.tex
*** mathfont/tex/ORIG/MCmtx.tex Mon Sep 29 19:43:41 1997 ---
*** mathfont/tex/MCmtx.tex Fri Oct 3 17:05:52 1997 ***************
*** 1,23 **** 
! \begin{filecontents}{MCextra.mtx}
  \relax
  \metrics
! \setglyph{hbar}
!   \push
!     \movert{100}
!     \glyph{barforh}{1000}
!   \pop
!   \glyph{h}{1000}
  \endsetglyph
! \setglyph{hslash}
    \push
!     \movert{100}
!     \glyph{slashforh}{1000}
    \pop
!   \glyph{h}{1000}
  \endsetglyph
  \missingglyph{beta1upright}
  \missingglyph{kappa1upright}
  \missingglyph{Chi1upright}
  \missingglyph{beta1}
  \missingglyph{Chi1}
  \missingglyph{Qoppaupright}
--- 1,68 ----
! \begin{filecontents}{MCtextra.mtx}
  \relax
  \metrics
! \setglyph{bardbl}
!   \glyph{bar}{1000}
!   \glyph{bar}{1000}
  \endsetglyph
! \setglyph{bartrpl}
!   \glyph{bar}{1000}
!   \glyph{bar}{1000}
!   \glyph{bar}{1000}
! \endsetglyph
! \unsetglyph{between}
! \setglyph{between}
!   \glyph{parenleft}{1000}
!   \movert{-320}
!   \glyph{parenright}{1000} 
! \endsetglyph
! \unsetglyph{emptysetstress}
! \setglyph{emptysetstress}
    \push
!     \movert{120}
!     \glyph{slash}{1000}
    \pop
!   \glyph{zeroupright}{1000}
  \endsetglyph
+ \unsetglyph{eth}
+ \replaceglyph{eth}{ethupright}
+ \replaceglyph{periodcentered}{dotmath}
+ \replaceglyph{backepsilon}{suchthat}
+ \controlglyph{GREEK}
+ \replaceglyph{omikron}{o}
+ \replaceglyph{Omikron}{O}
+ \replaceglyph{omikronupright}{oupright}
+ \replaceglyph{Omikronupright}{Oupright}
+ \missingglyph{beta1}
  \missingglyph{beta1upright}
+ \missingglyph{kappa1}
  \missingglyph{kappa1upright}
+ \replaceglyph{epsilon1}{epsilon}
+ \replaceglyph{epsilon1upright}{epsilonupright}
+ \replaceglyph{pi1}{omega}
+ \replaceglyph{pi1upright}{omegaupright}
+ \replaceglyph{rho1}{rho}
+ \replaceglyph{rho1upright}{rhoupright}
+ \missingglyph{Chi1}
  \missingglyph{Chi1upright}
+ \missingglyph{coproduct}
+ \missingglyph{dnasrepma}
+ \missingglyph{mho}
+ \missingglyph{lscript}
+ \missingglyph{hbar}
+ \missingglyph{hslash}
+ \missingglyph{Vbar}
+ \missingglyph{Vbarslanted}
+ \missingglyph{lambdabar}
+ \missingglyph{lambdabarupright}
+ \missingglyph{digammaupright}
+ \endmetrics
+ \end{filecontents}
+ \begin{filecontents}{MCextra.mtx}
+ \relax
+ \metrics
+ \missingglyph{beta1upright}
+ \missingglyph{kappa1upright}
  \missingglyph{beta1}
  \missingglyph{Chi1}
  \missingglyph{Qoppaupright}
***************
*** 35,68 ****
  \setglyph{Vbar}
    \push
      \moveup{550}
!     \glyphrule{700}{10}
    \pop
    \glyph{Vupright}{1000}
  \endsetglyph
  \setglyph{Vbarslanted}
    \push
      \moveup{550}
!     \movert{150}
!     \glyphrule{700}{10}
    \pop
    \glyph{Vitalic}{1000}
  \endsetglyph
- \setglyph{lambdabar}
-   \push
-     \moveup{550}
-     \movert{-30}
-     \glyphrule{500}{10}
-   \pop
-   \glyph{lambda}{1000}
- \endsetglyph
- \setglyph{lambdabarupright}
-   \push
-     \moveup{550}
-     \movert{-50}
-     \glyphrule{500}{10}
-   \pop
-   \glyph{lambdaupright}{1000}
- \endsetglyph
  \controlglyph{GREEK}
  \replaceglyph{Alphaupright}{Aupright}
  \replaceglyph{Betaupright}{Bupright}
--- 80,97 ----
  \setglyph{Vbar}
    \push
      \moveup{550}
!     \glyphrule{700}{20}
    \pop
    \glyph{Vupright}{1000}
  \endsetglyph
  \setglyph{Vbarslanted}
    \push
      \moveup{550}
!     \movert{50}
!     \glyphrule{700}{20}
    \pop
    \glyph{Vitalic}{1000}
  \endsetglyph
  \controlglyph{GREEK}
  \replaceglyph{Alphaupright}{Aupright}
  \replaceglyph{Betaupright}{Bupright}
***************
*** 97,102 ****
--- 126,189 ----
  \replaceglyph{omikron}{oitalic}
  \endmetrics
  \end{filecontents}
+ \begin{filecontents}{MCmextra.mtx}
+ \relax
+ \metrics
+ \unsetglyph{eth}
+ \setglyph{eth}
+   \push
+     \moveup{50}
+     \movert{100}
+     \glyph{barforh}{1000}
+   \pop
+   \glyph{partialdiffupright}{1000}
+ \endsetglyph
+ \setglyph{hbar}
+   \push
+     \movert{100}
+     \glyph{slashforh}{1000}
+   \pop
+   \glyph{h}{1000}
+ \endsetglyph
+ \setglyph{hslash}
+   \push
+     \movert{100}
+     \glyph{barforh}{1000}
+   \pop
+   \glyph{h}{1000}
+ \endsetglyph
+ \setglyph{lambdabar}
+   \push
+     \movert{150}
+     \glyph{slashforh}{1000}
+   \pop
+   \glyph{lambda}{1000}
+ \endsetglyph
+ \setglyph{lambdabarupright}
+   \push
+     \movert{0}
+     \glyph{slashforh}{1000}
+   \pop
+   \glyph{lambdaupright}{1000}
+ \endsetglyph
+ \replaceglyph{Aitalic}{A}
+ \replaceglyph{Bitalic}{B}
+ \replaceglyph{Eitalic}{E}
+ \replaceglyph{Hitalic}{H}
+ \replaceglyph{Iitalic}{I}
+ \replaceglyph{Kitalic}{K}
+ \replaceglyph{Mitalic}{M}
+ \replaceglyph{Nitalic}{N}
+ \replaceglyph{Oitalic}{O}
+ \replaceglyph{Xitalic}{X}
+ \replaceglyph{Pitalic}{P}
+ \replaceglyph{Titalic}{T}
+ \replaceglyph{Vitalic}{V}
+ \replaceglyph{Yitalic}{Y}
+ \replaceglyph{Zitalic}{Z}
+ \replaceglyph{oitalic}{o}
+ \endmetrics
+ \end{filecontents}
  \begin{filecontents}{MCbextra.mtx}
  \relax
  \metrics
***************
*** 108,127 ****
  \begin{filecontents}{MCeextra.mtx}
  \relax
  \metrics
  \setglyph{hbar}
    \push
      \movert{80}
!     \glyph{barforh}{1000}
    \pop
    \glyph{h}{1000}
  \endsetglyph
  \setglyph{hslash}
    \push
      \movert{80}
!     \glyph{slashforh}{1000}
    \pop
    \glyph{h}{1000}
  \endsetglyph
  \replaceglyph{Aupright}{A}
  \replaceglyph{Bupright}{B}
  \replaceglyph{Eupright}{E}
--- 195,246 ----
  \begin{filecontents}{MCeextra.mtx}
  \relax
  \metrics
+ \unsetglyph{between}
+ \setglyph{between}
+   \glyph{parenleft}{1000}
+   \movert{-300}
+   \glyph{parenright}{1000} 
+ \endsetglyph
+ \unsetglyph{emptysetstress}
+ \setglyph{emptysetstress}
+   \push
+     \moveup{80}
+     \glyph{slash}{1000}
+   \pop
+   \glyph{zeroupright}{1000}
+ \endsetglyph
+ \unsetglyph{eth}
+ \setglyph{eth}
+   \push
+     \moveup{40}
+     \movert{160}
+     \glyph{barforh}{1000}
+   \pop
+   \glyph{partialdiffupright}{1000}
+ \endsetglyph
  \setglyph{hbar}
    \push
      \movert{80}
!     \glyph{slashforh}{1000}
    \pop
    \glyph{h}{1000}
  \endsetglyph
  \setglyph{hslash}
    \push
      \movert{80}
!     \glyph{barforh}{1000}
    \pop
    \glyph{h}{1000}
  \endsetglyph
+ \missingglyph{lambdabar}
+ \setglyph{lambdabarupright}
+   \push
+     \movert{120}
+     \glyph{slashforh}{1000}
+   \pop
+   \glyph{lambdaupright}{1000}
+ \endsetglyph
+ \missingglyph{Vbarslanted}
  \replaceglyph{Aupright}{A}
  \replaceglyph{Bupright}{B}
  \replaceglyph{Eupright}{E}
***************
*** 153,159 ****
  \missingglyph{Titalic}
  \missingglyph{Zitalic}
  \missingglyph{oitalic}
- \missingglyph{Vupright}
  \missingglyph{Vitalic}
  \missingglyph{Alpha}
  \missingglyph{Beta}
--- 272,277 ----
***************
*** 231,236 ****
--- 349,356 ----
  \endsetglyph
  \missingglyph{kappa1}
  \missingglyph{digamma}
+ \missingglyph{rho1upright}
+ \missingglyph{sigma1upright}
  \endmetrics
  \end{filecontents}
  \begin{filecontents}{MCkern.mtx}
diff -cr mathfont/tex/ORIG/extramtx.tex mathfont/tex/extramtx.tex
*** mathfont/tex/ORIG/extramtx.tex	Mon Sep 29 11:12:46 1997
--- mathfont/tex/extramtx.tex	Fri Oct  3 17:20:37 1997
***************
*** 1,4 ****
--- 1,16 ----
  % The files are wrapped in this tex file to make `rm *.mtx' harmless.
+ \begin{filecontents}{PSYupright.mtx}
+ \relax
+ \metrics
+ \declareencoding{FONTSPECIFIC}{psyup}
+ \endmetrics
+ \end{filecontents}
+ \begin{filecontents}{PSYitalic.mtx}
+ \relax
+ \metrics
+ \declareencoding{FONTSPECIFIC}{psyit}
+ \endmetrics
+ \end{filecontents}
  \begin{filecontents}{OT1toOT1upright.mtx}
  \relax
  \metrics
***************
*** 21,26 ****
--- 33,46 ----
  \metrics
  \edef\tildecatcode{\the\catcode`\~}\catcode`\~=10
  \declareencoding{EXTENDED~TEX~FONT~ENCODING~-~LATIN}{T1italic}
+ \catcode`\~=\tildecatcode
+ \endmetrics
+ \end{filecontents}
+ \begin{filecontents}{T1toT1normal.mtx}
+ \relax
+ \metrics
+ \edef\tildecatcode{\the\catcode`\~}\catcode`\~=10
+ \declareencoding{EXTENDED~TEX~FONT~ENCODING~-~LATIN}{T1}
  \catcode`\~=\tildecatcode
  \endmetrics
  \end{filecontents}


#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.1).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1997-10-06 12:24 MET DST by <vieth@macbeth>.
# Source directory was `/home/vieth/FTP/mathfont'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode       name
# ------ ---------- ------------------------------------------
#    449 -rw-r--r-- tex/XTA.tex
#   7275 -rw-r--r-- etx/psy.etx
#    134 -rw-r--r-- etx/psyit.etx
#    149 -rw-r--r-- etx/psyup.etx
#
touch -am 1231235999 $$.touch >/dev/null 2>&1
if test ! -f 1231235999 && test -f $$.touch; then
  shar_touch=touch
else
  shar_touch=:
  echo
  echo 'WARNING: not restoring timestamps.  Consider getting and'
  echo "installing GNU \`touch', distributed in GNU File Utilities..."
  echo
fi
rm -f 1231235999 $$.touch
#
# ============= tex/XTA.tex ==============
if test ! -d 'tex'; then
  echo 'x - creating directory tex'
  mkdir 'tex'
fi
if test -f 'tex/XTA.tex' && test X"$1" != X"-c"; then
  echo 'x - skipping tex/XTA.tex (file already exists)'
else
  echo 'x - extracting tex/XTA.tex (text)'
  sed 's/^X//' << 'SHAR_EOF' > 'tex/XTA.tex' &&
\nofiles
\documentclass{minimal}
X
\usepackage{emfninst}
X
\input{extramtx}
\input{MCmtx}
\input{sizes}
X
\begin{document}
X
\installfonts
\installfamily{MC}{xta}{\skewchar\font0}
\installfont{xta1000}{d1000,
X  PSYupright,psyr,PSYitalic,psyro,
X  T1toT1upright,ptmr8t,T1toT1normal,ptmri8t,MCtextra,
X  OMStoOMScal,cmsy10,OMStoMSAM,msam10,OMStoMSBM,msbm10,
X  MCtoMCin,yma1000,
X  MCkern}{MC}{MC}{xta}{m}{n}{<10>}
\endinstallfonts
X
\end{document}
X
X
X
X
X
X
X
X
X
X
X
SHAR_EOF
  $shar_touch -am 1003172097 'tex/XTA.tex' &&
  chmod 0644 'tex/XTA.tex' ||
  echo 'restore of tex/XTA.tex failed'
  shar_count="`wc -c < 'tex/XTA.tex'`"
  test 449 -eq "$shar_count" ||
    echo "tex/XTA.tex: original size 449, current size $shar_count"
fi
# ============= etx/psy.etx ==============
if test ! -d 'etx'; then
  echo 'x - creating directory etx'
  mkdir 'etx'
fi
if test -f 'etx/psy.etx' && test X"$1" != X"-c"; then
  echo 'x - skipping etx/psy.etx (file already exists)'
else
  echo 'x - extracting etx/psy.etx (text)'
  sed 's/^X//' << 'SHAR_EOF' > 'etx/psy.etx' &&
\relax
\documentclass[twocolumn]{article}
\usepackage{emfntdoc}
X
\useexamplefont{psyr}
X
\title{The Encoding of the Adobe Symbol fonts}
\author{Ulrik Vieth}
X
\begin{document}
X
\twocolumn
X
\encoding
X
\comment{\section{Default values}}
X
\setstr{codingscheme}{FONTSPECIFIC}  
\setint{italicslant}{0}
X
\ifisglyph{x}\then
X   \setint{xheight}{\height{x}}
\else
X   \setint{xheight}{500}
\fi
X
\comment{\section{Default font dimensions}}
X
\setint{fontdimen(1)}{\int{italicslant}} % italic slant
\setint{fontdimen(2)}{0}                 % interword space
\setint{fontdimen(3)}{0}                 % interword stretch
\setint{fontdimen(4)}{0}                 % interword shrink
\setint{fontdimen(5)}{\int{xheight}}     % x-height
\setint{fontdimen(6)}{1000}              % quad
\setint{fontdimen(7)}{0}                 % extra space after .
X
\comment{\section{The encoding}}
\setdefaultslotcomment{The symbol `\slotexample'.}
X
\nextslot{32}
\setslot{space}\endsetslot 
\setslot{exclam}\endsetslot 
\setslot{universal}\endsetslot 
\setslot{numbersign}\endsetslot 
\setslot{existential}\endsetslot 
\setslot{percent}\endsetslot 
\setslot{ampersand}\endsetslot 
\setslot{suchthat}\endsetslot 
\setslot{parenleft}\endsetslot 
\setslot{parenright}\endsetslot 
\setslot{asteriskmath}\endsetslot 
\setslot{plus}\endsetslot 
\setslot{comma}\endsetslot 
\setslot{minus}\endsetslot 
\setslot{period}\endsetslot 
\setslot{slash}\endsetslot
X 
\setslot{\digit{zero}}\endsetslot 
\setslot{\digit{one}}\endsetslot 
\setslot{\digit{two}}\endsetslot 
\setslot{\digit{three}}\endsetslot 
\setslot{\digit{four}}\endsetslot 
\setslot{\digit{five}}\endsetslot 
\setslot{\digit{six}}\endsetslot 
\setslot{\digit{seven}}\endsetslot 
\setslot{\digit{eight}}\endsetslot 
\setslot{\digit{nine}}\endsetslot 
X
\setslot{colon}\endsetslot 
\setslot{semicolon}\endsetslot 
\setslot{less}\endsetslot 
\setslot{equal}\endsetslot 
\setslot{greater}\endsetslot 
\setslot{question}\endsetslot 
\setslot{congruent}\endsetslot
X 
\setslot{\greek{Alpha}}\endsetslot 
\setslot{\greek{Beta}}\endsetslot 
\setslot{\greek{Chi}}\endsetslot 
\setslot{\greek{Delta}}\endsetslot 
\setslot{\greek{Epsilon}}\endsetslot 
\setslot{\greek{Phi}}\endsetslot 
\setslot{\greek{Gamma}}\endsetslot 
\setslot{\greek{Eta}}\endsetslot 
\setslot{\greek{Iota}}\endsetslot 
\setslot{\greek{theta1}}\endsetslot 
\setslot{\greek{Kappa}}\endsetslot 
\setslot{\greek{Lambda}}\endsetslot 
\setslot{\greek{Mu}}\endsetslot 
\setslot{\greek{Nu}}\endsetslot 
\setslot{\greek{Omicron}}\endsetslot 
\setslot{\greek{Pi}}\endsetslot 
\setslot{\greek{Theta}}\endsetslot 
\setslot{\greek{Rho}}\endsetslot 
\setslot{\greek{Sigma}}\endsetslot 
\setslot{\greek{Tau}}\endsetslot 
\setslot{\greek{Upsilon}}\endsetslot 
\setslot{\greek{sigma1}}\endsetslot 
\setslot{\greek{Omega}}\endsetslot 
\setslot{\greek{Xi}}\endsetslot 
\setslot{\greek{Psi}}\endsetslot 
\setslot{\greek{Zeta}}\endsetslot 
X
\setslot{bracketleft}\endsetslot 
\setslot{therefore}\endsetslot 
\setslot{bracketright}\endsetslot 
\setslot{perpendicular}\endsetslot 
\setslot{underscore}\endsetslot 
\setslot{radicalex}\endsetslot 
X
\setslot{\greek{alpha}}\endsetslot 
\setslot{\greek{beta}}\endsetslot 
\setslot{\greek{chi}}\endsetslot 
\setslot{\greek{delta}}\endsetslot 
\setslot{\greek{epsilon}}\endsetslot 
\setslot{\greek{phi}}\endsetslot 
\setslot{\greek{gamma}}\endsetslot 
\setslot{\greek{eta}}\endsetslot 
\setslot{\greek{iota}}\endsetslot 
\setslot{\greek{phi1}}\endsetslot 
\setslot{\greek{kappa}}\endsetslot 
\setslot{\greek{lambda}}\endsetslot 
\setslot{\greek{mu}}\endsetslot 
\setslot{\greek{nu}}\endsetslot 
\setslot{\greek{omicron}}\endsetslot 
\setslot{\greek{pi}}\endsetslot 
\setslot{\greek{theta}}\endsetslot 
\setslot{\greek{rho}}\endsetslot 
\setslot{\greek{sigma}}\endsetslot 
\setslot{\greek{tau}}\endsetslot 
\setslot{\greek{upsilon}}\endsetslot 
\setslot{\greek{omega1}}\endsetslot 
\setslot{\greek{omega}}\endsetslot 
\setslot{\greek{xi}}\endsetslot 
\setslot{\greek{psi}}\endsetslot 
\setslot{\greek{zeta}}\endsetslot 
X
\setslot{braceleft}\endsetslot 
\setslot{bar}\endsetslot 
\setslot{braceright}\endsetslot 
\setslot{similar}\endsetslot 
X
\nextslot{161}
\setslot{\greek{Upsilon1}}\endsetslot 
\setslot{minute}\endsetslot 
\setslot{lessequal}\endsetslot 
\setslot{fraction}\endsetslot 
\setslot{infinity}\endsetslot 
\setslot{florin}\endsetslot 
\setslot{club}\endsetslot 
\setslot{diamond}\endsetslot 
\setslot{heart}\endsetslot 
\setslot{spade}\endsetslot 
\setslot{arrowboth}\endsetslot 
\setslot{arrowleft}\endsetslot 
\setslot{arrowup}\endsetslot 
\setslot{arrowright}\endsetslot 
\setslot{arrowdown}\endsetslot 
\setslot{degree}\endsetslot 
\setslot{plusminus}\endsetslot 
\setslot{second}\endsetslot 
\setslot{greaterequal}\endsetslot 
\setslot{multiply}\endsetslot 
\setslot{proportional}\endsetslot 
\setslot{\symb{partialdiff}}\endsetslot 
\setslot{bullet}\endsetslot 
\setslot{divide}\endsetslot 
\setslot{notequal}\endsetslot 
\setslot{equivalence}\endsetslot 
\setslot{approxequal}\endsetslot 
\setslot{ellipsis}\endsetslot 
\setslot{arrowvertex}\endsetslot 
\setslot{arrowhorizex}\endsetslot 
\setslot{carriagereturn}\endsetslot 
\setslot{aleph}\endsetslot 
\setslot{Ifraktur}\endsetslot 
\setslot{Rfraktur}\endsetslot 
\setslot{weierstrass}\endsetslot 
\setslot{circlemultiply}\endsetslot 
\setslot{circleplus}\endsetslot 
\setslot{emptyset}\endsetslot 
\setslot{intersection}\endsetslot 
\setslot{union}\endsetslot 
\setslot{propersuperset}\endsetslot 
\setslot{reflexsuperset}\endsetslot 
\setslot{notsubset}\endsetslot 
\setslot{propersubset}\endsetslot 
\setslot{reflexsubset}\endsetslot 
\setslot{element}\endsetslot 
\setslot{notelement}\endsetslot 
\setslot{angle}\endsetslot 
\setslot{gradient}\endsetslot 
\setslot{registerserif}\endsetslot 
\setslot{copyrightserif}\endsetslot 
\setslot{trademarkserif}\endsetslot 
\setslot{product}\endsetslot 
\setslot{radical}\endsetslot 
\setslot{dotmath}\endsetslot 
\setslot{logicalnot}\endsetslot 
\setslot{logicaland}\endsetslot 
\setslot{logicalor}\endsetslot 
\setslot{arrowdblboth}\endsetslot 
\setslot{arrowdblleft}\endsetslot 
\setslot{arrowdblup}\endsetslot 
\setslot{arrowdblright}\endsetslot 
\setslot{arrowdbldown}\endsetslot 
\setslot{lozenge}\endsetslot 
\setslot{angleleft}\endsetslot 
\setslot{registersans}\endsetslot 
\setslot{copyrightsans}\endsetslot 
\setslot{trademarksans}\endsetslot 
\setslot{summation}\endsetslot 
\setslot{parenlefttp}\endsetslot 
\setslot{parenleftex}\endsetslot 
\setslot{parenleftbt}\endsetslot 
\setslot{bracketlefttp}\endsetslot 
\setslot{bracketleftex}\endsetslot 
\setslot{bracketleftbt}\endsetslot 
\setslot{bracelefttp}\endsetslot 
\setslot{braceleftmid}\endsetslot 
\setslot{braceleftbt}\endsetslot 
\setslot{braceex}\endsetslot 
\nextslot{241}
\setslot{angleright}\endsetslot 
\setslot{integral}\endsetslot 
\setslot{integraltp}\endsetslot 
\setslot{integralex}\endsetslot 
\setslot{integralbt}\endsetslot 
\setslot{parenrighttp}\endsetslot 
\setslot{parenrightex}\endsetslot 
\setslot{parenrightbt}\endsetslot 
\setslot{bracketrighttp}\endsetslot 
\setslot{bracketrightex}\endsetslot 
\setslot{bracketrightbt}\endsetslot 
\setslot{bracerighttp}\endsetslot 
\setslot{bracerightmid}\endsetslot 
\setslot{bracerightbt}\endsetslot 
X
\endencoding
X
\end{document}
SHAR_EOF
  $shar_touch -am 1003153697 'etx/psy.etx' &&
  chmod 0644 'etx/psy.etx' ||
  echo 'restore of etx/psy.etx failed'
  shar_count="`wc -c < 'etx/psy.etx'`"
  test 7275 -eq "$shar_count" ||
    echo "etx/psy.etx: original size 7275, current size $shar_count"
fi
# ============= etx/psyit.etx ==============
if test -f 'etx/psyit.etx' && test X"$1" != X"-c"; then
  echo 'x - skipping etx/psyit.etx (file already exists)'
else
  echo 'x - extracting etx/psyit.etx (text)'
  sed 's/^X//' << 'SHAR_EOF' > 'etx/psyit.etx' &&
\relax
X
\encoding
X
\setcommand\greek#1{#1}
\setcommand\digit#1{#1unused}
\setcommand\symb#1{#1}
X
\inputetx{psy}
X
\endencoding
X
X
X
X
X
X
X
X
SHAR_EOF
  $shar_touch -am 1003153697 'etx/psyit.etx' &&
  chmod 0644 'etx/psyit.etx' ||
  echo 'restore of etx/psyit.etx failed'
  shar_count="`wc -c < 'etx/psyit.etx'`"
  test 134 -eq "$shar_count" ||
    echo "etx/psyit.etx: original size 134, current size $shar_count"
fi
# ============= etx/psyup.etx ==============
if test -f 'etx/psyup.etx' && test X"$1" != X"-c"; then
  echo 'x - skipping etx/psyup.etx (file already exists)'
else
  echo 'x - extracting etx/psyup.etx (text)'
  sed 's/^X//' << 'SHAR_EOF' > 'etx/psyup.etx' &&
\relax
X
\encoding
X
\setcommand\greek#1{#1upright}
\setcommand\digit#1{#1upright}
\setcommand\symb#1{#1upright}
X
\inputetx{psy}
X
\endencoding
X
X
X
X
X
X
X
X
SHAR_EOF
  $shar_touch -am 1003153697 'etx/psyup.etx' &&
  chmod 0644 'etx/psyup.etx' ||
  echo 'restore of etx/psyup.etx failed'
  shar_count="`wc -c < 'etx/psyup.etx'`"
  test 149 -eq "$shar_count" ||
    echo "etx/psyup.etx: original size 149, current size $shar_count"
fi
exit 0