From cf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 19 Feb 2008 17:05:28 +0000
Subject: new latex collection shipunov (18feb08)

git-svn-id: svn://tug.org/texlive/trunk@6680 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/shipunov/drcaps.sty | 33 +++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/shipunov/drcaps.sty

(limited to 'Master/texmf-dist/tex/latex/shipunov/drcaps.sty')

diff --git a/Master/texmf-dist/tex/latex/shipunov/drcaps.sty b/Master/texmf-dist/tex/latex/shipunov/drcaps.sty
new file mode 100644
index 00000000000..0c010a19674
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/shipunov/drcaps.sty
@@ -0,0 +1,33 @@
+% Author: Alexey B. Shipunov (plantago@herba.msu.ru)
+
+\ProvidesPackage{drcaps}%
+        [2008/02/05 v0.2 Various drop caps]
+
+\newcount\Cap@
+\newdimen\Cap@D
+
+% Change this command
+\def\formatCap{\normalfont\Huge\bfseries}
+
+% Hanging initial
+\def\RCap#1{\vskip1ex\noindent%
+        {\formatCap#1\hskip.03em}%
+\ignorespaces}
+
+% Margin initial
+\def\HCap#1{\noindent\raisebox{-.75\baselineskip}[0pt][0pt]%
+        {\llap{\formatCap#1\hskip.1em}}%
+\ignorespaces}
+
+% "Normal" initial
+\def\DCap#1{\noindent\setbox0\hbox{\formatCap#1}%
+        \Cap@D\ht0
+        \advance\Cap@D by -1.6ex
+                \raisebox{-\Cap@D}[0pt][0pt]
+                {\makebox[0pt][r]{\copy0\hskip.2\wd0}}%
+        \Cap@\number\ht0
+        \divide\Cap@ by \baselineskip
+        \advance\Cap@ by 1
+\hangindent1.2\wd0 \hangafter-\Cap@ \ignorespaces}
+
+\endinput
-- 
cgit v1.2.3

