\begin{tikzpicture}[scale=2.54]%
% dpic version 2024.01.01 option -g for TikZ and PGF 1.01
\ifx\dpiclw\undefined\newdimen\dpiclw\fi
\global\def\dpicdraw{\draw[line width=\dpiclw]}
\global\def\dpicstop{;}
\dpiclw=0.8bp
\dpiclw=0.8bp
\dpicdraw[fill=black](0,0) circle (0.007874in)\dpicstop
\draw (0,0) node[below left=-0.014944bp]{\Large $O$};
\dpicdraw[line width=1bp](-2.755906,0)
 --(2.755906,0)\dpicstop
\dpicdraw[fill=black](0.708661,0) circle (0.007874in)\dpicstop
\draw (0.708661,0) node[below left=-0.014944bp]{\Large $S$};
\dpicdraw[fill=black](-2.047244,0) circle (0.007874in)\dpicstop
\draw (-2.047244,0) node[below=-0.014944bp]{\Large $C$};
\dpicdraw[fill=black](-0.708661,0) circle (0.007874in)\dpicstop
\draw (-0.708661,0) node[below=-0.014944bp]{\Large $F$};
\dpicdraw[fill=black](1.574803,0) circle (0.007874in)\dpicstop
\draw (1.574803,0) node[below=-0.014944bp]{\Large $I$};
\filldraw[line width=0bp](1.599803,1.159843)
 --(1.574803,1.259843)
 --(1.549803,1.159843) --cycle\dpicstop
\dpicdraw[dash pattern=on 0.05in off 0.05in](1.574803,0)
 --(1.574803,1.236936)\dpicstop
\dpicdraw[line width=1bp](0.292213,1.456693)
 ..controls (0.847477,0.564935) and (0.847477,-0.564935)
 ..(0.292213,-1.456693)\dpicstop
\dpicdraw[line width=0.4bp](0.292213,-1.456693)
 --(0.489064,-1.417323)\dpicstop
\dpicdraw[line width=0.4bp](0.316273,-1.417323)
 --(0.513123,-1.377953)\dpicstop
\dpicdraw[line width=0.4bp](0.33944,-1.377953)
 --(0.53629,-1.338583)\dpicstop
\dpicdraw[line width=0.4bp](0.361742,-1.338583)
 --(0.558592,-1.299213)\dpicstop
\dpicdraw[line width=0.4bp](0.383201,-1.299213)
 --(0.580051,-1.259843)\dpicstop
\dpicdraw[line width=0.4bp](0.40384,-1.259843)
 --(0.60069,-1.220472)\dpicstop
\dpicdraw[line width=0.4bp](0.423679,-1.220472)
 --(0.62053,-1.181102)\dpicstop
\dpicdraw[line width=0.4bp](0.442738,-1.181102)
 --(0.639589,-1.141732)\dpicstop
\dpicdraw[line width=0.4bp](0.461035,-1.141732)
 --(0.657885,-1.102362)\dpicstop
\dpicdraw[line width=0.4bp](0.478585,-1.102362)
 --(0.675435,-1.062992)\dpicstop
\dpicdraw[line width=0.4bp](0.495405,-1.062992)
 --(0.692255,-1.023622)\dpicstop
\dpicdraw[line width=0.4bp](0.511508,-1.023622)
 --(0.708359,-0.984252)\dpicstop
\dpicdraw[line width=0.4bp](0.526909,-0.984252)
 --(0.723759,-0.944882)\dpicstop
\dpicdraw[line width=0.4bp](0.541619,-0.944882)
 --(0.73847,-0.905512)\dpicstop
\dpicdraw[line width=0.4bp](0.555651,-0.905512)
 --(0.752502,-0.866142)\dpicstop
\dpicdraw[line width=0.4bp](0.569015,-0.866142)
 --(0.765866,-0.826772)\dpicstop
\dpicdraw[line width=0.4bp](0.581722,-0.826772)
 --(0.778573,-0.787402)\dpicstop
\dpicdraw[line width=0.4bp](0.593781,-0.787402)
 --(0.790631,-0.748031)\dpicstop
\dpicdraw[line width=0.4bp](0.605201,-0.748031)
 --(0.802051,-0.708661)\dpicstop
\dpicdraw[line width=0.4bp](0.61599,-0.708661)
 --(0.81284,-0.669291)\dpicstop
\dpicdraw[line width=0.4bp](0.626155,-0.669291)
 --(0.823006,-0.629921)\dpicstop
\dpicdraw[line width=0.4bp](0.635705,-0.629921)
 --(0.832555,-0.590551)\dpicstop
\dpicdraw[line width=0.4bp](0.644645,-0.590551)
 --(0.841495,-0.551181)\dpicstop
\dpicdraw[line width=0.4bp](0.652981,-0.551181)
 --(0.849831,-0.511811)\dpicstop
\dpicdraw[line width=0.4bp](0.660719,-0.511811)
 --(0.857569,-0.472441)\dpicstop
\dpicdraw[line width=0.4bp](0.667865,-0.472441)
 --(0.864715,-0.433071)\dpicstop
\dpicdraw[line width=0.4bp](0.674422,-0.433071)
 --(0.871272,-0.393701)\dpicstop
\dpicdraw[line width=0.4bp](0.680395,-0.393701)
 --(0.877245,-0.354331)\dpicstop
\dpicdraw[line width=0.4bp](0.685788,-0.354331)
 --(0.882638,-0.314961)\dpicstop
\dpicdraw[line width=0.4bp](0.690605,-0.314961)
 --(0.887455,-0.275591)\dpicstop
\dpicdraw[line width=0.4bp](0.694847,-0.275591)
 --(0.891698,-0.23622)\dpicstop
\dpicdraw[line width=0.4bp](0.698519,-0.23622)
 --(0.895369,-0.19685)\dpicstop
\dpicdraw[line width=0.4bp](0.701622,-0.19685)
 --(0.898472,-0.15748)\dpicstop
\dpicdraw[line width=0.4bp](0.704158,-0.15748)
 --(0.901009,-0.11811)\dpicstop
\dpicdraw[line width=0.4bp](0.706129,-0.11811)
 --(0.90298,-0.07874)\dpicstop
\dpicdraw[line width=0.4bp](0.707536,-0.07874)
 --(0.904387,-0.03937)\dpicstop
\dpicdraw[line width=0.4bp](0.70838,-0.03937)
 --(0.905231,0)\dpicstop
\dpicdraw[line width=0.4bp](0.708661,0)
 --(0.905512,0.03937)\dpicstop
\dpicdraw[line width=0.4bp](0.70838,0.03937)
 --(0.905231,0.07874)\dpicstop
\dpicdraw[line width=0.4bp](0.707536,0.07874)
 --(0.904387,0.11811)\dpicstop
\dpicdraw[line width=0.4bp](0.706129,0.11811)
 --(0.90298,0.15748)\dpicstop
\dpicdraw[line width=0.4bp](0.704158,0.15748)
 --(0.901009,0.19685)\dpicstop
\dpicdraw[line width=0.4bp](0.701622,0.19685)
 --(0.898472,0.23622)\dpicstop
\dpicdraw[line width=0.4bp](0.698519,0.23622)
 --(0.895369,0.275591)\dpicstop
\dpicdraw[line width=0.4bp](0.694847,0.275591)
 --(0.891698,0.314961)\dpicstop
\dpicdraw[line width=0.4bp](0.690605,0.314961)
 --(0.887455,0.354331)\dpicstop
\dpicdraw[line width=0.4bp](0.685788,0.354331)
 --(0.882638,0.393701)\dpicstop
\dpicdraw[line width=0.4bp](0.680395,0.393701)
 --(0.877245,0.433071)\dpicstop
\dpicdraw[line width=0.4bp](0.674422,0.433071)
 --(0.871272,0.472441)\dpicstop
\dpicdraw[line width=0.4bp](0.667865,0.472441)
 --(0.864715,0.511811)\dpicstop
\dpicdraw[line width=0.4bp](0.660719,0.511811)
 --(0.857569,0.551181)\dpicstop
\dpicdraw[line width=0.4bp](0.652981,0.551181)
 --(0.849831,0.590551)\dpicstop
\dpicdraw[line width=0.4bp](0.644645,0.590551)
 --(0.841495,0.629921)\dpicstop
\dpicdraw[line width=0.4bp](0.635705,0.629921)
 --(0.832555,0.669291)\dpicstop
\dpicdraw[line width=0.4bp](0.626155,0.669291)
 --(0.823006,0.708661)\dpicstop
\dpicdraw[line width=0.4bp](0.61599,0.708661)
 --(0.81284,0.748031)\dpicstop
\dpicdraw[line width=0.4bp](0.605201,0.748031)
 --(0.802051,0.787402)\dpicstop
\dpicdraw[line width=0.4bp](0.593781,0.787402)
 --(0.790631,0.826772)\dpicstop
\dpicdraw[line width=0.4bp](0.581722,0.826772)
 --(0.778573,0.866142)\dpicstop
\dpicdraw[line width=0.4bp](0.569015,0.866142)
 --(0.765866,0.905512)\dpicstop
\dpicdraw[line width=0.4bp](0.555651,0.905512)
 --(0.752502,0.944882)\dpicstop
\dpicdraw[line width=0.4bp](0.541619,0.944882)
 --(0.73847,0.984252)\dpicstop
\dpicdraw[line width=0.4bp](0.526909,0.984252)
 --(0.723759,1.023622)\dpicstop
\dpicdraw[line width=0.4bp](0.511508,1.023622)
 --(0.708359,1.062992)\dpicstop
\dpicdraw[line width=0.4bp](0.495405,1.062992)
 --(0.692255,1.102362)\dpicstop
\dpicdraw[line width=0.4bp](0.478585,1.102362)
 --(0.675435,1.141732)\dpicstop
\dpicdraw[line width=0.4bp](0.461035,1.141732)
 --(0.657885,1.181102)\dpicstop
\dpicdraw[line width=0.4bp](0.442738,1.181102)
 --(0.639589,1.220472)\dpicstop
\dpicdraw[line width=0.4bp](0.423679,1.220472)
 --(0.62053,1.259843)\dpicstop
\dpicdraw[line width=0.4bp](0.40384,1.259843)
 --(0.60069,1.299213)\dpicstop
\dpicdraw[line width=0.4bp](0.383201,1.299213)
 --(0.580051,1.338583)\dpicstop
\dpicdraw[line width=0.4bp](0.361742,1.338583)
 --(0.558592,1.377953)\dpicstop
\dpicdraw[line width=0.4bp](0.33944,1.377953)
 --(0.53629,1.417323)\dpicstop
\dpicdraw[line width=0.4bp](0.316273,1.417323)
 --(0.513123,1.456693)\dpicstop
\dpicdraw[line width=0.4bp](0.292213,1.456693)
 --(0.489064,1.496063)\dpicstop
\filldraw[fill=red,line width=0bp,draw=red,fill=red](0.469463,0.848907)
 --(0.5557,0.905372)
 --(0.453037,0.896132) --cycle\dpicstop
\dpicdraw[draw=red](-2.790942,-0.258678)
 --(0.534065,0.897847)\dpicstop
\filldraw[fill=red,line width=0bp,draw=red,fill=red](2.604114,1.591395)
 --(2.690351,1.647859)
 --(2.587688,1.638619) --cycle\dpicstop
\dpicdraw[draw=red,dash pattern=on 0.05in off 0.05in](0.5557,0.905372)
 --(2.668716,1.640334)\dpicstop
\filldraw[fill=red,line width=0bp,draw=red,fill=red](2.188754,1.570021)
 --(2.264234,1.640218)
 --(2.1646,1.6138) --cycle\dpicstop
\dpicdraw[draw=red,dash pattern=on 0.05in off 0.05in](2.244178,1.629153)
 --(0.610778,0.727966)\dpicstop
\filldraw[fill=red,line width=0bp,draw=red,fill=red](-2.715462,-1.078647)
 --(-2.790942,-1.148845)
 --(-2.691308,-1.122426) --cycle\dpicstop
\dpicdraw[draw=red](0.610778,0.727966)
 --(-2.770886,-1.137779)\dpicstop
\filldraw[line width=0bp](0.025,0.612085)
 --(0,0.712085)
 --(-0.025,0.612085) --cycle\dpicstop
\dpicdraw (0,0)
 --(0,0.689179)\dpicstop
\filldraw[fill=red,line width=0bp,draw=red,fill=red](0.515076,0.687085)
 --(0.615076,0.712085)
 --(0.515076,0.737085) --cycle\dpicstop
\dpicdraw[draw=red](0,0.712085)
 --(0.59217,0.712085)\dpicstop
\end{tikzpicture}%

.
