bizcard

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

1 files changed, 91 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/bizcard/bizcard.sty b/Master/texmf-dist/tex/latex/bizcard/bizcard.sty
new file mode 100644
index 00000000000..c1c28d145c2
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/bizcard/bizcard.sty
@@ -0,0 +1,91 @@
+%%
+%% This is file `bizcard.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% bizcard.dtx  (with options: `package')
+%% bizcard: A LaTeX2e package for business/visiting/calling cards
+%% 
+%% Copyright (C) 1999 Sebastian Marius Kirsch <skirsch@t-online.de>
+%% 
+%% This program is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU General Public License as published by
+%% the Free Software Foundation; either version 2, or (at your option)
+%% any later version.
+%% 
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+%% GNU General Public License for more details.
+%% 
+%% You should have received a copy of the GNU General Public License
+%% along with this program; see the file COPYING.
+%% If not, write to the Free Software Foundation,
+%% 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+%% 
+\def\fileversion{1.1} % ^^A -*-latex-*-
+\def\filedate{1999/09/04}
+%%\CheckSum{73}
+%%\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         \~}
+%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{bizcard}%
+  [\filedate\space v\fileversion\space  Package for business cards]
+\newcommand*{\bizcard@marks}{}
+\DeclareOption{none}{\renewcommand{\bizcard@marks}{}}
+\DeclareOption{frame}{\renewcommand{\bizcard@marks}{%
+    \multiput(0,0)(0,51){6}{\line(1,0){178}}
+    \multiput(0,0)(89,0){3}{\line(0,1){255}}}}
+\DeclareOption{star}{\renewcommand{\bizcard@marks}{%
+\multiput(0,0)(0,51){6}{\makebox(0.0,0.1)[c]{{\tiny +}}}
+\multiput(89,0)(0,51){6}{\makebox(0.0,0.1)[c]{{\tiny +}}}
+\multiput(178,0)(0,51){6}{\makebox(0.0,0.1)[c]{{\tiny +}}}}}
+\DeclareOption{flat}{\renewcommand{\bizcard@marks}{%
+\thinlines
+\multiput(0,-.5)(89,0){3}{\line(0,-1){5}}
+\multiput(0,255.5)(89,0){3}{\line(0,1){5}}
+\multiput(-.5,0)(0,51){6}{\line(-1,0){5}}
+\multiput(178.5,0)(0,51){6}{\line(1,0){5}}}}
+\ExecuteOptions{star}
+
+\ProcessOptions
+\RequirePackage{ifthen}
+
+\ifthenelse{%
+  \lengthtest{\textwidth<178.8mm}\or\lengthtest{\textheight<255mm}}{%
+  \RequirePackage[body={178.8mm,255mm},noheadfoot]{geometry}[1998/04/08]%
+  }{}
+\newsavebox{\bizcard@box}
+
+\newenvironment{bizcard}{%
+  \setlength{\unitlength}{1mm}%
+  \begin{lrbox}{\bizcard@box}%
+    \begin{picture}(89,51)%
+      }{%
+    \end{picture}%
+  \end{lrbox}%
+  \thispagestyle{empty}%
+  \noindent\begin{picture}(178,255)(0,0)%
+    \multiput(0,0)(0,51){5}{\usebox{\bizcard@box}}
+    \multiput(89,0)(0,51){5}{\usebox{\bizcard@box}}
+    \bizcard@marks
+  \end{picture}
+  }
+\endinput
+%%
+%% End of file `bizcard.sty'.