Saint abbreviation

Just for fun:

\documentclass{article}
\usepackage{xparse}
\usepackage{fontspec}

\setmainfont{Libre Bodoni}

\NewDocumentCommand{\frabbr}{sm}{%
  \IfBooleanTF{#1}{\dofrabbr{}{#2}}{\dofrabbr{\hfil}{#2}}%
}

\newcommand{\dofrabbr}[2]{%
  \vbox to\fontcharht\font`T {%
    \ialign{%
      #1##\hfil\cr
      \relscriptsize#2\cr
      \noalign{\nointerlineskip\vfill}
      .\cr
    }%
  }%
}

\makeatletter
\newcommand{\relscriptsize}{%
  \check@mathfonts\fontsize\ssf@size\z@\selectfont
}
\makeatother

\begin{document}

\bfseries
\begin{tabular}{@{}c@{}}
6\frabbr*{me} Arr\frabbr{T} \\
BOULEVARD \\
S\frabbr{T} GERMAIN
\end{tabular}

\end{document}

enter image description here


The following should produce what you want. You can use an optional argument to specify another letter than T (e.g. t):

\documentclass[]{article}

\newsavebox\myboxA
\newsavebox\myboxB
\newcommand\saint[1][T]
  {%
    \begingroup
    \sbox\myboxA{S}%
    \usebox\myboxA
    \sbox\myboxB{\tiny#1}%
    \rlap{\raisebox{\dimexpr\ht\myboxA-\ht\myboxB}{\usebox\myboxB}}%
    \makebox[\wd\myboxB]{.}%
    \endgroup
  }

\begin{document}
\saint\ Germain
\saint[t] Germain
\end{document}

enter image description here