How can I draw styrene using xymtex?

Question

How can I draw styrene using xymtex?

Answer 1

This is my first use of the package xymtex.

\documentclass{article}
\usepackage{xymtex}
\begin{document}
\sbox4{%
  \begin{picture}(0,0)(343,502)%
    \put(0,0){\bzdrh[c]{}}%
  \end{picture}%
}
\bzdrv[c]{1==CH=CH$_2$}
\ethylene{1==C;2==C}{1==H;2==H;3==\box4;4==H}
\end{document}

Answer 2

This isn't a direct answer to your question (and as such, you should accept Heiko's answer), but as R. Schumacher suggested, you can also accomplish this with the newer (and more robust) chemfig package.

\documentclass{article}
\usepackage{chemfig}
\begin{document}
\chemfig{**6(----(-=[::-60])--)}\qquad
\chemfig{*6(-=-=(-=[::-60])-=)}\qquad
\chemfig{**6(----(-CH=[::-90]CH_2)--)}\qquad
\chemfig{*6(-=-=(-CH=[::-90]CH_2)-=)}
\end{document}

Answer 3

To complete the answer from @cfair this code will draw "exactly" your representation of the styrene molecule, including the annotation:

\documentclass{article}
\usepackage{chemfig}
\begin{document}
\chemname{\chemfig{C(-[::120]H)(-[::-120]H)=C(-[::60]H)(-[::-60]**6(------))}}
    {\textbf{Styrene}}
\end{document}

There is an option to control the length of the bonds

Answer 4

XyMTeX supports the (yl) function for nested substitution. The following examples show (1) changing font sizes, (2) changing formula sizes, (3) changing fonts, and (4) selection of basis skeletons (\bzdrv, \bzdrh, or \tetramethylenei).

The code adopts the PostScript mode of the XyMTeX system, which presumes the processing with dvips(k). The other modes commented out are possible to be applied.

\documentclass{article}
%\usepackage{xymtex}%XyMTeX plain
%\usepackage{xymtexpdf}%XyMTeX for PDF ... dvipdfmx ... .pdf
\usepackage{xymtexps}%XyMTeX for PostScript ... dvips(k) ... .ps
\usepackage{txfonts}%Times Roman
\usepackage[scaled]{helvet}%Helvetica 95%
\pagestyle{empty}
\begin{document}
\begin{center}
\let\substfontsize=\small%changing font size
\bzdrh{2==\ethylene{1==C;2==C}{1==H;2==H;3==(yl);4==H}}
\end{center}

\begin{center}
\changeunitlength{0.07pt}%changing formula size
\bzdrv{1==\tetramethylenei[b]{1==H;2==C;3==C;4==H}{2==(yl);3==H}}
\bzdrv{1==\tetramethylenei[b]{1==H;4==H}{2==(yl);3==H}} \\
\let\substfont=\sf%changing font: san serif
\tetramethylenei[b]{1==H;2==C;3==C;4==H}{2==\bzdrv[c]{1==(yl)};3==H}
\tetramethylenei[b]{1==H;4==H}{2==\bzdrv[c]{1==(yl)};3==H}
\end{center}
\end{document}