view release on metacpan or  search on metacpan

script/in-preparation/convex.pl  view on Meta::CPAN

    }%
    \foreach [count=\c] \x/\y/\dx/\dy/\len/\X/\Y/\i/\XX/\YY in {#4} {%
      \pgfmathtruncatemacro\DO{\len<30}%
      \ifnum \DO > 0 %
        \draw[] (\x,\y) -- ++(\dx,\dy) coordinate (e);%
        \fill[] (e) circle (0.28em);%			vs thickness of "thick"
        \draw[violet,thick] (e) -- (\XX,\YY) coordinate (ee);%
        \fill[violet] (ee) circle (0.28em);%
      \fi
    }%
  \node[below left, overlay] at (current bounding box.north east) {#5};%
  }}\llap{\small #2 }\hfil}


\newcommand\doSlopes[2]{%		points (X/Ymin/Ymax)
  {\color{blue}\fbox{\tikz[scale=0.3]{%
    \foreach \Z/\ZZ/\slope/\inv in {#2} {%
      \draw[gray!66,very thick] (\Z,\slope*5) -- (\ZZ,\slope*5);%
    }%
    \foreach \Z/\Umin/\Umax in {#1} {%
      \fill[blue] (\Z,\Umin*5) circle (0.2em);%