From: Martin Mares Date: Fri, 4 Nov 2011 15:19:03 +0000 (+0100) Subject: Stare soubory s makry uz nepouzivame => smazat X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=273d04d9d1d0b8fb39a1a1a3cad6ac4a0e334040;p=ads2.git Stare soubory s makry uz nepouzivame => smazat --- diff --git a/mjipe.tex b/mjipe.tex deleted file mode 100644 index f52611a..0000000 --- a/mjipe.tex +++ /dev/null @@ -1,54 +0,0 @@ -% Macros for importing of IPE pictures in plain TeX -% (c) 2001 Martin Mares -% ------------------------------------------------------------------------------ - -% To access internal macros of plain TeX -% -------------------------------------- - -\def\makeatletter{\catcode`@=11 } -\def\makeatother{\catcode`@=12 } -\makeatletter - -% Importing of IPE pictures -% ------------------------- - -\newdimen\unitlength -\newbox\picbox -\newdimen\picht - -\def\IpeInput#1{{\def\IPEfile{#1}\latexemulation -\input\IPEfile\relax -}} - -\def\latexemulation{ -\def\newcommand##1[##2]##3{} -\def\@ifundefined##1##2{##2} -\def\begin##1(##2,##3)(##4,##5){\picht=##3\unitlength -\setbox\picbox=\hbox to ##2\unitlength\bgroup -\hskip -##4\unitlength\lower ##5\unitlength\hbox\bgroup -\ignorespaces} -\def\end##1{\egroup\hss\egroup\ht\picbox=\picht\dp\picbox=0pt\picout} -} - -\def\picout{ -\nointerlineskip -{ -\vskip 4pt plus 1pt minus 0.5pt -\line{\hss\box\picbox\hss} -\vskip 4pt plus 1pt minus 0.5pt -} -\nointerlineskip -} -\def\killglue{\unskip} -\def\put(#1,#2)#3{\killglue\raise#2\unitlength\hbox to 0pt{\kern #1\unitlength #3\hss}\ignorespaces} - -\let\selectfont\relax -\def\fontsize#1#2{} -\def\IPEput#1#2#3#4{\put(0,0){\special{psfile=\IPEfile}}} -\def\IPEmp#1#2{\MiniPagesAreNotSupported} -\def\IPEtext#1{\hbox{#1\special{color pop}}} -\def\IPEfs#1{\IPEcolfs{0 0 0}{#1}} -\def\IPEcolfs#1#2{\dimen0=#2pt\fontsize{#2}{1.2\dimen0}\selectfont\special{color push rgb #1}} -\def\IPEsize#1#2{\unitlength=1bp\ignorespaces} - -\makeatother diff --git a/mjmac.tex b/mjmac.tex deleted file mode 100644 index 18f81cc..0000000 --- a/mjmac.tex +++ /dev/null @@ -1,335 +0,0 @@ -% MJ's TeX Macro Collection -% (c) 1995--2004 Martin Mares -% Freely distributable as long as the author's copyright is left intact - -% History: -% 2.0 (05-11-95) Itemization and list system completely rewritten. Hopefully -% it's usable now. -% 2.1 (11-05-96) Added \fixfont. -% 2.2 (15-02-97) Modified \fixfont not to leave extra spaces. -% Added \relax at the end of \tt. -% Added a very limited support for picture drawing. -% 2.3 (21-05-01) Modified \fixfont to use \fntdesignsize, -% Added \fntmath(|s|ss)size and used it in \setmath -% Added \twelvepoint -% 2.4 (10-07-03) Added \bo -% 2.5 (27-09-03) Added \verblocaldefs -% 2.6 (21-03-04) Added \itemspacingrules -% 2.7 (10-04-04) There were collisions between our \[bB]ig and the same -% macro used in plain to implement \bigl et al. Now we rename -% the original \[bB]ig to \plain[bB]ig and re-define \[bB]ig[lrm] -% to call the renamed version instead. - -% We'll use internal macros of plain TeX - -\catcode`@=11 - -\newcount\mjtempcount - -% Page size definition -% -------------------- - -% Standard A4 dimensions are used. For different set of dimensions, redefine the -% \setpagesize macro to set everything you want in true units. Don't forget to -% call the macro immediately to refresh current setting. \magnification can be -% set prior to inclusion of these macros. - -\def\setpagesize{\hsize=7truein\vsize=9.2truein} -\def\m@g{\mag\count@\setpagesize\dimen\footins8truein} -\setpagesize - -% Spacing -% ------- - -\parindent=1.4cm -\parskip=3pt plus 1pt minus 1pt - -% We want to override \[bB]ig in plain, so save the original definition -% --------------------------------------------------------------------- - -\let\plainbig=\big -\let\plainBig=\Big -\def\bigl{\mathopen\plainbig} -\def\bigm{\mathrel\plainbig} -\def\bigr{\mathclose\plainbig} -\def\Bigl{\mathopen\plainBig} -\def\Bigm{\mathrel\plainBig} -\def\Bigr{\mathclose\plainBig} - -% Font selection system -% --------------------- - -% The heart of the font selection system is the \setfont macro which selects -% the current font according to the following settings: -% \fntprefix - font name prefix (usually cm or cs) -% \fntdesignsize - font design size in points (normally 10) -% \fnttokprefix - prefix of control sequence the font is assigned to ('ten') -% \fntmag - font magnification factor -% \fnttoksuffix - control sequence suffix ('A' to 'G' according to mag) -% \fntstyle - font name suffix determining font style ('bx', 'r' etc.) - -\def\fntprefix{cs} -\def\fntdesignsize{10} -\def\fnttokprefix{ten} -\def\fntmag{\magstep0} -\def\fnttoksuffix{A} -\def\fntstyle{r} - -\def\setfont{% -\toks0=\expandafter{\csname\fnttokprefix\fntstyle\fnttoksuffix\endcsname}% -\expandafter\ifx\the\toks0\relax% -%\immediate\write-1{aa \the\toks0=\fntprefix\fntstyle\fntdesignsize\space scaled \fntmag}% -\global\expandafter\font\the\toks0=\fntprefix\fntstyle\fntdesignsize\space scaled \fntmag% -\fi% -\edef\currentfont{\the\toks0}\currentfont} - -\setfont % Initialize the whole mechanism - -\def\mathf@nt#1#2#3#4{% -\toks0=\expandafter{\csname#1#2\fnttoksuffix\endcsname}% -\expandafter\ifx\the\toks0\relax% -%\immediate\write-1{bb \the\toks0=#4#2#3\space scaled \fntmag}% -\global\expandafter\font\the\toks0=#4#2#3\space scaled \fntmag% -\fi% -\edef\m@@f{\the\toks0}} - -\def\fntmathsize{10} -\def\fntmathtok{ten} -\def\fntmathssize{7} -\def\fntmathstok{seven} -\def\fntmathsssize{5} -\def\fntmathsstok{five} - -\def\setmath{% -\mathf@nt{\fntmathtok}{r}{\fntmathsize}{cs}\textfont0=\m@@f -\mathf@nt{\fntmathstok}{r}{\fntmathssize}{cs}\scriptfont0=\m@@f -\mathf@nt{\fntmathsstok}{r}{\fntmathsssize}{cs}\scriptscriptfont0=\m@@f -\mathf@nt{\fntmathtok}{mi}{\fntmathsize}{cm}\skewchar\m@@f='177\textfont1=\m@@f -\mathf@nt{\fntmathstok}{mi}{\fntmathssize}{cm}\skewchar\m@@f='177\scriptfont1=\m@@f -\mathf@nt{\fntmathsstok}{mi}{\fntmathsssize}{cm}\skewchar\m@@f='177\scriptscriptfont1=\m@@f -\mathf@nt{\fntmathtok}{sy}{\fntmathsize}{cm}\skewchar\m@@f='60\textfont2=\m@@f -\mathf@nt{\fntmathstok}{sy}{\fntmathssize}{cm}\skewchar\m@@f='60\scriptfont2=\m@@f -\mathf@nt{\fntmathsstok}{sy}{\fntmathsssize}{cm}\skewchar\m@@f='60\scriptscriptfont2=\m@@f -\mathf@nt{\fntmathtok}{ex}{\fntmathsize}{cm}\textfont3=\m@@f\scriptfont3=\m@@f\scriptscriptfont3=\m@@f -\mathf@nt{\fntmathtok}{ti}{\fntmathsize}{cs}\textfont\itfam=\m@@f -\mathf@nt{\fntmathtok}{sl}{\fntmathsize}{cs}\textfont\slfam=\m@@f -\mathf@nt{\fntmathtok}{bx}{\fntmathsize}{cs}\textfont\bffam=\m@@f -\mathf@nt{\fntmathtok}{tt}{\fntmathsize}{cs}\hyphenchar\m@@f=-1\textfont\ttfam=\m@@f -} - -% Call \fixfont to fix lineskip, math fonts and the strut box - -\def\fixfont{\setfont\setmath -\mjtempcount=\fntdesignsize -\multiply\mjtempcount by \fntmag -\normalbaselineskip=0.12pt -\multiply\normalbaselineskip by \mjtempcount -\divide\normalbaselineskip by 100 -\normallineskip=0.01pt -\multiply\normallineskip by \mjtempcount -\divide\normallineskip by 100 -\normalbaselines -\dimen0=0.085pt -\multiply\dimen0 by \mjtempcount -\divide\dimen0 by 100 -\dimen1=0.035pt -\multiply\dimen1 by \mjtempcount -\divide\dimen1 by 100 -\setbox\strutbox=\hbox{\vrule height\dimen0 depth\dimen1 width\z@}} - -% You can use the following macros to change the magnification: - -\def\normal{\def\fntmag{\magstep0}\def\fnttoksuffix{A}\setfont} % Normal size -\def\halflarge{\def\fntmag{\magstephalf}\def\fnttoksuffix{b}\setfont} % Magstephalf -\def\large{\def\fntmag{\magstep1}\def\fnttoksuffix{B}\setfont} % Magstep 1 -\def\Large{\def\fntmag{\magstep2}\def\fnttoksuffix{C}\setfont} -\def\big{\def\fntmag{\magstep3}\def\fnttoksuffix{D}\setfont} -\def\Big{\def\fntmag{\magstep4}\def\fnttoksuffix{E}\setfont} -\def\huge{\def\fntmag{\magstep5}\def\fnttoksuffix{F}\setfont} -\def\Huge{\def\fntmag{\magstep6}\def\fnttoksuffix{G}\setfont} % Magstep 6 -\def\fm#1{\def\fntmag{\magstep#1}\edef\fnttoksuffix{\ifcase #1 A\or B\or C% -\or D\or E\or F\or G\fi}\setfont} % User mag - -% And to change the style: - -\def\rm{\fam\z@\def\fntstyle{r}\setfont} % Roman -\def\it{\fam\itfam\def\fntstyle{ti}\setfont} % Italic -\def\bo{\fam\bffam\def\fntstyle{b}\setfont} % Bold -\def\bf{\fam\bffam\def\fntstyle{bx}\setfont} % Bold extended -\def\ss{\def\fntstyle{ss}\setfont} % Sans serif -\def\tt{\fam\ttfam\def\fntstyle{tt}\setfont% -\hyphenchar\currentfont=-1\relax} % Typewriter -\def\sc{\def\fntstyle{csc}\setfont} % Caps and small caps -\def\ssi{\def\fntstyle{ssi}\setfont} % Sans serif italic -\def\sl{\fam\slfam\def\fntstyle{sl}\setfont} % Slanted -\def\ssbf{\def\fntstyle{ssbx}\setfont} % Sans serif bold -\def\ssdc{\def\fntstyle{ssdc}\setfont} % Sans serif demi condensed - -% Switch to large font set - -\def\twelvepoint{ -\def\fntdesignsize{12} -\def\fnttokprefix{twelve} -\def\fntmathsize{12}\def\fntmathtok{twelve} -\def\fntmathssize{8}\def\fntmathstok{eight} -\def\fntmathsssize{6}\def\fntmathsstok{six} -\fixfont -} - -% Itemization -% ----------- - -\newif\ifitem\itemtrue -\newbox\itembox -\newcount\itemcount - -\def\interlistskip{\vskip 3pt plus 2pt minus 1pt} - -\def\itemspacingrules{\ifitem\advance\leftskip by \parindent\parindent=0pt\itemfalse\fi -\advance\leftskip by 2.5em} - -\def\inititemize{\interlistskip\begingroup -\parskip=1pt plus 0.3pt minus 0.1pt -\itemspacingrules} - -\def\itemize#1{\inititemize\setbox\itembox\llap{#1\hskip 0.4em}% -\let\:=\singleitem} - -\def\singleitem{\par\leavevmode\copy\itembox} - -\def\endlist{\interlistskip\endgroup} - -\def\ibull{\raise0.2ex\hbox{$\bullet$}} % Signs frequently used for \itemize -\def\idot{\raise0.2ex\hbox{$\cdot$}} -\def\istar{\raise0.2ex\hbox{$\ast$}} - -\def\numlist#1{\inititemize\itemcount=0\let\:=\numbereditem -\let\itemnumbering=#1} - -\def\numbereditem{\par\leavevmode\advance\itemcount by 1 -\llap{\itemnumbering\hskip 0.4em}} - -\def\nnorm{\the\itemcount} -\def\ndotted{\nnorm.} -\def\nparen{\nnorm)} -\def\nroman{\romannumeral\itemcount} -\def\nromanp{\nroman)} -\def\nalpha{\count@=96\advance\count@ by\itemcount\char\count@)} -\def\nAlpha{\count@=64\advance\count@ by\itemcount\char\count@)} -\def\ngreek{$\ifcase\itemcount\or\alpha\or\beta\or\gamma\or\delta\or\epsilon\or -\zeta\or\eta\or\theta\or\iota\or\kappa\or\lambda\or\mu\or\nu\or\xi\or\pi\or\rho -\or\sigma\or\tau\or\upsilon\or\phi\or\chi\or\psi\or\omega\fi$)} - -\def\itm{\:} - -% Additional math functions -% ------------------------- - -\def\mod{\;{\rm mod}\;} -\def\div{\;{\rm div}\;} -\def\xor{\;{\rm xor}\;} - -\def\mathbox#1{ % Typeset math formula enclosed in a box. -$$\vbox{ -\hrule -\hbox{\vrule height 10pt depth 5pt\hskip3mm\hbox{$#1$}\hskip3mm\vrule } -\hrule -}$$} - -% Italic typesetting (automatic \/) -% ------------------ - -\def\I{\it\aftergroup\/} - -% New \frenchspacing, which doesn't leave unwanted spaces in text. - -\def\frenchsp@cing{\sfcode`\.\@m \sfcode`\?\@m \sfcode`\!\@m% -\sfcode`\:\@m \sfcode`\;\@m \sfcode`\,\@m} - -% Typesetting of one verbatim word -% -------------------------------- - -\def\make@ther#1{\catcode`#1=12\relax} -\def\setverb@tim{\tt\frenchsp@cing\catcode`\`=13\catcode`\'=13\n@ligs% -\let\do=\make@ther\dospecials\obeyspaces} - -{\catcode`'=13 -\catcode``=13 -\gdef\n@ligs{\def`{\relax\lq}\def'{\relax\rq}}} - -{\obeyspaces -\global\chardef\sp@ce=32 -\gdef\showspaces{\let =\sp@ce} -\global\let =\ } - -\catcode124=\active % Make | active -\def\ttst@rt{\begingroup\setverb@tim\let|=\endgroup} -\let|=\ttst@rt - -% Typesetting of verbatim text (enclosed in { } ) -% ---------------------------- - -\newskip\verbglue\newskip\verblineglue -\verbglue=3pt plus 1pt minus 0.3pt -\verblineglue=0pt plus 1.5pt -\def\verblocaldefs{} - -\newdimen\tabwidth -\newcount\tabsize -\tabsize=8 -\newdimen\t@b - -\newcount\vercnt -\def\v@rbend{\par\endgroup\vskip\verbglue} -\def\v@rbl{\ifnum\vercnt>0\{\fi\global\advance\vercnt by 1\relax} -\def\v@rbr{\ifnum\vercnt>1\}\else\v@rbend\fi\global\advance\vercnt by -1\relax} -\def\v@rbparams{\setverb@tim\parskip=\verblineglue\parindent=0pt\raggedbottom% -\rightskip\z@ plus1fil\pretolerance=10000\tolerance=10000\vercnt=0% -\catcode124=12\setupt@bs\vskip\verbglue\defb@x\obeylines} - -\def\startb@x{\setbox0=\hbox\bgroup} -\def\defb@x{\def\par{\leavevmode\egroup\box0\endgraf}% -\everypar{\startb@x}} - -{\catcode`\^^I=\active -\gdef\setupt@bs{\catcode`\^^I=\active -\setbox0=\hbox{\tt\ }\tabwidth=\wd0\multiply\tabwidth by \tabsize -\def^^I{\leavevmode\egroup\t@b=\wd0\divide\t@b by \tabwidth% -\multiply\t@b by \tabwidth% -\advance\t@b by \tabwidth\advance\t@b by -\wd0\box0\hbox to \t@b{}\startb@x} -}} - -{ -\catcode`[=1\catcode`]=2\catcode123=\active\catcode125=\active -\gdef\verbatim[\begingroup\v@rbparams\catcode123=\active\catcode125=\active% -\let{=\v@rbl\let}=\v@rbr\chardef\{=123\chardef\}=125\verblocaldefs -]] - -% Input file verbatim -% ------------------- - -\def\verbinput#1{\begingroup\v@rbparams\input #1\endgroup} - -% Pictures -% -------- -% Allowed direction vectors are 0<=x<=6, -6<=y<=6, GCD(x,y)=1 - -\def\initlines{\font\lif=line10} -\def\linechar#1#2{\ifnum #1=0 \hbox to 0pt{\hss\vrule height 10pt\hss}\else -\ifnum #2=0 \vbox to 0pt{\vss\hrule width 10pt\vss}\else -{\count255=#1\multiply\count255 by 8 -\ifnum #2>0 \advance\count255 by #2 \advance\count255 by -9 -\else\advance\count255 by -#2 \advance\count255 by 55\fi -\lif\char\count255}\fi\fi} -\def\picture#1#2#3{\initlines\medskip\centerline{\vbox to #2{\hbox to #1{#3\hss}\vss}}\medskip} -\def\place#1#2#3{{\setbox0=\hbox to 0pt{#3 \hss}\ht0=0pt\dp0=0pt -\hbox to 0pt{\hskip #1\lower #2\box0\hss}}} -\def\pl@celine{\ifnum \count255>0 \place{\dimen0}{\dimen1}{\copy0}\advance\dimen0 by \wd0 -\advance\dimen1 by -\ht0 \advance\count255 by -1 \pl@celine\fi} -\def\placeline#1#2#3#4#5{{\setbox0=\hbox{\linechar{#3}{#4}}\ifnum #4<0\setbox0=\hbox to -\wd0{\hss\box0}\fi -\dimen0=#1\dimen1=#2\count255=#5\pl@celine}} -\def\cplace#1#2#3{\place{#1}{#2}{\hss #3}} - -% Let's hide all internal macros - -\catcode`@=12