\documentclass{article}
\usepackage{tikz}
\usetikzlibrary{calc,shapes}
% caja auxiliar (para guardar cada línea en \ponerlineas)
\newsavebox\linebox
% contador para el número de líneas en el párrafo
% al que se aplica \ponerlineas
\newcounter{numlin}
% macro que disecta párrafos en sus líneas constituyentes
% para (en este caso) agregar una línea blanca entre renglones
\newcommand*\ponerlineas{%
\setcounter{numlin}{0}
\setlength\textwidth{14.8cm}%
\setbox\linebox\lastbox
\ifvoid\linebox\medskip\else
\unskip
\unpenalty
{\ponerlineas}%
\hspace*{3cm}\box\linebox\hspace*{-3cm}
\smallskip\stepcounter{numlin}
\color{white}{\hrule width\textwidth height1pt}
\smallskip
\fi
}
% el ícono para el casete
\newcommand*\casete{%
\begin{tikzpicture}
\node [matrix,fill=black,inner sep=2pt,ampersand replacement=\&]
{%
\draw [draw=none,fill=white] (-2pt,0) circle (1.5pt); \&
\draw [fill=black] (0,0) circle (1.5pt); \&
\draw [draw=none,fill=white] (0,0) circle (1.5pt);\\
};
\end{tikzpicture}
}
% el ícono para los audífonos