diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/lettrine')
-rw-r--r-- | Master/texmf-dist/source/latex/lettrine/lettrine.dtx | 675 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/lettrine/lettrine.ins | 25 |
2 files changed, 700 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/lettrine/lettrine.dtx b/Master/texmf-dist/source/latex/lettrine/lettrine.dtx new file mode 100644 index 00000000000..a3721b854ac --- /dev/null +++ b/Master/texmf-dist/source/latex/lettrine/lettrine.dtx @@ -0,0 +1,675 @@ +% +% Copyright 1999-2004 Daniel Flipo. +% +% This program can be redistributed and/or modified under the terms +% of the LaTeX Project Public License Distributed from CTAN +% archives in directory macros/latex/base/lppl.txt; either +% version 1 of the License, or any later version. +% +% NO PERMISSION is granted to produce or to distribute a +% modified version of this file under its original name. +% +% \CheckSum{427} +% +% \iffalse +% Tell the \LaTeX\ system who we are and write an entry on the +% transcript. +%<*dtx> +\ProvidesFile{lettrine.dtx} +%</dtx> +%<code>\ProvidesFile{lettrine.sty} +%\fi +%\ProvidesFile{lettrine.dtx} + [2004/05/22 v1.6 (D. Flipo)] +%\iffalse +% Lettrine package for LaTeX version 2e +% +% Copyright (C) 1999-2004 by Daniel Flipo +% +% Please report errors to: Daniel.Flipo@univ-lille1.fr +% +%<*filedriver> +\documentclass{ltxdoc} +\newenvironment{key}[2]{\expandafter\macro\expandafter{% + \csname KV@#1@#2\endcsname}}{\endmacro} +% +\newcommand*\file[1]{\texttt{#1}} +% +\parindent = 0pt +\parskip = .3\baselineskip +\begin{document} +\begin{center} + \textbf{\Large Typesetting `lettrines' in \LaTeXe{} documents} + \\[.2\baselineskip] + {\large Daniel \textsc{Flipo}}\\ + \texttt{Daniel.Flipo@univ-lille1.fr} +\end{center} + \DocInput{lettrine.dtx} +\end{document} +%</filedriver> +%\fi +% \GetFileInfo{lettrine.dtx} +% +% \section{Introduction} +% +% The file \file{\filename}\footnote{The file described in this +% section has version number \fileversion\ and was last revised on +% \filedate.}, provides a command |\lettrine| which requires two +% mandatory arguments, and an optional one. +% +% Adding |\usepackage{lettrine}| in the preamble of a document +% defines the command |\lettrine|, the simplest use of which is +% |\lettrine{|\emph{$<$letter$>$}|}{|\emph{$<$text$>$}|}|. +% It produces a dropped capital \emph{$<$letter$>$} (2 lines high), +% followed by \emph{$<$text$>$} typeset in small caps, and the rest +% of the paragraph is wrapped around the dropped capital. +% +% Various parameters are provided to control the size and layout +% of the dropped capital and match the requirements described +% in the books +% \begin{itemize} +% \item ``Lexique des r\`egles typographiques en usage \`a +% l'Imprimerie nationale'' troisi\`eme \'edition (1994), +% ISBN-2-11-081075-0, +% \item ``Mise en page et impression'' Yves~\textsc{Perrousseaux}, +% ISBN-2-911220-01-3. +% \end{itemize} +% The parameters can be set using David Carlisle's +% \texttt{keyval.sty} syntax: +% \begin{itemize} +% \item |lines=|\emph{$<$integer$>$} sets how many lines the +% dropped capital will occupy (default=2); +% \item |lhang=|\emph{$<$decimal$>$} ($0\le|lhang|\le1$) sets +% how much of the dropped capital's width should hang into +% the margin (default=0); +% \item |loversize=|\emph{$<$decimal$>$} ($-1<|loversize|\le1$) +% enlarges the dropped capital's height: with +% |loversize=0.1| its height is enlarged by 10\% so that +% it raises above the top paragraph's line (default=0); +% \item |lraise=|\emph{$<$decimal$>$} does not affect the dropped +% capital's height, but moves it up (if positive), +% down (if negative); useful with capitals like |J| or |Q| +% which have a positive depth, (default=0); +% \item |findent=|\emph{$<$dimen$>$} (positive or negative) +% controls the horizontal gap between the dropped capital +% and the indented block of text (default=0pt); +% \item |nindent=|\emph{$<$dimen$>$} shifts all indented lines, +% starting from the second one, horizontally by +% \emph{$<$dimen$>$} (this shift is relative to the first +% line, default=0.5em); +% \item |slope=|\emph{$<$dimen$>$} can be used with dropped +% capitals like |A| or |V| to add \emph{$<$dimen$>$} +% (positive or negative) to the indentation of each line +% starting from the third one (no effect if |lines=2|, +% default=0pt); +% \item |ante=|\emph{$<$text$>$} can be used to typeset +% \emph{$<$text$>$} \emph{before} the dropped capital +% (typical use is for French guillemets starting +% the paragraph). +% +% \changes{lettrine-1.6}{2004/05/22}{Add a flag to switch to +% images in eps or pdf format. Suggested by Bill Jetzer.} +% +% \item |image=|\emph{$<$true$>$} (new to version 1.6) will force +% |\lettrine| to replace the letter normally used as +% dropped capital by an image in eps format (latex) or +% in pdf, jpg, etc. format (pdflatex); this needs the +% |graphicx| package to be loaded in the preamble of course. +% |\lettrine[image=true]{A}{n exemple}| or just +% |\lettrine[image]{A}{n exemple}| will load |A.eps| +% or |A.pdf| instead of letter~A. This was suggested +% by Bill Jetzer. Redefining \verb+\LettrineFont+ as +% \verb+\LettrineFontEPS+ still works for compatibility +% but is deprecated. +% \end{itemize} +% +% Example: |\lettrine[lines=4, lraise=0.1, nindent=0em, |% +% |slope=-.5em]%|\\ +% \mbox{}\phantom{\tt Example: lettrine}% +% |{V}{oici} un exemple |\dots +% +% Coloured lettrines are possible in conjonction with package +% \file{color}, examples: |\lettrine{\textcolor{red}{A}}{n} example| +% \quad or\\ |\lettrine{\textcolor[gray]{0.5}{A}}{nother} one| \\ +% see package \file{color} for the syntax of colour commands. +% Another possibility to colour lettrines globally is described +% below, see |\LettrineFontHook|. +% +% Once \file{lettrine.sty} will be installed (run \texttt{latex} +% on \file{lettrine.ins} to extract it), compile and print +% \file{demo.tex} to see the possible usage of these parameters. +% +% The default settings can be customized either in a config file +% \file{lettrine.cfg} (for a global usage), or on a per document +% basis, in the preamble of each document. The following list +% shows the syntax to set them and their default values: +% \begin{itemize} +% \item |\setcounter{DefaultLines}{2}|, +% \item |\renewcommand{\DefaultLoversize}{0}|, +% \item |\renewcommand{\DefaultLraise}{0}|, +% \item |\renewcommand{\DefaultLhang}{0}|, +% \item |\LettrineImagefalse|, +% \item |\setlength{\DefaultFindent}{0pt}|, +% \item |\setlength{\DefaultNindent}{0.5em}|, +% \item |\setlength{\DefaultSlope}{0pt}|. +% \end{itemize} +% +% Instead of giving optional parameters to the |\lettrine| command, +% it is possible, from version 1.5, to set them on a per character +% basis in a second config file (suggested by Pascal Kockaert): +% |\renewcommand{\DefaultOptionsFile}{|\textit{filename}|}| +% in the preamble (or anywhere in the document) will +% force each call to |\lettrine| to read the file \textit{filename}. +% See examples of such config files in the subdirectory +% \file{contrib}. +% +% The dimensional parameters |findent|, |nindent| and |slope|, +% can be set in \textit{filename} relative to |\LettrineWidth| +% if needed. +% |\LettrineWidth| should be used \emph{only} in the config file +% \textit{filename}, its value is non-null only if \textit{filename} +% is read! +% The settings read from this file will be overridden by the +% optional arguments eventually given to |\lettrine|. +% +% |\LettrineTextFont| sets the font used for the second argument +% of |\lettrine|, its default definition is +% |\newcommand{\LettrineTextFont}{\scshape}| (second argument in +% small caps, this can be changed using |\renewcommand|). +% +% |\LettrineFont| sets the font used for the dropped capital, +% usually the current font in a (large) size, computed +% automatically from the number of lines it will fill: +% the font size is computed so that, a \emph{standard} dropped +% capital (say X, not \`A) when sitting on its baseline, gets +% its top aligned with the top of the following text (provided +% $|loversize|=0$ and $|lines|\ge 2$). When $|lines|=1$, +% size is computed as if |lines| was~2.\\ +% A hook |\LettrineFontHook| is provided to change the font +% used for the dropped capital, syntax follows \LaTeX{}'s +% low-level font interface (see \LaTeX{} Companion, p.187--192), +% the |\selectfont| command is issued by |\LettrineFont|:\\ +% |\renewcommand{\LettrineFontHook}{\fontfamily{ppl}|\ignorespaces +% |\fontseries{bx}}%|\\ +% | \fontshape{sl}}|,\\ +% selects Palatino bold expanded slanted for the dropped capital.\\ +% |\LettrineFontHook| can also be used to change the colour of +% all lettrines in a (part of) document: +% |\renewcommand{\LettrineFontHook}{\color[gray]{0.5}}| \\ +% will colour the lettrines following this command in grey. +% +% \changes{lettrine-1.3}{2002/08/23}{Correct the documentation to +% mention the cm-super fonts and the type1ec package by +% Vladimir Volovich.} +% +% \vspace{\baselineskip} +% \textbf{Important notice:} +% the sizing works fine with \emph{fully scalable} fonts (like the +% standard PostScript fonts), but might not work well with CM/EC +% fonts which have two limitations: only a limited number of sizes +% is available by default (precise adjustments are impossible), +% and the largest size (25pt or 35pt) is often too small. +% The CM fonts are now available in PostScript type1 format for +% free (courtesy of BlueSky/Y\&Y), to make them fully scalable, +% it is mandatory to add |\usepackage{type1cm}| in the preamble +% of your document. +% The EC fonts are also available in type1 format for free +% (thanks to Vladimir Volovich, they are called cm-super), and +% adding |\usepackage{type1ec}|% +% \footnote{This package, available on CTAN, was first released +% on 2002/07/30.} +% in the preamble will make them fully scalable too. +% So, if you want \file{lettrine.sty} to work properly with CM +% or EC fonts, you will need \emph{PostScript versions} of these +% fonts \emph{and} one of the packages |type1cm.sty| or +% |type1ec.sty|. +% +% The newly released LM fonts, which should replace both CM and +% EC fonts sooner or later, are fully scalable, so, if you have +% them installed, you should use them instead of CM or EC fonts. +% |\usepackage{lmodern}| is the command to switch them on (add +% |\usepackage[T1]{fontenc}| when composing in one of the western +% languages other than English in order to get proper hyphenation). +% +% You can also consider using one of the standard PostScript fonts +% (Palatino, Times, Utopia\dots), they are fully scalable too! +% +% \vspace{\baselineskip} +% \textbf{Known problems:} +% \begin{itemize} +% \item nothing is done to prevent page-breaking in a paragraph +% starting with a dropped capital; when it happens to hang +% into the footer, page-breaking has to be done manually; +% \item |\lettrine| works within `quote' `quotation', `abstract' +% environments but does not work within `center' environments +% (except with option \texttt{[lines=1]}); +% \item |\lettrine| does not work within lists; +% \item if a \emph{list} has to be included in a paragraph starting +% with a `lettrine', it is necessary to add the command +% |\parshape=0| just after the end of the list (starting a new +% paragraph just before or just after the list works too). +% Remember that `quote', `quotation', `abstract' environments +% are implemented as \emph{lists} in \LaTeX{}. +% \end{itemize} +% +% \StopEventually{} +% +% \pagebreak[3] +% \section{\TeX{}nical details} +% +% This package only runs with \LaTeXe{} and requires keyval.sty +% \begin{macrocode} +%<*code> +%% Please report errors to: Daniel.Flipo@univ-lille1.fr +%% +\NeedsTeXFormat{LaTeX2e}[1995/12/01] +\RequirePackage{keyval} +% \end{macrocode} +% +% Default initializations: define the necessary counters, lengths, +% and commands to hold the default settings and set these default +% settings. They can be overwritten in file |lettrine.cfg|. +% +% \changes{lettrine-1.2}{2002/03/13}{\cs{newlength} changed to +% \cs{newdimen}, to correct a bug with seminar.cls (pointed out +% by Peter M\"unster).} +% +% \changes{lettrine-1.6}{2004/05/22}{Added newif \cs{ifLettrineImage}.} +% +% \begin{macrocode} +\newcounter{DefaultLines} +\setcounter{DefaultLines}{2} +\newcommand*{\DefaultOptionsFile}{\relax} +\newcommand*{\DefaultLoversize}{0} +\newcommand*{\DefaultLraise}{0} +\newcommand*{\DefaultLhang}{0} +\newdimen\DefaultFindent +\setlength{\DefaultFindent}{\z@} +\newdimen\DefaultNindent +\setlength{\DefaultNindent}{0.5em} +\newdimen\DefaultSlope +\setlength{\DefaultSlope}{\z@} +\newif\ifLettrineImage +% \end{macrocode} +% +% Then let's define the necessary internal counters, lengths, +% and commands. +% +% \changes{lettrine-1.6}{2004/05/22}{Added newif \cs{ifL@image}.} +% +% \begin{macrocode} +\newsavebox{\L@lbox} +\newsavebox{\L@tbox} +\newcounter{L@lines} +\newdimen\L@Pindent +\newdimen\L@Findent +\newdimen\L@Nindent +\newdimen\L@lraise +\newdimen\L@first +\newdimen\L@next +\newdimen\L@slope +\newdimen\L@height +\newcommand*{\L@file}{} +\newcommand*{\L@hang}{} +\newcommand*{\L@oversize}{} +\newcommand*{\L@raise}{} +\newcommand*{\L@ante}{} +\newif\ifL@image +% \end{macrocode} +% +% Provide commands for the fonts used to typeset the two +% mandatory arguments of |\lettrine|. +% +% \begin{macro}{\LettrineTextFont} +% In French, small caps usually follow the dropped capital. +% \begin{macrocode} +\newcommand*{\LettrineTextFont}{\scshape} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\LettrineFont} +% \begin{macro}{\LettrineFontHook} +% \begin{macro}{\LettrineFontEPS} +% The default size for the dropped capital is computed so that the +% top of it is exactly aligned with the top of the following text; +% an extra height (positive or negative) may be added with +% |Defaultloversize| or an optional argument |loversize=|. +% If |lines=1|, the default size for the dropped capital is +% computed as if |lines=2|. +% |\Lettrine@height| computes the wished height for the dropped +% capital and stores it into |\L@height|. +% As |\baselineskip| might be a rubber length, we convert it into +% a `dimen' using |\@tempdima|. +% |\LettrineFontHook| enables to select another font for the +% dropped capital. Its default definition is empty (the current +% text font is used). +% +% \changes{lettrine-0.9}{1998/02/23}{Size of the dropped capital +% when lines=1 changed (was \cs{Huge}).} +% \changes{lettrine-0.9}{1998/03/13}{\cs{Lettrine@height} added.} +% \changes{lettrine-0.9}{1998/03/13}{\cs{LettrineFontHook} added.} +% \changes{lettrine-0.9}{1998/03/13}{\cs{LettrineFontEPS} added.} +% \changes{lettrine-1.2}{2002/03/13}{\cs{baselineskip} may be a +% rubber length, we convert it to a dimen.} +% +% \begin{macrocode} +\def\Lettrine@height{% + \@tempdima=\baselineskip + \setlength{\L@height}{\theL@lines\@tempdima}% + \ifnum\theL@lines>1 + \addtolength{\L@height}{-\@tempdima}% + \fi + \sbox{\L@tbox}{\LettrineTextFont x}% + \addtolength{\L@height}{\ht\L@tbox}% + \addtolength{\L@height}{\L@oversize\L@height}} +\newcommand*{\LettrineFontHook}{} +\newcommand*{\LettrineFont}{% + \Lettrine@height +% \end{macrocode} +% |\L@height| now holds the exact height required for the dropped +% capital, setting |\fontsize| to that height would not give the +% expected result (capital too small), some computing has to be +% done: we measure how high an `X' capital would be and compute +% a scaling factor (always $\ge1$). +% \begin{macrocode} + \sbox{\L@tbox}{\LettrineFontHook\fontsize{\L@height}{\L@height}% + \selectfont X}% +% \end{macrocode} +% Arithmetic calculations convert the dimensions into integers +% (in sp) and compute a (4 decimal accurate) scaling factor. +% \begin{macrocode} + \@tempcntb=\ht\L@tbox + \@tempcnta=\L@height + \multiply\@tempcnta by 100 + \divide\@tempcntb by 100 + \divide\@tempcnta by \@tempcntb + \advance\@tempcnta by -9999 + \ifnum\@tempcnta>0 + \def\@tempa{1.\the\@tempcnta}% + \else + \def\@tempa{1}% + \fi + \LettrineFontHook + \fontsize{\@tempa\L@height}{\@tempa\L@height}% + \selectfont +} +% \end{macrocode} +% +% The following definition is for use with dropped capitals defined +% as images: EPS, PDF, JPG, PNG files (see examples in demo.tex). +% Its use requires the |graphicx| package to be loaded in the +% preamble with |\usepackage{graphicx}|. The required size is +% computed just as in the standard case, |\includegraphics| +% prints the EPS file at this size. +% +% \changes{lettrine-1.6}{2004/05/22}{Added newif \cs{LettrineFontHook} +% to \cs{LettrineFontEPS}. This is needed for color options.} +% +% \begin{macrocode} +\newcommand*{\LettrineFontEPS}{% + \Lettrine@height\LettrineFontHook + \includegraphics[height=\L@height]} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% Set up keyval initializations. +% +% \begin{macrocode} +\define@key{L}{lines}{\setcounter{L@lines}{#1}} +\define@key{L}{lhang}{\renewcommand*{\L@hang}{#1}} +\define@key{L}{loversize}{\renewcommand*{\L@oversize}{#1}} +\define@key{L}{lraise}{\renewcommand*{\L@raise}{#1}} +\define@key{L}{ante}{\renewcommand*{\L@ante}{#1}} +\define@key{L}{findent}{\setlength{\L@Findent}{#1}} +\define@key{L}{nindent}{\setlength{\L@Nindent}{#1}} +\define@key{L}{slope}{\setlength{\L@slope}{#1}} +\define@key{L}{image}[true]{\csname L@image#1\endcsname} +% \end{macrocode} +% +% \changes{lettrine-1.5}{2003/08/18}{\cs{LettrineOptionsFor} and +% \cs{LettrineWidth} added.} +% +% \begin{macro}{\LettrineOptionsFor} +% This command is to be used in an optional config file (the name +% of which is found in |\DefaultOptionsFile|) to set the values +% of parameters on a per character basis, for instance:\\ +% |\LettrineOptionsFor{A}{slope=0.6em, findent=-1em, nindent=0.6em}|\\ +% creates an internal command (|\l@A-keys| in this example), +% which expands to the options given as second argument of +% |\LettrineOptionsFor| for letter `A'. +% +% \begin{macrocode} +\newcommand*{\LettrineOptionsFor}[2]{\@namedef{l@#1-keys}{#2}} +\newdimen\LettrineWidth +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\lettrine} +% Now let's define |\lettrine|. +% +% \begin{macrocode} +\def\lettrine{\@ifnextchar[\@lettrine{\@lettrine[]}} +\def\@lettrine[#1]#2#3{% +% \end{macrocode} +% +% \changes{lettrine-0.81}{1997/02/26}{\cs{DefaultLoversize} added.} +% +% First reset the parameters to their default values: +% \begin{macrocode} + \setcounter{L@lines}{\theDefaultLines}% + \renewcommand*{\L@hang}{\DefaultLhang}% + \renewcommand*{\L@oversize}{\DefaultLoversize}% + \renewcommand*{\L@raise}{\DefaultLraise}% + \renewcommand*{\L@ante}{}% + \setlength{\L@Findent}{\DefaultFindent}% + \setlength{\L@Nindent}{\DefaultNindent}% + \setlength{\L@slope}{\DefaultSlope}% + \ifLettrineImage\L@imagetrue\else\L@imagefalse\fi +% \end{macrocode} +% \changes{lettrine-1.5}{2003/08/18}{Added reading of an optional +% config file \cs{DefaultOptionsFile}.} +% then try to read an optional file, the name of which is found +% in |\DefaultOptionsFile|, do this inside a group, and define a +% global command |\l@LOKeys| which will expand to the list of +% options given by |\LettrineOptionsFor| for the current lettrine +% (defined by |#2|)\dots +% \begin{macrocode} + \if\DefaultOptionsFile\relax + \else + \begingroup + \InputIfFileExists{\DefaultOptionsFile}% + {}% + {\PackageWarning{lettrine.sty}% + {File \DefaultOptionsFile\space not found}% + }% +% \end{macrocode} +% Gobble the colour commands, just keep the letter argument. +% \begin{macrocode} + \def\color##1##{\l@color{##1}}% + \let\l@color\@gobbletwo + \def\textcolor##1##{\l@textcolor{##1}}% + \def\l@textcolor##1##2##3{##3}% +% \end{macrocode} +% Save the list of options relevant to the letter in |#2| +% in |\l@LOKeys| (list is empty eventually). +% \begin{macrocode} + \expandafter\ifx\csname l@#2-keys\endcsname\relax + \gdef\l@LOKeys{}% + \else + \xdef\l@LOKeys{\csname l@#2-keys\endcsname}% + \fi + \endgroup +% \end{macrocode} +% Now apply these options (the following code executes +% |\setkeys{L}{\l@LOKeys}}| where |\l@LOKeys| is expanded, +% see \file{keyval.sty}). +% \begin{macrocode} + \def\KV@prefix{KV@L@}% + \let\@tempc\relax + \expandafter\KV@do\l@LOKeys,\relax, +% \end{macrocode} +% As some parameters' values |findent|, |nindent| and |slope| +% ---which do not influence the lettrine size--- may be given +% relative to |\LettrineWidth|, this has to be done again after +% measuring the lettrine for |\LettrineWidth| to be set properly. +% \begin{macrocode} + \sbox{\L@lbox}{\LettrineFont #2}% + \settowidth{\LettrineWidth}{\usebox{\L@lbox}}% + \def\KV@prefix{KV@L@}% + \let\@tempc\relax + \expandafter\KV@do\l@LOKeys,\relax, + \fi +% \end{macrocode} +% Finally read the optional argument: the |keyval| package will +% set the parameters mentioned calling |\define@key| (see above). +% \begin{macrocode} + \setkeys{L}{#1}% +% \end{macrocode} +% Save the two mandatory arguments of |\lettrine| into +% two boxes, this will help measuring their sizes. +% Depending on the boolean |image|, |\LettrineFont| or +% |\LettrineFontEPS| is used. +% \begin{macrocode} + \ifL@image + \sbox{\L@lbox}{\LettrineFontEPS{#2}}% + \else + \sbox{\L@lbox}{\LettrineFont #2}% + \fi +% \end{macrocode} +% +% \changes{lettrine-1.6}{2004/05/22}{Add braces around \#3 to allow +% commands taking an argument (such as \cs{MakeLowercase}) in +% \cs{LettrineTextFont}. Suggested by Philipp Lehman.} +% +% \begin{macrocode} + \sbox{\L@tbox}{\LettrineTextFont{#3}}% +% \end{macrocode} +% Start a new paragraph, skipping the necessary amount of space +% if the dropped capital sticks out the top of paragraph. +% We use |\L@first| to compute the amount of space to be skipped. +% Again, as |\baselineskip| might be a rubber length, we convert +% it into a `dimen' using |\@tempdima|. +% +% \changes{lettrine-0.9}{1998/02/23}{Calculations of length +% \cs{L@first} changed. Do not `vskip' small lengths ($<$0.2pt), +% they are just rounding errors.} +% +% \changes{lettrine-1.2}{2002/03/13}{\cs{baselineskip} may be a +% rubber length, we convert it to a dimen.} +% +% \begin{macrocode} + \@tempdima=\baselineskip + \ifnum\theL@lines=1 + \setlength{\L@first}{\ht\L@lbox}% + \addtolength{\L@first}{-\ht\L@tbox}% + \setlength{\L@lraise}{\z@}% + \else + \setlength{\L@first}{-\theL@lines\@tempdima}% + \addtolength{\L@first}{\@tempdima}% + \sbox{\@tempboxa}{\LettrineTextFont x}% + \addtolength{\L@first}{-\ht\@tempboxa}% +% \end{macrocode} +% Now, |\L@first| holds (the opposite of) the raw height of a +% standard dropped capital (like~'X'), excluding the effect of +% |\L@oversize|. This is the basis for |\L@raise| +% (and |\L@oversize|, see |\LettrineFont|). +% \begin{macrocode} + \setlength{\L@lraise}{-\L@raise\L@first}% + \addtolength{\L@first}{\L@lraise}% + \addtolength{\L@first}{\ht\L@lbox}% + \addtolength{\L@lraise}{-\theL@lines\@tempdima}% + \addtolength{\L@lraise}{\@tempdima}% + \fi + \par + \ifdim\L@first>0.2\p@\vskip\L@first\fi +% \end{macrocode} +% Again, we (mis)use the length |\L@first| to compute the width of +% the text eventually coming before the dropped capital. It is +% reset later on to hold the first line's length. +% \begin{macrocode} + \setlength{\L@Pindent}{\wd\L@lbox}% + \addtolength{\L@Pindent}{-\L@hang\wd\L@lbox}% + \settowidth{\L@first}{\L@ante}% + \addtolength{\L@Pindent}{\L@first}% + \addtolength{\L@Pindent}{\L@Findent}% + \setlength{\L@first}{\linewidth}% + \addtolength{\L@first}{-\L@Pindent}% +% \end{macrocode} +% Now let's compute |\L@Nindent| and |\L@next| for the next lines. +% \begin{macrocode} + \addtolength{\L@Nindent}{\L@Pindent}% + \setlength{\L@next}{\linewidth}% + \addtolength{\L@next}{-\L@Nindent}% +% \end{macrocode} +% +% \changes{lettrine-1.1}{1999/08/18}{Add \cs{rightmargin} to +% \cs{L@Pindent} for \cs{Lettrine} to work properly in quote, +% quotation, abstract environments\dots{} but do not change +% \cs{linewidth} which is set by these environments.} +% +% \changes{lettrine-1.4}{2002/10/26}{\cs{lettrine} still didn't +% work properly in quote, quotation, abstract environments, +% pointed out by Matthias C. Schmidt. \cs{rightmargin} was added +% too early to \cs{L@Nindent}, thus making \cs{\L@next} too short +% by \cs{rightmargin}.} +% +% This is for quotation, quote, abstract\dots{} environments: +% |\linewidth| is set by these environments, all we have to do +% is to shift our text left by |\rightmargin| (amount of space +% locally added to |\leftmargin| in these environments). +% \begin{macrocode} + \addtolength{\L@Pindent}{\rightmargin}% + \addtolength{\L@Nindent}{\rightmargin}% +% \end{macrocode} +% Now, set up the shape of the new paragraph (designed by +% |\parshape|). +% \begin{macrocode} + \addtocounter{L@lines}{1}% + \def\L@parshape{\c@L@lines \the\L@Pindent \the\L@first}% + \@tempcnta=\tw@ + \@whilenum \@tempcnta<\c@L@lines\do{% + \edef\L@parshape{\L@parshape \the\L@Nindent \the\L@next}% + \addtolength{\L@Nindent}{\L@slope}% + \addtolength{\L@next}{-\L@slope}% + \advance\@tempcnta\@ne}% + \edef\L@parshape{\L@parshape \rightmargin \the\linewidth}% + \noindent\leavevmode + \parshape=\L@parshape +% \end{macrocode} +% Write the dropped capital into the left margin, and wrap +% the rest of paragraph around it. +% \begin{macrocode} + $\smash{\llap{\mbox{\L@ante}\raisebox{\L@lraise}{\usebox{\L@lbox}}% + \hskip \the\L@Findent}}$% + \usebox{\L@tbox}} +% \end{macrocode} +% \end{macro} +% +% This ends the definition of |\lettrine|.\\ +% Load a local config file if present in \LaTeX{}'s search path. +% \begin{macrocode} +\InputIfFileExists{lettrine.cfg}{}{} +%</code> +% \end{macrocode} +% +% \Finale +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +\endinput diff --git a/Master/texmf-dist/source/latex/lettrine/lettrine.ins b/Master/texmf-dist/source/latex/lettrine/lettrine.ins new file mode 100644 index 00000000000..f8ef8175632 --- /dev/null +++ b/Master/texmf-dist/source/latex/lettrine/lettrine.ins @@ -0,0 +1,25 @@ +%% +%% This file will generate fast loadable files and documentation +%% driver files from the doc files in this package when run through +%% LaTeX or TeX. +%% +\def\batchfile{lettrine.ins} +\input docstrip.tex +\keepsilent + +\generateFile{lettrine.sty}{f}{\from{lettrine.dtx}{code}} + +\Msg{***********************************************************} +\Msg{*} +\Msg{* To finish the installation you have to move lettrine.sty} +\Msg{* into a directory searched by TeX.} +\Msg{*} +\Msg{* If you want to change the default settings, you can do so} +\Msg{* by copying lettrine.cfg to the directory where you will} +\Msg{* install lettrine.sty and uncomment the lines you want to} +\Msg{* change.} +\Msg{*} +\Msg{* Happy TeXing!} +\Msg{*} +\Msg{***********************************************************} + |