アミノ酸

$\tdplotsetmaincoords{40}{250-5}\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=65,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 = 7021822;_compound_name=L-Methionyl-L-Threonine;x0=0.7916798; y0=0.0752708571428571; z0=-0.92037;}]\coordinate (S) at (3.209384-x0, -1.175256-y0, -1.47908-z0);\coordinate (O1) at (-2.891270-x0, -0.108446-y0, -1.65715-z0);\coordinate (O2) at (0.463631-x0, 1.243820-y0, 1.64023-z0);\coordinate (O3) at (0.430974-x0, 1.800574-y0, -3.32484-z0);\coordinate (O4) at (-1.448459-x0, 2.283236-y0, -2.23274-z0);\coordinate (N1) at (-0.435238-x0, 0.440731-y0, -0.23118-z0);\coordinate (N2) at (1.969335-x0, 3.007144-y0, -0.10922-z0);\coordinate (C1) at (-0.471177-x0, 0.190244-y0, -1.67014-z0);\coordinate (C2) at (1.864904-x0, 1.548166-y0, -0.23383-z0);\coordinate (C3) at (-1.680313-x0, -0.699027-y0, -2.06252-z0);\coordinate (C4) at (3.105376-x0, 0.871242-y0, 0.40165-z0);\coordinate (C5) at (0.580479-x0, 1.067453-y0, 0.43535-z0);\coordinate (C6) at (3.117105-x0, -0.659387-y0, 0.27232-z0);\coordinate (C7) at (-1.581923-x0, -2.101118-y0, -1.45323-z0);\coordinate (C8) at (-0.531408-x0, 1.498457-y0, -2.42737-z0);\coordinate (C9) at (2.764227-x0, -2.907947-y0, -1.14718-z0);\coordinate (H1) at (-3.311563-x0, 0.293521-y0, -2.46172-z0);\coordinate (H2) at (0.416351-x0, 2.631380-y0, -3.82069-z0);\coordinate (H3) at (-1.236976-x0, 0.125822-y0, 0.33728-z0);\coordinate (H4) at (2.832959-x0, 3.345406-y0, -0.59301-z0);\coordinate (H5) at (2.008288-x0, 3.294326-y0, 0.89624-z0);\coordinate (H6) at (1.142587-x0, 3.459925-y0, -0.56328-z0);\coordinate (H7) at (0.440614-x0, -0.367079-y0, -1.97346-z0);\coordinate (H8) at (1.875144-x0, 1.303866-y0, -1.31076-z0);\coordinate (H9) at (-1.665721-x0, -0.844624-y0, -3.17068-z0);\coordinate (H10) at (3.145896-x0, 1.130872-y0, 1.48239-z0);\coordinate (H11) at (4.028233-x0, 1.268906-y0, -0.07464-z0);\coordinate (H12) at (4.016194-x0, -1.048432-y0, 0.79587-z0);\coordinate (H13) at (2.203505-x0, -1.068904-y0, 0.75334-z0);\coordinate (H14) at (-1.593970-x0, -2.063709-y0, -0.34434-z0);\coordinate (H15) at (-0.646082-x0, -2.598999-y0, -1.78502-z0);\coordinate (H16) at (-2.443069-x0, -2.716311-y0, -1.79034-z0);\coordinate (H17) at (2.812380-x0, -3.470358-y0, -2.10195-z0);\coordinate (H18) at (1.725491-x0, -2.973709-y0, -0.76201-z0);\coordinate (H19) at (3.492905-x0, -3.367305-y0, -0.44724-z0);\foreach \labelx /\labely in {C1/H7, C3/H9, C4/H10, C4/H11, C6/H12, C6/H13, C7/H14, C7/H15, C7/H16, C9/H17, C9/H18, C9/H19, O3/H2, O1/H1, N1/H3, N2/H4, N2/H5, N2/H6} \draw[line width = lw, Pink1] (\labelx) -- (\labely);\foreach \labelx /\labely in {C2/H8} \draw[line width = lw, Pink1, opacity=0.3] (\labelx) -- (\labely);\foreach \label in {H8} \shade[ball color = white, opacity=0.3] (\label) circle (vdw*Hvdw);\draw[line width = lw, gray] (C6) -- (C4) -- (C2) -- (C5);\draw[line width = lw, gray] (N1) -- (C1) -- (C3) -- (C7);\draw[line width = lw, gray] (C2) -- (N2);\draw[line width = lw, gray] (C1) -- (C8);\draw[line width = lw, gray] (C3) -- (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 {H1, H2, H3, H4, H5, H6, H7, H9, H10, H11, H12, H13, H14, H15, H16, H17, H18, H19} \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {O1, O2, O3, O4} \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);\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);\foreach \labelx /\labely in {N1/H3} \draw[line width = lw, Pink1] (\labelx) -- (\labely);\foreach \label in {H3} \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {N1} \shade[ball color = blue, opacity=opc] (\label) circle (vdw*Nvdw);\end{tikzpicture}$

\tdplotsetmaincoords{40}{250-5}
\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=65,
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 = 7021822;
_compound_name=L-Methionyl-L-Threonine;
x0=0.7916798; y0=0.0752708571428571; z0=-0.92037;
}]
\coordinate (S) at (3.209384-x0, -1.175256-y0, -1.47908-z0);
\coordinate (O1) at (-2.891270-x0, -0.108446-y0, -1.65715-z0);
\coordinate (O2) at (0.463631-x0, 1.243820-y0, 1.64023-z0);
\coordinate (O3) at (0.430974-x0, 1.800574-y0, -3.32484-z0);
\coordinate (O4) at (-1.448459-x0, 2.283236-y0, -2.23274-z0);
\coordinate (N1) at (-0.435238-x0, 0.440731-y0, -0.23118-z0);
\coordinate (N2) at (1.969335-x0, 3.007144-y0, -0.10922-z0);
\coordinate (C1) at (-0.471177-x0, 0.190244-y0, -1.67014-z0);
\coordinate (C2) at (1.864904-x0, 1.548166-y0, -0.23383-z0);
\coordinate (C3) at (-1.680313-x0, -0.699027-y0, -2.06252-z0);
\coordinate (C4) at (3.105376-x0, 0.871242-y0, 0.40165-z0);
\coordinate (C5) at (0.580479-x0, 1.067453-y0, 0.43535-z0);
\coordinate (C6) at (3.117105-x0, -0.659387-y0, 0.27232-z0);
\coordinate (C7) at (-1.581923-x0, -2.101118-y0, -1.45323-z0);
\coordinate (C8) at (-0.531408-x0, 1.498457-y0, -2.42737-z0);
\coordinate (C9) at (2.764227-x0, -2.907947-y0, -1.14718-z0);
\coordinate (H1) at (-3.311563-x0, 0.293521-y0, -2.46172-z0);
\coordinate (H2) at (0.416351-x0, 2.631380-y0, -3.82069-z0);
\coordinate (H3) at (-1.236976-x0, 0.125822-y0, 0.33728-z0);
\coordinate (H4) at (2.832959-x0, 3.345406-y0, -0.59301-z0);
\coordinate (H5) at (2.008288-x0, 3.294326-y0, 0.89624-z0);
\coordinate (H6) at (1.142587-x0, 3.459925-y0, -0.56328-z0);
\coordinate (H7) at (0.440614-x0, -0.367079-y0, -1.97346-z0);
\coordinate (H8) at (1.875144-x0, 1.303866-y0, -1.31076-z0);
\coordinate (H9) at (-1.665721-x0, -0.844624-y0, -3.17068-z0);
\coordinate (H10) at (3.145896-x0, 1.130872-y0, 1.48239-z0);
\coordinate (H11) at (4.028233-x0, 1.268906-y0, -0.07464-z0);
\coordinate (H12) at (4.016194-x0, -1.048432-y0, 0.79587-z0);
\coordinate (H13) at (2.203505-x0, -1.068904-y0, 0.75334-z0);
\coordinate (H14) at (-1.593970-x0, -2.063709-y0, -0.34434-z0);
\coordinate (H15) at (-0.646082-x0, -2.598999-y0, -1.78502-z0);
\coordinate (H16) at (-2.443069-x0, -2.716311-y0, -1.79034-z0);
\coordinate (H17) at (2.812380-x0, -3.470358-y0, -2.10195-z0);
\coordinate (H18) at (1.725491-x0, -2.973709-y0, -0.76201-z0);
\coordinate (H19) at (3.492905-x0, -3.367305-y0, -0.44724-z0);
\foreach \labelx /\labely in {C1/H7, C3/H9, C4/H10, C4/H11, C6/H12, C6/H13, C7/H14, C7/H15, C7/H16, C9/H17, C9/H18, C9/H19, O3/H2, O1/H1, N1/H3, N2/H4, N2/H5, N2/H6}
 \draw[line width = lw, Pink1] (\labelx) -- (\labely);
\foreach \labelx /\labely in {C2/H8}
 \draw[line width = lw, Pink1, opacity=0.3] (\labelx) -- (\labely);
\foreach \label in {H8}
 \shade[ball color = white, opacity=0.3] (\label) circle (vdw*Hvdw);
\draw[line width = lw, gray] (C6) -- (C4) -- (C2) -- (C5);
\draw[line width = lw, gray] (N1) -- (C1) -- (C3) -- (C7);
\draw[line width = lw, gray] (C2) -- (N2);
\draw[line width = lw, gray] (C1) -- (C8);
\draw[line width = lw, gray] (C3) -- (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 {H1, H2, H3, H4, H5, H6, H7, H9, H10, H11, H12, H13, H14, H15, H16, H17, H18, H19}
 \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);
\foreach \label in {O1, O2, O3, O4}
 \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);
\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);
\foreach \labelx /\labely in {N1/H3}
 \draw[line width = lw, Pink1] (\labelx) -- (\labely);
\foreach \label in {H3}
 \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);
\foreach \label in {N1}
 \shade[ball color = blue, opacity=opc] (\label) circle (vdw*Nvdw);
\end{tikzpicture}