アミノ酸

$\tdplotsetmaincoords{180+10}{180+0}\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=-20,declare function = {opc=0.9;Cvdw=1.70 cm; Nvdw=1.55 cm; Ovdw=1.52 cm; Hvdw=1.20 cm; Bvdw=1.92 cm; Clvdw=1.75 cm; Fvdw=1.47 cm; Svdw=1.80 cm; Pvdw=1.80cm; Brvdw=1.85 cm; Ivdw=1.98 cm; Ptvdw=1.75 cm; Mgvdw=0.86 cm;vdw=1/5; lw=3;_PubChemID = 3082857;_compound_name=L-Isoleucyl-L-Cysteine;x0=1.491053; y0=0.443609; z0=0.542138;}]\coordinate (S) at (-2.237094-x0, 2.696055-y0, 0.208130-z0);\coordinate (O1) at (0.270403-x0, -1.536374-y0, -1.096860-z0);\coordinate (O2) at (-2.714215-x0, -0.023262-y0, 1.794895-z0);\coordinate (O3) at (-1.438064-x0, 0.616716-y0, 3.541020-z0);\coordinate (N1) at (-0.587489-x0, -0.030856-y0, 0.294064-z0);\coordinate (N2) at (2.472480-x0, -2.192907-y0, 0.204611-z0);\coordinate (C1) at (2.637679-x0, 0.299672-y0, 0.563285-z0);\coordinate (C2) at (1.753837-x0, -0.995580-y0, 0.667308-z0);\coordinate (C3) at (3.057441-x0, 0.613532-y0, -0.898556-z0);\coordinate (C4) at (3.852507-x0, 0.207109-y0, 1.505242-z0);\coordinate (C5) at (0.433834-x0, -0.856267-y0, -0.092793-z0);\coordinate (C6) at (3.756304-x0, 1.965658-y0, -1.057838-z0);\coordinate (C7) at (-0.629102-x0, 0.785920-y0, 1.509706-z0);\coordinate (C8) at (-0.724947-x0, 2.281050-y0, 1.140751-z0);\coordinate (C9) at (-1.767157-x0, 0.376580-y0, 2.412339-z0);\coordinate (H1) at (-1.420207-x0, -0.007764-y0, -0.316073-z0);\coordinate (H2) at (3.298550-x0, -2.398796-y0, 0.808449-z0);\coordinate (H3) at (2.767108-x0, -2.117522-y0, -0.794168-z0);\coordinate (H4) at (2.040799-x0, 1.159589-y0, 0.916225-z0);\coordinate (H5) at (1.490134-x0, -1.188193-y0, 1.729886-z0);\coordinate (H6) at (2.147534-x0, 0.648080-y0, -1.534983-z0);\coordinate (H7) at (3.731645-x0, -0.175018-y0, -1.292725-z0);\coordinate (H8) at (4.560183-x0, -0.583708-y0, 1.183436-z0);\coordinate (H9) at (3.512350-x0, -0.008747-y0, 2.540517-z0);\coordinate (H10) at (4.403519-x0, 1.167833-y0, 1.543174-z0);\coordinate (H11) at (3.098265-x0, 2.783838-y0, -0.695584-z0);\coordinate (H12) at (3.977655-x0, 2.139930-y0, -2.132005-z0);\coordinate (H13) at (4.718951-x0, 1.993734-y0, -0.509412-z0);\coordinate (H14) at (0.313354-x0, 0.664627-y0, 2.080352-z0);\coordinate (H15) at (-0.702935-x0, 2.898621-y0, 2.064142-z0);\coordinate (H16) at (0.149330-x0, 2.568321-y0, 0.519742-z0);\foreach \labelx /\labely in {C1/H4, C2/H5, C3/H7, C3/H6, C4/H8, C4/H9, C4/H10, C6/H11, C6/H12, C6/H13, C7/H14, C8/H15, C8/H16, N1/H1, N2/H2, N2/H3} \draw[line width = lw, Pink1] (\labelx) -- (\labely);\draw[line width = lw, gray] (C9) -- (C7) -- (C8);\draw[line width = lw, gray] (C7) -- (N1);\draw[line width = lw, gray] (C5) -- (C2) -- (C1) -- (C3) -- (C6);\draw[line width = lw, gray] (C1) -- (C4);\draw[line width = lw, gray] (C2) -- (N2);\draw[line width = lw, green] (O2) -- (C9) -- (O3);\draw[line width = lw, green] (N1) -- (C5) -- (O1);\draw[line width = lw, Gold1] (C8) -- (S);\foreach \label in {O1, O2, O3} \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);\foreach \label in {H1, H2, H3, H4, H5, H6, H7, H8, H9, H10, H11, H12, H13, H14, H15, H16} \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {C1, C2, C3, C4, C5, C6, C7, C8, C9} \shade[ball color = black, opacity=opc] (\label) circle (vdw*Cvdw);\foreach \label in {N1, N2} \shade[ball color = blue, opacity=opc] (\label) circle (vdw*Nvdw);\foreach \label in {S} \shade[ball color = Gold1, opacity=opc] (\label) circle (vdw*Svdw);\draw[line width = lw, Pink1] (H1) -- (N1);\foreach \label in {H1, H12, H7} \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\shade[ball color = blue, opacity=opc] (N1) circle (vdw*Nvdw);\end{tikzpicture}$

\tdplotsetmaincoords{180+10}{180+0}
\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=-20,
declare function = {
opc=0.9;
Cvdw=1.70 cm; Nvdw=1.55 cm; Ovdw=1.52 cm; Hvdw=1.20 cm; Bvdw=1.92 cm; Clvdw=1.75 cm; Fvdw=1.47 cm; Svdw=1.80 cm; Pvdw=1.80cm; Brvdw=1.85 cm; Ivdw=1.98 cm; Ptvdw=1.75 cm; Mgvdw=0.86 cm;
vdw=1/5; lw=3;
_PubChemID = 3082857;
_compound_name=L-Isoleucyl-L-Cysteine;
x0=1.491053; y0=0.443609; z0=0.542138;
}]
\coordinate (S) at (-2.237094-x0, 2.696055-y0, 0.208130-z0);
\coordinate (O1) at (0.270403-x0, -1.536374-y0, -1.096860-z0);
\coordinate (O2) at (-2.714215-x0, -0.023262-y0, 1.794895-z0);
\coordinate (O3) at (-1.438064-x0, 0.616716-y0, 3.541020-z0);
\coordinate (N1) at (-0.587489-x0, -0.030856-y0, 0.294064-z0);
\coordinate (N2) at (2.472480-x0, -2.192907-y0, 0.204611-z0);
\coordinate (C1) at (2.637679-x0, 0.299672-y0, 0.563285-z0);
\coordinate (C2) at (1.753837-x0, -0.995580-y0, 0.667308-z0);
\coordinate (C3) at (3.057441-x0, 0.613532-y0, -0.898556-z0);
\coordinate (C4) at (3.852507-x0, 0.207109-y0, 1.505242-z0);
\coordinate (C5) at (0.433834-x0, -0.856267-y0, -0.092793-z0);
\coordinate (C6) at (3.756304-x0, 1.965658-y0, -1.057838-z0);
\coordinate (C7) at (-0.629102-x0, 0.785920-y0, 1.509706-z0);
\coordinate (C8) at (-0.724947-x0, 2.281050-y0, 1.140751-z0);
\coordinate (C9) at (-1.767157-x0, 0.376580-y0, 2.412339-z0);
\coordinate (H1) at (-1.420207-x0, -0.007764-y0, -0.316073-z0);
\coordinate (H2) at (3.298550-x0, -2.398796-y0, 0.808449-z0);
\coordinate (H3) at (2.767108-x0, -2.117522-y0, -0.794168-z0);
\coordinate (H4) at (2.040799-x0, 1.159589-y0, 0.916225-z0);
\coordinate (H5) at (1.490134-x0, -1.188193-y0, 1.729886-z0);
\coordinate (H6) at (2.147534-x0, 0.648080-y0, -1.534983-z0);
\coordinate (H7) at (3.731645-x0, -0.175018-y0, -1.292725-z0);
\coordinate (H8) at (4.560183-x0, -0.583708-y0, 1.183436-z0);
\coordinate (H9) at (3.512350-x0, -0.008747-y0, 2.540517-z0);
\coordinate (H10) at (4.403519-x0, 1.167833-y0, 1.543174-z0);
\coordinate (H11) at (3.098265-x0, 2.783838-y0, -0.695584-z0);
\coordinate (H12) at (3.977655-x0, 2.139930-y0, -2.132005-z0);
\coordinate (H13) at (4.718951-x0, 1.993734-y0, -0.509412-z0);
\coordinate (H14) at (0.313354-x0, 0.664627-y0, 2.080352-z0);
\coordinate (H15) at (-0.702935-x0, 2.898621-y0, 2.064142-z0);
\coordinate (H16) at (0.149330-x0, 2.568321-y0, 0.519742-z0);
\foreach \labelx /\labely in {C1/H4, C2/H5, C3/H7, C3/H6, C4/H8, C4/H9, C4/H10, C6/H11, C6/H12, C6/H13, C7/H14, C8/H15, C8/H16, N1/H1, N2/H2, N2/H3}
 \draw[line width = lw, Pink1] (\labelx) -- (\labely);
\draw[line width = lw, gray] (C9) -- (C7) -- (C8);
\draw[line width = lw, gray] (C7) -- (N1);
\draw[line width = lw, gray] (C5) -- (C2) -- (C1) -- (C3) -- (C6);
\draw[line width = lw, gray] (C1) -- (C4);
\draw[line width = lw, gray] (C2) -- (N2);
\draw[line width = lw, green] (O2) -- (C9) -- (O3);
\draw[line width = lw, green] (N1) -- (C5) -- (O1);
\draw[line width = lw, Gold1] (C8) -- (S);
\foreach \label in {O1, O2, O3}
 \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);
\foreach \label in {H1, H2, H3, H4, H5, H6, H7, H8, H9, H10, H11, H12, H13, H14, H15, H16}
 \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);
\foreach \label in {C1, C2, C3, C4, C5, C6, C7, C8, C9}
 \shade[ball color = black, opacity=opc] (\label) circle (vdw*Cvdw);
\foreach \label in {N1, N2}
 \shade[ball color = blue, opacity=opc] (\label) circle (vdw*Nvdw);
\foreach \label in {S}
 \shade[ball color = Gold1, opacity=opc] (\label) circle (vdw*Svdw);
\draw[line width = lw, Pink1] (H1) -- (N1);
\foreach \label in {H1, H12, H7}
 \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);
\shade[ball color = blue, opacity=opc] (N1) circle (vdw*Nvdw);
\end{tikzpicture}