\documentclass[12pt,a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage{lmodern}
\usepackage[textwidth=190mm,textheight=270mm]{geometry}
\usepackage{graphicx}
\pagestyle{empty}

\newlength{\kernleft}
\newlength{\kernright}
\newlength{\pslength}
\setlength{\pslength}{0.00102130607em}

\newcommand\kerntest[9]{%
 \guillemotright #1\guillemotleft &
 \setlength{\kernleft}{#2\pslength}%
 \setlength{\kernright}{#3\pslength}%
 \guillemotright\kern\the\kernleft#1\kern\the\kernright\guillemotleft &
 \guillemotleft#1\guillemotright &
 \setlength{\kernleft}{#4\pslength}%
 \setlength{\kernright}{#5\pslength}%
 \guillemotleft\kern\the\kernleft#1\kern\the\kernright\guillemotright &
 \quotedblbase#1\textquotedblleft\ &
 \setlength{\kernleft}{#6\pslength}%
 \setlength{\kernright}{#7\pslength}%
 \quotedblbase\kern\the\kernleft#1\kern\the\kernright\textquotedblleft &
 \textquotedblleft#1\textquotedblright &
 \setlength{\kernleft}{#8\pslength}%
 \setlength{\kernright}{#9\pslength}%
 \textquotedblleft\kern\the\kernleft#1\kern\the\kernright\textquotedblright
 \\}

\newlength{\emasdf}
\begin{document}
\setlength{\emasdf}{1ex}
	\typeout{\the\emasdf}%

% >>A
\def\frqqA{-070}%
\def\frqqH{-050}%
\def\frqqO{-030}%
\def\frqqT{-070}%
\def\frqqV{-100}%
\def\frqqpunct{-050}%

% A<<
\def\Aflqq{-070}%
\def\Oflqq{-020}%
\def\Hflqq{-050}%
\def\Kflqq{-050}%
\def\Pflqq{-030}%
\def\Tflqq{-070}%
\def\Vflqq{-100}%
\def\punctflqq{-050}%

%<<A
\def\flqqV{-050}%
\def\flqqA{-030}%
\def\flqqU{-030}%

%A>>
\def\Vfrqq{-050}%
\def\Afrqq{-030}%
\def\Ufrqq{-030}%

%,,A
\def\glqqH{+050}%
\def\glqqO{-050}%
\def\glqqU{-050}%
\def\glqqV{-150}%
\def\glqqpunct{+100}%

%A``
\def\Agrqq{-200}
\def\Ogrqq{-100}%
\def\Hgrqq{-100}%
\def\Egrqq{-050}%
\def\punctgrqq{-050}%

%``A
\def\elqqA{-050}

%A''
\def\Aerqq{-050}


\begin{twocolumn}
\begin{tabular}{|*{4}{l@{~}l|}}
\rotatebox{90}{Guill.\ Ger.\ Orig.} &
\rotatebox{90}{Guill.\ Ger.\ Kern.} &
\rotatebox{90}{Guill.\ Fren.\ Orig.} &
\rotatebox{90}{Guill.\ Fren.\ Kern.} &
\rotatebox{90}{Quot.\ Ger.\ Orig.} &
\rotatebox{90}{Quot.\ Ger.\ Kern.} &
\rotatebox{90}{Quot.\ Engl.\ Orig.} &
\rotatebox{90}{Quot.\ Engl.\ Kern.} \\
\kerntest{A}{\frqqA}{\Aflqq}{\flqqA}{\Afrqq}{\glqqH}{\Agrqq}{\elqqA}{\Aerqq}
\kerntest{B}{\frqqH}{-000}{-000}{-000}{\glqqH}{\Ogrqq}{-000}{-000}
\kerntest{C}{\frqqO}{-000}{-000}{-000}{\glqqO}{\Egrqq}{-000}{-000}
\kerntest{D}{\frqqH}{\Oflqq}{-000}{-000}{\glqqH}{\Ogrqq}{-000}{-000}
\kerntest{E}{\frqqH}{-000}{-000}{-000}{\glqqH}{\Egrqq}{-000}{-000}
\kerntest{F}{\frqqH}{\Hflqq}{-000}{-000}{\glqqH}{\Egrqq}{-000}{-000}
\kerntest{G}{\frqqO}{-000}{-000}{-030}{\glqqO}{\Ogrqq}{-000}{-000}
\kerntest{H}{\frqqH}{\Hflqq}{-000}{-000}{\glqqH}{\Hgrqq}{-000}{-000}
\kerntest{I}{\frqqH}{\Hflqq}{-000}{-000}{\glqqH}{\Hgrqq}{-000}{-000}
\kerntest{J}{-030}{\Hflqq}{-000}{-000}{-000}{\Hgrqq}{-050}{-000}
\kerntest{K}{\frqqH}{\Aflqq}{-000}{-000}{\glqqH}{\Hgrqq}{-000}{-000}
\kerntest{L}{\frqqH}{-000}{-000}{-000}{\glqqH}{-100}{-000}{-000}
\kerntest{M}{\frqqH}{\Hflqq}{-000}{-000}{\glqqH}{\Hgrqq}{-000}{-000}
\kerntest{N}{\frqqH}{\Hflqq}{-000}{\Ufrqq}{\glqqH}{\Hgrqq}{-000}{-000}
\kerntest{O}{\frqqO}{\Oflqq}{-000}{-000}{\glqqO}{\Ogrqq}{-000}{-000}
\kerntest{P}{\frqqH}{\Pflqq}{-000}{-000}{\glqqH}{\Ogrqq}{-000}{-000}
\kerntest{Q}{\frqqO}{\Oflqq}{-000}{-000}{\glqqO}{\Ogrqq}{-000}{-000}
\kerntest{R}{\frqqH}{\Oflqq}{-000}{-000}{\glqqH}{-120}{-000}{-000}
\kerntest{S}{-000}{-000}{-000}{-000}{+050}{\Hgrqq}{-000}{-000}
\kerntest{T}{\frqqT}{\Tflqq}{\flqqU}{\Ufrqq}{\glqqU}{-050}{-000}{-000}
\kerntest{U}{\frqqH}{\Hflqq}{\flqqU}{\Ufrqq}{\glqqU}{\Hgrqq}{-000}{-000}
\kerntest{V}{\frqqV}{\Vflqq}{\flqqV}{\Vfrqq}{\glqqV}{\Hgrqq}{-000}{-000}
\kerntest{W}{\frqqV}{\Vflqq}{\flqqV}{\Vfrqq}{\glqqV}{\Hgrqq}{-000}{-000}
\kerntest{X}{\frqqH}{\Hflqq}{-000}{-000}{\glqqH}{-150}{-000}{-000}
\kerntest{Y}{\frqqV}{\Vflqq}{\flqqV}{\Vfrqq}{\glqqV}{\Hgrqq}{-000}{-000}
\kerntest{Z}{-030}{-000}{-000}{-000}{-000}{\Hgrqq}{-000}{-000}
\kerntest{Ä}{\frqqA}{\Aflqq}{\flqqA}{\Afrqq}{\glqqH}{\Agrqq}{\elqqA}{\Aerqq}
\kerntest{Ö}{\frqqO}{\Oflqq}{-000}{-000}{\glqqO}{\Ogrqq}{-000}{-000}
\kerntest{Ü}{\frqqH}{\Hflqq}{\flqqU}{\Ufrqq}{\glqqU}{\Hgrqq}{-000}{-000}
\kerntest{?}{-100}{-100}{-000}{-000}{+050}{-050}{-000}{-000}
\kerntest{!}{\frqqpunct}{\punctflqq}{-000}{-000}{\glqqpunct}{\punctgrqq}{-000}{-000}
\kerntest{.}{\frqqpunct}{\punctflqq}{-000}{-000}{\glqqpunct}{\punctgrqq}{-000}{-000}
\kerntest{,}{\frqqpunct}{\punctflqq}{-000}{-000}{+150}{\punctgrqq}{-000}{-000}
\kerntest{;}{\frqqpunct}{\punctflqq}{-000}{-000}{\glqqpunct}{\punctgrqq}{-000}{-000}
\kerntest{:}{\frqqpunct}{\punctflqq}{-000}{-000}{\glqqpunct}{\punctgrqq}{-000}{-000}
\kerntest{\quotesinglbase
           }{\frqqpunct}{\punctflqq}{-000}{-000}{+150}{\punctgrqq}{-000}{-000}
\kerntest{`}{\frqqpunct}{\punctflqq}{-000}{-000}{+050}{+000}{+100}{+100}
\kerntest{'}{\frqqpunct}{\punctflqq}{-000}{-000}{+050}{+000}{+100}{+100}
\kerntest{\guilsinglleft
           }{-000}{-000}{-000}{-000}{-050}{-100}{-000}{-000}
\kerntest{\guilsinglright
           }{-000}{-000}{-000}{-000}{-000}{-150}{-000}{-000}
\kerntest{\quotedblbase
           }{-150}{-000}{-100}{+050}{+100}{-000}{+050}{+150}
\kerntest{``%
           }{-150}{-000}{-100}{+050}{-000}{+100}{+050}{+150}
\kerntest{''%
           }{-000}{-150}{+050}{-100}{+100}{+000}{+150}{+050}
\kerntest{<<%
           }{-000}{-000}{-000}{-000}{-050}{-100}{-000}{-000}
\kerntest{>>%
           }{-000}{-000}{-000}{-000}{-000}{-150}{-000}{-000}
\end{tabular}




% >>A

% A<<

%<<A

%A>>

%,,A
\def\glqqo{+050}%
\def\glqqh{+050}%

%A``
\def\ogrqq{-050}%
\def\hgrqq{-100}%

%``A

%A''


\begin{tabular}{|*{4}{l@{~}l|}}
\rotatebox{90}{Guill.\ Ger.\ Orig.} &
\rotatebox{90}{Guill.\ Ger.\ Kern.} &
\rotatebox{90}{Guill.\ Fren.\ Orig.} &
\rotatebox{90}{Guill.\ Fren.\ Kern.} &
\rotatebox{90}{Quot.\ Ger.\ Orig.} &
\rotatebox{90}{Quot.\ Ger.\ Kern.} &
\rotatebox{90}{Quot.\ Engl.\ Orig.} &
\rotatebox{90}{Quot.\ Engl.\ Kern.} \\
\kerntest{a}{-000}{-000}{-000}{-000}{\glqqo}{-100}{-000}{-000}
\kerntest{b}{-050}{-000}{-000}{-000}{-000}{\hgrqq}{+050}{-000}
\kerntest{c}{-000}{-000}{-000}{-000}{\glqqo}{\ogrqq}{-000}{-000}
\kerntest{d}{-000}{-000}{-000}{-000}{\glqqo}{-050}{-000}{-000}
\kerntest{e}{-000}{-000}{-000}{-000}{\glqqo}{\ogrqq}{-000}{-000}
\kerntest{f}{-000}{-000}{-000}{-000}{\glqqh}{+030}{-000}{+100}
\kerntest{g}{-000}{-000}{-000}{-000}{+050}{-050}{-000}{+050}
\kerntest{h}{-050}{-000}{-000}{-000}{\glqqh}{\hgrqq}{+050}{-000}
\kerntest{i}{-000}{-000}{-000}{-000}{\glqqh}{-050}{+050}{-000}
\kerntest{j}{-000}{-000}{-000}{-000}{+100}{-050}{+050}{-000}
\kerntest{k}{-000}{-000}{-000}{-000}{\glqqh}{-050}{+050}{+050}
\kerntest{l}{-000}{-000}{-000}{-000}{\glqqh}{-070}{+050}{-000}
\kerntest{m}{-000}{-000}{-000}{-000}{\glqqh}{\hgrqq}{+050}{-000}
\kerntest{n}{-000}{-000}{-000}{-000}{\glqqh}{\hgrqq}{+050}{-000}
\kerntest{o}{-000}{-000}{-000}{-000}{\glqqo}{\ogrqq}{-000}{-000}
\kerntest{p}{-000}{-000}{-000}{-000}{+050}{\ogrqq}{+050}{-000}
\kerntest{q}{-000}{-000}{-000}{-000}{\glqqo}{-050}{-000}{-000}
\kerntest{r}{-000}{-000}{-000}{-000}{\glqqh}{-050}{+050}{+050}
\kerntest{s}{-000}{-000}{-000}{-000}{+050}{-050}{-000}{+030}
\kerntest{t}{-000}{-000}{-000}{-000}{-000}{-050}{+050}{-000}
\kerntest{u}{-000}{-000}{-000}{-000}{-000}{-100}{+050}{-000}
\kerntest{v}{-000}{-000}{-000}{-000}{-050}{-000}{+050}{+050}
\kerntest{w}{-000}{-000}{-000}{-000}{-050}{-000}{+050}{+050}
\kerntest{x}{-000}{-000}{-000}{-000}{\glqqh}{-000}{+050}{+050}
\kerntest{y}{-000}{-000}{-000}{-000}{+050}{-000}{+050}{+050}
\kerntest{z}{-000}{-000}{-000}{-000}{\glqqh}{-050}{-000}{-000}
\kerntest{ä}{-000}{-000}{-000}{-000}{\glqqo}{-100}{-000}{-000}
\kerntest{ö}{-000}{-000}{-000}{-000}{\glqqo}{\ogrqq}{-000}{-000}
\kerntest{ü}{-000}{-000}{-000}{-000}{-000}{-100}{+050}{-000}
\kerntest{ß}{-000}{+050}{-000}{-000}{\glqqh}{-050}{+050}{+050}
\end{tabular}
\end{twocolumn}

\bigskip
Description:
\medskip

\small
\begin{tabular}{@{}ll}
\hline
Guill.\ Ger. & Guillemets as used in German texts \\
Guill.\ Fren. & Guillemets as used in French texts \\
Quot.\ Ger. & Quotations as used in German texts \\
Quot.\ Engl. & Quotations as used in English texts \\
\hline
Orig.& Original spacing by Latin Modern font \\
Kern.& Newly kerned by me \\
\hline
\end{tabular}

\end{document}

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: 
