diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/tkz-base/tkz-obj-marks.tex')
| -rw-r--r-- | Master/texmf-dist/tex/latex/tkz-base/tkz-obj-marks.tex | 135 |
1 files changed, 135 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/tkz-base/tkz-obj-marks.tex b/Master/texmf-dist/tex/latex/tkz-base/tkz-obj-marks.tex new file mode 100644 index 00000000000..adb51bec600 --- /dev/null +++ b/Master/texmf-dist/tex/latex/tkz-base/tkz-obj-marks.tex @@ -0,0 +1,135 @@ +% Copyright 2011 by Alain Matthes +% +% This file may be distributed and/or modified +% +% 1. under the LaTeX Project Public License and/or +% 2. under the GNU Public License. + + +\def\fileversion{1.16 c} +\def\filedate{2011/06/01} + + +%<-------------------------------------------------------------------------–> +% Setup Marks +%<-------------------------------------------------------------------------–> +%<--------------------------------------------------------------------------–> +% DefSetOfPoints +%<--------------------------------------------------------------------------–> +\newif\iftkz@sop@show +\newcount\tkz@cntmk +\pgfkeys{ + /tkzSoPt/.cd, + prefix/.code = {\global\edef\tkz@pref{#1}}, + /tkzSoPt/.unknown/.code = {\let\searchname=\pgfkeyscurrentname + \pgfkeysalso{\searchname/.try=#1, + /tikz/\searchname/.retry=#1}} +} +\def\tkzDefSetOfPoints{\pgfutil@ifnextchar[{\tkz@SetOfPoints}{% + \tkz@SetOfPoints[]}} +\def\tkz@SetOfPoints[#1]#2{% +\begingroup +\pgfkeys{% +/tkzSoPt/.cd, +prefix=tkzPt} +\pgfqkeys{/tkzSoPt}{#1} + \tkz@cntmk1 % + \edef\tkz@@cnt{\the\tkz@cntmk} + \foreach \x/\y in {#2}{% + \tkz@cntmk=\tkz@@cnt % + \tkzDefPoint(\x,\y){\tkz@pref\the\tkz@cntmk} + \advance\tkz@cntmk by1 % + \global\edef\tkz@@cnt{\the\tkz@cntmk} + }% +\endgroup}% +%<-------------------------------------------------------------------------–> +\pgfkeys{ + /tkzjoinmk/.cd, + prefix/.code = {\global\edef\tkz@pref{#1}}, + /tkzjoinmk/.unknown/.code = {\let\searchname=\pgfkeyscurrentname + \pgfkeysalso{\searchname/.try=#1, + /tikz/\searchname/.retry=#1}} +} +\def\tkzJoinSetOfPoints{\pgfutil@ifnextchar[{\tkz@JoinSetOfPoints}{% + \tkz@JoinSetOfPoints[]}} +\def\tkz@JoinSetOfPoints[#1]{% +\begingroup +\pgfkeys{% +/tkzjoinmk/.cd, +prefix=tkzPt} +\pgfqkeys{/tkzjoinmk}{#1} +\pgfmathsetcount{\tkz@cntmk}{\tkz@@cnt-2} +\edef\tkz@@cnt{\the\tkz@cntmk} +\foreach \nb in {1,...,\tkz@@cnt}{% +\tkz@cntmk=\nb +\advance\tkz@cntmk by1 +\draw[line cap=round,/tkzjoinmk/.cd,#1] (\tkz@pref\nb)--(\tkz@pref\the\tkz@cntmk);} +\endgroup} +%<-------------------------------------------------------------------------–> +% ShowSetOfMark +%<-------------------------------------------------------------------------–> +\pgfkeys{ +/tkzdrawmk/.cd, +prefix/.code = {\global\edef\tkz@pref{#1}}, +/tkzdrawmk/.unknown/.code = {\let\searchname=\pgfkeyscurrentname + \pgfkeysalso{\searchname/.try=#1, + /tikz/\searchname/.retry=#1}} +} +\def\tkzDrawSetOfPoints{\pgfutil@ifnextchar[{\tkz@DrawSetOfPoints}{ + \tkz@DrawSetOfPoints[]}} +\def\tkz@DrawSetOfPoints[#1]{% +\begingroup +\pgfkeys{/tkzdrawmk/.cd, prefix=tkzPt} +\pgfqkeys{/tkzdrawmk}{#1} +\pgfmathsetcount{\tkz@cntmk}{\tkz@@cnt-1} +\foreach \nb in {1,...,\tkz@cntmk}{% +\tkzDrawMark[#1](\tkz@pref\nb)} +\endgroup} + +%<-------------------------------------------------------------------------–> +% tkzmark +%<-------------------------------------------------------------------------–> +\def\tkzDrawMark{\pgfutil@ifnextchar[{\tkz@DrawMark}{\tkz@DrawMark[]}} +\def\tkz@DrawMark[#1](#2){% + \draw plot[mark style,#1] coordinates {(#2)}; +} +%<-------------------------------------------------------------------------–> +%<--------------------------------------------------------------------------–> +\def\tkzDrawMarks{\pgfutil@ifnextchar[{\tkz@DrawMarks}{\tkz@DrawMarks[]}} +\def\tkz@DrawMarks[#1](#2){% +\foreach \point in {#2}{% +\draw plot[mark style,#1] coordinates {(\point)}; % StyleMark, +}} + +%<--------------------------------------------------------------------------–> +% Init pour mark +%<--------------------------------------------------------------------------–> +\pgfkeys{% +setupmk/.cd, +size/.code = {\global\edef\tkz@sum@mk@size{#1}}, +color/.code = {\global\edef\tkz@sum@mk@color{#1}}, +fill/.code = {\global\edef\tkz@sum@mk@fill{#1}}, +mark/.code = {\global\edef\tkz@sum@mk@mark{#1}} +} + +\def\tkzSetUpMark{\pgfutil@ifnextchar[{\tkzActivOff\tkz@SetUpMark}{% + \tkzActivOff\tkz@SetUpMark[]}} + +\def\tkz@SetUpMark[#1]{% + \pgfkeys{% +/setupmk/.cd, +mark = \tkz@mk@mark, +color = \tkz@mk@color, +fill = \tkz@mk@color!50, +size = \tkz@mk@size} +\pgfqkeys{/setupmk}{#1} +\tikzset{mark style/.style={inner sep = 0pt, + mark = \tkz@sum@mk@mark, + mark size = \tkz@sum@mk@size, + mark options = {color = \tkz@sum@mk@color, + fill = \tkz@sum@mk@fill}}} +}% + +%<--------------------------------------------------------------------------–> +\endinput +
\ No newline at end of file |