summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/gustlib/map/tsp.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/gustlib/map/tsp.tex')
-rw-r--r--Master/texmf-dist/tex/plain/gustlib/map/tsp.tex49
1 files changed, 49 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/gustlib/map/tsp.tex b/Master/texmf-dist/tex/plain/gustlib/map/tsp.tex
new file mode 100644
index 00000000000..e140ed624de
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/gustlib/map/tsp.tex
@@ -0,0 +1,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}%