¿Es posible salpicar tus Is con corazones?

Question

Me preguntaba si es posible reemplazar solo el modo matemático i de la fuente látex predeterminada con casi la misma letra, pero donde el punto en la i es un corazón pequeño. Por ejemplo:

¡Gracias!

Answer 1

¿Por qué no también j?

\documentclass{article}
\usepackage{amsmath}
\usepackage{l3draw}

\makeatletter
\NewDocumentCommand{\iheart}{}{\mathord{\mathpalette\iheart@{\imath{7}{1}}}}
\NewDocumentCommand{\jheart}{}{\mathord{\mathpalette\iheart@{\jmath{12}{2}}}}
\newcommand{\iheart@}[2]{\iheart@@#1#2}
\newcommand{\iheart@@}[4]{%
  \vbox{\m@th\offinterlineskip
    \sbox\z@{$\mkern1mu$}%
    \ialign{##\cr\hidewidth\smallheart@{#1}{#3}\hidewidth\cr\noalign{\kern\wd\z@}\cr$#1#2$\cr}%
  }%
  \mkern#4mu
}

\ExplSyntaxOn
\cs_new_protected:Npn \smallheart@ #1 #2
 {
  \draw_begin:
  \draw_transform_matrix_absolute:nnnn { 0.4 } { 0 } { 0.2 } { 0.3 }
  \draw_path_moveto:n { 0cm, 0cm }
  \hbox_set:Nn \l_tmpa_box { \boldmath$#1\mkern#2mu\heartsuit$ }
  \draw_box_use:N \l_tmpa_box
  \draw_end:
 }
\ExplSyntaxOff
\makeatother

\begin{document}

$2\pi\iheart_{\jheart}+\jheart$

\end{document}

¿Cómo funcionan las macros? En primer lugar, algunos trucos de Mathpalette para tener cuatro argumentos:

1. El estilo matemático actual, como siempre.
2. la letra que se va a componer, por lo que cualquiera \imathy\jmath
3. el núcleo (matemático) delante del corazón
4. el núcleo matemático después de la combinación, para compensar la protuberancia del corazón que no se tiene en cuenta debido a\hidewidth

Le hago una \vboxcon \ialignen su interior que sobrepasa el corazón al pie de la letra.

Finalmente, el corazón es una negrita \heartsuiten el estilo matemático adecuado sujeto a una transformación afín que aplica reducción y corte.

Quizás sean necesarios algunos experimentos más para los distintos parámetros.

Answer 2

\documentclass{article}
\begin{document}
$2\pi{\mathop{{}\imath}\limits^{\scriptscriptstyle\heartsuit}}$
\end{document}

Answer 3

\documentclass{article}
\usepackage{amsmath,graphicx}
\newcommand\iheart[1][\imath]{%
#1\kern-.2em\rlap{%
\raisebox{1.2ex}[0pt][0pt]{%
\rotatebox{-15}{%
\resizebox{.5ex}{.5ex}{\ensuremath{\heartsuit}}}}}\kern.2em} 
\begin{document}
\Huge  \[ 2\pi ii\iheart ii  =  2\pi\iheart[\jmath] \]
\end{document}