summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-05-12 22:31:50 +0000
committerKarl Berry <karl@freefriends.org>2017-05-12 22:31:50 +0000
commit8985692c4e7f95a1f6e69213cc73e25e232734c4 (patch)
treef7a6bbb9dbe1fe52cfc5555605122aed0a7846c1 /Master/texmf-dist/tex/generic
parentd519d77fb8050b65038daca80ba4e323a9834072 (diff)
pst-spinner not just doc
git-svn-id: svn://tug.org/texlive/trunk@44309 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/pst-spinner/pst-spinner.tex72
1 files changed, 72 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-spinner/pst-spinner.tex b/Master/texmf-dist/tex/generic/pst-spinner/pst-spinner.tex
new file mode 100644
index 00000000000..da149b90273
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-spinner/pst-spinner.tex
@@ -0,0 +1,72 @@
+%% Package `pst-spinner.tex'
+%%
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% dessiner les triple fidget spinner
+%%
+\let\PSTSPINNERLoaded\endinput
+% Requires PSTricks, pst-xkey, pst-node packages
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex \fi
+\ifx\PSTnodeLoaded\endinput\else\input pst-node.tex\fi
+%
+\def\fileversion{1.01}
+\let\pstspinnerFV\fileversion
+\def\filedate{2017/05/11}
+\message{`PST' v\fileversion, \filedate}
+
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+\pst@addfams{pst-spinner}
+%% prologue for postcript
+\pstheader{pst-spinner.pro}%
+%
+\define@key[psset]{pst-spinner}{R}{\def\pst@spinner@R{#1 }} % rayon de cercle circonscrit au spinner
+\define@key[psset]{pst-spinner}{rotation}{\def\pst@spinner@rotation{#1 }} % angle de rotation
+%% couleurs definies par l'utilisateur
+\definecolor{honeydew}{rgb}{0.94 1 0.94}
+\define@key[psset]{pst-spinner}{color0}{\pst@getcolor{#1}\pscolor}
+\define@key[psset]{pst-spinner}{color1}{\pst@getcolor{#1}\pscolora}
+\define@key[psset]{pst-spinner}{color2}{\pst@getcolor{#1}\pscolorb}
+\define@key[psset]{pst-spinner}{color3}{\pst@getcolor{#1}\pscolorc}
+\define@key[psset]{pst-spinner}{colorMask}{\pst@getcolor{#1}\pscolorMask}
+\define@boolkey[psset]{pst-spinner}[Pst@]{mask}[true]{} % cache du roulement à billes du centre
+\define@boolkey[psset]{pst-spinner}[Pst@]{customize}[true]{} % personnaliser le fidget
+\define@boolkey[psset]{pst-spinner}[Pst@]{customizeMask}[true]{} % personnaliser le capuchon de roulement central
+\define@key[psset]{pst-spinner}{image}{\edef\psk@spinner@image{#1}} % chemin des dessins
+%
+\psset[pst-spinner]{R=3.9,rotation=0,color0=honeydew,color1=red,color2=green,
+ color3=blue!75,colorMask=honeydew,mask=true,customize=false,customizeMask=false,
+ image={}}
+\def\psFidgetSpinner{\def\pst@par{}\pst@object{psFidgetSpinner}}
+\def\psFidgetSpinner@i{%
+ \begin@SpecialObj
+ \addto@pscode{
+ tx@spinnerDict begin
+ /cm {\pst@number\psunit mul} bind def
+ /R1 \pst@spinner@R\space cm def
+ /color0 {\pst@usecolor\pscolor } def
+ /color1 {\pst@usecolor\pscolora } def
+ /color2 {\pst@usecolor\pscolorb } def
+ /color3 {\pst@usecolor\pscolorc } def
+ /colorMask {\pst@usecolor\pscolorMask} def
+ /spinnerROT \pst@spinner@rotation def
+ /ifPst@customize \ifPst@customize true \else false \fi def
+ /spinnerImage { (\psk@spinner@image) run } def
+ /spinnerFillColor { \pst@usecolor\psfillcolor } def
+ /spinnerLineColor { \pst@usecolor\pslinecolor } def
+ /spinnerLW \pst@number\pslinewidth\space def
+ /ifPst@mask \ifPst@mask true \else false \fi def
+ /ifPst@customizeMask \ifPst@customizeMask true \else false \fi def
+ makeSpinner
+ end
+ }%
+ \showpointsfalse
+ \end@SpecialObj
+ \ignorespaces}
+%
+\catcode`\@=\PstAtCode\relax
+\endinput \ No newline at end of file