From b4fc5f639874db951177ec539299d20908adb654 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 9 Jan 2006 00:44:40 +0000
Subject: doc 4

git-svn-id: svn://tug.org/texlive/trunk@80 c570f23f-e606-0410-a88d-b1316a301751
---
 .../doc/latex/microtype/test-microtype.tex         | 138 +++++++++++++++++++++
 1 file changed, 138 insertions(+)
 create mode 100644 Master/texmf-dist/doc/latex/microtype/test-microtype.tex

(limited to 'Master/texmf-dist/doc/latex/microtype/test-microtype.tex')

diff --git a/Master/texmf-dist/doc/latex/microtype/test-microtype.tex b/Master/texmf-dist/doc/latex/microtype/test-microtype.tex
new file mode 100644
index 00000000000..959bf0bbadc
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/microtype/test-microtype.tex
@@ -0,0 +1,138 @@
+%%
+%% This is file `test-microtype.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% microtype.dtx  (with options: `test')
+%% 
+%% -----------------------------------------------------------------------
+%%                        The `microtype' package
+%%        An interface to the micro-typographic extensions of pdfTeX
+%%           Copyright (c) 2004, 2005 R Schlicht <w.m.l@gmx.net>
+%% 
+%% This work  may be  distributed and/or modified  under the conditions of
+%% the LaTeX Project Public License, either version 1.3 of this license or
+%% (at your option) any later version.  The latest version of this license
+%% is in:  http://www.latex-project.org/lppl.txt, and version 1.3 or later
+%% is part of all distributions of LaTeX version 2003/12/01 or later.
+%% 
+%% This work has the LPPL maintenance status `author-maintained'.
+%% 
+%% This work consists of the files microtype.dtx and microtype.ins and the
+%% derived file microtype.sty.
+%% 
+%% -----------------------------------------------------------------------
+%%    This file might be useful to test protrusion settings for a font.
+%%    You can do whatever you want with it.
+%% -----------------------------------------------------------------------
+%% 
+\documentclass{article}
+
+%% Here you can set the font you want to test, using
+%% the commands \fontfamily, \fontseries, and \fontshape.
+%% Make sure to end all lines with a comment character!
+\newcommand*{\TestFont}{%
+  \fontfamily{ppl}%
+%%  \fontseries{b}%
+%%  \fontshape{it}% sc, sl
+}
+
+\usepackage{ifthen}
+\usepackage[T1]{fontenc}
+%%\usepackage[latin1]{inputenc}
+\usepackage[verbose,expansion=alltext,stretch=50]{microtype}
+
+\pagestyle{empty}
+\setlength{\parindent}{0pt}
+\newcommand*{\crulefill}{\cleaders\hbox{$\mkern-2mu\smash-\mkern-2mu$}\hfill}
+\newcommand*{\testprotrusion}[2][]{%
+  \ifthenelse{\equal{#1}{r}}{}{#2}%
+  lorem ipsum dolor sit amet,
+    \ifthenelse{\equal{#1}{r}}{\crulefill}{\leftarrowfill} #2
+    \ifthenelse{\equal{#1}{l}}{\crulefill}{\rightarrowfill}
+  you know the rest%
+  \ifthenelse{\equal{#1}{l}}{}{#2}%
+  \linebreak
+  {\fontencoding{\encodingdefault}%
+  \fontseries{\seriesdefault}%
+  \fontshape{\shapedefault}%
+  \selectfont
+  Here is the beginning of a line, \dotfill and here is its end}\linebreak
+}
+\newcommand*{\showTestFont}{\expandafter\stripprefix\meaning\TestFont}
+\def\stripprefix#1>{}
+\newcount\charcount
+\begin{document}
+
+\microtypesetup{expansion=false}
+
+{\centering The font in this document is called by:\\
+ \texttt{\showTestFont}\par}\bigskip
+
+\TestFont\selectfont
+ This line intentionally left empty\linebreak
+%% A -- Z
+\charcount=65
+\loop
+  \testprotrusion{\char\charcount}
+  \advance\charcount 1
+  \ifnum\charcount < 91 \repeat
+%% a -- z
+\charcount=97
+\loop
+  \testprotrusion{\char\charcount}
+  \advance\charcount 1
+  \ifnum\charcount < 123 \repeat
+%% 0 -- 9
+\charcount=48
+\loop
+  \testprotrusion{\char\charcount}
+  \advance\charcount 1
+  \ifnum\charcount < 58 \repeat
+%%
+ \testprotrusion[r]{,}
+ \testprotrusion[r]{.}
+ \testprotrusion[r]{;}
+ \testprotrusion[r]{:}
+ \testprotrusion[r]{?}
+ \testprotrusion[r]{!}
+ \testprotrusion[l]{\textexclamdown}
+ \testprotrusion[l]{\textquestiondown}
+ \testprotrusion[r]{)}
+ \testprotrusion[l]{(}
+ \testprotrusion{/}
+ \testprotrusion{\char`\\}
+ \testprotrusion{-}
+ \testprotrusion{\textendash}
+ \testprotrusion{\textemdash}
+ \testprotrusion{\textquoteleft}
+ \testprotrusion{\textquoteright}
+ \testprotrusion{\textquotedblleft}
+ \testprotrusion{\textquotedblright}
+ \testprotrusion{\quotesinglbase}
+ \testprotrusion{\quotedblbase}
+ \testprotrusion{\guilsinglleft}
+ \testprotrusion{\guilsinglright}
+ \testprotrusion{\guillemotleft}
+ \testprotrusion{\guillemotright}
+
+\bigskip
+The following displays the current font stretched by 5\%,
+normal, and shrunk by 5\%:
+
+\microtypesetup{expansion=true}
+
+\bigskip
+\newlength{\MTln}
+\newcommand*{\teststring}
+  {ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789}
+\settowidth{\MTln}{\teststring}
+
+\parbox{1.05\MTln}{\teststring\linebreak\\
+                   \teststring}\par\bigskip
+\parbox{0.95\MTln}{\teststring}
+\end{document}
+\endinput
+%%
+%% End of file `test-microtype.tex'.
-- 
cgit v1.2.3

