\begin{tikzpicture}[line join=round]%
\begin{scope}%
\clip (0,0) rectangle (10.0,10.0);%
\pgfsetstrokecolor{DarkGreen}%
\pgfsetroundcap%
\draw[] (5,5) -- (2.8869,3.0849);%
\draw[] (5.2516,7.4846) -- (7.8679,3.2691);%
\draw[] (5,5) -- (5.2516,7.4846);%
\draw[] (7.8679,3.2691) -- (5,5);%
\draw[] (7.8679,3.2691) -- (2.8869,3.0849);%
\draw[] (5.2516,7.4846) -- (2.8869,3.0849);%
\pgfsetstrokecolor{lightgray}%
\pgfsetlinewidth{0.4pt}%
\begin{scope}%
\clip (0,0) rectangle (10,10);%
\draw[fill,ball color=orange] (8.3577,1.2952) .. controls (10.4139,3.1587) and (10.5684,6.3015) .. (8.7048,8.3577) .. controls (6.8413,10.4139) and (3.6985,10.5684) .. (1.6423,8.7048) .. controls (-0.4139,6.8413) and (-0.5684,3.6985) .. (1.2952,1.6423) .. controls (3.1587,-0.4139) and (6.3015,-0.5684) .. (8.3577,1.2952);%
\end{scope}%
\pgfsetstrokecolor{DarkGreen}%
\pgfsetlinewidth{0.4pt}%
\draw[] (7.8679,3.2691) -- (7.8679,3.2691);%
\pgfsetstrokecolor{Blue}%
\draw[] (0,5) .. controls (0,3.8272) and (2.225,2.8869) .. (5,2.8869) .. controls (7.775,2.8869) and (10,3.8272) .. (10,5);%
\draw[] (2.5883,0.6201) .. controls (2.0529,0.9149) and (2.6969,3.1003) .. (4.0353,5.5312) .. controls (5.3738,7.962) and (6.8763,9.6747) .. (7.4117,9.3799);%
\draw[] (7.8315,0.879) .. controls (8.6303,1.4278) and (8.0107,3.7017) .. (6.4392,5.9889) .. controls (4.8677,8.276) and (2.9673,9.6698) .. (2.1685,9.121);%
\pgfsetstrokecolor{lightgray}%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetlinewidth{0.3pt}%
\begin{scope}%
\clip (0,0) rectangle (10,10);%
\draw[] (8.3577,1.2952) .. controls (10.4139,3.1587) and (10.5684,6.3015) .. (8.7048,8.3577) .. controls (6.8413,10.4139) and (3.6985,10.5684) .. (1.6423,8.7048) .. controls (-0.4139,6.8413) and (-0.5684,3.6985) .. (1.2952,1.6423) .. controls (3.1587,-0.4139) and (6.3015,-0.5684) .. (8.3577,1.2952);%
\end{scope}%
\pgfsetstrokecolor{Blue}%
\pgfsetdash{}{0pt}%
\pgfsetlinewidth{0.4pt}%
\pgfsetstrokecolor{DarkGreen}%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (5,5) -- (2.8869,3.0849);%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (5.2516,7.4846) -- (7.8679,3.2691);%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (5,5) -- (5.2516,7.4846);%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (7.8679,3.2691) -- (5,5);%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (2.8869,3.0849) -- (7.8679,3.2691);%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (5.2516,7.4846) -- (2.8869,3.0849);%
\pgfsetstrokecolor{Blue}%
\pgfsetbuttcap%
\pgfsetdash{{2.5pt}{2pt}}{0pt}%
\pgfsetroundcap%
\draw[] (0,5) .. controls (0,6.1728) and (2.225,7.1131) .. (5,7.1131) .. controls (7.775,7.1131) and (10,6.1728) .. (10,5);%
\draw[] (2.5883,0.6201) .. controls (3.1237,0.3253) and (4.6262,2.038) .. (5.9647,4.4688) .. controls (7.3031,6.8997) and (7.9471,9.0851) .. (7.4117,9.3799);%
\draw[] (7.8315,0.879) .. controls (7.0327,0.3302) and (5.1323,1.724) .. (3.5608,4.0111) .. controls (1.9893,6.2983) and (1.3697,8.5722) .. (2.1685,9.121);%
\draw[-] (5.956,4.423) node[below,gray] {$R$};%
\pgfsetstrokecolor{black}%
\pgfsetbuttcap%
\pgfsetdash{}{0pt}%
\draw[mark=*,mark size=1.4pt] plot coordinates {(5,5)} plot coordinates {(2.8869,3.0849)} plot coordinates {(7.8679,3.2691)} plot coordinates {(5.2516,7.4846)};%
\draw[-] (5,5) node[below] {$A$} (2.8869,3.0849) node[below left] {$B$} (7.8679,3.2691) node[below left] {$C$} (5.2516,7.4846) node[above] {$D$};%
\end{scope}%
\end{tikzpicture}%