path: root/Master/texmf-dist/tex/latex/papercdcase/papercdcase.sty

%%
%% This is file `papercdcase.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% papercdcase.dtx 
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% Any modified versions of this file must be renamed
%% with new filenames distinct from papercdcase.sty.
%% 
%% For distribution of the original source see the terms
%% for copying and modification in the file papercdcase.dtx.
%% 
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%%^^A $Id: papercdcase.dtx 11 2006-08-07 11:54:04Z tdussa $
\def\SVNMisc$#1: #2 #3${#2}
\def\SVNDate$#1: #2-#3-#4 #5${#2/#3/#4}
\def\filename{papercdcase.dtx}
\xdef\fileversion{\SVNMisc$Revision: 11 $}
\xdef\filedate{\SVNDate$Date: 2006-08-07 13:54:04 +0200 (Mon, 07 Aug 2006) $}
\let\docversion=\fileversion
\let\docdate=\filedate
\typeout{%
%% Purpose:
        Package: papercdcase \filedate\space\fileversion\space
        for typesetting paper CD cases.
}%
%%
%% Documentation:
%%      The documentation  can be generated   from the original  file
%%      papercdcase.dtx with the doc  style/package.   LaTeX the file
%% papercdcase.dtx to get the full documentation in dvi format.
%%
%%
%% Author: Tobias Dussa
%%         Im Schlossfeld 4
%%         77855 Achern
%% Mail:   tdussa@sdhs.de
%%
%% Copyright (C) 2006 Tobias Dussa
%%
%%  papercdcase.dtx is distributed in  hopes  that  it will be useful,
%%  but  WITHOUT  ANY WARRANTY.    No  author or  distributor  accepts
%%  responsibility to  anyone for the  consequences of using it or for
%%  whether  it serves any particular purpose  or works at all, unless
%%  he says so in writing.
%%
%%  Everyone  is granted permission  to copy,  modify and redistribute
%%  papercdcase.dtx,  provided this copyright notice  is preserved and
%%  any modifications are indicated.
%%
%%
%%  This style is still under development and  may be replaced with a
%%  new version which provides an enhanced functionality.
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  \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         \~}
%%
\ProvidesPackage{papercdcase}[\filedate v.\fileversion{} Paper CD Case Style (TD)]
\NeedsTeXFormat{LaTeX2e}

\RequirePackage{graphicx}
\RequirePackage{calc}

\makeatletter

\newcommand{\@PCDC@Latch@Matter}{}
\newcommand{\@PCDC@Pouch@Matter}{}
\newcommand{\@PCDC@Back@Matter}{}
\newcommand{\@PCDC@Spine@Matter}{}

\newcommand{\setcdlatchmatter}[1]{\renewcommand{\@PCDC@Latch@Matter}{#1}}
\newcommand{\setcdpouchmatter}[1]{\renewcommand{\@PCDC@Pouch@Matter}{#1}}
\newcommand{\setcdbackmatter}[1]{\renewcommand{\@PCDC@Back@Matter}{#1}}
\newcommand{\setcdspinematter}[1]{\renewcommand{\@PCDC@Spine@Matter}{#1}}

\DeclareRobustCommand{\papercdcase}{%
\@ifstar%
{\setcounter{@PCDC@Design@Height}{297}\setcounter{@PCDC@Pouch@Height}{75}\@PCDC@Typeset@Scheme}%
{\setcounter{@PCDC@Design@Height}{279}\setcounter{@PCDC@Pouch@Height}{64}\@PCDC@Typeset@Scheme}}

%% Control counters.
%% Overall height of the folding scheme.
\newcounter{@PCDC@Design@Height}
%% Height of the CD pouch.
\newcounter{@PCDC@Pouch@Height}
%% Height (and width) of the folded paper CD case.
\newcounter{@PCDC@Back@Height}
%% Height of the CD case spine.
\newcounter{@PCDC@Spine@Height}
%% Margin between the text boxes and the edge of the CD case.
\newcounter{@PCDC@Text@Margin}
%% Length of regular fold marks.
\newcounter{@PCDC@Fold@Length}
%% Length of short fold marks.
\newcounter{@PCDC@Fold@Short@Length}
%% Space between fold marks and their labels.
\newcounter{@PCDC@Label@Sep}

\setcounter{@PCDC@Design@Height}{279}
\setcounter{@PCDC@Pouch@Height}{64}
\setcounter{@PCDC@Back@Height}{125}
\setcounter{@PCDC@Spine@Height}{8}
\setcounter{@PCDC@Text@Margin}{5}
\setcounter{@PCDC@Fold@Length}{25}
\setcounter{@PCDC@Fold@Short@Length}{20}
\setcounter{@PCDC@Label@Sep}{1}

%% Common counters.
\newcounter{@PCDC@Design@width}
\newcounter{@PCDC@Top@Lft@Fold}
\newcounter{@PCDC@Top@Rgt@Fold}
\newcounter{@PCDC@Bot@Lft@Fold}
\newcounter{@PCDC@Bot@Rgt@Fold}
\newcounter{@PCDC@Lwr@Top@Fold}
\newcounter{@PCDC@Upr@Top@Fold}
\newcounter{@PCDC@Bot@Fold}
\newcounter{@PCDC@Text@width}
\newcounter{@PCDC@Fold@Dash@Number}

%% Counters with the actual coordinates of the folding marks.
\newcounter{@PCDC@Fold@A@Lft@X}
\newcounter{@PCDC@Fold@A@Lft@Y}
\newcounter{@PCDC@Fold@A@Rgt@X}
\newcounter{@PCDC@Fold@A@Rgt@Y}
\newcounter{@PCDC@Fold@B@Lft@X}
\newcounter{@PCDC@Fold@B@Lft@Y}
\newcounter{@PCDC@Fold@B@Rgt@X}
\newcounter{@PCDC@Fold@B@Rgt@Y}
\newcounter{@PCDC@Fold@C@Top@X}
\newcounter{@PCDC@Fold@C@Top@Y}
\newcounter{@PCDC@Fold@C@Bot@X}
\newcounter{@PCDC@Fold@C@Bot@Y}
\newcounter{@PCDC@Fold@D@Top@X}
\newcounter{@PCDC@Fold@D@Top@Y}
\newcounter{@PCDC@Fold@D@Bot@X}
\newcounter{@PCDC@Fold@D@Bot@Y}
\newcounter{@PCDC@Fold@E@Lft@X}
\newcounter{@PCDC@Fold@E@Lft@Y}
\newcounter{@PCDC@Fold@E@Rgt@X}
\newcounter{@PCDC@Fold@E@Rgt@Y}
\newcounter{@PCDC@Fold@F@Lft@X}
\newcounter{@PCDC@Fold@F@Lft@Y}
\newcounter{@PCDC@Fold@F@Rgt@X}
\newcounter{@PCDC@Fold@F@Rgt@Y}
\newcounter{@PCDC@Fold@G@Lft@X}
\newcounter{@PCDC@Fold@G@Lft@Y}
\newcounter{@PCDC@Fold@G@Rgt@X}
\newcounter{@PCDC@Fold@G@Rgt@Y}
\newcounter{@PCDC@Fold@H@X}
\newcounter{@PCDC@Fold@H@Y}
\newcounter{@PCDC@Fold@I@X}
\newcounter{@PCDC@Fold@I@Y}
\newcounter{@PCDC@Fold@J@X}
\newcounter{@PCDC@Fold@J@Y}
\newcounter{@PCDC@Fold@K@X}
\newcounter{@PCDC@Fold@K@Y}
\newcounter{@PCDC@Fold@L@X}
\newcounter{@PCDC@Fold@L@Y}
\newcounter{@PCDC@Fold@M@X}
\newcounter{@PCDC@Fold@M@Y}

%% Counters with the actual coordinates of the text boxes.
\newcounter{@PCDC@Fold@A@Lft@Label@X}
\newcounter{@PCDC@Fold@A@Lft@Label@Y}
\newcounter{@PCDC@Fold@A@Rgt@Label@X}
\newcounter{@PCDC@Fold@A@Rgt@Label@Y}
\newcounter{@PCDC@Fold@B@Lft@Label@X}
\newcounter{@PCDC@Fold@B@Lft@Label@Y}
\newcounter{@PCDC@Fold@B@Rgt@Label@X}
\newcounter{@PCDC@Fold@B@Rgt@Label@Y}
\newcounter{@PCDC@Fold@C@Top@Label@X}
\newcounter{@PCDC@Fold@C@Top@Label@Y}
\newcounter{@PCDC@Fold@C@Bot@Label@X}
\newcounter{@PCDC@Fold@C@Bot@Label@Y}
\newcounter{@PCDC@Fold@D@Top@Label@X}
\newcounter{@PCDC@Fold@D@Top@Label@Y}
\newcounter{@PCDC@Fold@D@Bot@Label@X}
\newcounter{@PCDC@Fold@D@Bot@Label@Y}
\newcounter{@PCDC@Fold@E@Lft@Label@X}
\newcounter{@PCDC@Fold@E@Lft@Label@Y}
\newcounter{@PCDC@Fold@E@Rgt@Label@X}
\newcounter{@PCDC@Fold@E@Rgt@Label@Y}
\newcounter{@PCDC@Fold@F@Lft@Label@X}
\newcounter{@PCDC@Fold@F@Lft@Label@Y}
\newcounter{@PCDC@Fold@F@Rgt@Label@X}
\newcounter{@PCDC@Fold@F@Rgt@Label@Y}
\newcounter{@PCDC@Fold@G@Lft@Label@X}
\newcounter{@PCDC@Fold@G@Lft@Label@Y}
\newcounter{@PCDC@Fold@G@Rgt@Label@X}
\newcounter{@PCDC@Fold@G@Rgt@Label@Y}
\newcounter{@PCDC@Fold@H@Label@X}
\newcounter{@PCDC@Fold@H@Label@Y}
\newcounter{@PCDC@Fold@I@Label@X}
\newcounter{@PCDC@Fold@I@Label@Y}
\newcounter{@PCDC@Fold@J@Label@X}
\newcounter{@PCDC@Fold@J@Label@Y}
\newcounter{@PCDC@Fold@K@Label@X}
\newcounter{@PCDC@Fold@K@Label@Y}
\newcounter{@PCDC@Fold@L@Label@X}
\newcounter{@PCDC@Fold@L@Label@Y}
\newcounter{@PCDC@Fold@M@Label@X}
\newcounter{@PCDC@Fold@M@Label@Y}

%% Counters with the actual coordinates of the text boxes.
\newcounter{@PCDC@Pouch@Matter@X}
\newcounter{@PCDC@Pouch@Matter@Y}
\newcounter{@PCDC@Back@Matter@X}
\newcounter{@PCDC@Back@Matter@Y}
\newcounter{@PCDC@Spine@Matter@X}
\newcounter{@PCDC@Spine@Matter@Y}
\newcounter{@PCDC@Latch@Matter@X}
\newcounter{@PCDC@Latch@Matter@Y}

%% The actual output function.
\newcommand{\@PCDC@Typeset@Scheme}[1][120]{%
%% Scale the output.
\setlength{\unitlength}{1mm}
\multiply\unitlength by #1
\divide\unitlength by 120
%%
%% Compute the actual coordinates.
%% Common coordinates.
\setcounter{@PCDC@Design@width}{\value{@PCDC@Back@Height}+2*\value{@PCDC@Fold@Length}}
\setcounter{@PCDC@Top@Lft@Fold}{\value{@PCDC@Fold@Length}+1}
\setcounter{@PCDC@Top@Rgt@Fold}{\value{@PCDC@Fold@Length}+\value{@PCDC@Back@Height}}
\setcounter{@PCDC@Bot@Lft@Fold}{\value{@PCDC@Fold@Length}+1}
\setcounter{@PCDC@Bot@Rgt@Fold}{\value{@PCDC@Fold@Length}+\value{@PCDC@Back@Height}}
\setcounter{@PCDC@Lwr@Top@Fold}{2*\value{@PCDC@Pouch@Height}+2*\value{@PCDC@Back@Height}-\value{@PCDC@Design@Height}}
\setcounter{@PCDC@Upr@Top@Fold}{\value{@PCDC@Lwr@Top@Fold}+2*\value{@PCDC@Spine@Height}}
\setcounter{@PCDC@Bot@Fold}{2*\value{@PCDC@Pouch@Height}}
\setcounter{@PCDC@Text@width}{\value{@PCDC@Back@Height}-2*\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Fold@Dash@Number}{\value{@PCDC@Fold@Length}/2}
%%
%% Fold mark coordinates.
\setcounter{@PCDC@Fold@A@Lft@X}{\value{@PCDC@Top@Lft@Fold}}
\setcounter{@PCDC@Fold@A@Lft@Y}{\value{@PCDC@Design@Height}}
\setcounter{@PCDC@Fold@A@Rgt@X}{\value{@PCDC@Top@Rgt@Fold}}
\setcounter{@PCDC@Fold@A@Rgt@Y}{\value{@PCDC@Design@Height}}
\setcounter{@PCDC@Fold@B@Lft@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@B@Lft@Y}{0}
\setcounter{@PCDC@Fold@B@Rgt@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@B@Rgt@Y}{0}
\setcounter{@PCDC@Fold@C@Top@X}{\value{@PCDC@Top@Rgt@Fold}}
\setcounter{@PCDC@Fold@C@Top@Y}{\value{@PCDC@Design@Height}}
\setcounter{@PCDC@Fold@C@Bot@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@C@Bot@Y}{0}
\setcounter{@PCDC@Fold@D@Top@X}{\value{@PCDC@Top@Lft@Fold}}
\setcounter{@PCDC@Fold@D@Top@Y}{\value{@PCDC@Design@Height}}
\setcounter{@PCDC@Fold@D@Bot@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@D@Bot@Y}{0}
\setcounter{@PCDC@Fold@E@Lft@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@E@Lft@Y}{\value{@PCDC@Bot@Fold}}
\setcounter{@PCDC@Fold@E@Rgt@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@E@Rgt@Y}{\value{@PCDC@Bot@Fold}}
\setcounter{@PCDC@Fold@F@Lft@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@F@Lft@Y}{\value{@PCDC@Lwr@Top@Fold}}
\setcounter{@PCDC@Fold@F@Rgt@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@F@Rgt@Y}{\value{@PCDC@Lwr@Top@Fold}}
\setcounter{@PCDC@Fold@G@Lft@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@G@Lft@Y}{\value{@PCDC@Upr@Top@Fold}}
\setcounter{@PCDC@Fold@G@Rgt@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@G@Rgt@Y}{\value{@PCDC@Upr@Top@Fold}}
\setcounter{@PCDC@Fold@H@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@H@Y}{\value{@PCDC@Pouch@Height}}
\setcounter{@PCDC@Fold@I@X}{\value{@PCDC@Bot@Rgt@Fold}}
\setcounter{@PCDC@Fold@I@Y}{\value{@PCDC@Pouch@Height}}
\setcounter{@PCDC@Fold@J@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@J@Y}{\value{@PCDC@Pouch@Height}}
\setcounter{@PCDC@Fold@K@X}{\value{@PCDC@Bot@Lft@Fold}}
\setcounter{@PCDC@Fold@K@Y}{\value{@PCDC@Pouch@Height}}
\setcounter{@PCDC@Fold@L@X}{\value{@PCDC@Top@Rgt@Fold}}
\setcounter{@PCDC@Fold@L@Y}{\value{@PCDC@Design@Height}-\value{@PCDC@Fold@Short@Length}}
\setcounter{@PCDC@Fold@M@X}{\value{@PCDC@Top@Lft@Fold}}
\setcounter{@PCDC@Fold@M@Y}{\value{@PCDC@Design@Height}-\value{@PCDC@Fold@Short@Length}}
%%
%% Fold mark label coordinates.
\setcounter{@PCDC@Fold@A@Lft@Label@X}{\value{@PCDC@Fold@A@Lft@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@A@Lft@Label@Y}{\value{@PCDC@Fold@A@Lft@Y}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@A@Rgt@Label@X}{\value{@PCDC@Fold@A@Rgt@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@A@Rgt@Label@Y}{\value{@PCDC@Fold@A@Rgt@Y}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@B@Lft@Label@X}{\value{@PCDC@Fold@B@Lft@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@B@Lft@Label@Y}{\value{@PCDC@Fold@B@Lft@Y}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@B@Rgt@Label@X}{\value{@PCDC@Fold@B@Rgt@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@B@Rgt@Label@Y}{\value{@PCDC@Fold@B@Rgt@Y}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@C@Top@Label@X}{\value{@PCDC@Fold@C@Top@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@C@Top@Label@Y}{\value{@PCDC@Fold@C@Top@Y}-\value{@PCDC@Fold@Length}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@C@Bot@Label@X}{\value{@PCDC@Fold@C@Bot@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@C@Bot@Label@Y}{\value{@PCDC@Fold@C@Bot@Y}+\value{@PCDC@Fold@Length}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@D@Top@Label@X}{\value{@PCDC@Fold@D@Top@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@D@Top@Label@Y}{\value{@PCDC@Fold@D@Top@Y}-\value{@PCDC@Fold@Length}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@D@Bot@Label@X}{\value{@PCDC@Fold@D@Bot@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@D@Bot@Label@Y}{\value{@PCDC@Fold@D@Bot@Y}+\value{@PCDC@Fold@Length}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@E@Lft@Label@X}{\value{@PCDC@Fold@E@Lft@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@E@Lft@Label@Y}{\value{@PCDC@Fold@E@Lft@Y}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@E@Rgt@Label@X}{\value{@PCDC@Fold@E@Rgt@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@E@Rgt@Label@Y}{\value{@PCDC@Fold@E@Rgt@Y}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@F@Lft@Label@X}{\value{@PCDC@Fold@F@Lft@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@F@Lft@Label@Y}{\value{@PCDC@Fold@F@Lft@Y}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@F@Rgt@Label@X}{\value{@PCDC@Fold@F@Rgt@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@F@Rgt@Label@Y}{\value{@PCDC@Fold@F@Rgt@Y}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@G@Lft@Label@X}{\value{@PCDC@Fold@G@Lft@X}-\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@G@Lft@Label@Y}{\value{@PCDC@Fold@G@Lft@Y}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@G@Rgt@Label@X}{\value{@PCDC@Fold@G@Rgt@X}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@G@Rgt@Label@Y}{\value{@PCDC@Fold@G@Rgt@Y}+\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@H@Label@X}{\value{@PCDC@Fold@H@X}+5*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@H@Label@Y}{\value{@PCDC@Fold@H@Y}+4*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@I@Label@X}{\value{@PCDC@Fold@I@X}+5*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@I@Label@Y}{\value{@PCDC@Fold@I@Y}-6*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@J@Label@X}{\value{@PCDC@Fold@J@X}-5*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@J@Label@Y}{\value{@PCDC@Fold@J@Y}+4*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@K@Label@X}{\value{@PCDC@Fold@K@X}-5*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@K@Label@Y}{\value{@PCDC@Fold@K@Y}-6*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@L@Label@X}{\value{@PCDC@Fold@L@X}+5*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@L@Label@Y}{\value{@PCDC@Fold@L@Y}+4*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@M@Label@X}{\value{@PCDC@Fold@M@X}-5*\value{@PCDC@Label@Sep}}
\setcounter{@PCDC@Fold@M@Label@Y}{\value{@PCDC@Fold@M@Y}+4*\value{@PCDC@Label@Sep}}
%%
%% Text box coordinates.
\setcounter{@PCDC@Pouch@Matter@X}{\value{@PCDC@Fold@Length}+\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Pouch@Matter@Y}{\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Back@Matter@X}{\value{@PCDC@Fold@Length}+\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Back@Matter@Y}{\value{@PCDC@Pouch@Height}+\value{@PCDC@Back@Height}-\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Spine@Matter@X}{\value{@PCDC@Fold@Length}+\value{@PCDC@Back@Height}/2}
\setcounter{@PCDC@Spine@Matter@Y}{\value{@PCDC@Back@Matter@Y}+\value{@PCDC@Spine@Height}/2+\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Latch@Matter@X}{\value{@PCDC@Fold@Length}+\value{@PCDC@Text@Margin}}
\setcounter{@PCDC@Latch@Matter@Y}{\value{@PCDC@Spine@Matter@Y}+\value{@PCDC@Spine@Height}/2+\value{@PCDC@Text@Margin}}
%%
%% Typeset the folding scheme
\begin{picture}(\value{@PCDC@Design@width}, \value{@PCDC@Design@Height})
%% Fold mark 1, left
\put(\value{@PCDC@Fold@A@Lft@X}, \value{@PCDC@Fold@A@Lft@Y}){\line(-1, 0){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@A@Lft@Label@X}, \value{@PCDC@Fold@A@Lft@Label@Y}){\makebox(0, 0)[br]{\rotatebox{180}{1}}}
%%
%% Fold mark 1, right
\put(\value{@PCDC@Fold@A@Rgt@X}, \value{@PCDC@Fold@A@Rgt@Y}){\line(1, 0){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@A@Rgt@Label@X}, \value{@PCDC@Fold@A@Rgt@Label@Y}){\makebox(0, 0)[bl]{\rotatebox{180}{1}}}
%%
%% Fold mark 2, left
\put(\value{@PCDC@Fold@B@Lft@X}, \value{@PCDC@Fold@B@Lft@Y}){\line(-1, 0){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@B@Lft@Label@X}, \value{@PCDC@Fold@B@Lft@Label@Y}){\makebox(0, 0)[tr]{2}}
%%
%% Fold mark 2, right
\put(\value{@PCDC@Fold@B@Rgt@X}, \value{@PCDC@Fold@B@Rgt@Y}){\line(1, 0){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@B@Rgt@Label@X}, \value{@PCDC@Fold@B@Rgt@Label@Y}){\makebox(0, 0)[tl]{2}}
%%
%% Fold mark 3, top
\put(\value{@PCDC@Fold@C@Top@X}, \value{@PCDC@Fold@C@Top@Y}){\line(0, -1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@C@Top@Label@X}, \value{@PCDC@Fold@C@Top@Label@Y}){\makebox(0, 0)[bl]{\rotatebox{90}{3}}}
%%
%% Fold mark 3, bottom
\put(\value{@PCDC@Fold@C@Bot@X}, \value{@PCDC@Fold@C@Bot@Y}){\line(0, 1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@C@Bot@Label@X}, \value{@PCDC@Fold@C@Bot@Label@Y}){\makebox(0, 0)[tl]{\rotatebox{90}{3}}}
%%
%% Fold mark 4, top
\put(\value{@PCDC@Fold@D@Top@X}, \value{@PCDC@Fold@D@Top@Y}){\line(0, -1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@D@Top@Label@X}, \value{@PCDC@Fold@D@Top@Label@Y}){\makebox(0, 0)[br]{\rotatebox{270}{4}}}
%%
%% Fold mark 4, bottom
\put(\value{@PCDC@Fold@D@Bot@X}, \value{@PCDC@Fold@D@Bot@Y}){\line(0, 1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@D@Bot@Label@X}, \value{@PCDC@Fold@D@Bot@Label@Y}){\makebox(0, 0)[tr]{\rotatebox{270}{4}}}
%%
%% Fold mark 5, left
\multiput(\value{@PCDC@Fold@E@Lft@X}, \value{@PCDC@Fold@E@Lft@Y})(-2, 0){\value{@PCDC@Fold@Dash@Number}}{\line(-1, 0){1}}
\put(\value{@PCDC@Fold@E@Lft@Label@X}, \value{@PCDC@Fold@E@Lft@Label@Y}){\makebox(0, 0)[tr]{5 (bottom)}}
%%
%% Fold mark 5, right
\multiput(\value{@PCDC@Fold@E@Rgt@X}, \value{@PCDC@Fold@E@Rgt@Y})(2, 0){\value{@PCDC@Fold@Dash@Number}}{\line(1, 0){1}}
\put(\value{@PCDC@Fold@E@Rgt@Label@X}, \value{@PCDC@Fold@E@Rgt@Label@Y}){\makebox(0, 0)[tl]{5 (bottom)}}
%%
%% Fold mark 6, left
\multiput(\value{@PCDC@Fold@F@Lft@X}, \value{@PCDC@Fold@F@Lft@Y})(-2, 0){\value{@PCDC@Fold@Dash@Number}}{\line(-1, 0){1}}
\put(\value{@PCDC@Fold@F@Lft@Label@X}, \value{@PCDC@Fold@F@Lft@Label@Y}){\makebox(0, 0)[br]{\rotatebox{180}{6 (top)}}}
%%
%% Fold mark 6, right
\multiput(\value{@PCDC@Fold@F@Rgt@X}, \value{@PCDC@Fold@F@Rgt@Y})(2, 0){\value{@PCDC@Fold@Dash@Number}}{\line(1, 0){1}}
\put(\value{@PCDC@Fold@F@Rgt@Label@X}, \value{@PCDC@Fold@F@Rgt@Label@Y}){\makebox(0, 0)[bl]{\rotatebox{180}{6 (top)}}}
%%
%% Fold mark 7, left
\multiput(\value{@PCDC@Fold@G@Lft@X}, \value{@PCDC@Fold@G@Lft@Y})(-2, 0){\value{@PCDC@Fold@Dash@Number}}{\line(-1, 0){1}}
\put(\value{@PCDC@Fold@G@Lft@Label@X}, \value{@PCDC@Fold@G@Lft@Label@Y}){\makebox(0, 0)[br]{\rotatebox{180}{7 (top)}}}
%%
%% Fold mark 7, right
\multiput(\value{@PCDC@Fold@G@Rgt@X}, \value{@PCDC@Fold@G@Rgt@Y})(2, 0){\value{@PCDC@Fold@Dash@Number}}{\line(1, 0){1}}
\put(\value{@PCDC@Fold@G@Rgt@Label@X}, \value{@PCDC@Fold@G@Rgt@Label@Y}){\makebox(0, 0)[bl]{\rotatebox{180}{7 (top)}}}
%%
%% Fold mark 8
\put(\value{@PCDC@Fold@H@X}, \value{@PCDC@Fold@H@Y}){\line(1, 1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@H@Label@X}, \value{@PCDC@Fold@H@Label@Y}){\makebox(0, 0)[tl]{\rotatebox{ 45}{8}}}
%%
%% Fold mark 9
\put(\value{@PCDC@Fold@I@X}, \value{@PCDC@Fold@I@Y}){\line(1, -1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@I@Label@X}, \value{@PCDC@Fold@I@Label@Y}){\makebox(0, 0)[tr]{\rotatebox{315}{9}}}
%%
%% Fold mark 10
\put(\value{@PCDC@Fold@J@X}, \value{@PCDC@Fold@J@Y}){\line(-1, 1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@J@Label@X}, \value{@PCDC@Fold@J@Label@Y}){\makebox(0, 0)[tr]{\rotatebox{315}{10}}}
%%
%% Fold mark 11
\put(\value{@PCDC@Fold@K@X}, \value{@PCDC@Fold@K@Y}){\line(-1, -1){\value{@PCDC@Fold@Length}}}
\put(\value{@PCDC@Fold@K@Label@X}, \value{@PCDC@Fold@K@Label@Y}){\makebox(0, 0)[tl]{\rotatebox{ 45}{11}}}
%%
%% Fold mark 12
\put(\value{@PCDC@Fold@L@X}, \value{@PCDC@Fold@L@Y}){\line(1, 1){\value{@PCDC@Fold@Short@Length}}}
\put(\value{@PCDC@Fold@L@Label@X}, \value{@PCDC@Fold@L@Label@Y}){\makebox(0, 0)[tl]{\rotatebox{ 45}{12}}}
%%
%% Fold mark 13
\put(\value{@PCDC@Fold@M@X}, \value{@PCDC@Fold@M@Y}){\line(-1, 1){\value{@PCDC@Fold@Short@Length}}}
\put(\value{@PCDC@Fold@M@Label@X}, \value{@PCDC@Fold@M@Label@Y}){\makebox(0, 0)[tr]{\rotatebox{315}{13}}}
%%
%% Latch matter
\put(\value{@PCDC@Latch@Matter@X}, \value{@PCDC@Latch@Matter@Y}){\makebox(0, 0)[bl]{\rotatebox{180}{\parbox{\value{@PCDC@Text@width}\unitlength}{\@PCDC@Latch@Matter}}}}
%%
%% Spine matter
\put(\value{@PCDC@Spine@Matter@X}, \value{@PCDC@Spine@Matter@Y}){\makebox(0, 0)[cc]{\@PCDC@Spine@Matter}}
%%
%% Back matter
\put(\value{@PCDC@Back@Matter@X}, \value{@PCDC@Back@Matter@Y}){\makebox(0, 0)[tl]{\parbox{\value{@PCDC@Text@width}\unitlength}{\@PCDC@Back@Matter}}}
%%
%% Pouch matter
\put(\value{@PCDC@Pouch@Matter@X}, \value{@PCDC@Pouch@Matter@Y}){\makebox(0, 0)[bl]{\rotatebox{180}{\parbox{\value{@PCDC@Text@width}\unitlength}{\@PCDC@Pouch@Matter}}}}
\end{picture}}

\makeatother
\endinput
%%
%% End of file `papercdcase.sty'.