summaryrefslogtreecommitdiff
path: root/macros/generic/cptex/cpps.sty
blob: edc3e0d7c1118e11253c1e5ff337ea076257c6e8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
%
% TeX-Definitionen fr die IBM PC Codepages (PostScript-Version)
%
% (C) 1994 FuturaSoft (Martin Krmer, D-49179 Ostercappeln)
%
\typeout{Document Style Option `cpps' Version 1.0 <3 Feb 1994>.}
%
%
\@ifundefined{nocolors}{\input colors.sty}{}

%
% Inverse Darstellung eines Zeichens (auf \strut-Hoehe)
%
\def\invsymbol#1{\leavevmode
  {\setbox0=\hbox{#1}\hbox{\strut\leaders\vrule\hskip\wd0}\bgcolor\llap{\box0}}}

%
% PC codes 0..31
%
\def\blacksmiley{{\setbox0=\hbox{$\vcenter{}$}\xooalign{%
    \setbox0=\hbox{$\m@th\vphantom{|}\bigcirc$}%
    \unitlength=\ht0 \advance\unitlength by\dp0
    \lower\dp0\hbox to\wd0{\hfil
      \begin{picture}(1,1)\put(0.5,0.5){\circle*{0.8}}\end{picture}\hfil}\crcr
    \hfil\raise0.5\ht0\hbox{$\m@th\bgcolor\cdot\cdot$}\hfil\crcr
    \hfil\lower0.25\ht0\hbox{$\m@th\bgcolor\scriptscriptstyle\smile$}\hfil}}}
\def\male{\leavevmode{\unitlength=1ex \begin{picture}(1,1)
    \put(0.6,1.1){\makebox(0,0){$\m@th\scriptscriptstyle\nearrow$}}
    \put(0.5,0.5){\bgcolor\circle*{1}}
    \put(0.5,0.5){\circle{1}}
    \end{picture}}}
\def\sun{{\xooalign{$\m@th\bigstar$\crcr
    \hfil$\m@th\bgcolor\cdot$\hfil}}}
%
% PC codes 128..255
%
\def\currency{{\xooalign{\hfil$\m@th\times$\hfil\crcr
    \hfil\kern0.05em$\m@th\bgcolor\bullet$\hfil\crcr
    \hfil\kern0.05em$\m@th\circ$\hfil}}}

\def\graygraphbox{{\adjustluminance{0.75}\graphsymbol{\leaders\vrule\hfill}}}
\def\Graygraphbox{{\adjustluminance{0.5}\graphsymbol{\leaders\vrule\hfill}}}
\def\GRAYGRAPHBOX{{\adjustluminance{0.25}\graphsymbol{\leaders\vrule\hfill}}}

\newtypeface{\syr}{psyr}
\graphlinewidth=1pt % bei 12pt-Schrift
\def\inttop{\graphsymbol{\setbox2=\hbox{\syr\char"0F3}%
  \@tempdima=\ht1 \advance\@tempdima by-0.8\dp2
  \advance\@tempdima by\dp\strutbox
  \hss\smash{\lower\@tempdima\copy2}\kern0.095\wd2\hss}}
\def\intbot{\graphsymbol{\setbox2=\hbox{\syr\char"0F5}%
  \@tempdima=\ht1 \advance\@tempdima by1.01\ht2
  \advance\@tempdima by-\ht\strutbox
  \hss\lower\@tempdima\copy2\kern0.095\wd2\hss}}

\def\copyright{{\syr\char"0D3}}