¿Cómo levanto una figura (colocada con wrapfig) para que quede al ras de la parte superior de un párrafo?

Question

Estoy usando el wrapfigpaquete para colocar una figura con texto alrededor. A continuación se muestra un ejemplo mínimo, con una captura de pantalla de la parte relevante del resultado a continuación:

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}

\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\begin{wrapfigure}[15]{r}{0in}
\includegraphics[width=0.4\textwidth]{TestImage.jpg}
\end{wrapfigure}

Lorem ipsum ... ridiculus mus.

\end{document}

Al observar este resultado, no me gusta cómo la figura está colocada un poco hacia abajo desde la parte superior del primer párrafo. ¿Cuál es una solución mínima para elevar la figura de modo que el borde superior de la imagen quede al mismo nivel que la parte superior de este párrafo?

Algunas notas aclaratorias: no necesito la solución para encontrar la parte superior del párrafo automáticamente; si puedo elevar la imagen una longitud ingresada manualmente, está bien. Además, estoy de acuerdo con hacer este ajuste manual para cada imagen; no es necesario realizar cambios en todas esas imágenes si no es conveniente.

Answer 1

Puedes configurar \intextsep:

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}
\setlength\intextsep{0pt}
\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\begin{wrapfigure}[15]{r}{0in}
\includegraphics[width=0.4\textwidth]{example-image-duck}
\end{wrapfigure}

Lorem ipsum ... ridiculus mus.

\end{document}

Una alternativa más manual es recortar el gráfico. Al ajustar el valor, puede mover el gráfico hacia arriba y hacia abajo:

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}
\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\begin{wrapfigure}[15]{r}{0in}
\includegraphics[width=0.4\textwidth,trim=0pt 0pt 0pt 30pt]{example-image-duck}
\end{wrapfigure}

Lorem ipsum ... ridiculus mus.

\end{document}

Answer 2

Como no agrega un título, es más sencillo usar el \InsertBoxRcomando, desde el paquete de macros TeX simple insbox. Este comando toma 2 argumentos obligatorios: el número de líneas que permanecen intactas antes de que se inserte el objeto y el objeto en sí, y 1 argumento opcional: el número de líneas suplementarias más cortas, en caso de que TeX haga un cálculo incorrecto del número de líneas que hay que acortarlo.

En el siguiente código, la imagen es par.arribala primera línea (usando un primer argumento negativo), y usé un argumento opcional negativo, por lo que no hay espacios en blanco debajo de la imagen.

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}
\usepackage[svgnames]{xcolor}
\usepackage{lipsum}
\input{insbox}
\makeatletter\@InsertBoxMargin =3mm\makeatother

\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\InsertBoxR{-1}{{\color{YellowGreen}\rule{0.35\textwidth}{0.3\textheight}}}[-2]
\lipsum

\end{document}