Entorno similar a un teorema para wrapfigure sin trivlist

Entorno similar a un teorema para wrapfigure sin trivlist

Me gustaría poder definir un entorno similar a un teorema que tenga el mismo espacio que los teoremas normales, pero que no se utilice trivlistpara obtener el espacio. La razón es que me gustaría colocar a wrapfigurea la derecha de dichos teoremas (que usaría para ejemplos, ejercicios, etc.), lo cual no es posible con entornos tipo lista (tipo lista).

\documentclass[a4paper]{article}
\usepackage{graphicx, wrapfig, lipsum}

\newcounter{exercise}[section]
\renewcommand{\theexercise}{\thesection.\arabic{exercise}}
\newenvironment{exercise}[1][]{\refstepcounter{exercise}\par\medskip
   \textbf{Exercise~\theexercise}\quad}{}{\medskip}

\begin{document}
\section{Section One}
\begin{wrapfigure}{r}{0pt}
\includegraphics[scale=0.5]{example-image-c}
\end{wrapfigure}
\begin{exercise}
Vivamus vehicula leo a justo. Quisque nec augue. 
Morbi mauris wisi, aliquet vitae. Vivamus vehicula leo a justo. 
Quisque nec augue. Morbi mauris wisi, aliquet vitae.
\end{exercise}

\clearpage
\section{Section Two}
\begin{wrapfigure}{r}{0pt}
\includegraphics[scale=0.5]{example-image-c}
\end{wrapfigure}
\begin{exercise}
\lipsum[66-67]
\end{exercise}

\end{document} 

Curiosamente, el ajuste no funciona en mi texto de ejemplo, pero sí en los párrafos de labios.

¿Es posible (con un conocimiento medio de LaTeX) definir un entorno de este tipo con un espaciado igualmente robusto arriba y abajo, así como un ajuste de párrafo correcto? – ¿Podrías mostrarme cómo?

Realmente necesito esto y agradezco cualquier ayuda.

Respuesta1

Wrapfig se implementa usando \everypary \parshape. Agregar una terminación \pardentro del ejercicio ayuda, pero eso puede ser peculiar de ese entorno.

La macro no documentada \WFclearimpide que wrapfig continúe cuando se confunde.

\documentclass[a4paper]{article}
\usepackage{graphicx, wrapfig, lipsum}

\newcounter{exercise}[section]
\renewcommand{\theexercise}{\thesection.\arabic{exercise}}
\newenvironment{exercise}[1][]{\refstepcounter{exercise}\par
   \textbf{Exercise~\theexercise}\quad}{\par}

\intextsep=0pt% easy solution

\begin{document}
\section{Section One}
\begin{wrapfigure}{r}{0pt}
\raisebox{-\intextsep}[\dimexpr \height-2\intextsep][\depth]{% alternate solution
  \includegraphics[scale=0.5]{example-image-c}}%
\end{wrapfigure}
\begin{exercise}
Vivamus vehicula leo a justo. Quisque nec augue. 
Morbi mauris wisi, aliquet vitae. Vivamus vehicula leo a justo. 
Quisque nec augue. Morbi mauris wisi, aliquet vitae.
\end{exercise}
\WFclear
\clearpage

\section{Section Two}
\begin{wrapfigure}{r}{0pt}
\raisebox{-\intextsep}[\dimexpr \height-2\intextsep][\depth]{% negative depth not useful
  \includegraphics[scale=0.5]{example-image-c}}%
\end{wrapfigure}
\begin{exercise}
Vivamus vehicula leo a justo. Quisque nec augue. 
Morbi mauris wisi, aliquet vitae. Vivamus vehicula leo a justo. 
Quisque nec augue. Morbi mauris wisi, aliquet vitae.
\end{exercise}
\sloppy
\lipsum[1]
\WFclear
\lipsum[2]

\end{document} 

información relacionada