summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/gustlib/map/tsp.tex
blob: e140ed624de4af794e5412d533c8e8a1e987b9c3 (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
% TSP.TEX

% Marek Ry\'cko

% Macro \tsp
% Text SPace

% uses SPLIT.TEX

% version 0.0 24.07.1993
% version 0.2,  8.10.1993
%   -- no \input map
% version 0.3 1.5.1996
%   -- english description


% uses SPLIT
% uses MAP


\def\tsp
    %#1%
    {\map
        {\ifx\mapcur\space
            \hskip\tspsp\relax
        \else
            \mapcur
            % if it is not the last element -- join using kern:
            \ifx\mappost\empty \else
                % ``future'' is nonempty;
                % we put interletter spacing only if
                % next character is not space:
                \split\mappost\tsptest\fool
                \ifx\tsptest\space
                    % will be space, don't put glue:
                \else
                    % not kern to make it streachable:
                    \nobreak\hskip\tsplet\relax
                \fi
            \fi
        \fi
        }% the end of first parameter
        %{#1}%
    }
% default parameters:
% the amount of space in place of the space character:
    \def\tspsp  {0.9em plus.3em minus.2em}
% distance between letters:
    \def\tsplet {.1666667em}%