\begin{tikzpicture}[scale=.5]
          \tikzstyle{vertex}=[circle,fill=red,
          inner sep=0pt,minimum size=2mm]
          \clip (-6,-3) rectangle (6,4);
          \coordinate (p) at (-2,0);
          \coordinate (q) at (2,.4);
          \coordinate (m) at ($(p)!.5!(q)$);
          \coordinate (a1) at ($(m)!1.5!90:(q)$);
          \coordinate (a2) at ($(m)!1.5!90:(p)$);
          \draw[->] (a1)--(a2);
          \coordinate (w1) at (-3,0);
          \typeIIcline[thin]{p}{q}{w1};
          \coordinate (w2) at (-4,0);
          \typeIIcline[thin]{p}{q}{w2};
          \coordinate (w3) at (-5,0);
          \typeIIcline[thin]{p}{q}{w3};
          \coordinate (w4) at (-6,0);
          \typeIIcline[thin]{p}{q}{w4};
          \coordinate (w5) at (2.8,0);
          \typeIIcline[thin]{p}{q}{w5};
          \coordinate (w6) at (3.8,0);
          \typeIIcline[thin]{p}{q}{w6};
          \coordinate (w7) at (4.8,0);
          \typeIIcline[thin]{p}{q}{w7};
          \coordinate (w8) at (5.8,0);
          \typeIIcline[thin]{p}{q}{w8};
          \draw [thick, ->] (-4.5,-.25) arc (195:120:1.3cm);
          \draw [thick, ->] (4.3,.25) arc (-15:60:1.3cm);
          \draw [thick, ->] (-.4,1)--(-.2,-1);
          \tkzDrawPoints[fill=red](p,q)
          \tkzLabelPoint[left](p){\(p\)}
          \tkzLabelPoint[right](q){\(q\)}
          \end{tikzpicture}