\input fig4tex.tex % \def\Lichenrgb{0.52157 0.75686 0.49412} \def\Bleuclairrgb{0.67843 0.84706 0.90196} \def\Radius{1} % 1. Definition of characteristic points \figinit{4cm} \figpt 0:$O$(0,0) \figptcirc 1 :$A$: 0;\Radius (-150) \figptcirc 2 :$B$: 0;\Radius ( 30) \figptcirc 3 :$C$: 0;\Radius ( 125) \figptcirc 4 :$D$: 0;\Radius (-125) \figptcirc 5 :$E$: 0;\Radius (- 30) \figvectP 101[1,5]\figvectP 102[3,4] \figptinterlines 6:$H$[1,101; 3,102] % \figptbary 13:$I$[1,3;1,1] \figptbary 15:$J$[1,5;1,1] \figptsym 7 :$P$ = 6 /13, 15/ % % 2. Creation of the graphical file \figdrawbegin{} % Green disk \figset (color=\Lichenrgb, fill=yes, width=1) \figdrawcirc 0(\Radius) % Red triangle \figset (color=\Pinkrgb, alpha=0.7)\figdrawline[1,3,5,1] \figset (color=\Redrgb, fill=no)\figdrawline[1,3,5,1] % Blue quadrilateral \figset (color=\Bleuclairrgb, fill=yes)\figdrawline[1,2,5,4,1] \figset (color=\Bluergb, fill=no)\figdrawline[2,5,4,1] % Yellow paths \figset (color=\Yellowrgb, width=2) \figdrawline[1,2]\figdrawline[3,4] % IJ \figset (color=\Redrgb, dash=4, width=1)\figdrawline[13,15] \figset (color=default, dash=default) \figdrawcirc 0(\Radius) % Points \figset sign(color=\Bluergb, dim=0.03)\figdrawsign[1,2,4,5] \figset sign(color=\Redrgb, dim=0.02)\figdrawsign[1,3,5,13,15] \figdrawend % % 3. Writing text on the figure \def\dist{5pt} \figvisu{\figBoxA}{Pb 1057 - Le Monde}{% \figwritesw 1:(\dist)\figwritene 2:(\dist) \figwriten 3:(\dist)\figwrites 4:(\dist) \figwritese 5,6:(\dist) \figwritew 13:(\dist)\figwrites 15:(\dist) \figset write(mark=+)\figwritese 0:(2pt) \figset write(mark=$\figBullet$)\figwriten 7:(2pt) } \centerline{\box\figBoxA} \bye