From 7e0271fe9b567db0c855288f5a8591c3ba4ab033 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 27 Jun 2014 21:59:50 +0000 Subject: cd (27jun14) git-svn-id: svn://tug.org/texlive/trunk@34452 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/cd/cd.cls | 894 ++++++++++++++++++---------------- 1 file changed, 480 insertions(+), 414 deletions(-) (limited to 'Master/texmf-dist/tex/latex/cd/cd.cls') diff --git a/Master/texmf-dist/tex/latex/cd/cd.cls b/Master/texmf-dist/tex/latex/cd/cd.cls index 0ad8b597f34..074f0371875 100644 --- a/Master/texmf-dist/tex/latex/cd/cd.cls +++ b/Master/texmf-dist/tex/latex/cd/cd.cls @@ -39,7 +39,7 @@ %% Right brace \} Tilde \~} %% \NeedsTeXFormat{LaTeX2e} -\ProvidesClass{cd}[2007/10/12 v1.3 CD Cover Class] +\ProvidesClass{cd}[2014/06/13 v1.4 CD Cover Class] \newif\if@lignspine \@lignspinefalse @@ -56,14 +56,18 @@ \DeclareOption{covergraphics}{\def\@lignback{t}} \DeclareOption{aligntop}% - {\ExecuteOptions{aligncovertop,aligninsidetop,alignbacktop}} + {\ExecuteOptions{aligncovertop, + aligninsidetop, + alignbacktop}} \DeclareOption{aligncovercenter}{\def\@ligncover{c}} \DeclareOption{aligninsidecenter}{\def\@ligninside{c}} \DeclareOption{alignbackcenter}{\def\@lignback{c}} \DeclareOption{aligncenter}% - {\ExecuteOptions{aligncovercenter,aligninsidecenter,alignbackcenter}} + {\ExecuteOptions{aligncovercenter, + aligninsidecenter, + alignbackcenter}} \DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}} @@ -72,13 +76,13 @@ \RequirePackage{rotating} \DeclareRobustCommand*\onecorrection[1]{\def\onec@rrfrac{#1}} \onecorrection{0} -\DeclareRobustCommand*\coverfont[1]{\def\coverf@nt{#1}} -\DeclareRobustCommand*\backfont[1]{\def\backf@nt{#1}} -\DeclareRobustCommand*\insidefont[1]{\def\insidef@nt{#1}} -\DeclareRobustCommand*\spinefont[1]{\def\spinef@nt{#1}} -\DeclareRobustCommand*\tracklistfont[1]{\def\tracklistf@nt{#1}} -\DeclareRobustCommand*\infofont[1]{\def\infof@nt{#1}} -\DeclareRobustCommand*\indexfont[1]{\def\indexf@nt{#1}} +\DeclareRobustCommand*{\coverfont}[1]{\def\coverf@nt{#1}} +\DeclareRobustCommand*{\backfont}[1]{\def\backf@nt{#1}} +\DeclareRobustCommand*{\insidefont}[1]{\def\insidef@nt{#1}} +\DeclareRobustCommand*{\spinefont}[1]{\def\spinef@nt{#1}} +\DeclareRobustCommand*{\tracklistfont}[1]{\def\tracklistf@nt{#1}} +\DeclareRobustCommand*{\infofont}[1]{\def\infof@nt{#1}} +\DeclareRobustCommand*{\indexfont}[1]{\def\indexf@nt{#1}} \DeclareRobustCommand{\lefttracklist}[1]{\def\lefttr@cklist{#1}} \DeclareRobustCommand{\righttracklist}[1]{\def\righttr@cklist{#1}} @@ -88,8 +92,10 @@ \DeclareRobustCommand{\backtext}[1]{\def\b@cktext{#1}} \DeclareRobustCommand{\insidetext}[1]{\def\insid@text{#1}} -\DeclareRobustCommand{\covergraphics}[1]{\def\c@vertext{#1}\def\c@vergraphics{}} -\DeclareRobustCommand{\insidegraphics}[1]{\def\insid@text{#1}\def\insid@graphics{}} +\DeclareRobustCommand{\covergraphics}[1]{% + \def\c@vertext{#1}\def\c@vergraphics{}} +\DeclareRobustCommand{\insidegraphics}[1]{% + \def\insid@text{#1}\def\insid@graphics{}} \DeclareRobustCommand*{\leftspine}[1]{\def\leftspin@{#1}} \DeclareRobustCommand*{\centerspine}[1]{\def\centerspin@{#1}} @@ -97,6 +103,18 @@ \DeclareRobustCommand*{\leftspinebis}[1]{\def\leftspin@bis{#1}} \DeclareRobustCommand*{\centerspinebis}[1]{\def\centerspin@bis{#1}} \DeclareRobustCommand*{\rightspinebis}[1]{\def\rightspin@bis{#1}} + +\DeclareRobustCommand*{\tracklistheight}[1]{% + \begingroup + \xdef\tr@cklistheight{#1}% + \@tempcnta=100 + \advance\@tempcnta by -\tr@cklistheight + \xdef\c@vertextheight{\the\@tempcnta}% + \@tempcnta=12 + \advance\@tempcnta by \tr@cklistheight + \xdef\c@verpos{\the\@tempcnta}% + \endgroup +} \evensidemargin=0cm \oddsidemargin=0cm \topmargin=0cm @@ -114,7 +132,10 @@ \setlength{\unitlength}{1mm} \newlength{\squ@re} \newlength{\@temp} +\newlength{\@tempp} +\newlength{\d@shwidth} \newlength{\h@nging} +\newlength{\h@ngingg} \newlength{\@hstrip} \newlength{\@wstrip} \newlength{\winf@} @@ -123,186 +144,212 @@ \newcounter{tr@ckindex} \DeclareRobustCommand*{\setindex}[1]{\setcounter{tr@ckindex}{#1}} -\DeclareRobustCommand*{\track}{% - \par - \let\@firstdigit=\@empty - \setlength{\onec@rrection}{0pt}% - \settowidth{\@temp}{\indexf@nt1} - \expandafter\@tfor \expandafter\@digit - \expandafter:\expandafter=\number\value{tr@ckindex}\do {% - \ifx\@firstdigit\@empty - \let\@firstdigit=\@digit - \else - \if 1\@firstdigit - \if 1\@digit\else - \setlength{\onec@rrection}{-\onec@rrfrac\@temp}% - \fi - \else - \if 1\@digit - \setlength{\onec@rrection}{\onec@rrfrac\@temp}% - \fi - \fi +\DeclareRobustCommand*{\tr@ck}[2]{% + \let\@firstdigit=\@empty + \setlength{\onec@rrection}{0pt}% + \settowidth{\@temp}{\indexf@nt1}% + \expandafter\@tfor \expandafter\@digit + \expandafter:\expandafter=\number\value{tr@ckindex}\do {% + \ifx\@firstdigit\@empty + \let\@firstdigit=\@digit + \else + \if 1\@firstdigit + \if 1\@digit\else + \setlength{\onec@rrection}{-\onec@rrfrac\@temp}% \fi - }% - \settoheight{\@temp}{M}% - \addtolength{\@temp}{-\squ@re}% - \raisebox{.5\@temp}{% - \setlength{\unitlength}{\squ@re}% - \hspace*{-\h@nging}% - \begin{picture}(1,1) - \put(0,0){% - \framebox(1,1){\hspace*{\onec@rrection}\indexf@nt\thetr@ckindex}% - } - \end{picture}% - }% - \hspace*{6pt}% - \addtocounter{tr@ckindex}{1}% + \else + \if 1\@digit + \setlength{\onec@rrection}{\onec@rrfrac\@temp}% + \fi + \fi + \fi + }% + \setlength{\@temp}{\squ@re}% + \settoheight{\@tempp}{\tracklistf@nt M}% + \addtolength{\@temp}{-\@tempp}% + \raisebox{-.5\@temp}{% + \setlength{\unitlength}{\squ@re}% + \hspace*{-#1}% + \begin{picture}(1,1) + \put(0,0){% + \framebox(1,1){% + \hspace*{\onec@rrection}\indexf@nt\thetr@ckindex}% + } + \end{picture}% + }% + \hspace*{#2}% + \addtocounter{tr@ckindex}{1}% +} + +\DeclareRobustCommand*{\track}{% + \par\tr@ck{\h@nging}{6pt}% +} + +\DeclareRobustCommand*{\trackrange}[1]{% + \par + \tr@ck{\h@ngingg}{1pt}% + \addtocounter{tr@ckindex}{#1}% + \addtocounter{tr@ckindex}{-2}% + \settoheight{\@temp}{\indexf@nt M}% + \settoheight{\@tempp}{\tracklistf@nt M}% + \addtolength{\@temp}{-\@tempp}% + \raisebox{-.5\@temp}{\indexf@nt-}% + \hspace*{1pt}% + \tr@ck{0pt}{6pt}% } \AtBeginDocument{% - \pagestyle{empty}% - \thispagestyle{empty}% - \newcd + \pagestyle{empty}% + \thispagestyle{empty}% + \newcd } \DeclareRobustCommand*{\fhb}[2]{% - \fontsize{#1pt}{#2pt}\selectfont - \parskip=.1\baselineskip + \fontsize{#1pt}{#2pt}\selectfont + \parskip=.1\baselineskip } -\DeclareRobustCommand*{\fh}[1]{\fontsize{#1pt}{\baselineskip}\selectfont} +\DeclareRobustCommand*{\fh}[1]{% + \fontsize{#1pt}{\baselineskip}\selectfont +} \DeclareRobustCommand*{\newcd}{% - \lefttracklist{}% - \righttracklist{}% - \covertext{}% - \insidetext{}% - \leftspine{}% - \centerspine{}% - \rightspine{}% - \leftspinebis{\leftspin@}% - \centerspinebis{\centerspin@}% - \rightspinebis{\rightspin@}% - \leftinfo{}% - \rightinfo{}% - \coverfont{\fhb{16}{19}}% - \backfont{\coverf@nt}% - \insidefont{\fhb{10}{12}}% - \spinefont{\fhb{9}{11}\bfseries}% - \tracklistfont{\fhb{9}{10.5}}% - \infofont{\fhb{7}{8.3}}% - \indexfont{\fhb{5}{0}}% + \lefttracklist{}% + \righttracklist{}% + \covertext{}% + \insidetext{}% + \leftspine{}% + \centerspine{}% + \rightspine{}% + \leftspinebis{\leftspin@}% + \centerspinebis{\centerspin@}% + \rightspinebis{\rightspin@}% + \leftinfo{}% + \rightinfo{}% + \coverfont{\fhb{16}{19}}% + \backfont{\coverf@nt}% + \insidefont{\fhb{10}{12}}% + \spinefont{\fhb{9}{11}\bfseries}% + \tracklistfont{\fhb{9}{10.5}}% + \infofont{\fhb{7}{8.3}}% + \indexfont{\fhb{5}{0}}% + \tracklistheight{70}% } \DeclareRobustCommand*{\@sethwstrips}[1]{% - \settowidth{\@wstrip}{\spinef@nt #1}% - \if@lignspine - \settoheight{\@hstrip}{\spinef@nt #1}% - \fi + \settowidth{\@wstrip}{\spinef@nt #1}% + \if@lignspine + \settoheight{\@hstrip}{\spinef@nt #1}% + \fi } \DeclareRobustCommand*{\alignt@baseline}{% - \settodepth{\@temp}{gjpqy}% - \vphantom{gjpqy}\par - \vspace*{-\@temp}\par + \settodepth{\@temp}{gjpqy}% + \vphantom{gjpqy}\par + \vspace*{-\@temp}\par } \DeclareRobustCommand*{\makecover}[1][lrtb]{% -\voffset=0in -\begin{picture}(120,240) -\end{picture}% -\begin{rotate}{90}% -\begin{picture}(240,120) - \@tfor\cr@pmark := #1 \do { - \if l\cr@pmark - \put(-1,0){\line(-1,0){5}} - \put(-1,120){\line(-1,0){5}} - \else\if r\cr@pmark - \put(241,0){\line(1,0){5}} - \put(241,120){\line(1,0){5}} - \else\if b\cr@pmark - \put(0,-1){\line(0,-1){5}} - \put(240,-1){\line(0,-1){5}} - \put(120,-1){\line(0,-1){1}} - \put(120,-3){\line(0,-1){1}} - \put(120,-5){\line(0,-1){1}} - \else\if t\cr@pmark - \put(0,121){\line(0,1){5}} - \put(240,121){\line(0,1){5}} - \put(120,121){\line(0,1){1}} - \put(120,123){\line(0,1){1}} - \put(120,125){\line(0,1){1}} - \else\if c\cr@pmark - \put(0,0){\line(1,0){240}} - \put(0,0){\line(0,1){120}} - \put(120,0){\line(0,1){120}} - \put(0,120){\line(1,0){240}} - \put(240,0){\line(0,1){120}} - \fi\fi\fi\fi\fi - } - - \ifx\insid@graphics\@empty + \voffset=0in + \begin{picture}(120,240) + \end{picture}% + \begin{rotate}{90}% + \begin{picture}(240,120) + \@tfor\cr@pmark := #1 \do { + \if l\cr@pmark + \put(-1,0){\line(-1,0){5}} + \put(-1,120){\line(-1,0){5}} + \else\if r\cr@pmark + \put(241,0){\line(1,0){5}} + \put(241,120){\line(1,0){5}} + \else\if b\cr@pmark + \put(0,-1){\line(0,-1){5}} + \put(240,-1){\line(0,-1){5}} + \put(120,-1){\line(0,-1){1}} + \put(120,-3){\line(0,-1){1}} + \put(120,-5){\line(0,-1){1}} + \else\if t\cr@pmark + \put(0,121){\line(0,1){5}} + \put(240,121){\line(0,1){5}} + \put(120,121){\line(0,1){1}} + \put(120,123){\line(0,1){1}} + \put(120,125){\line(0,1){1}} + \else\if c\cr@pmark + \put(0,0){\line(1,0){240}} + \put(0,0){\line(0,1){120}} + \put(120,0){\line(0,1){120}} + \put(0,120){\line(1,0){240}} + \put(240,0){\line(0,1){120}} + \fi\fi\fi\fi\fi + } + + \ifx\insid@graphics\@empty \put(0,0){% - \makebox(120,120)[\@ligninside]{% - \parbox{12cm}{% - \raggedright\insidef@nt\insid@text\alignt@baseline - }% - }% - } - \else + \makebox(120,120)[\@ligninside]{% + \parbox{12cm}{% + \raggedright + \insidef@nt + \insid@text + \alignt@baseline}}} + \else \put(10,10){% - \makebox(100,100)[\@ligninside]{% - \parbox{10cm}{% - \raggedright\insidef@nt\insid@text\alignt@baseline - }% - }% - } - \fi - \ifx\c@vergraphics\@empty + \makebox(100,100)[\@ligninside]{% + \parbox{10cm}{% + \raggedright + \insidef@nt + \insid@text + \alignt@baseline}}} + \fi + \ifx\c@vergraphics\@empty \put(120,0){% - \makebox(120,120)[\@ligncover]{% - \parbox{12cm}{% - \raggedright\coverf@nt\c@vertext\alignt@baseline - }% - }% - } - \else + \makebox(120,120)[\@ligncover]{% + \parbox{12cm}{% + \raggedright + \coverf@nt + \c@vertext + \alignt@baseline}}} + \else \put(130,10){% - \makebox(100,100)[\@ligncover]{% - \parbox{10cm}{% - \raggedright\coverf@nt\c@vertext\alignt@baseline - }% - }% - } - \fi -\end{picture}% -\end{rotate}% + \makebox(100,100)[\@ligncover]{% + \parbox{10cm}{% + \raggedright + \coverf@nt + \c@vertext + \alignt@baseline}}} + \fi + \end{picture}% + \end{rotate}% } \DeclareRobustCommand*{\makeback}[1][lrtb]{% -\voffset=-.5in -\setindex{1}% -\settowidth{\squ@re}{\indexf@nt00}% -\settoheight{\@temp}{\indexf@nt0}% -\addtolength{\squ@re}{.4\@temp}% -\setlength{\h@nging}{\squ@re}% -\addtolength{\h@nging}{6pt}% -\settoheight{\@hstrip}{\spinef@nt ABCDEFGHIJKLMNOPQRSTUVWXYZ}% -\ifx\righttr@cklist\@empty + \voffset=-.5in + \setindex{1}% + \settowidth{\d@shwidth}{\indexf@nt-}% + \settowidth{\squ@re}{\indexf@nt00}% + \settoheight{\@temp}{\indexf@nt0}% + \addtolength{\squ@re}{.4\@temp}% + \setlength{\h@nging}{\squ@re}% + \setlength{\h@ngingg}{\squ@re}% + \addtolength{\h@ngingg}{\squ@re}% + \addtolength{\h@ngingg}{\d@shwidth}% + \addtolength{\h@nging}{6pt}% + \addtolength{\h@ngingg}{8pt}% + \settoheight{\@hstrip}{\spinef@nt ABCDEFGHIJKLMNOPQRSTUVWXYZ}% + \ifx\righttr@cklist\@empty \setlength{\wtr@cklist}{12cm}% -\else + \else \setlength{\wtr@cklist}{5.5cm}% -\fi -\ifx\rightinf@\@empty + \fi + \ifx\rightinf@\@empty \setlength{\winf@}{12cm}% -\else + \else \setlength{\winf@}{5.5cm}% -\fi -\begin{picture}(151,118) + \fi + \begin{picture}(151,118) \@tfor\cr@pmark := #1 \do { - \if l\cr@pmark + \if l\cr@pmark \put(-1,0){\line(-1,0){5}} \put(-1,118){\line(-1,0){5}} - \else\if r\cr@pmark + \else\if r\cr@pmark \put(152,0){\line(1,0){5}} \put(152,118){\line(1,0){5}} - \else\if b\cr@pmark + \else\if b\cr@pmark \put(0,-1){\line(0,-1){5}} \put(151,-1){\line(0,-1){5}} \put(6.5,-1){\line(0,-1){1}} @@ -311,7 +358,7 @@ \put(144.5,-1){\line(0,-1){1}} \put(144.5,-3){\line(0,-1){1}} \put(144.5,-5){\line(0,-1){1}} - \else\if t\cr@pmark + \else\if t\cr@pmark \put(0,119){\line(0,1){5}} \put(151,119){\line(0,1){5}} \put(6.5,119){\line(0,1){1}} @@ -320,278 +367,289 @@ \put(144.5,119){\line(0,1){1}} \put(144.5,121){\line(0,1){1}} \put(144.5,123){\line(0,1){1}} - \else\if c\cr@pmark + \else\if c\cr@pmark \put(0,0){\line(1,0){151}} \put(0,0){\line(0,1){118}} \put(151,0){\line(0,1){118}} \put(0,118){\line(1,0){151}} \put(6.5,0){\line(0,1){118}} \put(144.5,0){\line(0,1){118}} - \fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi } \@sethwstrips{\leftspin@} \put(0,4){% - \makebox(6.5,110)[b]{% - \makebox[\@hstrip][r]{% - \begin{rotate}{90}\spinef@nt\leftspin@\end{rotate}% - }% - }% - } + \makebox(6.5,110)[b]{% + \makebox[\@hstrip][r]{% + \begin{rotate}{90}% + \spinef@nt + \leftspin@ + \end{rotate}}}} \@sethwstrips{\centerspin@} \put(0,4){% - \makebox(6.5,110){% - \raisebox{0pt}[\@wstrip]{\makebox[\@hstrip][r]{% - \begin{rotate}{90}\spinef@nt\centerspin@\end{rotate}% - }}% - }% - } + \makebox(6.5,110){% + \raisebox{0pt}[\@wstrip]{% + \makebox[\@hstrip][r]{% + \begin{rotate}{90}% + \spinef@nt + \centerspin@ + \end{rotate}}}}} \@sethwstrips{\rightspin@} \put(0,4){% - \makebox(6.5,110)[t]{% - \raisebox{0pt}[\@wstrip]{\makebox[\@hstrip][r]{% - \begin{rotate}{90}\spinef@nt\rightspin@\end{rotate}% - }}% - }% - } + \makebox(6.5,110)[t]{% + \raisebox{0pt}[\@wstrip]{% + \makebox[\@hstrip][r]{% + \begin{rotate}{90}% + \spinef@nt + \rightspin@ + \end{rotate}}}}} \@sethwstrips{\leftspin@bis} \put(144.5,4){% - \makebox(6.5,110)[t]{% - \makebox[\@hstrip][l]{% - \begin{rotate}{-90}\spinef@nt\leftspin@bis\end{rotate}% - }% - }% - } + \makebox(6.5,110)[t]{% + \makebox[\@hstrip][l]{% + \begin{rotate}{-90}% + \spinef@nt + \leftspin@bis + \end{rotate}}}} \@sethwstrips{\centerspin@bis} \put(144.5,4){% - \makebox(6.5,110){% - \raisebox{\@wstrip}[\@wstrip]{\makebox[\@hstrip][l]{% - \begin{rotate}{-90}\spinef@nt\centerspin@bis\end{rotate}% - }}% - }% - } + \makebox(6.5,110){% + \raisebox{\@wstrip}[\@wstrip]{% + \makebox[\@hstrip][l]{% + \begin{rotate}{-90}% + \spinef@nt + \centerspin@bis + \end{rotate}}}}} \@sethwstrips{\rightspin@bis} \put(144.5,4){% - \makebox(6.5,110)[b]{% - \raisebox{\@wstrip}[\@wstrip]{\makebox[\@hstrip][l]{% - \begin{rotate}{-90}\spinef@nt\rightspin@bis\end{rotate}% - }}% - }% - } + \makebox(6.5,110)[b]{% + \raisebox{\@wstrip}[\@wstrip]{% + \makebox[\@hstrip][l]{% + \begin{rotate}{-90}% + \spinef@nt + \rightspin@bis + \end{rotate}}}}} \put(17,0){% - \begin{picture}(121,118) - \put(0,82){% - \makebox(120,30)[\@lignback]{% - \parbox{12.1cm}{% - \raggedright\backf@nt - \ifx\b@cktext\undefined - \ifx\c@vergraphics\@empty\else\c@vertext\fi - \else - \b@cktext - \fi - \alignt@baseline - }% - }% - } - - \put(0,5){% - \makebox(55,70)[tl]{% - \begin{minipage}{\wtr@cklist}% - \lineskip=.5pt\lineskiplimit=1pt\raggedright - \tracklistf@nt\lefttr@cklist - \end{minipage}% - }% - } - - \put(65,5){% - \makebox(55,70)[tl]{% - \begin{minipage}{\wtr@cklist}% - \lineskip=.5pt\lineskiplimit=1pt\raggedright - \tracklistf@nt\righttr@cklist - \end{minipage}% - }% - } - - \put(0,5){% - \makebox(0,0)[bl]{% - \parbox{\winf@}{% - \raggedright\infof@nt\leftinf@\alignt@baseline - }% - }% - } - - \put(65,5){% - \makebox(0,0)[bl]{% - \parbox{\winf@}{% - \raggedright\infof@nt\rightinf@\alignt@baseline - }% - }% - } - - \end{picture}% + \begin{picture}(121,118) + \put(0,\c@verpos){% + \makebox(120,\c@vertextheight)[\@lignback]{% + \parbox{12.1cm}{% + \raggedright + \backf@nt + \ifx\b@cktext\undefined + \ifx\c@vergraphics\@empty\else\c@vertext\fi + \else + \b@cktext + \fi + \alignt@baseline}}} + + \put(0,5){% + \makebox(55,\tr@cklistheight)[tl]{% + \begin{minipage}{\wtr@cklist}% + \lineskip=.5pt + \lineskiplimit=1pt + \raggedright + \tracklistf@nt + \lefttr@cklist + \end{minipage}}} + + \put(65,5){% + \makebox(55,\tr@cklistheight)[tl]{% + \begin{minipage}{\wtr@cklist}% + \lineskip=.5pt + \lineskiplimit=1pt + \raggedright + \tracklistf@nt + \righttr@cklist + \end{minipage}}} + + \put(0,5){% + \makebox(0,0)[bl]{% + \parbox{\winf@}{% + \raggedright + \infof@nt + \leftinf@ + \alignt@baseline}}} + + \put(65,5){% + \makebox(0,0)[bl]{% + \parbox{\winf@}{% + \raggedright + \infof@nt + \rightinf@ + \alignt@baseline}}} + \end{picture}% } - -\end{picture}% + \end{picture}% } \DeclareRobustCommand*{\makeslimcover}[1][lrtb]{% -\voffset=0in -\setindex{1}% -\settowidth{\squ@re}{\indexf@nt00}% -\settoheight{\@temp}{\indexf@nt0}% -\addtolength{\squ@re}{.4\@temp}% -\setlength{\h@nging}{\squ@re}% -\addtolength{\h@nging}{6pt}% -\settoheight{\@hstrip}{\spinef@nt ABCDEFGHIJKLMNOPQRSTUVWXYZ}% -\ifx\righttr@cklist\@empty + \voffset=0in + \setindex{1}% + \settowidth{\d@shwidth}{\indexf@nt-}% + \settowidth{\squ@re}{\indexf@nt00}% + \settoheight{\@temp}{\indexf@nt0}% + \addtolength{\squ@re}{.4\@temp}% + \setlength{\h@nging}{\squ@re}% + \setlength{\h@ngingg}{\squ@re}% + \addtolength{\h@ngingg}{\squ@re}% + \addtolength{\h@ngingg}{\d@shwidth}% + \addtolength{\h@nging}{6pt}% + \addtolength{\h@ngingg}{8pt}% + \settoheight{\@hstrip}{\spinef@nt ABCDEFGHIJKLMNOPQRSTUVWXYZ}% + \ifx\righttr@cklist\@empty \setlength{\wtr@cklist}{10cm}% -\else + \else \setlength{\wtr@cklist}{4.7cm}% -\fi -\ifx\rightinf@\@empty + \fi + \ifx\rightinf@\@empty \setlength{\winf@}{10cm}% -\else + \else \setlength{\winf@}{4.7cm}% -\fi -\begin{picture}(120,240) -\end{picture}% -\begin{rotate}{90}% -\begin{picture}(240,120) - \@tfor\cr@pmark := #1 \do { - \if l\cr@pmark - \put(-1,0){\line(-1,0){5}} - \put(-1,120){\line(-1,0){5}} - \else\if r\cr@pmark - \put(241,0){\line(1,0){5}} - \put(241,120){\line(1,0){5}} - \else\if b\cr@pmark - \put(0,-1){\line(0,-1){5}} - \put(240,-1){\line(0,-1){5}} - \put(120,-1){\line(0,-1){1}} - \put(120,-3){\line(0,-1){1}} - \put(120,-5){\line(0,-1){1}} - \else\if t\cr@pmark - \put(0,121){\line(0,1){5}} - \put(240,121){\line(0,1){5}} - \put(120,121){\line(0,1){1}} - \put(120,123){\line(0,1){1}} - \put(120,125){\line(0,1){1}} - \else\if c\cr@pmark - \put(0,0){\line(1,0){240}} - \put(0,0){\line(0,1){120}} - \put(120,0){\line(0,1){120}} - \put(0,120){\line(1,0){240}} - \put(240,0){\line(0,1){120}} - \fi\fi\fi\fi\fi - } - - \put(12,10){% - \begin{picture}(100,100) - \put(0,80){% - \makebox(100,30)[\@lignback]{% - \parbox{10.1cm}{% - \raggedright\backf@nt - \ifx\b@cktext\undefined - \ifx\c@vergraphics\@empty\else\c@vertext\fi - \else - \b@cktext - \fi - \alignt@baseline - }% - }% - } - - \put(0,15){% - \makebox(47,60)[tl]{% - \begin{minipage}{\wtr@cklist}% - \lineskip=.5pt\lineskiplimit=1pt\raggedright - \tracklistf@nt\lefttr@cklist - \end{minipage}% - }% - } - - \put(55,15){% - \makebox(47,60)[tl]{% - \begin{minipage}{\wtr@cklist}% - \lineskip=.5pt\lineskiplimit=1pt\raggedright - \tracklistf@nt\righttr@cklist - \end{minipage}% - }% - } - - \put(0,0){% - \makebox(0,0)[bl]{% - \parbox{\winf@}{% - \raggedright\infof@nt\leftinf@\alignt@baseline - }% - }% - } - - \put(55,0){% - \makebox(0,0)[bl]{% - \parbox{\winf@}{% - \raggedright\infof@nt\rightinf@\alignt@baseline - }% - }% - } - + \fi + \begin{picture}(120,240) + \end{picture}% + \begin{rotate}{90}% + \begin{picture}(240,120) + \@tfor\cr@pmark := #1 \do { + \if l\cr@pmark + \put(-1,0){\line(-1,0){5}} + \put(-1,120){\line(-1,0){5}} + \else\if r\cr@pmark + \put(241,0){\line(1,0){5}} + \put(241,120){\line(1,0){5}} + \else\if b\cr@pmark + \put(0,-1){\line(0,-1){5}} + \put(240,-1){\line(0,-1){5}} + \put(120,-1){\line(0,-1){1}} + \put(120,-3){\line(0,-1){1}} + \put(120,-5){\line(0,-1){1}} + \else\if t\cr@pmark + \put(0,121){\line(0,1){5}} + \put(240,121){\line(0,1){5}} + \put(120,121){\line(0,1){1}} + \put(120,123){\line(0,1){1}} + \put(120,125){\line(0,1){1}} + \else\if c\cr@pmark + \put(0,0){\line(1,0){240}} + \put(0,0){\line(0,1){120}} + \put(120,0){\line(0,1){120}} + \put(0,120){\line(1,0){240}} + \put(240,0){\line(0,1){120}} + \fi\fi\fi\fi\fi + } + + \put(11,0){% + \begin{picture}(100,120) + \put(0,\c@verpos){% + \makebox(100,\c@vertextheight)[\@lignback]{% + \parbox{10.1cm}{% + \raggedright + \backf@nt + \ifx\b@cktext\undefined + \ifx\c@vergraphics\@empty\else\c@vertext\fi + \else + \b@cktext + \fi + \alignt@baseline}}} + + \put(0,5){% + \makebox(47,\tr@cklistheight)[tl]{% + \begin{minipage}{\wtr@cklist}% + \lineskip=.5pt + \lineskiplimit=1pt + \raggedright + \tracklistf@nt + \lefttr@cklist + \end{minipage}}} + + \put(55,5){% + \makebox(47,\tr@cklistheight)[tl]{% + \begin{minipage}{\wtr@cklist}% + \lineskip=.5pt + \lineskiplimit=1pt + \raggedright + \tracklistf@nt + \righttr@cklist + \end{minipage}}} + + \put(0,5){% + \makebox(0,0)[bl]{% + \parbox{\winf@}{% + \raggedright + \infof@nt + \leftinf@ + \alignt@baseline}}} + + \put(55,5){% + \makebox(0,0)[bl]{% + \parbox{\winf@}{% + \raggedright + \infof@nt + \rightinf@ + \alignt@baseline}}} \end{picture}% - } - \ifx\c@vergraphics\@empty + } + \ifx\c@vergraphics\@empty \put(120,0){% - \makebox(120,120)[\@ligncover]{% - \parbox{12cm}{% - \raggedright\coverf@nt\c@vertext\alignt@baseline - }% - }% - } - \else + \makebox(120,120)[\@ligncover]{% + \parbox{12cm}{% + \raggedright + \coverf@nt + \c@vertext + \alignt@baseline}}} + \else \put(130,10){% - \makebox(100,100)[\@ligncover]{% - \parbox{10cm}{% - \raggedright\coverf@nt\c@vertext\alignt@baseline - }% - }% - } - \fi -\end{picture}% -\end{rotate}% + \makebox(100,100)[\@ligncover]{% + \parbox{10cm}{% + \raggedright + \coverf@nt + \c@vertext + \alignt@baseline}}} + \fi + \end{picture}% + \end{rotate}% } \DeclareRobustCommand*{\@skCDfile}[1]{% -\def\CDname{#1}% -\ifx\CDname\@empty + \def\CDname{#1}% + \ifx\CDname\@empty \IfFileExists{\jobname.dat}{% - \def\CDname{\jobname.dat}% + \def\CDname{\jobname.dat}% }{% - \typein[\CDname]{Please insert CD data file name:}% + \typein[\CDname]{Please insert CD data file name:}% }% -\fi -\InputIfFileExists{\CDname.dat}{% -}{% + \fi + \InputIfFileExists{\CDname.dat}{% + }{% \InputIfFileExists{\CDname}{% }{% - \ClassError{cd}{CD data file (\CDname.dat or \CDname) not found}{}% - } -}% + \ClassError{cd} + {CD data file (\CDname.dat or \CDname) not found} + {}% + }% + }% } \DeclareRobustCommand*{\makeCD}[1][]{% -\@skCDfile{#1}\makecover\par\makeback\par + \@skCDfile{#1}% + \makecover\par + \makeback\par } \DeclareRobustCommand*{\makeslimCD}[1][]{% -\@skCDfile{#1}\makeslimcover\par + \@skCDfile{#1}% + \makeslimcover\par } \newread\CDlist @@ -602,75 +660,83 @@ \newif\ifne@f \DeclareRobustCommand*{\@sklistfile}[1]{% -\def\CDlistname{#1}% -\ifx\CDlistname\@empty + \def\CDlistname{#1}% + \ifx\CDlistname\@empty \IfFileExists{\jobname.lst}{% - \def\CDlistname{\jobname.lst}% + \def\CDlistname{\jobname.lst}% }{% - \typein[\CDlistname]{Please insert CD list file name:} + \typein[\CDlistname]{Please insert CD list file name:} }% -\fi -\IfFileExists{\CDlistname.lst}{% + \fi + \IfFileExists{\CDlistname.lst}{% \immediate\openin\CDlist=\CDlistname.lst + }{% + \IfFileExists{\CDlistname}{% + \immediate\openin\CDlist=\CDlistname }{% - \IfFileExists{\CDlistname}{% - \immediate\openin\CDlist=\CDlistname - }{% - \ClassError{cd}{CD list (\CDlistname.lst or \CDlistname) not found}{}% - } - } -\ne@ftrue + \ClassError{cd} + {CD list (\CDlistname.lst or \CDlistname) not found} + {}% + }% + }% + \ne@ftrue } \DeclareRobustCommand*{\makelist}[1][]{% -\@sklistfile{#1}% -\advance\endlinechar\@M -\immediate\read\CDlist to \CDname -\advance\endlinechar-\@M -\ifeof\CDlist\ne@ffalse\fi -\@whilesw \ifne@f \fi {% + \@sklistfile{#1}% + \advance\endlinechar\@M + \immediate\read\CDlist to \CDname + \advance\endlinechar-\@M + \ifeof\CDlist\ne@ffalse\fi + \@whilesw \ifne@f \fi {% \newcd \InputIfFileExists{\CDname.dat}{% }{% - \InputIfFileExists{\CDname}{% - }{% - \ClassError{cd}{CD data file (\CDname.dat or \CDname) not found}{}% - }% + \InputIfFileExists{\CDname}{% + }{% + \ClassError{cd} + {CD data file (\CDname.dat or \CDname) not found} + {}% + }% }% \advance\endlinechar\@M \immediate\read\CDlist to \CDname \advance\endlinechar-\@M \ifeof\CDlist\ne@ffalse\fi \ifodd\value{@cd}% - \makeback[lrb]\par\makecover\par + \makeback[lrb]\par + \makecover\par \else - \makecover\par\ifne@f\makeback[lrt]\else\makeback\fi\par + \makecover\par + \ifne@f\makeback[lrt]\else\makeback\fi\par \fi \addtocounter{@cd}{1}% -} + }% } \DeclareRobustCommand*{\makeslimlist}[1][]{% -\@sklistfile{#1}% -\advance\endlinechar\@M -\immediate\read\CDlist to \CDname -\advance\endlinechar-\@M -\ifeof\CDlist\ne@ffalse\fi -\@whilesw \ifne@f \fi {% + \@sklistfile{#1}% + \advance\endlinechar\@M + \immediate\read\CDlist to \CDname + \advance\endlinechar-\@M + \ifeof\CDlist\ne@ffalse\fi + \@whilesw \ifne@f \fi {% \newcd \InputIfFileExists{\CDname.dat}{% }{% - \InputIfFileExists{\CDname}{% - }{% - \ClassError{cd}{CD data file (\CDname.dat or \CDname) not found}{}% - }% + \InputIfFileExists{\CDname}{% + }{% + \ClassError{cd} + {CD data file (\CDname.dat or \CDname) not found} + {}% + }% }% \advance\endlinechar\@M \immediate\read\CDlist to \CDname \advance\endlinechar-\@M \ifeof\CDlist\ne@ffalse\fi \makeslimcover\par -} + }% } \endinput -- cgit v1.2.3