From be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 26 Apr 2015 21:24:24 +0000 Subject: elzcards (26apr15) git-svn-id: svn://tug.org/texlive/trunk@37063 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/elzcards/elzcards.cls | 234 ------------ Master/texmf-dist/tex/latex/elzcards/elzcards.sty | 414 ++++++++++++++++++++++ 2 files changed, 414 insertions(+), 234 deletions(-) delete mode 100644 Master/texmf-dist/tex/latex/elzcards/elzcards.cls create mode 100644 Master/texmf-dist/tex/latex/elzcards/elzcards.sty (limited to 'Master/texmf-dist/tex/latex/elzcards') diff --git a/Master/texmf-dist/tex/latex/elzcards/elzcards.cls b/Master/texmf-dist/tex/latex/elzcards/elzcards.cls deleted file mode 100644 index 6e2c4d5ec67..00000000000 --- a/Master/texmf-dist/tex/latex/elzcards/elzcards.cls +++ /dev/null @@ -1,234 +0,0 @@ -%% -%% This is file `elzcards.cls', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% elzcards.dtx (with options: `class') -%% -%% Copyright 2015 Emilio Lazo Zaia -%% -%% This work may be distributed and/or modified under the -%% conditions of the LaTeX Project Public License, either -%% version 1.3c of this license or (at your option) any later -%% version. This version of this license is in -%% http://www.latex-project.org/lppl/lppl-1-3c.{html|txt|tex|pdf} -%% and the latest version of this license is in -%% http://www.latex-project.org/lppl.txt -%% and version 1.3c or later is part of all distributions of -%% LaTeX version 2008/05/04 or later. -%% -%% This work has the LPPL maintenance status `maintained'. -%% -%% The Current Maintainer of this work is Emilio Lazo Zaia. -%% -%% This work consists of the files README and elzcards.dtx with -%% its derived files elzcards.ins, elzcards.cls and -%% elzcards-example.tex. -%% -\NeedsTeXFormat{LaTeX2e}[1995/12/01] -\ProvidesClass{elzcards} -[2015/03/05 v1.00 ELZ cards] -\RequirePackage{calc} -\RequirePackage{xparse} - -\DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}} -\ProcessOptions\relax -\LoadClass{article} - -\newif\if@elzc@puntos -\newif\if@elzc@lineas -\newif\if@elzc@guias -\newif\if@elzc@fichaconreverso -\newif\if@elzc@reversoficha - -\newlength{\elzc@TarjXdim} -\newlength{\elzc@TarjYdim} -\newlength{\elzc@TempLen} - -\newcounter{elzc@TarjXdim} -\newcounter{elzc@TarjYdim} -\newcounter{elzc@PapelX} -\newcounter{elzc@PapelY} -\newcounter{elzc@NumX} -\newcounter{elzc@NumY} -\newcounter{elzc@ContX} -\newcounter{elzc@ContY} -\newcounter{elzc@PosX} -\newcounter{elzc@PosY} -\newcounter{elzc@RestoX} -\newcounter{elzc@XInicial} -\newcounter{elzc@Punto} -\newcounter{elzc@Arista} -\newcounter{elzc@Fichas} -\newcounter{elzc@TempFichaActual} -\newcounter{elzc@TempFichaActualII} - -\setlength{\parindent}{0pt} -\setlength{\unitlength}{1sp} -\pagestyle{empty} - -\newlength{\elzc@DefTPXdim} -\newlength{\elzc@DefTPYdim} -\newlength{\elzc@DefFichaXdim} -\newlength{\elzc@DefFichaYdim} -\newlength{\elzc@DefLinea} -\newcounter{elzc@DefArista} -\newcounter{elzc@DefPunto} - -\setlength{\elzc@DefTPXdim}{3.5in} -\setlength{\elzc@DefTPYdim}{2in} -\setlength{\elzc@DefFichaXdim}{5in} -\setlength{\elzc@DefFichaYdim}{3in} -\setlength{\elzc@DefLinea}{0.1mm} -\setcounter{elzc@DefArista}{186468} -\setcounter{elzc@DefPunto}{65536} - -\newcommand{\elzc@Cuadricula}[1]{% - \setcounter{elzc@TarjXdim}{\elzc@TarjXdim}% - \setcounter{elzc@TarjYdim}{\elzc@TarjYdim}% - \setcounter{elzc@PapelX}{\textwidth}% - \setcounter{elzc@PapelY}{\textheight}% - \setcounter{elzc@NumX}{\value{elzc@PapelX} / \value{elzc@TarjXdim}}% - \setcounter{elzc@NumY}{\value{elzc@PapelY} / \value{elzc@TarjYdim}}% - \setcounter{elzc@ContX}{-1}% - \setcounter{elzc@ContY}{-1}% - \setcounter{elzc@RestoX}{- \value{elzc@PapelX} + \value{elzc@NumX} * \value{elzc@TarjXdim}}% - \begin{picture}(\value{elzc@PapelX},\value{elzc@PapelY})(\value{elzc@XInicial},0)% - \loop \ifnum\value{elzc@ContY} < \value{elzc@NumY} \advance\value{elzc@ContY} by 1{% - \loop \ifnum\value{elzc@ContX} < \value{elzc@NumX} \advance\value{elzc@ContX} by 1{% - \if@elzc@reversoficha - \setcounter{elzc@PosX}{\value{elzc@NumX} * \value{elzc@TarjXdim} - % - \value{elzc@ContX} * \value{elzc@TarjXdim} - \value{elzc@TarjXdim}}% - \else - \setcounter{elzc@PosX}{\value{elzc@ContX} * \value{elzc@TarjXdim}}% - \fi - \setcounter{elzc@PosY}{\value{elzc@ContY} * \value{elzc@TarjYdim}}% - \ifnum \value{elzc@ContX} < \value{elzc@NumX}% - \ifnum \value{elzc@ContY} < \value{elzc@NumY}% - \put(\value{elzc@PosX},\value{elzc@PosY}){% - \makebox(\value{elzc@TarjXdim}, \value{elzc@TarjYdim}){% - \ifnum\value{elzc@TempFichaActual} < \value{elzc@Fichas}% - \addtocounter{elzc@TempFichaActual}{1}% - \addtocounter{elzc@TempFichaActualII}{1}% - \parbox[t][\elzc@TarjYdim]{\elzc@TarjXdim}{% - \if@elzc@reversoficha - \expandafter\csname FichaReverso\romannumeral\value{elzc@TempFichaActual}\endcsname - \else - \expandafter\csname Ficha\romannumeral\value{elzc@TempFichaActual}\endcsname - \fi}% - \else - \parbox[t][\elzc@TarjYdim]{\elzc@TarjXdim}{#1}% - \fi}}% - \fi - \fi - \if@elzc@guias - \ifnum \value{elzc@ContX} = 0 - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(-1,0){\value{elzc@Arista}}}% - \else - \ifnum \value{elzc@ContX} = \value{elzc@NumX}% - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(2,0){\value{elzc@Arista}}}% - \else - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(-1,0){\value{elzc@Arista}}}% - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(2,0){\value{elzc@Arista}}}% - \fi - \fi - \ifnum \value{elzc@ContY} = 0 - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(0,-1){\value{elzc@Arista}}}% - \else - \ifnum \value{elzc@ContY} = \value{elzc@NumY}% - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(0,0){\value{elzc@Arista}}}% - \else - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(0,0){\value{elzc@Arista}}}% - \put(\value{elzc@PosX},\value{elzc@PosY}){\line(0,-1){\value{elzc@Arista}}}% - \fi - \fi - \fi - \if@elzc@lineas - \multiput(\value{elzc@PosX}, 0)(0, \value{elzc@TarjYdim})% - {\value{elzc@NumY}}{\line(0,1){\value{elzc@TarjYdim}}}% - \multiput(0, \value{elzc@PosY})(\value{elzc@TarjXdim}, 0)% - {\value{elzc@NumX}}{\line(1,0){\value{elzc@TarjXdim}}}% - \fi - \if@elzc@puntos - \put(\value{elzc@PosX}, \value{elzc@PosY}){\circle*{\value{elzc@Punto}}} - \fi}% - \repeat}% - \repeat - \end{picture}% - \@elzc@lineasfalse\@elzc@puntosfalse\@elzc@guiasfalse\@elzc@reversofichafalse} - -\NewDocumentCommand{\elzc@Tarjetas}{s s o o o m o}{% - \IfBooleanTF{#2}{\@elzc@lineastrue}{\IfBooleanTF{#1}{\@elzc@puntostrue}{\@elzc@guiastrue}}% - \setlength{\elzc@TarjXdim}{#3}% - \setlength{\elzc@TarjYdim}{#4}% - \IfValueTF{#5}{% - \IfBooleanTF{#2} - {\linethickness{#5}} - {\IfBooleanTF{#1} - {\setlength{\elzc@TempLen}{#5}\setcounter{elzc@Punto}{\elzc@TempLen}} - {\setlength{\elzc@TempLen}{#5}\setcounter{elzc@Arista}{\elzc@TempLen}% - \linethickness{\elzc@DefLinea}}}% - }{% - \IfBooleanTF{#2} - {\linethickness{\elzc@DefLinea}} - {\IfBooleanTF{#1} - {\setcounter{elzc@Punto}{\value{elzc@DefPunto}}} - {\setcounter{elzc@Arista}{\value{elzc@DefArista}}\linethickness{\elzc@DefLinea}}% - }% - }% - \elzc@Cuadricula{\setlength{\unitlength}{1mm}#6}% - \if@elzc@fichaconreverso - \addtocounter{elzc@TempFichaActual}{-\value{elzc@TempFichaActualII}}% - \newpage - \setcounter{elzc@XInicial}{\value{elzc@RestoX}}% - \@elzc@reversofichatrue - \elzc@Cuadricula{\setlength{\unitlength}{1mm}}% - \else - \IfValueT{#7}{% - \immediate\write\@auxout{\string\@twosidetrue\string\@mparswitchtrue}% - \newpage - \setcounter{elzc@XInicial}{\value{elzc@RestoX}}% - \elzc@Cuadricula{\setlength{\unitlength}{1mm}#7}}% - \fi - \cleardoublepage - \setcounter{elzc@TempFichaActualII}{0}% - \setcounter{elzc@XInicial}{0}% - \ifnum\value{elzc@TempFichaActual} < \value{elzc@Fichas}% - \IfBooleanTF{#2}{\MakeIC**[#3][#4][#5]}{\IfBooleanTF{#1}{% - \MakeIC*[#3][#4][#5]}{\MakeIC[#3][#4][#5]}}% - \fi - \setcounter{elzc@Fichas}{0}% - \setcounter{elzc@TempFichaActual}{0}% - \@elzc@fichaconreversofalse} - -\NewDocumentCommand{\MakeBC}{s s O{\elzc@DefTPXdim} O{\elzc@DefTPYdim} o m o}{% - \IfBooleanTF{#2} - {\elzc@Tarjetas**[#3][#4][#5]{#6}[#7]} - {\IfBooleanTF{#1} - {\elzc@Tarjetas*[#3][#4][#5]{#6}[#7]} - {\elzc@Tarjetas[#3][#4][#5]{#6}[#7]}}} - -\NewDocumentCommand{\MakeIC}{s s O{\elzc@DefFichaXdim} O{\elzc@DefFichaYdim} o}{% - \IfBooleanTF{#2} - {\elzc@Tarjetas**[#3][#4][#5]{}} - {\IfBooleanTF{#1} - {\elzc@Tarjetas*[#3][#4][#5]{}} - {\elzc@Tarjetas[#3][#4][#5]{}}}} - -\let\MakeFC\MakeIC - -\NewDocumentCommand{\Card}{m o}{% - \addtocounter{elzc@Fichas}{1}% - \expandafter\def\csname Ficha\romannumeral\value{elzc@Fichas}\endcsname{#1}% - \IfValueTF{#2}{% - \@elzc@fichaconreversotrue - \expandafter\def\csname FichaReverso\romannumeral\value{elzc@Fichas}\endcsname{#2}% - \immediate\write\@auxout{\string\@twosidetrue\string\@mparswitchtrue}} - {\expandafter\def\csname FichaReverso\romannumeral\value{elzc@Fichas}\endcsname{}}} - -\IfFileExists{\jobname.aux}{\input\jobname.aux} - -\endinput -%% -%% End of file `elzcards.cls'. diff --git a/Master/texmf-dist/tex/latex/elzcards/elzcards.sty b/Master/texmf-dist/tex/latex/elzcards/elzcards.sty new file mode 100644 index 00000000000..cd73ddea302 --- /dev/null +++ b/Master/texmf-dist/tex/latex/elzcards/elzcards.sty @@ -0,0 +1,414 @@ +%% +%% This is file `elzcards.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% elzcards.dtx (with options: `package') +%% +%% Copyright 2015 Emilio Lazo Zaia +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either +%% version 1.3c of this license or (at your option) any later +%% version. This version of this license is in +%% http://www.latex-project.org/lppl/lppl-1-3c.{html|txt|tex|pdf} +%% and the latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3c or later is part of all distributions of +%% LaTeX version 2008/05/04 or later. +%% +%% This work has the LPPL maintenance status `maintained'. +%% +%% The Current Maintainer of this work is Emilio Lazo Zaia. +%% +%% This work consists of the files README and elzcards.dtx with +%% its derived files elzcards.ins, elzcards.sty and +%% elzcards-example.tex. +%% +\NeedsTeXFormat{LaTeX2e}[1995/12/01] +\ProvidesPackage{elzcards}[2015/04/26 v1.20 ELZ cards] + +\RequirePackage{calc} +\RequirePackage{xparse} +\RequirePackage{keyval} + +\newif\if@elzc@guias +\newif\if@elzc@puntos +\newif\if@elzc@lineas +\newif\if@elzc@tarjeta +\newif\if@elzc@tarjetaconreverso +\newif\if@elzc@fichaconreverso +\newif\if@elzc@conreverso +\newif\if@elzc@reverso + +\newlength{\elzc@TarjXdim} +\newlength{\elzc@TarjYdim} +\newlength{\elzc@SeparaX} +\newlength{\elzc@SeparaY} +\newlength{\elzc@TempLen} +\newlength{\elzc@TempUnitLength} +\newlength{\elzc@DefTPXdim} +\newlength{\elzc@DefTPYdim} +\newlength{\elzc@DefFichaXdim} +\newlength{\elzc@DefFichaYdim} +\newlength{\elzc@DefSeparaX} +\newlength{\elzc@DefSeparaY} +\newlength{\elzc@DefArista} +\newlength{\elzc@DefPunto} +\newlength{\elzc@DefLinea} + +\newcounter{elzc@TarjXdim} +\newcounter{elzc@TarjYdim} +\newcounter{elzc@PapelX} +\newcounter{elzc@PapelY} +\newcounter{elzc@NumX} +\newcounter{elzc@NumY} +\newcounter{elzc@NumXY} +\newcounter{elzc@ContX} +\newcounter{elzc@ContY} +\newcounter{elzc@PosX} +\newcounter{elzc@PosY} +\newcounter{elzc@SeparaX} +\newcounter{elzc@SeparaY} +\newcounter{elzc@XInicial} +\newcounter{elzc@RestoX} +\newcounter{elzc@Punto} +\newcounter{elzc@Arista} +\newcounter{elzc@Fichas} +\newcounter{elzc@FichaActual} +\newcounter{elzc@TempNumX} +\newcounter{elzc@TempNumY} +\newcounter{elzc@TempMarcaX} +\newcounter{elzc@TempMarcaY} +\newcounter{elzc@TempFichaActualRev} +\newcounter{elzc@TempInfo} + +\define@key{ELZc}{hsize}{\setlength{\elzc@TarjXdim}{#1}} +\define@key{ELZc}{vsize}{\setlength{\elzc@TarjYdim}{#1}} +\define@key{ELZc}{hgap}{\setlength{\elzc@SeparaX}{#1}} +\define@key{ELZc}{vgap}{\setlength{\elzc@SeparaY}{#1}} +\define@key{ELZc}{segment length}{% + \setlength{\elzc@TempLen}{#1}\setcounter{elzc@Arista}{\elzc@TempLen}} +\define@key{ELZc}{dot size}{\setlength{\elzc@TempLen}{#1}\setcounter{elzc@Punto}{\elzc@TempLen}} +\define@key{ELZc}{line thickness}{\linethickness{#1}} +\define@key{ELZc}{crosses}[true]{\@elzc@guiastrue\@elzc@puntosfalse\@elzc@lineasfalse} +\define@key{ELZc}{dots}[true]{\@elzc@guiasfalse\@elzc@puntostrue\@elzc@lineasfalse} +\define@key{ELZc}{lines}[true]{\@elzc@guiasfalse\@elzc@puntosfalse\@elzc@lineastrue} + +\newcommand*{\CurrentIC}{\arabic{elzc@FichaActual}} +\let\CurrentFC\CurrentIC + +\newcommand*{\TotalIC}{\arabic{elzc@Fichas}} +\let\TotalFC\TotalIC + +\newcommand*{\BCdim}[2]{\setlength{\elzc@DefTPXdim}{#1}\setlength{\elzc@DefTPYdim}{#2}} + +\newcommand*{\ICdim}[2]{\setlength{\elzc@DefFichaXdim}{#1}\setlength{\elzc@DefFichaYdim}{#2}} +\let\FCdim\ICdim + +\NewDocumentCommand{\BCgap}{m g}{% + \setlength{\elzc@DefSeparaX}{#1}% + \IfValueTF{#2}{\setlength{\elzc@DefSeparaY}{#2}}{\setlength{\elzc@DefSeparaY}{#1}}}% +\let\ICgap\BCgap +\let\FCgap\BCgap + +\newcommand*{\CrossSegment}[1]{\setlength{\elzc@DefArista}{#1}} + +\newcommand*{\DotSize}[1]{\setlength{\elzc@DefPunto}{#1}} + +\newcommand*{\LineThickness}[1]{\setlength{\elzc@DefLinea}{#1}} + +\newcommand*{\CropDots}{% + \def\elzc@DefMarcasCorte{\@elzc@guiasfalse\@elzc@puntostrue\@elzc@lineasfalse}} + +\newcommand*{\CropCrosses}{% + \def\elzc@DefMarcasCorte{\@elzc@guiastrue\@elzc@puntosfalse\@elzc@lineasfalse}} + +\newcommand*{\CropLines}{% + \def\elzc@DefMarcasCorte{\@elzc@guiasfalse\@elzc@puntosfalse\@elzc@lineastrue}} + +\NewDocumentCommand{\MakeBC}{s o}{% + \ifx\undefined\@elzc@TarjetaAnverso + \PackageError{elzcards}{There are no business cards defined}{}% + \else + \@elzc@tarjetatrue + \if@elzc@tarjetaconreverso \@elzc@conreversotrue \else \@elzc@conreversofalse \fi + \elzc@Predeterminados + \setlength{\elzc@TarjXdim}{\elzc@DefTPXdim}% + \setlength{\elzc@TarjYdim}{\elzc@DefTPYdim}% + \IfValueT{#2}{\setkeys{ELZc}{#2}}% + \elzc@Tarjetas + \IfBooleanF{#1}{\elzc@TodoCero}% + \fi} + +\NewDocumentCommand{\MakeIC}{s o}{% + \ifnum \value{elzc@Fichas} = 0 + \PackageError{elzcards}{There are no index/flash cards in stack}{}% + \else + \@elzc@tarjetafalse + \if@elzc@fichaconreverso \@elzc@conreversotrue \else \@elzc@conreversofalse \fi + \elzc@Predeterminados + \setlength{\elzc@TarjXdim}{\elzc@DefFichaXdim}% + \setlength{\elzc@TarjYdim}{\elzc@DefFichaYdim}% + \IfValueT{#2}{\setkeys{ELZc}{#2}}% + \elzc@Tarjetas + \IfBooleanF{#1}{\elzc@TodoCero*}% + \fi} +\let\MakeFC\MakeIC + +\NewDocumentCommand{\BusinessCard}{+m +o}{% + \def\@elzc@TarjetaAnverso{#1}% + \IfValueTF{#2}{% + \@elzc@tarjetaconreversotrue + \def\@elzc@TarjetaReverso{#2}% + \immediate\write\@auxout{\string\@twosidetrue\string\@mparswitchtrue}} + {\def\@elzc@TarjetaReverso{}}} + +\NewDocumentCommand{\IndexCard}{+m +o}{% + \addtocounter{elzc@Fichas}{1}% + \expandafter\def\csname @elzc@FichaAnverso\romannumeral\value{elzc@Fichas}\endcsname{#1}% + \IfValueTF{#2}{% + \@elzc@fichaconreversotrue + \expandafter\def\csname @elzc@FichaReverso\romannumeral\value{elzc@Fichas}\endcsname{#2}% + \immediate\write\@auxout{\string\@twosidetrue\string\@mparswitchtrue}} + {\expandafter\def\csname @elzc@FichaReverso\romannumeral\value{elzc@Fichas}\endcsname{}}} +\let\FlashCard\IndexCard + +\newcommand*{\elzc@Cuadricula}{% + \setlength{\elzc@TempUnitLength}{\unitlength}% + \setlength{\unitlength}{1sp}% + \setlength{\parindent}{0pt}% + \thispagestyle{empty}% + \setcounter{elzc@NumX}{0}% + \setcounter{elzc@NumY}{0}% + \setcounter{elzc@TempNumX}{0}% + \setcounter{elzc@TempNumY}{0}% + \setcounter{elzc@TarjXdim}{\elzc@TarjXdim}% + \setcounter{elzc@TarjYdim}{\elzc@TarjYdim}% + \setcounter{elzc@SeparaX}{\elzc@SeparaX}% + \setcounter{elzc@SeparaY}{\elzc@SeparaY}% + \setcounter{elzc@PapelX}{\textwidth}% + \setcounter{elzc@PapelY}{\textheight}% + \loop \ifnum\value{elzc@TempNumX} < \value{elzc@PapelX}% + \advance\value{elzc@TempNumX} by \value{elzc@TarjXdim}{% + \addtocounter{elzc@NumX}{1}% + \addtocounter{elzc@TempNumX}{\value{elzc@SeparaX}}}% + \repeat + \loop \ifnum\value{elzc@TempNumY} < \value{elzc@PapelY}% + \advance\value{elzc@TempNumY} by \value{elzc@TarjYdim}{% + \addtocounter{elzc@NumY}{1}% + \addtocounter{elzc@TempNumY}{\value{elzc@SeparaY}}}% + \repeat + \addtocounter{elzc@TempNumX}{-\value{elzc@SeparaX}}% + \addtocounter{elzc@TempNumY}{-\value{elzc@SeparaY}}% + \ifnum\value{elzc@TempNumX} > \value{elzc@PapelX}% + \addtocounter{elzc@NumX}{-1}% + \fi + \ifnum\value{elzc@TempNumY} > \value{elzc@PapelY}% + \addtocounter{elzc@NumY}{-1}% + \fi + \setcounter{elzc@NumXY}{\value{elzc@NumX} * \value{elzc@NumY}}% + \setcounter{elzc@ContX}{-1}% + \setcounter{elzc@ContY}{-1}% + \setcounter{elzc@RestoX}{- \value{elzc@PapelX} + \value{elzc@NumX} * + (\value{elzc@TarjXdim} + \value{elzc@SeparaX}) - \value{elzc@SeparaX}}% + \elzc@Informacion + \begin{picture}(\value{elzc@PapelX}, \value{elzc@PapelY})(\value{elzc@XInicial}, 0)% + \loop \ifnum\value{elzc@ContY} < \value{elzc@NumY} \advance\value{elzc@ContY} by 1{% + \loop \ifnum\value{elzc@ContX} < \value{elzc@NumX} \advance\value{elzc@ContX} by 1{% + \if@elzc@reverso + \setcounter{elzc@PosX}{(\value{elzc@NumX} - \value{elzc@ContX} - 1) * \value{elzc@TarjXdim}% + + (\value{elzc@NumX} - \value{elzc@ContX} - 1) * \value{elzc@SeparaX}}% + \else + \setcounter{elzc@PosX}{\value{elzc@ContX} * (\value{elzc@TarjXdim} + \value{elzc@SeparaX})}% + \fi + \setcounter{elzc@PosY}{\value{elzc@ContY} * (\value{elzc@TarjYdim} + \value{elzc@SeparaY})}% + \ifnum \value{elzc@ContX} < \value{elzc@NumX}% + \ifnum \value{elzc@ContY} < \value{elzc@NumY}% + \put(\value{elzc@PosX}, \value{elzc@PosY}){% + \makebox(\value{elzc@TarjXdim}, \value{elzc@TarjYdim}){% + \setlength{\unitlength}{\elzc@TempUnitLength}% + \parbox[t][\elzc@TarjYdim]{\elzc@TarjXdim}{% + \if@elzc@tarjeta + \if@elzc@reverso \@elzc@TarjetaReverso \else \@elzc@TarjetaAnverso \fi + \else + \ifnum\value{elzc@FichaActual} < \value{elzc@Fichas}% + \addtocounter{elzc@FichaActual}{1}% + \addtocounter{elzc@TempFichaActualRev}{1}% + \if@elzc@reverso + \expandafter\csname @elzc@FichaReverso\romannumeral\value{elzc@FichaActual}\endcsname + \else + \expandafter\csname @elzc@FichaAnverso\romannumeral\value{elzc@FichaActual}\endcsname + \fi + \fi + \fi}}}% + \fi + \fi + \if@elzc@reverso \else \elzc@CalculaMarcas \fi + }\repeat + }\repeat + \end{picture}} + +\newcommand*{\elzc@Tarjetas}{% + {\pagestyle{empty}\cleardoublepage}% + \elzc@Cuadricula + \if@elzc@conreverso + \@elzc@reversotrue + \if@elzc@tarjeta \else \addtocounter{elzc@FichaActual}{-\value{elzc@TempFichaActualRev}}\fi + \setcounter{elzc@XInicial}{\value{elzc@RestoX}}% + \clearpage + \elzc@Cuadricula + \setcounter{elzc@XInicial}{0}% + \@elzc@reversofalse + \fi + \if@elzc@tarjeta + \else + \setcounter{elzc@TempFichaActualRev}{0}% + \ifnum\value{elzc@FichaActual} < \value{elzc@Fichas}% + \elzc@Tarjetas% + \fi + \setcounter{elzc@FichaActual}{0}% + \fi + \clearpage} + +\NewDocumentCommand{\elzc@TodoCero}{s}{% + \IfBooleanTF{#1}{% + \setcounter{elzc@Fichas}{0}% + \@elzc@fichaconreversofalse} + {\let\@elzc@TarjetaAnverso\undefined + \let\@elzc@TarjetaReverso\undefined + \@elzc@tarjetaconreversofalse}} + +\newcommand*{\elzc@Predeterminados}{% + \elzc@DefMarcasCorte + \setlength{\elzc@SeparaX}{\elzc@DefSeparaX}% + \setlength{\elzc@SeparaY}{\elzc@DefSeparaY}% + \setlength{\elzc@TempLen}{\elzc@DefArista}\setcounter{elzc@Arista}{\elzc@TempLen}% + \setlength{\elzc@TempLen}{\elzc@DefPunto}\setcounter{elzc@Punto}{\elzc@TempLen}% + \linethickness{\elzc@DefLinea}} + +\newcommand*{\elzc@CalculaMarcas}{% + \setcounter{elzc@TempMarcaX}{\value{elzc@PosX}}% + \setcounter{elzc@TempMarcaY}{\value{elzc@PosY}}% + \ifnum \value{elzc@ContX} = \value{elzc@NumX}% + \else + \ifnum \value{elzc@ContY} = \value{elzc@NumY}% + \else + \elzc@DibujaMarcas{\value{elzc@TempMarcaX}}{\value{elzc@TempMarcaY}}% + \fi + \fi + \addtocounter{elzc@TempMarcaX}{-\value{elzc@SeparaX}}% + \ifnum \value{elzc@ContX} = 0% + \else + \ifnum \value{elzc@ContY} = \value{elzc@NumY}% + \else + \elzc@DibujaMarcas{\value{elzc@TempMarcaX}}{\value{elzc@TempMarcaY}}% + \fi + \fi + \addtocounter{elzc@TempMarcaY}{-\value{elzc@SeparaY}}% + \ifnum \value{elzc@ContX} = 0% + \else + \ifnum \value{elzc@ContY} = 0% + \else + \elzc@DibujaMarcas{\value{elzc@TempMarcaX}}{\value{elzc@TempMarcaY}}% + \fi + \fi + \addtocounter{elzc@TempMarcaX}{\value{elzc@SeparaX}}% + \ifnum \value{elzc@ContY} = 0% + \else + \ifnum \value{elzc@ContX} = \value{elzc@NumX}% + \else + \elzc@DibujaMarcas{\value{elzc@TempMarcaX}}{\value{elzc@TempMarcaY}}% + \fi + \fi} + +\newcommand*{\elzc@DibujaMarcas}[2]{% + \ifnum \value{elzc@ContX} = 0% + \if@elzc@guias\put(#1,#2){\line(-1,0){\value{elzc@Arista}}}\fi + \if@elzc@puntos\put(#1,#2){\circle*{\value{elzc@Punto}}}\fi + \else + \ifnum \value{elzc@ContX} = \value{elzc@NumX}% + \if@elzc@guias\put(#1,#2){\line(2,0){\value{elzc@Arista}}}\fi + \if@elzc@puntos\put(#1,#2){\circle*{\value{elzc@Punto}}}\fi + \else + \if@elzc@guias + \put(#1,#2){\line(-1,0){\value{elzc@Arista}}}% + \put(#1,#2){\line(2,0){\value{elzc@Arista}}}% + \fi + \if@elzc@puntos\put(#1,#2){\circle*{\value{elzc@Punto}}}\fi + \if@elzc@lineas + \put(#1,#2){\line(-1,0){\value{elzc@TarjXdim}}}% + \put(#1,#2){\line(2,0){\value{elzc@TarjXdim}}}% + \fi + \fi + \fi + \ifnum \value{elzc@ContY} = 0% + \if@elzc@guias\put(#1,#2){\line(0,-1){\value{elzc@Arista}}}\fi + \if@elzc@puntos\put(#1,#2){\circle*{\value{elzc@Punto}}}\fi + \else + \ifnum \value{elzc@ContY} = \value{elzc@NumY}% + \if@elzc@guias\put(#1,#2){\line(0,0){\value{elzc@Arista}}}\fi + \if@elzc@puntos\put(#1,#2){\circle*{\value{elzc@Punto}}}\fi + \else + \if@elzc@guias + \put(#1,#2){\line(0,0){\value{elzc@Arista}}}% + \put(#1,#2){\line(0,-1){\value{elzc@Arista}}}% + \fi + \if@elzc@puntos\put(#1,#2){\circle*{\value{elzc@Punto}}}\fi + \if@elzc@lineas + \put(#1,#2){\line(0,0){\value{elzc@TarjYdim}}}% + \put(#1,#2){\line(0,-1){\value{elzc@TarjYdim}}}% + \fi + \fi + \fi} + +\newcommand*{\elzc@Informacion}{% + \message{^^JProcessing}% + \if@elzc@tarjeta + \message{business cards,}% + \else + \message{index/flash cards,}% + \setcounter{elzc@TempInfo}{\value{elzc@NumXY} + \value{elzc@FichaActual}}% + \ifnum \value{elzc@TempInfo} > \value{elzc@Fichas}% + \setcounter{elzc@TempInfo}{\value{elzc@Fichas}}% + \fi + \addtocounter{elzc@FichaActual}{1}% + \message{current=\arabic{elzc@FichaActual}-\arabic{elzc@TempInfo}, + total=\arabic{elzc@Fichas},}% + \addtocounter{elzc@FichaActual}{-1}% + \fi + \if@elzc@reverso\message{back side,^^J}\else\message{front side,^^J}\fi + \message{ per page: \arabic{elzc@NumXY} (\arabic{elzc@NumX}x\arabic{elzc@NumY}),}% + \message{ hsize=\the\elzc@TarjXdim, vsize=\the\elzc@TarjYdim, + hgap=\the\elzc@SeparaX, vgap=\the\elzc@SeparaY,^^J}% + \if@elzc@guias + \message{ with crosses,}% + \setlength{\elzc@TempLen}{\value{elzc@Arista}sp}% + \message{segment length=\the\elzc@TempLen, line thickness=\the\@wholewidth.^^J}% + \fi + \if@elzc@puntos + \message{ with dots,}% + \setlength{\elzc@TempLen}{\value{elzc@Punto}sp}% + \message{dot size=\the\elzc@TempLen.^^J}% + \fi + \if@elzc@lineas + \message{ with lines, line thickness=\the\@wholewidth.^^J}% + \fi} + +\setlength{\elzc@DefTPXdim}{3.5in} +\setlength{\elzc@DefTPYdim}{2in} +\setlength{\elzc@DefFichaXdim}{5in} +\setlength{\elzc@DefFichaYdim}{3in} +\setlength{\elzc@DefSeparaX}{0cm} +\setlength{\elzc@DefSeparaY}{0cm} +\setlength{\elzc@DefArista}{1mm} +\setlength{\elzc@DefPunto}{1pt} +\setlength{\elzc@DefLinea}{0.1mm} +\CropCrosses + +\InputIfFileExists{\jobname.aux}{}\relax + +\endinput +%% +%% End of file `elzcards.sty'. -- cgit v1.2.3