\relax

This is file OT1padl.etx, a (slightly) modified version of 
OT1.etx (a fontinst file by Alan Jeffrey) to handle alternate
fonts in the Adobe Garamond (pad) font family.  It should be used as an 
inspriation in other font families where alternate fonts occur.

With the modifications, it is part of the Vfinst package by
Alan Hoenig.  Date: June9, 1998.

For additional info, see the vfinst documentation vfinst.tex and ``TeX
Unbound'' (Alan Hoenig, Oxford Univ Press, 1998).

\encoding
\ifisglyph{Aswash}\then
  \setcommand\uc#1#2{#1swash}
\else
  \setcommand\uc#1#2{#1}
\fi
\ifisglyph{ampersandalt}\then
  \setcommand\alternatechar#1{#1alt}
\else
  \setcommand\alternatechar#1{#1}
\fi
\setcommand\Ligature#1#2#3{
  \ifisglyph{#3}\then\ligature{#1}{#2}{#3}\fi
}
\setcommand\atendofword#1{\Ligature{LIG}{boundarychar}{#1}}
\setcommand\atstartofword#1#2{\Ligature{LIG}{#1}{#2}}

\needsfontinstversion{1.327}

\setcommand\lc#1#2{#2}
\setcommand\uc#1#2{#1}
\setcommand\lclig#1#2{#2}
\setcommand\uclig#1#2{#1}
\setcommand\digit#1{#1oldstyle} % oldstyle digits more compatible with alternate chars
\ifisint{monowidth}\then
   \setcommand\tty{y}
\else
   \setcommand\tty{n}
\fi
\setcommand\currency{dollar}

\if \tty y
   \setstr{codingscheme}{TEX TYPEWRITER TEXT}
\else
   \setstr{codingscheme}{TEX TEXT}
\fi

\setint{italicslant}{0}

\setint{xheight}{
   \ifisglyph{x}\then
      \height{x}
   \else
      0
   \fi
}

\setint{interword}{
   \ifisglyph{space}\then
      \width{space}
   \else
      0
   \fi
}

\setint{fontdimen(1)}{\int{italicslant}}              % italic slant
\setint{fontdimen(2)}{\int{interword}}                % interword space
\ifisint{monowidth}\then
   \setint{fontdimen(3)}{0}                           % interword stretch
   \setint{fontdimen(4)}{0}                           % interword shrink
\else
   \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
   \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
\fi   
\setint{fontdimen(5)}{\int{xheight}}                  % x-height
\setint{fontdimen(6)}{1000}                           % quad
\ifisint{monowidth}\then
   \setint{fontdimen(7)}{\int{interword}}             % extra space after .
\else
   \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
\fi

\setslot{Gamma}
   \comment{The greek letter `$\Gamma$'.}
\endsetslot

\setslot{Delta}
   \comment{The greek letter `$\Delta$'.}
\endsetslot

\setslot{Theta}
   \comment{The greek letter `$\Theta$'.}
\endsetslot

\setslot{Lambda}
   \comment{The greek letter `$\Lambda$'.}
\endsetslot

\setslot{Xi}
   \comment{The greek letter `$\Xi$'.}
\endsetslot

\setslot{Pi}
   \comment{The greek letter `$\Pi$'.}
\endsetslot

\setslot{Sigma}
   \comment{The greek letter `$\Sigma$'.}
\endsetslot

\setslot{Upsilon1}
   \comment{The greek letter `$\Upsilon$'.}
\endsetslot

\setslot{Phi}
   \comment{The greek letter `$\Phi$'.}
\endsetslot

\setslot{Psi}
   \comment{The greek letter `$\Psi$'.}
\endsetslot

\setslot{Omega}
   \comment{The greek letter `$\Omega$'.}
\endsetslot

\if \tty y

\setslot{arrowup}
   \comment{An upwards-facing arrow `$\uparrow$'.}
\endsetslot

\setslot{arrowdown}
   \comment{A downwards-facing arrow `$\downarrow$'.}
\endsetslot

\setslot{quotesingle}
   \comment{The `neutral' single quotation mark `{\tt\char`\'}', for use 
      with monowidth fonts.}
\endsetslot

\setslot{exclamdown}
   \comment{The Spanish punctuation mark `!`'.}
\endsetslot

\setslot{questiondown}
   \comment{The Spanish punctuation mark `?`'.}
\endsetslot

\else

\setslot{\lclig{FF}{ff}}
   \ligature{LIG}{\lc{I}{i}}{\lclig{FFI}{ffi}}
   \ligature{LIG}{\lc{L}{l}}{\lclig{FFL}{ffl}}
   \comment{The `ff' ligature.  It should be two characters wide in a 
      monowidth font.}
\endsetslot

\setslot{\lclig{FI}{fi}}
   \comment{The `fi' ligature.  It should be two characters wide in a 
      monowidth font.}
\endsetslot

\setslot{\lclig{FL}{fl}}
   \comment{The `fl' ligature.  It should be two characters wide in a 
      monowidth font.}
\endsetslot

\setslot{\lclig{FFI}{ffi}}
   \comment{The `ffi' ligature.  It should be three characters wide in a 
      monowidth font.}
\endsetslot

\setslot{\lclig{FFL}{ffl}}
   \comment{The `ffl' ligature.  It should be three characters wide in a 
      monowidth font.}
\endsetslot

\fi

\setslot{\lc{dotlessI}{dotlessi}}
   \comment{A dotless i `\i', used to produce accented letters such as 
      `\=\i'.}
\endsetslot

\setslot{\lc{dotlessJ}{dotlessj}}
   \comment{A dotless j `\j', used to produce accented letters such as 
      `\=\j'.  Most non-\TeX\ fonts do not have this glyph.}
\endsetslot

\setslot{grave}
   \comment{The grave accent `\`a'.}
\endsetslot

\setslot{acute}
   \comment{The acute accent `\'a'.}
\endsetslot

\setslot{caron}
   \comment{The caron or h\'a\v cek accent `\v a'.}
\endsetslot

\setslot{breve}
   \comment{The breve accent `\u a'.}
\endsetslot

\setslot{macron}
   \comment{The macron accent `\=a'.}
\endsetslot

\setslot{ringfitted}
   \comment{The ring accent `\aa', fitted to be the same width as an
      upper case `A'.}
\endsetslot

\setslot{cedilla}
   \comment{The cedilla accent `\c a'.}
\endsetslot

\setslot{\lc{SS}{germandbls}}
   \comment{The letter `\ss'.}
\endsetslot

\setslot{\lc{AE}{ae}}
   \comment{The letter `\ae'.  This is a single letter, and should not be 
      faked with `ae'.}
\endsetslot

\setslot{\lc{OE}{oe}}
   \comment{The letter `\oe'.  This is a single letter, and should not be 
      faked with `oe'.}
\endsetslot

\setslot{\lc{Oslash}{oslash}}
   \comment{The letter `\o'.}
\endsetslot

\setslot{\uc{AE}{ae}}
   \comment{The letter `\AE'.  This is a single letter, and should not be 
      faked with `AE'.}
\endsetslot

\setslot{\uc{OE}{oe}}
   \comment{The letter `\OE'.  This is a single letter, and should not be 
      faked with `OE'.}
\endsetslot

\setslot{\uc{Oslash}{oslash}}
   \comment{The letter `\o'.}
\endsetslot
 
\if \tty y

\setslot{visiblespace}
   \comment{A visible space glyph `{\tt\char`\ }'.}
\endsetslot

\else

\setslot{lslashslash}
   \ligature{LIG}{\lc{L}{l}}{\lc{Lslash}{lslash}}
   \ligature{LIG}{\uc{L}{l}}{\uc{Lslash}{lslash}}
   \comment{The slash used to make `\l' and `\L'.  Since most fonts do
      not have a separate glyph for this, I've added ligatures to `\l'
      and `\L'.}
\endsetslot

\fi

\setslot{exclam}
   \ligature{LIG}{quoteleft}{exclamdown}
   \comment{The exclamation mark `!'.}
\endsetslot

\if \tty y

\setslot{quotedbl}
   \comment{The `neutral' quotation mark `{\tt\char`\"}', included for 
      use in monowidth fonts, or for setting computer programs.}
\endsetslot

\else

\setslot{quotedblright}
   \comment{An English double closing quote mark `\,''\,'.}
\endsetslot

\fi

\setslot{numbersign}
   \comment{The hash sign `\#'.}
\endsetslot

\setslot{\currency}
   \comment{Either the dollar sign `\$' or the pound sign `\pounds', 
      depending on the font.}
\endsetslot

\setslot{percent}
   \comment{The percent sign `\%'.}
\endsetslot

\setslot{ampersand}
   \comment{The ampersand sign `\&'.}
   \Ligature{LIG}{quoteleft}{ampersandalt}
\endsetslot

\setslot{quoteright}
   \if \tty y \else \ligature{LIG}{quoteright}{quotedblright} \fi
   \comment{The English closing quotation mark `\,'\,'.}
\endsetslot

\setslot{parenleft}
   \comment{The opening parenthesis `('.}
\endsetslot

\setslot{parenright}
   \comment{The closing parenthesis `)'.}
\endsetslot

\setslot{asterisk}
   \comment{The raised asterisk `*'.}
\endsetslot

\setslot{plus}
   \comment{The addition sign `+'.}
\endsetslot

\setslot{comma}
   \comment{The comma `,'.}
\endsetslot

\setslot{hyphen}
   \if \tty y \else \ligature{LIG}{hyphen}{rangedash} \fi
   \comment{The hyphen `-'.}
\endsetslot

\setslot{period}
   \comment{The full point `.'.}
\endsetslot

\setslot{slash}
   \comment{The forward oblique `/'.}
\endsetslot

\setslot{\digit{zero}}
   \comment{The number zero `0'.  This (and all the other numerals) may be 
      old style or ranging digits.}
\endsetslot

\setslot{\digit{one}}
   \comment{The number one `1'.}
   \Ligature{LIG}{quoteleft}{ornament1}
\endsetslot

\setslot{\digit{two}}
   \comment{The number two `2'.}
   \Ligature{LIG}{quoteleft}{ornament2}
\endsetslot

\setslot{\digit{three}}
   \comment{The number three `3'.}
\endsetslot

\setslot{\digit{four}}
   \comment{The number four `4'.}
\endsetslot

\setslot{\digit{five}}
   \comment{The number five `5'.}
\endsetslot

\setslot{\digit{six}}
   \comment{The number six `6'.}
\endsetslot

\setslot{\digit{seven}}
   \comment{The number seven `7'.}
\endsetslot

\setslot{\digit{eight}}
   \comment{The number eight `8'.}
\endsetslot

\setslot{\digit{nine}}
   \comment{The number nine `9'.}
\endsetslot

\setslot{colon}
   \comment{The colon punctuation mark `:'.}
\endsetslot

\setslot{semicolon}
   \comment{The semi-colon punctuation mark `;'.}
\endsetslot

\if \tty y

\setslot{less}
   \comment{The less-than sign `$<$'.}
\endsetslot

\setslot{equal}
   \comment{The equals sign `='.}
\endsetslot

\setslot{greater}
   \comment{The greater-than sign `$>$'.}
\endsetslot

\else

\setslot{exclamdown}
   \comment{The Spanish punctuation mark `!`'.}
\endsetslot

\setslot{equal}
   \comment{The equals sign `='.}
\endsetslot

\setslot{questiondown}
   \comment{The Spanish punctuation mark `?`'.}
\endsetslot

\fi

\setslot{question}
   \ligature{LIG}{quoteleft}{questiondown}
   \comment{The question mark `?'.}
\endsetslot

\setslot{at}
   \comment{The at sign `@'.}
\endsetslot

\setslot{\uc{A}{a}}
   \comment{The letter `{A}'.}
\endsetslot

\setslot{\uc{B}{b}}
   \comment{The letter `{B}'.}
\endsetslot

\setslot{\uc{C}{c}}
   \comment{The letter `{C}'.}
\endsetslot

\setslot{\uc{D}{d}}
   \comment{The letter `{D}'.}
\endsetslot

\setslot{\uc{E}{e}}
   \comment{The letter `{E}'.}
\endsetslot

\setslot{\uc{F}{f}}
   \comment{The letter `{F}'.}
\endsetslot

\setslot{\uc{G}{g}}
   \comment{The letter `{G}'.}
\endsetslot

\setslot{\uc{H}{h}}
   \comment{The letter `{H}'.}
\endsetslot

\setslot{\uc{I}{i}}
   \comment{The letter `{I}'.}
\endsetslot

\setslot{\uc{J}{j}}
   \comment{The letter `{J}'.}
\endsetslot

\setslot{\uc{K}{k}}
   \comment{The letter `{K}'.}
\endsetslot

\setslot{\uc{L}{l}}
   \comment{The letter `{L}'.}
\endsetslot

\setslot{\uc{M}{m}}
   \comment{The letter `{M}'.}
\endsetslot

\setslot{\uc{N}{n}}
   \comment{The letter `{N}'.}
\endsetslot

\setslot{\uc{O}{o}}
   \comment{The letter `{O}'.}
\endsetslot

\setslot{\uc{P}{p}}
   \comment{The letter `{P}'.}
\endsetslot

\setslot{\uc{Q}{q}}
   \comment{The letter `{Q}'.}
\endsetslot

\setslot{\uc{R}{r}}
   \comment{The letter `{R}'.}
\endsetslot

\setslot{\uc{S}{s}}
   \comment{The letter `{S}'.}
\endsetslot

\setslot{\uc{T}{t}}
   \comment{The letter `{T}'.}
\endsetslot

\setslot{\uc{U}{u}}
   \comment{The letter `{U}'.}
\endsetslot

\setslot{\uc{V}{v}}
   \comment{The letter `{V}'.}
\endsetslot

\setslot{\uc{W}{w}}
   \comment{The letter `{W}'.}
\endsetslot

\setslot{\uc{X}{x}}
   \comment{The letter `{X}'.}
\endsetslot

\setslot{\uc{Y}{y}}
   \comment{The letter `{Y}'.}
\endsetslot

\setslot{\uc{Z}{z}}
   \comment{The letter `{Z}'.}
\endsetslot

\setslot{bracketleft}
   \comment{The opening square bracket `['.}
\endsetslot

\if \tty y

\setslot{backslash}
   \comment{The backwards oblique `$\backslash$'.}
\endsetslot

\else

\setslot{quotedblleft}
   \comment{An English double opening quote mark `\,``\,'.}
\endsetslot

\fi

\setslot{bracketright}
   \comment{The closing square bracket `]'.}
\endsetslot

\setslot{circumflex}
   \comment{The circumflex accent `\^ a'.}
\endsetslot

\if \tty y

\setslot{underscore}
   \comment{The ASCII underline character `{\tt\char`\_}', usually set on 
      the baseline.}
\endsetslot

\else

\setslot{dotaccent}
   \comment{The dot accent `\.a'.}
\endsetslot

\fi

\setslot{quoteleft}
   \if \tty y \else \ligature{LIG}{quoteleft}{quotedblleft} \fi
   \comment{The English opening single quotation mark `\,`\,'.}
\endsetslot

\setslot{\lc{A}{a}}
   \comment{The letter `{a}'.}
   \atendofword{aswash}
\endsetslot

\setslot{\lc{B}{b}}
   \comment{The letter `{b}'.}
\endsetslot

\setslot{\lc{C}{c}}
   \Ligature{LIG}{t}{ct}
   \comment{The letter `{c}'.}
\endsetslot

\setslot{\lc{D}{d}}
   \comment{The letter `{d}'.}
\endsetslot

\setslot{\lc{E}{e}}
   \comment{The letter `{e}'.}
   \atendofword{eswash}
\endsetslot

\setslot{\lc{F}{f}}
\if \tty y \else
   \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
   \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
   \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
\fi
   \comment{The letter `{f}'.}   
\endsetslot

\setslot{\lc{G}{g}}
   \comment{The letter `{g}'.}
\endsetslot

\setslot{\lc{H}{h}}
   \comment{The letter `{h}'.}
\endsetslot

\setslot{\lc{I}{i}}
   \comment{The letter `{i}'.}
\endsetslot

\setslot{\lc{J}{j}}
   \comment{The letter `{j}'.}
\endsetslot

\setslot{\lc{K}{k}}
   \comment{The letter `{k}'.}
\endsetslot

\setslot{\lc{L}{l}}
   \comment{The letter `{l}'.}
\endsetslot

\setslot{\lc{M}{m}}
   \comment{The letter `{m}'.}
\endsetslot

\setslot{\lc{N}{n}}
   \comment{The letter `{n}'.}
   \atendofword{nswash}
\endsetslot

\setslot{\lc{O}{o}}
   \comment{The letter `{o}'.}
\endsetslot

\setslot{\lc{P}{p}}
   \comment{The letter `{p}'.}
\endsetslot

\setslot{\lc{Q}{q}}
   \comment{The letter `{q}'.}
\endsetslot

\setslot{\lc{R}{r}}
   \comment{The letter `{r}'.}
   \atendofword{rswash}
\endsetslot

\setslot{\lc{S}{s}}
   \Ligature{LIG}{t}{st}
   \comment{The letter `{s}'.}
\endsetslot

\setslot{\lc{T}{t}}
   \comment{The letter `{t}'.}
   \atendofword{tswash}
\endsetslot

\setslot{\lc{U}{u}}
   \comment{The letter `{u}'.}
\endsetslot

\setslot{\lc{V}{v}}
   \comment{The letter `{v}'.}
\endsetslot

\setslot{\lc{W}{w}}
   \comment{The letter `{w}'.}
\endsetslot

\setslot{\lc{X}{x}}
   \comment{The letter `{x}'.}
\endsetslot

\setslot{\lc{Y}{y}}
   \comment{The letter `{y}'.}
\endsetslot

\setslot{\lc{Z}{z}}
   \comment{The letter `{z}'.}
   \atendofword{zswash}
\endsetslot

\if \tty y

\setslot{braceleft}
   \comment{The opening curly brace `\{'.}
\endsetslot

\setslot{bar}
   \comment{The ASCII vertical bar `$|$'.  This is 
      included for compatibility with typewriter fonts used for computer 
      listings.}
\endsetslot

\setslot{braceright}
   \comment{The closing curly brace `\}'.}
\endsetslot

\else

\setslot{rangedash}
   \if \tty y \else \ligature{LIG}{hyphen}{punctdash} \fi
   \comment{The number range dash `1--9'.  In a monowidth font, this 
      might be set as `{\tt 1{-}9}'.}
\endsetslot

\setslot{punctdash}
   \comment{The punctuation dash `Oh---boy.'  In a monowidth font, this 
      might be set as `{\tt Oh{-}{-}boy.}'}
\endsetslot

\setslot{hungarumlaut}
   \comment{The long Hungarian umlaut `\H a'.}
\endsetslot

\fi

\setslot{tilde}
   \comment{The tilde accent `\~a'.}
\endsetslot

\setslot{dieresis}
   \comment{The umlaut or dieresis accent `\"a'.}
\endsetslot

\nextslot{"8A}

\setslot{\uc{Lslash}{lslash}}
   \comment{The letter `\L'.}
\endsetslot

\nextslot{"AA}

\setslot{\lc{Lslash}{lslash}}
   \comment{The letter `\l'.}
\endsetslot

\setslot{\alternatechar{ampersand}}\endsetslot
\setslot{ornament1}\endsetslot
\setslot{ornament2}\endsetslot
\setslot{Qalt}\endsetslot
\setslot{aswash}\endsetslot
\setslot{ct}\endsetslot
\setslot{eswash}\endsetslot
\setslot{nswash}\endsetslot
\setslot{rswash}\endsetslot
\setslot{st}\endsetslot
\setslot{tswash}\endsetslot
\setslot{tswashalt}\endsetslot
\setslot{vswash}\endsetslot
\setslot{zswash}\endsetslot
\setslot{boundarychar}
  \atstartofword{Q}{Qalt}
  \atstartofword{v}{vswash}
\endsetslot

\endencoding