Htydjtk

In a paper I'm writing, there are words using the alphabet ${{sf D,R}}$. It will be very convenient to add ornated versions as in the picture below, but I have no idea how to create something that is scalable and can be used in text (as opposed to being an included image); hence, no included code.

The little circles can be bullets, and are about flush with the top/bottom of their respective letters, and could be larger than shown.

documentclass{article}

usepackage{stackengine}

newcommanddotR{stackinset{r}{-.11em}{b}{}{.}{textsf{R}}kern0.075em}

newcommanddotD{kern.06emstackinset{l}{-0.06em}{t}{}{.}{textsf{D}}}

begin{document}

dotRdotD {LargedotRdotD}

end{document}

I added kerning to account for the extra width. However, if you prefer the original kerning of R and D,

documentclass{article}

usepackage{stackengine}

newcommanddotR{stackinset{r}{-.11em}{b}{}{.}{textsf{R}}}

newcommanddotD{stackinset{l}{-0.06em}{t}{}{.}{textsf{D}}}

begin{document}

dotRdotD {LargedotRdotD}



sffamily RD{Large RD}

end{document}

Here is an option using ooalign.

documentclass{article}

usepackage{graphicx}

newcommandRR{{ooalign{textsf{R}kern.107emcrhfil.cr}}}

newcommandDD{reflectbox{rotatebox[origin=c]{180}{ooalign{kern.04emtextsf{D}cr.hfilcr}}}}



begin{document}

RRDD {LargeRRDD} {HugeRRDD}

end{document}

You can always patch things together.

documentclass{article}

newcommand{OrnatedD}{raisebox{1.35ex}{.}hspace*{-0.22em}textsf{D}}

newcommand{OrnatedR}{textsf{R}hspace*{-0.15em}.}

begin{document}

OrnatedD~OrnatedR {Large OrnatedD~OrnatedR}

end{document}

I prefer letting TeX doing the calculations. ;-) Just the kerning needs optical adjustment.

documentclass{article}

usepackage{graphicx}



% a general purpose macro

newcommand{xmathpalette}[2]{mathchoice

  {#1displaystyletextfont{#2}}%

  {#1textstyletextfont{#2}}%

  {#1scriptstylescriptfont{#2}}%

  {#1scriptscriptstylescriptscriptfont{#2}}%

}

makeatletter

newcommand{Ro}{mathsf{R}mkern-1.7mu{xmathpaletteR@orelax}}

newcommand{Do}{mathsf{xmathpaletteD@orelaxmkern-2.7mu D}}



newcommand{R@o}[3]{%

  scalebox{0.3}{%

    raisebox{dimexprheight-2fontdimen22#22}{%

      $m@th#1bullet$%

    }%

  }%

}

newcommand{D@o}[3]{%

  raisebox{fontcharht#2fam`D}{%

    scalebox{0.3}{%

      raisebox{-height}{$m@th#1bullet$}%

    }%

  }%

}

makeatother



begin{document}



$Ro+Do_{Ro+Do}$



{Large $Ro$ $Do$}



end{document}