diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /usergrps/uktug/baskervi/6_2/spqr/spqr.sty |
Initial commit
Diffstat (limited to 'usergrps/uktug/baskervi/6_2/spqr/spqr.sty')
-rw-r--r-- | usergrps/uktug/baskervi/6_2/spqr/spqr.sty | 150 |
1 files changed, 150 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/6_2/spqr/spqr.sty b/usergrps/uktug/baskervi/6_2/spqr/spqr.sty new file mode 100644 index 0000000000..3175036e1e --- /dev/null +++ b/usergrps/uktug/baskervi/6_2/spqr/spqr.sty @@ -0,0 +1,150 @@ +\RequirePackage{pstcol} +\RequirePackage{fancyvrb} +\RequirePackage{shortvrb} +\RequirePackage{array,longtable} +\definecolor{wheat}{rgb}{.96, .87, .7} +\definecolor{lightblue}{rgb}{.68, .85, .9} +\definecolor{brown}{rgb}{.65, .16, .16} +\definecolor{pink}{rgb}{1, .75, .8} +\definecolor{palegreen}{rgb}{.6, .98, .6} +\definecolor{white}{rgb}{1, 1, 1 } +\catcode`\<=13 +\def\Main#1{{\MainFont\string#1}} +\def\MainFont{\ttfamily\upshape} % For macro definitions. +\def\ArgFont{\sffamily\mdseries\upshape} % For meta arguments. +\def\OptArgFont{\sffamily\mdseries\itshape} % For optional arguments. +\def<#1>{{\normalfont\itshape#1\/}} +% parameter descriptions are always in a table +\def\Par#1{\@ifnextchar({\@Par#1}{\@@Par#1()}} +\def\@Par#1=#2(#3){% + {\normalfont #1}={\ArgFont#2}& #3} +% Short-cuts for coordinates: +\def\x#1{{\normalfont\itshape $x$#1\/}} +\def\y#1{{\normalfont\itshape $y$#1\/}} +\def\z#1{{\normalfont\itshape $z$#1\/}} +\def\c#1{(\x{#1},\kern 1pt\y{#1})} +\def\cAny{(\x{},\kern 1pt\y{})} +% In each case: +% 1. definition is delimited only by end-of-line. +% 2. {}, () and [] are literal, with contents set in \ArgFont +% 3. = and , are literal. +% 4. `foo' is for optional arguments. +% 5. <foo> is meta, as usual. +\begingroup + \catcode`\<=1 \catcode`\>=2 + \catcode`\{=13 \catcode`\}=12 + \catcode`\[=13 + \gdef\@MD<% + \catcode`\{=13 \catcode`\}=12 \catcode`\[=13 + \def{##1}<\{<\ArgFont ##1\/>\}>% + \def[##1]<\string[<\ArgFont ##1\/>]>> +\endgroup +\begingroup + \catcode`\(=13 + \catcode`\,=13 + \catcode`\==13 + \gdef\MacroDefCodes{% + \@MD + \catcode`\(13 + \catcode`\^^M12 + \catcode`\`13 + \catcode`\,13 + \catcode`\!1 + \catcode`\@2 + \def~{}% + \def={{\fontshape{n}\selectfont\string=}}% + \def,{{\fontshape{n}\selectfont\string,}}% + \def(##1){\string({\ArgFont ##1})}} +\endgroup + +\begingroup + \catcode`\`=13 \gdef`#1'{{\OptArgFont #1}} +\endgroup + +\begingroup + \catcode`\^^M=12\relax% + \gdef\GetMacroDef#1{\begingroup\MacroDefCodes\@GetMacroDef{#1}}% + \gdef\@GetMacroDef#1#2^^M{#1{#2}\endgroup}% +\endgroup + +% For listing macro definitions in a "description" environment: +\def\PSTCom{\GetMacroDef\@PSCom} +\def\@PSCom#1{\@@PSCom#1\@nil} +\def\@@PSCom#1\@nil{\MainFont\Main#1} +\def\PSTComOpt{\GetMacroDef\@PSTComOpt} +\def\@PSTComOpt#1{\@@PSComOpt#1\@nil} +\def\@@PSComOpt#1#2\@nil{\@PSCom{#1{\OptArgFont*[{\ArgFont settings}]}#2}} +\MakeShortVerb{\"} +\DeleteShortVerb{\|} +\def\PST{\textsf{PSTricks}} +\def\PS{\textsc{PostScript}} +\def\Special{{\normalfont\ttfamily\char'134special}} +\def\Lcs#1{{\normalfont\ttfamily\char'134#1}} +\def\Program#1{\emph{#1}} +\def\Lpack#1{\emph{#1}} +%----------- Zandtisms -------------------- +\def\Usage#1{{\UsageFont\string#1}} +\def\MainFont{\fontfamily{\ttdefault}\fontseries{bc}\fontshape{n}\selectfont +\large}% For macro definitions. +\def\UsageFont{\fontfamily{\ttdefault}\fontseries{bc}\fontshape{n}\selectfont} + % For in-line macro names. +\def\InlineFont{\ttfamily} % For other in-line snipets of code. +\let\main\textbf +\let\usage\emph +% ---------- for array.sty -------------- +\def\arraybackslash{\let\\=\@arraycr} +\newcolumntype{P}[1]{>{\raggedright\arraybackslash}p{#1}} +\newcolumntype{C}[1]{>{\centering\arraybackslash}p{#1}} +% ----------- harvard-style citations ------------------ +\def\@cite#1#2{{#1\if@tempswa , #2\fi}} +\def\ETAL{{\em et al\/}}% + +\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi + \def\@citea{}\@cite{\@for\@citeb:=#2\do + {\@citea\def\@citea{; }\@ifundefined + {b@\@citeb}{$\underline{\mbox{\@citeb}}$\@warning + {Citation `\@citeb' on page \thepage \space undefined}}% +{\csname b@\@citeb\endcsname}}}{#1}}% +% label for a bibliography citation not produced + \def\@biblabel#1{\hfill} + +% with page or fig no +\def\Cite#1#2{\cite[#2]{#1}}% +% year only, with page or fig no +\def\Yearcite#1#2{\yearcite[#2]{#1}}% +\let\@internalcite\cite +\def\cite{\def\citename##1{##1}\@internalcite}% +% \yearcite gives only the date +\def\yearcite{\def\citename##1{}\@internalcite}% +% +\def\endPSExample{% + \EndExample +\VerbatimInput[gobble=0,fontsize=\small, +% frame=topline, +framerule=1.5pt]{\EXdir\theeps@counter}% +\begin{center} + \ifgrid\vskip 8pt \fi + \expandafter\pspicture\PictureSize + \ifgrid\usergrid\else\relax\fi + \input{\EXdir\theeps@counter} + \endpspicture + \ifgrid\vskip 8pt \fi + \EndRuleExample +\end{center} + }% +\renewenvironment{example**}% +{\def\Write@Ex##1{}\BeginExample}% +{% +\EndExample +\VerbatimInput[gobble=0,fontsize=\small, + %frame=topline, +framerule=1.5pt]{\EXdir\theeps@counter}% +\begin{center} +\input{\EXdir\theeps@counter} + \EndRuleExample +\end{center} +} +\def\Lenv#1{\texttt{#1}} +\newcolumntype{H}[1]{>{\raggedright\hangindent=.5em\arraybackslash}p{#1}} +\def\Figword{Fig.~} +\endinput |