new latex package decorule (13jun11)

git-svn-id: svn://tug.org/texlive/trunk@23281 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 78 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/decorule/decorule.sty b/Master/texmf-dist/tex/latex/decorule/decorule.sty
new file mode 100644
index 00000000000..61c59eb9bc9
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/decorule/decorule.sty
@@ -0,0 +1,78 @@
+%%
+%% This is file `decorule.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% decorule.dtx  (with options: `package')
+%% This file was generated from an XML master source.
+%% Amendments and corrections should be notified to the maintiner
+%% for inclusion in future versions.
+%% decorule.dtx
+%% Copyright © 2010-2011 by Peter Flynn <peter@silmaril.ie>
+\NeedsTeXFormat{LaTeX2e}[2009/09/24]
+\ProvidesPackage{decorule}[2011/06/13 v0.22 The decorule LaTeX2e package]
+\RequirePackage{graphicx}
+\RequirePackage{fix-cm}
+\newcounter{sym@min}
+\setcounter{sym@min}{1}
+\newcounter{sym@max}
+\setcounter{sym@max}{20}
+\newcounter{sym@step}
+\setcounter{sym@step}{1}
+\newcounter{sym@rotate}
+\setcounter{sym@rotate}{45}
+\newcounter{sym@size}
+\newlength{\sym@raise}
+\newlength{\sym@skip}
+\newcommand{\sym@symbol}{$\sim$}
+\newcommand{\decorule}{%
+\setcounter{sym@size}{\c@sym@min}
+\loop
+\setlength{\sym@raise}{\c@sym@size pt}%
+    \divide\sym@raise by2
+\raisebox{-\sym@raise}{%
+      \fontsize{\c@sym@size}{0}\selectfont
+      \rotatebox{\c@sym@rotate}{\reflectbox{\hbox
+          to\c@sym@size pt{\hss\sym@symbol\hss}}}}%
+\setlength{\sym@skip}{\c@sym@size pt}%
+    \divide\sym@skip by3
+    \multiply\sym@skip by2
+    \kern-\sym@skip
+\addtocounter{sym@size}{\c@sym@step}%
+    \ifnum\c@sym@size<\c@sym@max
+  \repeat
+\setlength{\sym@raise}{\c@sym@max pt}%
+  \divide\sym@raise by2
+  \raisebox{-\sym@raise}{%
+    \fontsize{\c@sym@max}{0}\selectfont
+    \rotatebox{\c@sym@rotate}{\reflectbox{\hbox
+        to\c@sym@max pt{\hss\sym@symbol\hss}}}}%
+\loop
+    \setlength{\sym@skip}{\c@sym@size pt}%
+    \divide\sym@skip by3
+    \multiply\sym@skip by2
+    \kern-\sym@skip
+    \setlength{\sym@raise}{\c@sym@size pt}%
+    \divide\sym@raise by2
+    \raisebox{-\sym@raise}{%
+    \fontsize{\c@sym@size}{0}\selectfont
+    \rotatebox{\c@sym@rotate}{\reflectbox{\hbox
+        to\c@sym@size pt{\hss\sym@symbol\hss}}}}%
+    \addtocounter{sym@size}{-\c@sym@step}%
+    \ifnum\c@sym@size>\c@sym@min
+  \repeat
+\setlength{\sym@skip}{\c@sym@min pt}%
+  \divide\sym@skip by3
+  \multiply\sym@skip by2
+  \kern-\sym@skip
+  \setlength{\sym@raise}{\c@sym@min pt}%
+  \divide\sym@raise by2
+  \raisebox{-\sym@raise}{%
+  \fontsize{\c@sym@min}{0}\selectfont
+  \rotatebox{\c@sym@rotate}{\reflectbox{\hbox
+        to\c@sym@min pt{\hss\sym@symbol\hss}}}}%
+}
+\endinput
+%%
+%% End of file `decorule.sty'.