%PSTricks content-type (pstricks.sty package needed)
%Add \usepackage{pstricks} in the preamble of your LaTeX file
%You can rescale the whole picture (to 80% for instance) by using the command \def\JPicScale{0.8}
\ifx\JPicScale\undefined\def\JPicScale{1}\fi
\psset{unit=\JPicScale mm}
\psset{linewidth=0.3,dotsep=1,hatchwidth=0.3,hatchsep=1.5,shadowsize=1,dimen=middle}
\psset{dotsize=0.7 2.5,dotscale=1 1,fillcolor=black}
\psset{arrowsize=1 2,arrowlength=1,arrowinset=0.25,tbarsize=0.7 5,bracketlength=0.15,rbracketlength=0.15}
\begin{pspicture}(0,0)(122.5,82.5)
\psline[linewidth=0.75](37.89,50.26)(29.74,77.37)
\psline[linewidth=0.75](32.11,78.16)(39.74,52.11)
\rput{0}(30.13,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(40.3,49.56){\psellipse[linewidth=0.75,fillstyle=solid](0,0)(2.5,2.5)}
\rput{0}(50.13,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(10,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(70.01,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\psline[linewidth=0.75](42.76,49.61)(52.5,79.08)
\psline[linewidth=0.75](40.26,48.29)(49.61,76.84)
\psline[linewidth=0.75](38.29,49.08)(48.03,78.55)
\psline[linewidth=0.75](43.42,50.79)(68.55,77.89)
\psline[linewidth=0.75](37.63,50.66)(11.71,78.03)
\psline[linewidth=0.75](87.89,50.26)(79.74,77.37)
\psline[linewidth=0.75](82.11,78.16)(89.74,52.11)
\rput{0}(80.13,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(90.3,49.56){\psellipse[linewidth=0.75,fillstyle=solid](0,0)(2.5,2.5)}
\rput{0}(100.13,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(120,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\psline[linewidth=0.75](92.76,49.61)(102.5,79.08)
\psline[linewidth=0.75](90.26,48.29)(99.61,76.84)
\psline[linewidth=0.75](88.29,49.08)(98.03,78.55)
\psline[linewidth=0.75](93.42,50.79)(118.55,77.89)
\psline[linewidth=0.75](151.18,77.37)(159.21,51.85)
\rput{0}(150.14,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(160.3,49.56){\psellipse[linewidth=0.75,fillstyle=solid](0,0)(2.5,2.5)}
\rput{0}(170.14,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(130,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\psline[linewidth=0.75](161.05,49.22)(170.53,77.37)
\psline[linewidth=0.75](159.6,48.82)(168.95,77.37)
\psline[linewidth=0.75](158.29,49.08)(168.03,78.55)
\psline[linewidth=0.75](162.89,50.53)(172.11,78.16)
\psline[linewidth=0.75](157.37,50.13)(131.45,77.5)
\psline[linewidth=0.75](158.55,51.84)(132.63,79.21)
\end{pspicture}

\vspace{-3cm}
{\small\it {\bf Fig 4}\pointir Graphic Primitive Elements of $\LDIAG$ have only one black spot and therefore are coded by the sequence of the ingoing degrees of their white spots (a composition). The first one here has code $[1,2,3,1]$. The picture shows an element of the monoid generated by Graphic Primitive Elements (a linear basis of $\LDIAG^{\textrm{\tiny GPE}}$) which is then coded by a list of compositions, here $\Big[[1,2,3,1],[2,3,1],[2,1,4]\Big]$.}