\psset{unit=0.45cm}
%
\pspicture(-3,-4)(19,16)
% \showgrid
% UPPERMOST PICTURE
% The (upper part of the) circle
\psline[linewidth=0.4,linecolor=gray,linearc=0.75](-2,12)(18,12)
% The arcs
\psset{linewidth=0.15,linecolor=lightgray}
\psline[linearc=0.4](-1,13)(-1,15)(17,15)(17,13)
\psline[linearc=0.4](3,13)(3,14)(5,14)(5,13)
\psline[linearc=0.4](7,13)(7,14)(9,14)(9,13)
\psline[linearc=0.4](11,13)(11,14)(15,14)(15,13)
% Dangling coloured paths ...
% Red arcs:
%\psset{linewidth=0.15,linecolor=red,linestyle=dashed,dash=3pt 2pt}
\redlinestyle
\psline(1,12)(0.5,9.5)
\psline(5,12)(5,9.5)
\psline(7,12)(7,9.5)
\psline(13,12)(12.5,9.5)
\psline(15,12)(15,9.5)
\psline(17,12)(17,9.5)
% Green arcs:
%\psset{linewidth=0.15,linecolor=green,linestyle=solid}
\greenlinestyle
\psline(-1,12)(-1,9.5)
\psline(1,12)(1.5,9.5)
\psline(3,12)(3,9.5)
\psline(9,12)(9,9.5)
\psline(11,12)(11,9.5)
\psline(13,12)(13.5,9.5)
% Upper coloured points
% \psset{linewidth=0.15,linecolor=black,fillstyle=solid,fillcolor=white}
\whitecirclestyle
\pscircle(-1,12){0.4}
\pscircle[fillcolor=black](1,12){0.4}
\pscircle(3,12){0.4}
\pscircle(5,12){0.4}
\pscircle(7,12){0.4}
\pscircle(9,12){0.4}
\pscircle(11,12){0.4}
\pscircle[fillcolor=black](13,12){0.4}
\pscircle(15,12){0.4}
\pscircle(17,12){0.4}
% Upper points, radial orientation
\rput(-1,12){\TRIup{mfgreen}}
\rput(3,12){\TRIup{mfgreen}}
\rput(5,12){\TRIdown{red}}
\rput(7,12){\TRIdown{red}}
\rput(9,12){\TRIup{mfgreen}}
\rput(11,12){\TRIup{mfgreen}}
\rput(15,12){\TRIdown{red}}
\rput(17,12){\TRIdown{red}}
% MIDDLE PICTURE
% The (upper part of the) circle
\psline[linewidth=0.4,linecolor=gray,linearc=0.75](-2,7)(18,7)
% The bicoloured paths
\psset{linewidth=0.5,linecolor=lightgray,linearc=0.5,fillstyle=none}
\psline(5,7)(4,5)(3,7)
\psline(7,7)(8,5)(9,7)
\psline(11,7)(12,5)(13,7)(14,5)(15,7)
% The arcs
\psset{linewidth=0.15,linecolor=lightgray,fillstyle=none}
\psline[linearc=0.4](-1,7)(-1,8.5)(17,8.5)(17,7)
% Dangling coloured paths ...
% Red arcs:
% \psset{linewidth=0.15,linecolor=red,linestyle=dashed,dash=3pt 2pt}
\redlinestyle
\psline(1,7)(0.5,4)
\psline(5,7)(4,5)(3.5,4)
\psline(7,7)(8,5)(7.5,4)
\psline(13,7)(12,5)(11.5,4)
\psline(15,7)(14,5)(14.5,4)
\psline(17,7)(17,4)
% Green arcs:
% \psset{linewidth=0.15,linecolor=green,linestyle=solid}
\greenlinestyle
\psline(-1,7)(-1,4)
\psline(1,7)(1.5,4)
\psline(3,7)(4,5)(4.5,4)
\psline(9,7)(8,5)(8.5,4)
\psline(11,7)(12,5)(12.5,4)
\psline(13,7)(14,5)(13.5,4)
% Upper coloured points
\whitecirclestyle
\psset{linewidth=0.15,linecolor=black,fillstyle=solid,fillcolor=white}
\pscircle(-1,7){0.4}
\pscircle[fillcolor=black](1,7){0.4}
\pscircle[fillcolor=lightgray](3,7){0.4}
\pscircle[fillcolor=lightgray](5,7){0.4}
\pscircle[fillcolor=lightgray](7,7){0.4}
\pscircle[fillcolor=lightgray](9,7){0.4}
\pscircle[fillcolor=lightgray](11,7){0.4}
\pscircle[fillcolor=lightgray](13,7){0.4}
\pscircle[fillcolor=lightgray](15,7){0.4}
\pscircle(17,7){0.4}
% Upper points, radial orientation
%\rput(1,7){\TRIup{green}}
%\rput(3,7){\TRIup{green}}
%\rput(5,7){\TRIdown{red}}
%\rput(7,7){\TRIdown{red}}
%\rput(9,7){\TRIup{green}}
%\rput(11,7){\TRIup{green}}
%\rput(13,7){\TRIdown{red}}
%\rput(15,7){\TRIdown{red}}
% Points of intersection
\psset{linewidth=0.1,linecolor=black,fillstyle=solid,fillcolor=black}
\pscircle(4,5){0.35}
\pscircle(8,5){0.35}
\pscircle(12,5){0.35}
\pscircle(14,5){0.35}
% LOWER PICTURE
\rput(0,-5){
% The (upper part of the) circle
\psline[linewidth=0.4,linecolor=gray,linearc=0.75](-2,7)(18,7)
% The bicoloured paths
\psset{linewidth=0.5,linecolor=lightgray,linearc=0.5,fillstyle=none}
\psline(5,7)(4,5)(3,7)
\psline(7,7)(8,5)(9,7)
\psline(11,7)(12,5)(13,7)(14,5)(15,7)
\psline(-1,7)(0,5)(1,7)(2,3)(4,5)(6,3)(8,5)(10,3)(12,5)(13,3)(14,5)(15,3)(17,7)
% The arcs
%\psset{linewidth=0.15,linecolor=lightgray}
%\psline[linearc=0.4](1,8)(1,10)(15,10)(15,8)
%\psline[linearc=0.4](3,8)(3,9)(5,9)(5,8)
%\psline[linearc=0.4](7,8)(7,9)(9,9)(9,8)
%\psline[linearc=0.4](11,8)(11,9)(13,9)(13,8)
% Dangling coloured paths ...
% Red arcs:
% \psset{linewidth=0.15,linecolor=red,linestyle=dashed,dash=3pt 2pt,fillstyle=none}
\redlinestyle
\psline(1,7)(0,5)(-0.5,4)
\psline(5,7)(4,5)(2,3)(1.5,2)
\psline(7,7)(8,5)(6,3)(5.5,2)
\psline(13,7)(12,5)(10,3)(9.5,2)
\psline(15,7)(14,5)(13,3)(13.5,2)
\psline(17,7)(15,3)(14.5,2)
% Green arcs:
% \psset{linecolor=green,linestyle=solid}
\greenlinestyle
\psline(-1,7)(0,5)(0.5,4)
\psline(1,7)(2,3)(2.5,2)
\psline(3,7)(4,5)(6,3)(6.5,2)
\psline(9,7)(8,5)(10,3)(10.5,2)
\psline(11,7)(13,3)(12.5,2)
\psline(13,7)(14,5)(15,3)(15.5,2)
% Upper coloured points
\whitecirclestyle
%\psset{linewidth=0.15,linecolor=black,fillstyle=solid,fillcolor=lightgray}
\pscircle[fillcolor=lightgray](-1,7){0.4}
\pscircle[fillcolor=lightgray](1,7){0.4}
\pscircle[fillcolor=lightgray](3,7){0.4}
\pscircle[fillcolor=lightgray](5,7){0.4}
\pscircle[fillcolor=lightgray](7,7){0.4}
\pscircle[fillcolor=lightgray](9,7){0.4}
\pscircle[fillcolor=lightgray](11,7){0.4}
\pscircle[fillcolor=lightgray](13,7){0.4}
\pscircle[fillcolor=lightgray](15,7){0.4}
\pscircle[fillcolor=lightgray](17,7){0.4}
% Upper points, radial orientation
%\rput(1,7){\TRIup{green}}
%\rput(3,7){\TRIup{green}}
%\rput(5,7){\TRIdown{red}}
%\rput(7,7){\TRIdown{red}}
%\rput(9,7){\TRIup{green}}
%\rput(11,7){\TRIup{green}}
%\rput(13,7){\TRIdown{red}}
%\rput(15,7){\TRIdown{red}}
% Points of intersection
\psset{linewidth=0.1,linecolor=black,fillstyle=solid,fillcolor=black}
\pscircle(0,5){0.35}
\pscircle[fillcolor=lightgray](4,5){0.35}
\pscircle[fillcolor=lightgray](8,5){0.35}
\pscircle[fillcolor=lightgray](12,5){0.35}
\pscircle(2,3){0.35}
\pscircle(6,3){0.35}
\pscircle(10,3){0.35}
\pscircle(13,3){0.35}
\pscircle[fillcolor=lightgray](14,5){0.35}
\pscircle(15,3){0.35}
}
\endpspicture