アミノ酸

$\tdplotsetmaincoords{290+10}{180+5}\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 = 18218197;_compound_name=L-Threonyl-L-Methionine;x0=0.555045; y0=-0.322976; z0=-0.821591;}]\coordinate (S) at (-2.295251-x0, -3.198744-y0, -2.57750-z0);\coordinate (O1) at (3.163344-x0, -0.831729-y0, -1.64519-z0);\coordinate (O2) at (1.641099-x0, -0.064692-y0, 1.45809-z0);\coordinate (O3) at (-2.314142-x0, 1.107436-y0, -0.19085-z0);\coordinate (O4) at (-1.805773-x0, 2.012157-y0, -2.19396-z0);\coordinate (N1) at (0.062602-x0, 0.061963-y0, -0.09576-z0);\coordinate (N2) at (2.814089-x0, 2.297266-y0, 0.33676-z0);\coordinate (C1) at (-0.535945-x0, 0.415356-y0, -1.38725-z0);\coordinate (C2) at (2.391868-x0, 1.120740-y0, -0.43669-z0);\coordinate (C3) at (-0.910194-x0, -0.862895-y0, -2.17845-z0);\coordinate (C4) at (3.606372-x0, 0.235956-y0, -0.84671-z0);\coordinate (C5) at (1.331754-x0, 0.335541-y0, 0.34478-z0);\coordinate (C6) at (-1.964866-x0, -1.756316-y0, -1.51047-z0);\coordinate (C7) at (4.427148-x0, -0.336471-y0, 0.31626-z0);\coordinate (C8) at (-1.725945-x0, 1.326123-y0, -1.21285-z0);\coordinate (C9) at (-3.534911-x0, -3.923950-y0, -1.45953-z0);\coordinate (H1) at (3.007629-x0, -0.468335-y0, -2.55610-z0);\coordinate (H2) at (-0.537911-x0, -0.460485-y0, 0.56114-z0);\coordinate (H3) at (3.533761-x0, 2.838507-y0, -0.19563-z0);\coordinate (H4) at (3.207194-x0, 2.025066-y0, 1.26595-z0);\coordinate (H5) at (1.989890-x0, 2.921460-y0, 0.49747-z0);\coordinate (H6) at (0.197240-x0, 0.923722-y0, -2.03442-z0);\coordinate (H7) at (2.002398-x0, 1.506937-y0, -1.38992-z0);\coordinate (H8) at (0.015221-x0, -1.460539-y0, -2.33425-z0);\coordinate (H9) at (-1.290489-x0, -0.559738-y0, -3.17942-z0);\coordinate (H10) at (4.315004-x0, 0.866130-y0, -1.43537-z0);\coordinate (H11) at (-1.584509-x0, -2.118973-y0, -0.53391-z0);\coordinate (H12) at (-2.906028-x0, -1.181502-y0, -1.38338-z0);\coordinate (H13) at (3.826679-x0, -1.027653-y0, 0.94015-z0);\coordinate (H14) at (4.841634-x0, 0.472667-y0, 0.95128-z0);\coordinate (H15) at (5.283662-x0, -0.915294-y0, -0.09040-z0);\coordinate (H16) at (-3.906411-x0, -4.865339-y0, -1.91360-z0);\coordinate (H17) at (-4.400014-x0, -3.238538-y0, -1.34259-z0);\coordinate (H18) at (-3.074657-x0, -4.177013-y0, -0.48177-z0);\foreach \labelx /\labely in {C3/H9, C3/H8, C6/H11, C6/H12, C7/H13, C7/H14, C7/H15, C9/H16, C9/H17, C9/H18, N1/H2, N2/H3, N2/H4, N2/H5, O1/H1} \draw[line width = lw, Pink1] (\labelx) -- (\labely);\foreach \labelx /\labely in {C2/H7, C1/H6, C4/H10} \draw[line width = lw, Pink1, opacity=0.3] (\labelx) -- (\labely);\draw[line width = lw, gray] (C7) -- (C4) -- (C2) -- (C5);\draw[line width = lw, gray] (N1) -- (C1) -- (C3) -- (C6);\draw[line width = lw, gray] (C2) -- (N2);\draw[line width = lw, gray] (C1) -- (C8);\draw[line width = lw, gray] (C4) -- (O1);\draw[line width = lw, green] (O2) -- (C5) -- (N1);\draw[line width = lw, green] (O3) -- (C8) -- (O4);\draw[line width = lw, Gold1] (C6) -- (S) -- (C9);\foreach \label in {O1, O2, O3, O4} \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);\foreach \labelx /\labely in {C6/H11} \draw[line width = lw, Pink1] (\labelx) -- (\labely);\foreach \label in {H1, H2, H3, H4, H5, H8, H9, H11, H12, H13, H14, H15, H16, H17, H18} \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {H6, H7, H10} \shade[ball color = white, opacity=0.3] (\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);\end{tikzpicture}$

\tdplotsetmaincoords{290+10}{180+5}
\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 = 18218197;
_compound_name=L-Threonyl-L-Methionine;
x0=0.555045; y0=-0.322976; z0=-0.821591;
}]
\coordinate (S) at (-2.295251-x0, -3.198744-y0, -2.57750-z0);
\coordinate (O1) at (3.163344-x0, -0.831729-y0, -1.64519-z0);
\coordinate (O2) at (1.641099-x0, -0.064692-y0, 1.45809-z0);
\coordinate (O3) at (-2.314142-x0, 1.107436-y0, -0.19085-z0);
\coordinate (O4) at (-1.805773-x0, 2.012157-y0, -2.19396-z0);
\coordinate (N1) at (0.062602-x0, 0.061963-y0, -0.09576-z0);
\coordinate (N2) at (2.814089-x0, 2.297266-y0, 0.33676-z0);
\coordinate (C1) at (-0.535945-x0, 0.415356-y0, -1.38725-z0);
\coordinate (C2) at (2.391868-x0, 1.120740-y0, -0.43669-z0);
\coordinate (C3) at (-0.910194-x0, -0.862895-y0, -2.17845-z0);
\coordinate (C4) at (3.606372-x0, 0.235956-y0, -0.84671-z0);
\coordinate (C5) at (1.331754-x0, 0.335541-y0, 0.34478-z0);
\coordinate (C6) at (-1.964866-x0, -1.756316-y0, -1.51047-z0);
\coordinate (C7) at (4.427148-x0, -0.336471-y0, 0.31626-z0);
\coordinate (C8) at (-1.725945-x0, 1.326123-y0, -1.21285-z0);
\coordinate (C9) at (-3.534911-x0, -3.923950-y0, -1.45953-z0);
\coordinate (H1) at (3.007629-x0, -0.468335-y0, -2.55610-z0);
\coordinate (H2) at (-0.537911-x0, -0.460485-y0, 0.56114-z0);
\coordinate (H3) at (3.533761-x0, 2.838507-y0, -0.19563-z0);
\coordinate (H4) at (3.207194-x0, 2.025066-y0, 1.26595-z0);
\coordinate (H5) at (1.989890-x0, 2.921460-y0, 0.49747-z0);
\coordinate (H6) at (0.197240-x0, 0.923722-y0, -2.03442-z0);
\coordinate (H7) at (2.002398-x0, 1.506937-y0, -1.38992-z0);
\coordinate (H8) at (0.015221-x0, -1.460539-y0, -2.33425-z0);
\coordinate (H9) at (-1.290489-x0, -0.559738-y0, -3.17942-z0);
\coordinate (H10) at (4.315004-x0, 0.866130-y0, -1.43537-z0);
\coordinate (H11) at (-1.584509-x0, -2.118973-y0, -0.53391-z0);
\coordinate (H12) at (-2.906028-x0, -1.181502-y0, -1.38338-z0);
\coordinate (H13) at (3.826679-x0, -1.027653-y0, 0.94015-z0);
\coordinate (H14) at (4.841634-x0, 0.472667-y0, 0.95128-z0);
\coordinate (H15) at (5.283662-x0, -0.915294-y0, -0.09040-z0);
\coordinate (H16) at (-3.906411-x0, -4.865339-y0, -1.91360-z0);
\coordinate (H17) at (-4.400014-x0, -3.238538-y0, -1.34259-z0);
\coordinate (H18) at (-3.074657-x0, -4.177013-y0, -0.48177-z0);
\foreach \labelx /\labely in {C3/H9, C3/H8, C6/H11, C6/H12, C7/H13, C7/H14, C7/H15, C9/H16, C9/H17, C9/H18, N1/H2, N2/H3, N2/H4, N2/H5, O1/H1}
 \draw[line width = lw, Pink1] (\labelx) -- (\labely);
\foreach \labelx /\labely in {C2/H7, C1/H6, C4/H10}
 \draw[line width = lw, Pink1, opacity=0.3] (\labelx) -- (\labely);
\draw[line width = lw, gray] (C7) -- (C4) -- (C2) -- (C5);
\draw[line width = lw, gray] (N1) -- (C1) -- (C3) -- (C6);
\draw[line width = lw, gray] (C2) -- (N2);
\draw[line width = lw, gray] (C1) -- (C8);
\draw[line width = lw, gray] (C4) -- (O1);
\draw[line width = lw, green] (O2) -- (C5) -- (N1);
\draw[line width = lw, green] (O3) -- (C8) -- (O4);
\draw[line width = lw, Gold1] (C6) -- (S) -- (C9);
\foreach \label in {O1, O2, O3, O4}
 \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);
\foreach \labelx /\labely in {C6/H11}
 \draw[line width = lw, Pink1] (\labelx) -- (\labely);
\foreach \label in {H1, H2, H3, H4, H5, H8, H9, H11, H12, H13, H14, H15, H16, H17, H18}
 \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);
\foreach \label in {H6, H7, H10}
 \shade[ball color = white, opacity=0.3] (\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);
\end{tikzpicture}